[Bras] Version 7.5b — File Browser
BrasVersion7.5bv7.5 / BrasVersion7.5bv7.5 / aliases.ini
aliases.ini — 17.8 KB — Download this file
[Aliases]
n0=op mode # +o $$1
n1=deop mode # -o $$1
n2=ping ctcp $$1 ping
n3=voice mode # +v $$1
n4=devoice mode # -v $$1
n5=f3 write -c $mircdir $+ page.log
n6=f4 run c:\windows\notepad.exe $mircdir $+ page.log
n7=cent %cent = $$1 * 100 | %cent = %cent / $$2 | return %cent $+ %
n8=a if (status isin $active) { echo $leet(*1) | halt } | else { msg $active $leet(*1) | halt }
n9=r if (status isin $active) { echo 4 $color(*1) | halt } | else { msg $active $color(*1) | halt }
n10=bw if (status isin $active) { echo $backward(*1) } | else { msg $active $backward(*1) }
n11=load { if (($right(3,$1) = mir) || ($right(4,$1) = mirc)) { play -c $mircdiraddon\ $+ $1 } | else { load *1 } }
n12=anti.idle if ($$1 == on) { .timer333 0 500 /amsg anti .x $read $mircdirquotes.txt x. idle } | if ($$1 == off) { .timer333 off }
n13=fix.ver { if (((*1) && (*1 !isin %ver) && (%ver != $null))) { return %ver + *1 } | elseif (%ver == $null) { return *1 } | else { return %ver } }
n14=auto.away if (%away == $null) && ($idle >= %idletime) { gone auto away after %idletime seconds } | else { if ($away == $true) && ($idle < %idletime) { back } }
n15=size set %byte $1 | set %byte2 %byte / 1000 | set %byte3 %byte2 * 1000 | set %byte4 %byte - %byte3 | if ($len(%byte4) < 2) { set %byte4 00 $+ %byte4 } | set %total %byte2 $+ . $+ %byte4 | return %total $+ k
n16=gone %away = *1 | %away.log = on | amsg gone - %away - leave an msg if you need me | .timer222 0 500 /amsg gone - %away - leave an msg if you need me | away %away | .timer111 0 1 /inc %away.time
n17=backward %text = "" | %i = [ $len(*1) + 1 ] | if (*1 == $null) { unset %text | unset %i | halt } | :start | dec %i | if ($mid(%i,1,*1) == $null) { return %text | unset %i | halt } | if ($mid(%i,1,*1) == $chr(32)) { %text = %text $+ | goto start } | %text = %text $+ $mid(%i,1,*1) | goto start
n18=back away | amsg back - %away - gone for - $duration(%away.time) | unset %away | %away.log = off | unset %away.time | .timer111 off | .timer222 off | if (%away.msgs == $null) { echo -a you have no messages | halt } | else { echo -a you have $+ %away.msgs $+ messages. to read, press f4, to delete press f3 | unset %away.msgs }
n19=atime set %atime $gettok($time,1,58) | if (%atime >= 13) { %atime = %atime - 12 | return %atime $+ : $+ $gettok($time,2,58) $+ pm } | else if (%atime == 12) { return %atime $+ : $+ $gettok($time,2,58) $+ pm } | else if (%atime == 0) { %atime = %atime + 12 | return %atime $+ : $+ $gettok($time,2,58) $+ am } | else { return %atime $+ : $+ $gettok($time,2,58) $+ am }
n20=screw1 set %banhost $address($$1,1) | set %banhost $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%banhost,a,?)%banhost,b,?)%banhost,c,?)%banhost,e,?)%banhost,g,?)%banhost,n,?)%banhost,m,?)%banhost,r,?)%banhost,o,?)%banhost,t,?)%banhost,0,?)%banhost,1,?)%banhost,2,?) | mode # +b-o %banhost $$1
n21=screw2 set %banhost $address($$1,2) | set %banhost $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%banhost,a,?)%banhost,b,?)%banhost,c,?)%banhost,e,?)%banhost,g,?)%banhost,n,?)%banhost,m,?)%banhost,r,?)%banhost,o,?)%banhost,t,?)%banhost,0,?)%banhost,1,?)%banhost,2,?) | mode # +b-o %banhost $$1
n22=screw3 set %banhost $address($$1,3) | set %banhost $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%banhost,a,?)%banhost,b,?)%banhost,c,?)%banhost,e,?)%banhost,g,?)%banhost,n,?)%banhost,m,?)%banhost,r,?)%banhost,o,?)%banhost,t,?)%banhost,0,?)%banhost,1,?)%banhost,2,?) | mode # +b-o %banhost $$1
n23=screw4 set %banhost $address($$1,4) | set %banhost $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%banhost,a,?)%banhost,b,?)%banhost,c,?)%banhost,e,?)%banhost,g,?)%banhost,n,?)%banhost,m,?)%banhost,r,?)%banhost,o,?)%banhost,t,?)%banhost,0,?)%banhost,1,?)%banhost,2,?) | mode # +b-o %banhost $$1
n24=leet %message = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(*1,a,å),b,ß),c,Ç),d,Ð,),e,Ë),g,G),i,ì),j,J),k,K),l,£),m,M),n,Ñ),o,ð),q,¶),r,R),s,§),u,û),w,W),x,×),y,¥),;,¤),>,»),<,«) | if ($$1 == e) { echo %message | unset %message | halt } | return %message
n25=c %msg = *1 | %x = 1 | %color = x | :begin | if %x > $len(%msg) goto end | set %temp $rand(1,4) | if %temp = 1 { set %color %color $+ $chr(2) | set %unchar $chr(2) } | elseif %temp = 2 { set %color %color $+ $chr(31) | set %unchar $chr(31) } | %color = %color $+ $chr(3) $+ $rand(1,7) | %color = %color $+ ,0 | if $mid(%x, 1, %msg) = $chr(32) { set %color %color $+ $chr(160) } | else { set %color %color $+ $mid(%x, 1, %msg) } | if %unchar != $null { set %color %color $+ %unchar | unset %unchar } | inc %x | goto begin | :end | set %r $len(%color) - 1 | msg $active $right(%r, %color)
n26=color unset %rainbow | set %rainbow.msg *1 | set %length $len(%rainbow.msg) | set %cycles 1 | :next | if ($mid(%cycles,1,%rainbow.msg) == $null) { goto done } | if ($mid(%cycles,1,%rainbow.msg) == $chr(32)) { set %rainbow.str $chr(3) $+ $r(1,15) $+ $chr(160) $+ $chr(3) } | else { set %rainbow.str $chr(3) $+ $r(1,15) $+ $mid(%cycles,1,%rainbow.msg) $+ $chr(3) } | set %rainbow %rainbow %rainbow.str | inc %cycles 1 | goto next | :done | %rainbow = $remove(%rainbow,$chr(32)) | %rainbow = $remove(%rainbow,8) | %rainbow = $remove(%rainbow,9) | %rainbow = $remove(%rainbow,11) | return %rainbow
n27=cstat {
n28= if ($$1 == echo) { echo 4 -a 2chan stats for # | echo 4 -a $opnick(0,$active) 2are oped ( $+ $cent($opnick(0,$active),$nick(0,$active)) $+ ) | echo 4 -a $nopnick(0,$active) 2are deoped ( $+ $cent($nopnick(0,$active),$nick(0,$active)) $+ ) | echo 4 -a $vnick(0,$active) 2are voiced ( $+ $cent($vnick(0,$active),$nick(0,$active)) $+ ) | echo 4 -a $nvnick(0,$active) 2are devoiced ( $+ $cent($nvnick(0,$active),$nick(0,$active)) $+ ) | echo 4 -a 2grand total $nick(0,$active) | halt }
n29= else { msg $active chan stats for # | msg $active $opnick(0,$active) are oped ( $+ $cent($opnick(0,$active),$nick(0,$active)) $+ ) | msg $active $nopnick(0,$active) are deoped ( $+ $cent($nopnick(0,$active),$nick(0,$active)) $+ ) | msg $active $vnick(0,$active) are voiced ( $+ $cent($vnick(0,$active),$nick(0,$active)) $+ ) | msg $active $nvnick(0,$active) are devoiced ( $+ $cent($nvnick(0,$active),$nick(0,$active)) $+ ) | msg $active grand total $nick(0,$active) | halt }
n30=}
n31=mail {
n32= if ($$1 == setup) { %mail.user = $$?="enter your login name" | %mail.pass = $$?="enter your password" | %mail.server = $$?="enter your mail server(non ip)" | echo 4 mail setup | echo 2 4login name - %mail.user | echo 2 4login passord - %mail.pass | echo 2 4mail server - %mail.server | halt }
n33= if ($$1 == list) { %mail.command = $$?="would you like to see mail? [y/n]" | if (%mail.command == y) { msg =$me retr $$?="what message would you like to read?" } | elseif (%mail.command == n) { msg =$me quit | halt } | else { msg =$me retr $$?="what message would you like to read?" } }
n34= if ($$1 == check) { %dns.type = mail.check | .dns %mail.server }
n35= else { %mail.from = $$?="enter your e-mail address" | %mail.to = $$?="enter reciepents e-mail address" | %mail.subject = $$?="enter subject of mail" | %mail.msg = $$?="enter mail message" | echo 2 4from - %mail.from | echo 2 4to - %mail.to | echo 2 4subject - %mail.subject | echo 4 --------------------------- | echo 4 %mail.msg | %dns.type = mail.send | .dns %mail.server }
n36=}
n37=mass {
n38= if ($$1 == o) { %i = 0 | %nicks = "" | :nextnick | inc %i | if ($nopnick(%i,#) == $null) { if ($len(%nicks) > 0) raw -q mode # +oooooo %nicks | halt } | %nicks = %nicks $nopnick(%i,#) | if (6 // %i) { raw -q mode # +oooooo %nicks | %nicks = "" } | goto nextnick }
n39= if ($$1 == d) { %i = 0 | %nicks = "" | :nextnick | inc %i | if ($opnick(%i,#) == $null) { if ($len(%nicks) > 0) raw -q mode # -oooooo %nicks | halt } | if $opnick(%i,#) != $me { %nicks = %nicks $opnick(%i,#) } | if (6 // %i) { raw -q mode # -oooooo %nicks | %nicks = "" } | goto nextnick }
n40= if ($$1 == v) { %i = 0 | %nicks = "" | :nextnick | inc %i | if ($nopnick(%i,#) == $null) { if ($len(%nicks) > 0) raw -q mode # +vvvvvv %nicks | halt } | %nicks = %nicks $nopnick(%i,#) | if (6 // %i) { raw -q mode # +vvvvvv %nicks | %nicks = "" } | goto nextnick }
n41= if ($$1 == dv) { %i = 0 | %nicks = "" | :nextnick | inc %i | if ($nopnick(%i,#) == $null) { if ($len(%nicks) > 0) raw -q mode # -vvvvvv %nicks | halt } | %nicks = %nicks $nopnick(%i,#) | if (6 // %i) { raw -q mode # -vvvvvv %nicks | %nicks = "" } | goto nextnick }
n42= if ($$1 == k) { %i = 1 | :nextnick | if ($nick(%i,#) == $null) { halt } | if ($nick(%i,#) == $me) { inc %i | goto nextnick } | kick $$1 $nick(%i,#) 4mass 2kick | inc %i | goto nextnick }
n43= if ($$1 == nok) { %i = 1 | :nextnick | if ($nopnick(%i,#) == $null) { halt } | kick # $nopnick(%i,#) mass deop kick | inc %i | goto nextnick }
n44= if ($$1 == ok) { %i = 0 | :nextnick | %i = %i + 1 | if ($opnick(%i,#) = $me) { goto start } | if ($opnick(%i,#) = $null) { halt } | kick # $opnick(%i,#) 4mass 2op kick | goto nextnick }
n45= if ($$1 == b) { %i = 1 | :nextnick | %nick = $nick(%i,#) | if (%nick == $null) { halt } | if (%nick != $me) { ban # %nick 3 } | inc %i | goto nextnick }
n46= if ($$1 == kb) { %i = 1 | :nextnick | set %nick $nick(%i,#) | if (%nick == $null) { halt } | if (%nick != $me) { ban # %nick 3 | kick # %nick 4mass 2ban kick } | inc %i | goto nextnick }
n47=}
n48=fk {
n49= if ($$3 == $null) { %fk.msg = Y0uR FuXeD }
n50= set %nicks $nopnick(0,#)
n51= :nextnick
n52= if ($$1 isin $address($nopnick(%nicks,#),1)) {
n53= if ($$2 == yes) {
n54= ban # $nopnick(%nicks,#) *3 4
n55= kick # $nopnick(%nicks,#) *3 2filter kick4 of $$1 $+ )( $+ %fk.msg $+
n56= }
n57= else { kick # $nopnick(%nicks,#) *3 2filter kick4 of $$1 $+ )( $+ %fk.msg $+ }
n58= inc %kicked }
n59= dec %nicks
n60= if (%nicks > 0) {
n61= goto nextnick }
n62= if (%kicked == 0) { echo 4 -a 2no address matching $$1 found }
n63=}
n64=fkac {
n65= if ($$3 == $null) { %fk.msg = Y0uR FuXeD }
n66= set %ch $channel(0)
n67= :Outloop
n68= set %banned 0
n69= set %nicks $nopnick(0,$channel(%ch))
n70= if ($me !isop $channel(%ch)) {
n71= dec %ch
n72= goto outloop }
n73= :Inloop
n74= if ($$1 isin $address($nopnick(%nicks,$channel(%ch)),1)) {
n75= if ($$2 == b) {
n76= if (%Banned != 1) {
n77= ban $channel(%ch) $nopnick(%nicks,$channel(%ch)) 3
n78= set %Banned 1 }
n79= kick $channel(%ch) $nopnick(%nicks,$channel(%ch)) *3 2filter kick4 of $$1 $+ )( $+ %fk.msg $+
n80= }
n81= else { kick $channel(%ch) $nopnick(%nicks,$channel(%ch)) *3 2filter kick4 of $$1 $+ )( $+ %fk.msg $+ }
n82= inc %kicked }
n83= if (%nicks > 1) {
n84= dec %nicks
n85= goto inloop }
n86= dec %ch
n87= if (%ch > 0) {
n88= goto outloop }
n89= if (%kicked == 0) { echo 4 -a 2no address matching $$1 found }
n90=}
n91=cc {
n92= if ($$1 == echo) {
n93= %clonescount = 0 | %nickcounter = 1 | %clonesfound | %skipnicks = ... | echo 4 -a scanning for clones on 2 $+ # $+
n94= :loop1start
n95= :nick
n96= %workingnick = $nick(%nickcounter,#) | if (%workingnick == $null) { goto loop1end } | if (%workingnick isin %clonesfound) { inc %nickcounter | goto nick } | %workingaddress = $address(%workingnick,3)
n97= if (%workingaddress == $null) { %skipnicks = %workingnick $+ , %skipnicks | inc %nickcounter | goto nick } | inc %nickcounter | %nicksubcounter = %nickcounter | %clonessubcount = 0 | %clonessubfound = ...
n98= :loop2start
n99= %currentnick = $nick(%nicksubcounter,$active) | if (%currentnick == $null) { goto loop2end } | if (%workingnick != %currentnick) && (%workingaddress == $address(%currentnick,3)) { inc %clonessubcount | inc %clonescount | %clonessubfound = %currentnick $+ , %clonessubfound | %clonesfound = %currentnick $+ , %clonesfound } | inc %nicksubcounter | goto loop2start
n100= :loop2end
n101= if (%clonessubcount > 0) { echo 4 -a [clone %clonescount $+ ] 2 $+ $remove(%clonessubfound,,...) and %workingnick ( $+ %workingaddress $+ ) } | goto loop1start
n102= :loop1end
n103= echo 4 -a grand total 2 $+ %clonescount $+ | if ($len(%skipnicks) > 3) { echo 4 -a address not found of 2 $+ $remove(%skipnicks,,...) } | echo 4 -a end of list
n104= unset %skipnicks | unset %cuurentnick | unset %clonessubfound | unset %clonessubcount | unset %clonesfound | unset %clone.num | unset %workingnick | unset %workingaddress | unset %currentnick | unset %nicksubcounter | unset %clonescount | unset %nickcounter
n105= }
n106= else {
n107= %clonescount = 0 | %nickcounter = 1 | %clonesfound | %skipnicks = ... | msg $active scanning for clones on 2 $+ # $+
n108= :loop1start
n109= :nick
n110= %workingnick = $nick(%nickcounter,#) | if (%workingnick == $null) { goto loop1end } | if (%workingnick isin %clonesfound) { inc %nickcounter | goto nick } | %workingaddress = $address(%workingnick,3)
n111= if (%workingaddress == $null) { %skipnicks = %workingnick $+ , %skipnicks | inc %nickcounter | goto nick } | inc %nickcounter | %nicksubcounter = %nickcounter | %clonessubcount = 0 | %clonessubfound = ...
n112= :loop2start
n113= %currentnick = $nick(%nicksubcounter,$active) | if (%currentnick == $null) { goto loop2end } | if (%workingnick != %currentnick) && (%workingaddress == $address(%currentnick,3)) { inc %clonessubcount | inc %clonescount | %clonessubfound = %currentnick $+ , %clonessubfound | %clonesfound = %currentnick $+ , %clonesfound } | inc %nicksubcounter | goto loop2start
n114= :loop2end
n115= if (%clonessubcount > 0) { msg $active [clone %clonescount $+ ] 2 $+ $remove(%clonessubfound,,...) and %workingnick ( $+ %workingaddress $+ ) } | goto loop1start
n116= :loop1end
n117= msg $active grand total 2 $+ %clonescount $+ | if ($len(%skipnicks) > 3) { msg $active address not found of 2 $+ $remove(%skipnicks,,...) } | msg $active end of list
n118= unset %skipnicks | unset %cuurentnick | unset %clonessubfound | unset %clonessubcount | unset %clonesfound | unset %clone.num | unset %workingnick | unset %workingaddress | unset %currentnick | unset %nicksubcounter | unset %clonescount | unset %nickcounter
n119= }
n120=}
n121=xdcc {
n122= if ($$1 == echo) { echo 4 -s xdcc $parm2 requested by 2 $+ $nick ( $+ $address $+ ) }
n123= if ($$1 == make) {
n124= set %temp 0
n125= :start
n126= if (%temp == $null) { set %temp 1 } | else { inc %temp } | if (%xdcc.packs == $null) { set %xdn 1 } | else { %xdn = %xdcc.packs + 1 } | set % [ $+ [ pack [ $+ [ %xdn ] ] ] ] $dir="Choose a File" $mircdir | set % [ $+ [ desc [ $+ [ %xdn ] ] ] ] $$?="Enter Description For File" | set %pre % [ $+ [ pack [ $+ [ %xdn ] ] ] ]
n127= set % [ $+ [ size [ $+ [ %xdn ] ] ] ] $size($lof(%pre)) | inc %xdcc.packs | echo 4 -a xdcc packet %xdn $+ | echo 4 -a file 2 $+ $nopath(%pre) $+ | echo 4 -a path 2 $+ % [ $+ [ pack [ $+ [ %xdn ] ] ] ] $+ | echo 4 -a description 2 $+ % [ $+ [ desc [ $+ [ %xdn ] ] ] ] $+ | echo 2 -a 4size % [ $+ [ size [ $+ [ %xdn ] ] ] ] | if (%temp == $$2) { unset %pre | unset %temp | halt } | else { goto start }
n128= }
n129= if ($$1 == remove) {
n130= set %remove $$?="Enter Pack To Remove. 'All' For All"
n131= if (%remove isnum) { unset % [ $+ [ pack [ $+ [ $! ] ] ] ] | unset % [ $+ [ desc [ $+ [ $! ] ] ] ] | unset % [ $+ [ size [ $+ [ $! ] ] ] ] | dec %xdcc.packs | dec %xdn | unset %remove | echo 4 -a xdcc packet $! 2removed }
n132= else if (%remove == all) { unset % [ $+ [ pack [ $+ [ * ] ] ] ] | unset % [ $+ [ desc [ $+ [ * ] ] ] ] | unset % [ $+ [ size [ $+ [ * ] ] ] ] | unset %xdn | unset %pre | unset %remove | echo 4 -a %xdcc.packs xdcc packs 2removed | unset %xdcc.packs }
n133= }
n134= if ($$1 == list) {
n135= if (%xdcc.packs == $null) { .echo 4 -a 2no filled slots in xdcc | halt }
n136= else { set %xdcc.list 0 | :start | inc %xdcc.list | echo 4 -a packet %xdcc.list 2 $+ [ % [ $+ [ desc [ $+ [ %xdcc.list ] ] ] ] ( $+ % [ $+ [ size [ $+ [ %xdcc.list ] ] ] ] $+ ] $+ ) | if (%xdcc.list == %xdcc.packs) { unset %xdcc.list | halt } | else { goto start }
n137= }
n138= }
n139=}
n140=song {
n141= if ($$1 == add) {
n142= set %temp 0 | :start
n143= if ($$2 != $null) { inc %temp }
n144= if (%juke.songs == $null) { set %songs 1 }
n145= else { %songs = %juke.songs + 1 }
n146= set % [ $+ [ song [ $+ [ %songs ] ] ] ] $dir="Choose a File" $mircdir | set % [ $+ [ sdesc [ $+ [ %songs ] ] ] ] $$?="Enter Description For File" | echo 4 -a song %songs set to 2 $+ % [ $+ [ sdesc [ $+ [ %songs ] ] ] ] $+ | inc %juke.songs
n147= if (%temp == $$2) { unset %temp | halt }
n148= else { goto start }
n149= }
n150= if ($$1 == remove) {
n151= if ($$?="Enter Song To Remove. 'All' For All" != all) { set % [ $+ [ song [ $+ [ $! ] ] ] ] none | unset % [ $+ [ sdesc [ $+ [ $! ] ] ] ] | echo 4 -a song $! removed | dec %songs }
n152= else { unset % [ $+ [ song [ $+ [ * ] ] ] ] | echo 4 -a %juke.songs songs removed | unset %juke.songs | unset %songs }
n153= }
n154= if ($$1 == list) {
n155= if (%juke.songs == $null) { echo 4 -a no filled songs in jukebox }
n156= else {
n157= set %song.list 0 | :start | inc %song.list | echo 4 -a song %song.list 2 $+ % [ $+ [ sdesc [ $+ [ %song.list ] ] ] ] $+
n158= if (%song.list == %juke.songs) { unset %songlist | halt }
n159= else { goto start }
n160= }
n161= }
n162=}