[Ras] Version 7.3b — File Browser
RasVersion7.3bv7.3 / RasVersion7.3bv7.3 / aliases.ini
aliases.ini — 17.22 KB — Download this file
[Aliases]
n0=join *1
n1=chat dcc chat $$1
n2=ping ctcp $$1 ping
n3=send dcc send $$1
n4=i msg $active 0,0 $+ *1
n5=op mode # +ooo $$1 $2 $3
n6=deop mode # -ooo $$1 $2 $3
n7=voice mode # +vvv $$1 $2 $3
n8=devoice mode # -vvv $$1 $2 $3
n9=f5 write -c $mircdir $+ page.log
n10=f4 run c:\windows\notepad.exe $mircdir $+ page.log
n11=gone set %nick $me | set %asecs 0 | set %amins 0 | set %ahours 0 | .timer41 0 1 /asec | .timer42 0 60 /amin | .timer43 0 3600 /inc %ahours | set %time $atime | nick $$?="Enter away nick" | amsg [gone $+ $$?="Enter Your Away Message" $+ ][logger/pager on] | .timer123 0 500 /amsg [gone $+ $! $+ ][logger/pager on] | away [gone $+ $! $+ ][logger/pager on] | %away = $! | %away.log = on | .enable #pager
n12=asec if (%asecs >= 60) { inc %amins | set %asecs 0 } | else { inc %asecs }
n13=amin if (%amins >= 60) { set %amins 0 } | else { inc %amins }
n14=back nick %nick | .timer123 off | amsg [back][been gone $+ %ahours $+ hour(s) $+ %amins $+ minute(s) and $+ %asecs $+ second(s)] | .timer41 off | .timer42 off | .timer43 off | unset %away | unset %nick | unset %time | away | %away.log = off | if (%away.msg == $null) { echo 4 you have 0 messages } | else { echo 4 you have $+ %away.msg $+ messages. to read them, press F4. to delete, press F5. } | unset %away.msg | .disable #pager
n15=ircop set %total 0 | .enable #ircop | who 0 o | echo 12 -a scanning for ircops on the network.
n16=chanstat set %clone 0 | set %ircop 0 | set %op 0 | set %nonop 0 | set %voice 0 | set %here 0 | set %total 0 | set %novoice 0 | set %gone 0 | .enable #chanstat | who #
n17=leet %message = $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,è),i,ì),l,£),n,ñ),o,Ø),p,þ),q,¶),r,R),s,§),u,ù),x,×),y,¥),;,¤),>,»),<,«) | if ($$1 == e) { echo %message | unset %message | halt } | return %message
n18=a if (status isin $active) { echo $leet(*1) | halt } | else { msg $active $leet(*1) | halt }
n19=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)
n20=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
n21=r if (status isin $active) { echo 4 $color(*1) | halt } | else { msg $active $color(*1) | halt }
n22=bw %text = "" | %i = [ $len(*1) + 1 ] | if (*1 == $null) { unset %text | unset %i | halt } | :start | dec %i | if ($mid(%i,1,*1) == $null) { msg $active %text | unset %text | unset %i | halt } | if ($mid(%i,1,*1) == $chr(32)) { %text = %text $+ | goto start } | %text = %text $+ $mid(%i,1,*1) | goto start
n23=en %encrypt = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($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,¥),f,¦),g,§),h,¨),i,©),j,ª),k,«),l,¬),m,),n,®),o,¯),p,°),q,±),r,²),s,³),t,´),u,µ),v,¶),w,·),x,¹),y,»),z,¼),1,½),2,¾),3,¿),4,Æ),5,Ç),6,È),7,“),8,”),9,Ÿ),0,™) | msg $active x(4dp)x $+ %encrypt | unset %encrypt
n24=de %decrypt = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($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),¦,f),§,g),¨,h),©,i),ª,j),«,k),¬,l),,m),®,n),¯,o),°,p),±,q),²,r),³,s),´,t),µ,u),¶,v),·,w),¹,x),»,y),¼,z),½,1),¾,2),¿,3),Æ,4),Ç,5),È,6),“,7),”,8),Ÿ,9),™,0) | echo 4 < $+ $nick $+ > $+ %decrypt | unset %decrypt
n25=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
n26=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
n27=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
n28=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
n29=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 }
n30=fix.ver { if (((*1) && (*1 !isin %ver) && (%ver != $null))) { return %ver + *1 } | elseif (%ver == $null) { return *1 } | else { return %ver } }
n31=load { if (($right(3,$1) = mir) || ($right(4,$1) = mirc)) { play -c $mircdiraddon\ $+ $1 0 } | else { load *1 } }
n32=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
n33=fk {
n34= set %nicks $nopnick(0,#)
n35= :nextnick
n36= if $$1 isin $address($nopnick(%nicks,#),1) {
n37= if ($$2 == yes) {
n38= ban # $nopnick(%nicks,#) *3 4
n39= kick # $nopnick(%nicks,#) *3 ¯\ %logo 4FilterKick 12 $+ $$1 $+ 1 %logo /¯
n40= }
n41= else { kick # $nopnick(%nicks,#) *3 ¯\ %logo 4FilterKick 12 $+ $$1 $+ 1 %logo /¯ }
n42= inc %kicked }
n43= dec %nicks
n44= if %nicks > 0 {
n45= goto nextnick }
n46= if %kicked == 0 { echo 12 -a no address matching $$1 found }
n47=}
n48=fkac {
n49= set %ch $channel(0)
n50= :Outloop
n51= set %banned 0
n52= set %nicks $nopnick(0,$channel(%ch))
n53= if $me !isop $channel(%ch) {
n54= dec %ch
n55= goto outloop }
n56= :Inloop
n57= if $$1 isin $address($nopnick(%nicks,$channel(%ch)),1) {
n58= if ($$2 == yes) {
n59= if %Banned != 1 {
n60= ban $channel(%ch) $nopnick(%nicks,$channel(%ch)) 3
n61= set %Banned 1 }
n62= kick $channel(%ch) $nopnick(%nicks,$channel(%ch)) *3 ¯\ %logo 4FilterKick 12 $+ $$1 $+ 1 %logo /¯
n63= }
n64= else { kick $channel(%ch) $nopnick(%nicks,$channel(%ch)) *3 ¯\ %logo 4FilterKick 12 $+ $$1 $+ 1 %logo /¯ }
n65= inc %kicked }
n66= if %nicks > 1 {
n67= dec %nicks
n68= goto inloop }
n69= dec %ch
n70= if %ch > 0 {
n71= goto outloop }
n72= if %kicked == 0 { echo 12 -a no address matching $$1 found }
n73=}
n74=clone {
n75= %clonescount = 0 | %nickcounter = 1 | %clonesfound | %skipnicks = ... | echo 12 -a scanning for clones on $+ # $+
n76= :loop1start
n77= :nick
n78= %workingnick = $nick(%nickcounter,#) | if (%workingnick == $null) { goto loop1end } | if (%workingnick isin %clonesfound) { inc %nickcounter | goto nick } | %workingaddress = $address(%workingnick,3)
n79= if (%workingaddress == $null) { %skipnicks = %workingnick $+ , %skipnicks | inc %nickcounter | goto nick } | inc %nickcounter | %nicksubcounter = %nickcounter | %clonessubcount = 0 | %clonessubfound = ...
n80= :loop2start
n81= %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
n82= :loop2end
n83= if (%clonessubcount > 0) { echo 12 -a [clone %clonescount $+ ] $remove(%clonessubfound,,...) and %workingnick ( $+ %workingaddress $+ ) } | goto loop1start
n84= :loop1end
n85= echo 12 -a grand total $+ %clonescount $+ | if ($len(%skipnicks) > 3) { echo 12 -a address not found of $remove(%skipnicks,,...) } | echo 12 -a end of list
n86= unset %skipnicks | unset %cuurentnick | unset %clonessubfound | unset %clonessubcount | unset %clonesfound | unset %clone.num | unset %workingnick | unset %workingaddress | unset %currentnick | unset %nicksubcounter
n87=}
n88=make {
n89= set %temp 0
n90= :start
n91= if (%temp == $null) { set %temp 1 }
n92= else { inc %temp }
n93= if (%xdcc.packs == $null) { set %xdn 1 }
n94= else { %xdn = %xdcc.packs + 1 }
n95= set % [ $+ [ pack [ $+ [ %xdn ] ] ] ] $dir="Choose a File" $mircdir
n96= set % [ $+ [ desc [ $+ [ %xdn ] ] ] ] $$?="Enter Description For File"
n97= set %pre % [ $+ [ pack [ $+ [ %xdn ] ] ] ]
n98= set % [ $+ [ size [ $+ [ %xdn ] ] ] ] $size($lof(%pre))
n99= inc %xdcc.packs
n100= echo 12 xdcc packet %xdn $+
n101= echo 12 [file] $nopath(%pre)
n102= echo 12 [path] % [ $+ [ pack [ $+ [ %xdn ] ] ] ]
n103= echo 12 [description] % [ $+ [ desc [ $+ [ %xdn ] ] ] ]
n104= echo 12 [size] % [ $+ [ size [ $+ [ %xdn ] ] ] ]
n105= if (%temp == $$1) { unset %pre | unset %temp | halt }
n106= else { goto start }
n107=}
n108=songadd {
n109= set %temp 0
n110= :start
n111= if ($$1 != $null) { inc %temp }
n112= if (%juke.songs == $null) { set %songs 1 }
n113= else { %songs = %juke.songs + 1 }
n114= set % [ $+ [ song [ $+ [ %songs ] ] ] ] $dir="Choose a File" $mircdir
n115= set % [ $+ [ sdesc [ $+ [ %songs ] ] ] ] $$?="Enter Description For File"
n116= echo 12 -a song %songs set to % [ $+ [ sdesc [ $+ [ %songs ] ] ] ]
n117= inc %juke.songs
n118= if (%temp == $$1) { unset %temp | halt }
n119= else { goto start }
n120=}
n121=songlist {
n122= if (%juke.songs == $null) { echo 12 -a no songs in jukebox }
n123= else {
n124= set %song.list 0
n125= :start
n126= inc %song.list
n127= echo 12 [song %song.list $+ ] % [ $+ [ sdesc [ $+ [ %song.list ] ] ] ]
n128= if (%song.list == %juke.songs) { unset %songlist | halt }
n129= else { goto start }
n130= }
n131=}
n132=voteon {
n133= %yes = 0
n134= %no = 0
n135= %vote.topic = $$?="Enter vote Topic"
n136= %vote.time = $$?="How Long for vote?(secs)"
n137= %vote.chan = $$?="Enter Channel. 'all' for all"
n138= if (%vote.chan == all) {
n139= ame %logo voting poles are open! %logo
n140= ame %logo todays topic is $+ %vote.topic $+ %logo
n141= ame %logo ctcp $me yes To vote yes %logo
n142= ame %logo ctcp $me no To vote no %logo
n143= ame %logo Poles Close in %vote.time Seconds! %logo
n144= .enable #vote
n145= .timer 1 %vote.time /voteoff
n146= }
n147= else {
n148= describe %vote.chan %logo voting poles are open! %logo
n149= describe %vote.chan %logo todays topic is $+ %vote.topic $+ %logo
n150= describe %vote.chan %logo ctcp $me yes To vote yes %logo
n151= describe %vote.chan %logo ctcp $me no To vote no %logo
n152= describe %vote.chan %logo Poles Close in %vote.time Seconds! %logo
n153= .enable #vote
n154= .timer 1 %vote.time /voteoff
n155= }
n156=}
n157=voteoff {
n158= .disable #vote
n159= if (%vote.chan == all) {
n160= ame %logo the votes are in! %logo
n161= ame %logo votes for %vote.topic are as follows %logo
n162= ame %logo [no] => $+ %no $+ %logo
n163= ame %logo [yes] => $+ %yes $+ %logo
n164= if (%yes > %no) { ame %logo and The winner is...yes %logo | goto end }
n165= if (%no > %yes) { ame %logo and The winner is...no %logo | goto end }
n166= if (%yes == %no) { ame %logo ohh no! It's a Tie! %logo | goto end }
n167= }
n168= else {
n169= describe %vote.chan %logo the votes are in! %logo
n170= describe %vote.chan %logo votes for %vote.topic are as follows %logo
n171= describe %vote.chan %logo [no] => $+ %no $+ %logo
n172= describe %vote.chan %logo [yes] => $+ %yes $+ %logo
n173= if (%yes > %no) { describe %vote.chan %logo and The winner is...[yes] %logo | goto end }
n174= if (%no > %yes) { describe %vote.chan %logo and The winner is...[no] %logo | goto end }
n175= if (%yes == %no) { describe %vote.chan %logo ohh no! It's a Tie! %logo | goto end }
n176= }
n177= :end
n178= unset %yes
n179= unset %no
n180= unset %vote.topic
n181= unset %vote.chan
n182= unset %vote.time
n183= .rlevel voted
n184= halt
n185=}
n186=abcon {
n187= %a = 0
n188= %b = 0
n189= %c = 0
n190= %vote.topic = $$?="Enter vote Topic"
n191= %choice.a = $$?="Enter First Choice"
n192= %choice.b = $$?="Enter Second Choice"
n193= %choice.c = $$?="Enter Third Choice"
n194= %vote.time = $$?="How Long for vote?(secs)"
n195= %vote.chan = $$?="Enter Channel. 'All' for All"
n196= if (%vote.chan == all) {
n197= ame %logo voting poles are open! %logo
n198= ame %logo todays topic is $+ %vote.topic $+ %logo
n199= ame %logo you have the following choices... %logo
n200= ame %logo [a] %choice.a %logo
n201= ame %logo [b] %choice.b %logo
n202= ame %logo [c] %choice.c %logo
n203= ame %logo ctcp $me <your vote> %logo
n204= ame %logo Poles Close in %vote.time Seconds! %logo
n205= .enable #abc
n206= .timer 1 %vote.time /abcoff
n207= }
n208= else {
n209= describe %vote.chan %logo voting poles are open! %logo
n210= describe %vote.chan %logo todays topic is $+ %vote.topic $+ %logo
n211= describe %vote.chan %logo you have the following choices... %logo
n212= describe %vote.chan %logo [a] %choice.a %logo
n213= describe %vote.chan %logo [b] %choice.b %logo
n214= describe %vote.chan %logo [c] %choice.c %logo
n215= describe %vote.chan ctcp $me <your vote> %logo
n216= describe %vote.chan %logo Poles Close in %vote.time Seconds! %logo
n217= .enable #abc
n218= .timer 1 %vote.time /abcoff
n219= }
n220=}
n221=abcoff {
n222= .disable #abc
n223= if (%vote.chan == all) {
n224= ame %logo the votes are in! %logo
n225= ame %logo votes for %vote.topic are as follows %logo
n226= ame %logo [a] %choice.a => $+ %a $+ %logo
n227= ame %logo [b] %choice.b => $+ %b $+ %logo
n228= ame %logo [c] %choice.c => $+ %c $+ %logo
n229= if (%a > %b) && (%a > %c) { ame %logo and the winner is...[a] %choice.a %logo | goto end }
n230= if (%b > %a) && (%b > %c) { ame %logo and the winner is...[b] %choice.b %logo | goto end }
n231= if (%c > %a) && (%c > %b) { ame %logo and the winner is...[c] %choice.c %logo | goto end }
n232= else { ame %logo ohh no! It's a tie! %logo | goto end }
n233= }
n234= else {
n235= describe %vote.chan %logo the votes are in! %logo
n236= describe %vote.chan %logo votes for %vote.topic are as follows %logo
n237= describe %vote.chan %logo [a] %choice.a => $+ %a $+ %logo
n238= describe %vote.chan %logo [b] %choice.b => $+ %b $+ %logo
n239= describe %vote.chan %logo [c] %choice.c => $+ %c $+ %logo
n240= if (%a > %b) && (%a > %c) { describe %vote.chan %logo and the winner is...[a] %choice.a %logo | goto end }
n241= if (%b > %a) && (%b > %c) { describe %vote.chan %logo and the winner is...[b] %choice.b %logo | goto end }
n242= if (%c > %a) && (%c > %b) { describe %vote.chan %logo and the winner is...[c] %choice.c %logo | goto end }
n243= else { describe %vote.chan %logo ohh no! It's a tie! %logo | goto end }
n244= }
n245= :end
n246= unset %a
n247= unset %b
n248= unset %c
n249= unset %choicea
n250= unset %choice.b
n251= unset %choice.c
n252= unset %vote.topic
n253= unset %vote.chan
n254= unset %vote.time
n255= .rlevel voted
n256= halt
n257=}
n258=cent %cent = $$1 * 100 | %cent = %cent / $$2 | return %cent $+ %