home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HaCKeRz KrOnIcKLeZ 3
/
HaCKeRz_KrOnIcKLeZ.iso
/
scriptz
/
mripp.exe
/
aliases.ini
next >
Wrap
INI File
|
1997-03-19
|
28KB
|
692 lines
[Aliases]
n0=atime {
n1= set %hr $token(1,58,$time)
n2= set %min $token(2,58,$time)
n3= if (%hr == 0) { set %hr 12 | set %sub am }
n4= elseif (%hr < 12) { set %sub am }
n5= elseif (%hr == 12) { set %sub pm }
n6= else { %hr = %hr - 12 | set %sub pm }
n7= return %hr $+ : $+ %min $+ %sub
n8=}
n9=awa1 /.disable #qnprot | /.disable #soundsend | /.disable #autoping | /mode $me +i-ws | /.enable #prot | /.disable #flood_off | /nick %awaynick | /echo -a 2ññññ Fú÷÷╨ Pú÷tΦótφ÷± E±gΣgΦd Auto Ping [OFF] [ $me Mode:+i-ws] Auto Send Requests [OFF] ñññ | /set %ap [OFF] | /set %po [ON] | /set %ss [OFF] | /set %qnp [OFF]
n10=awa2 /mode $me %mode | /.ignore off | /.disable #prot | /.enable #flood_off | /nick %mynick | /echo -a 2ññ ALL Fú÷÷╨ Pú÷tΦótφ÷± is OFF,Turn Auto-Ping and Auto send On if required $me Mode:Restored ññ | /set %po [OFF] /set %qnp [ON]
n11=/gone {
n12= .timer888 off
n13= .awa1
n14= ame is away - $? - Messages are logged $atime
n15= away since $atime - $+ $$!
n16= %msg = 0
n17= write -c $mircdir $+ away.log
n18= .enable #AwayMsgLog
n19=}
n20=back {
n21= if ($away != $true) { echo 6 Hey! you're not away | halt }
n22= elseif (%bbs.aaway == ON) { unset %bbs.aaway | ame has been set back | away | halt }
n23= else {
n24= .awa2
n25= ame φz ▀Σ╟K!
n26= away
n27= .disable #AwayMsgLog
n28= if (%msg == 0) { set %msg no }
n29= echo You have %msg message(s)
n30= if (%set.aaway == ON) { .timer888 0 %set.aaway.check /autoaway }
n31= unset %msg
n32= }
n33=}
n34=bb1 {
n35= echo 4 %rh ***********************************************************************************
n36= echo 3 %rh Tδ±σ |{°Θ $me ! Ñ÷√ σrδ ╟°±±Ωótδd t÷ $server °± $date $day $atime
n37= echo 4 %rh ***********************************************************************************
n38= echo 6 %rh -[-= ñM√Tσ±T«φ■P V0.8░ ºórφpt=- mφR╟« 4.72 ]- Created 18 January 1997
n39= echo 12 %rh -[ ▀ -=▀σ╨▀≤ =- ┼÷tΘΓr°Γ ]-
n40= echo 4 %rh
n41= echo 4 %rh ***********************************************************************************
n42=}
n43=bh {
n44= set %help -[▀Γ╨▀° ]-HelpáWindow
n45= { play -ct $me $mircdir $+ bb.snt 200 }
n46=}
n47=channels {
n48= set %channels $chan(0)
n49= set %channelz 0
n50= set %i $chan(0)
n51= set %j 0
n52= :next
n53= inc %j 1
n54= inc %channelz
n55= if $chan(%j) != $null {
n56= set %chan $chan
n57= echo 2 %rh Channel ( $+ %channelz $+ / $+ %channels $+ )
n58= echo 4 %rh Name: $+ $chan(%j) $+
n59= if $chan(%j).key != $null { echo 3 $rh Key: $chan(%j).key }
n60= if $chan(%j).key == $null { echo 3 %rh Key: <none> }
n61= if $chan(%j).mode != $null { echo 3 %rh Mode: $chan(%j).mode }
n62= if $chan(%j).mode == $null { echo 3 %rh Mode: <none> }
n63= if $chan(%j).topic != $null { echo 6 %rh Topic: $chan(%j).topic }
n64= if $chan(%j).topic == $null { echo 6 %rh Topic: <none> }
n65= goto end
n66= :end
n67= if %j >= %i {
n68= echo 6 %rh («φ■P) End Of Active Channel List.
n69= unset %i %channelz %channels
n70= halt
n71= }
n72= else goto next
n73= }
n74=}
n75=/hop /part # | /raw -q join #
n76=dccsends {
n77= echo 6 %rh («φ■P) Dcc Send List.
n78= set %i $send(0)
n79= set %j 0
n80= :next
n81= inc %j 1
n82= if $send(%j) != $null {
n83= set %b $send(%j).cps * 60
n84= set %c $send(%j).cps / 1000
n85= echo 2 %rh ( $+ %j $+ / $+ %i $+ ) ( $+ $send(%j) $+ )
n86= echo 2 %rh Status: $send(%j).status
n87= echo 2 %rh Filename: $send(%j).file
n88= echo 2 %rh Sent: ( $+ $send(%j).sent $+ / $+ $send(%j).size $+ ) ( $+ $send(%j).pc $+ % done) Going $+ $send(%j).cps $+ bytes/sec ( $+ %b bytes/min) -\- ( $+ %c kb/sec)
n89= if %j >= %i {
n90= echo 6 %rh («φ■P) End of Dcc Send List.
n91= }
n92= goto next
n93= }
n94=}
n95=dccchats {
n96= set %i $chat(0)
n97= set %j 0
n98= :next
n99= inc %j 1
n100= if $chat(%j) != $null {
n101= echo 2 %rh DCC Chat With $chat(%j)
n102= echo 2 %rh Connected to $chat(%j).ip ( $+ $gettok($address($chat(%j),2)),2,64 $+ )
n103= echo 2 %rh Status: $chat(%j).status
n104= if %j >= %i {
n105= echo 6 %rh («φ■P) End of DCC Chat's List
n106= halt
n107= }
n108= else goto next
n109= }
n110=}
n111=/desync1 /raw -q mode # +bbbbbb 16,16 $+ *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* | /raw -q mode # +bbbbbb 16,16 $+ *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* | /raw -q mode # +bbbbbb 16,16 $+ *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* | /raw -q mode # +bbbbbb 16,16 $+ *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o*
n112=/desync2 /raw -q mode # -bbbbbb 16,16 $+ *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* | /raw -q mode # -bbbbbb 16,16 $+ *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* | /raw -q mode # -bbbbbb 16,16 $+ *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* | /raw -q mode # -bbbbbb 16,16 $+ *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o*
n113=/bds {
n114= raw -q mode # +bbbbbb +@+. +@+. +@+. +@+. +@+. +@.+.
n115= raw -q mode # +bbbbbb ++@+-. +-@+. +-@+. +@-+.- +-@+.+ ++@+.+.
n116= raw -q mode # +bbbbbb ++@++. ++@++. ++@+.+ ++@++. ++@+. .++@..+
n117= raw -q mode # +bbbbbb -++@+++. +++@++. +++@+.+ ++@+++. +++@-+. .++@-..+
n118=}
n119=inal {
n120= set %i $ial(*!*,0)
n121= set %j 0
n122= :next
n123= inc %j 1
n124= if $ial(*!*,%j) != $null {
n125= echo 4 %rh ( $+ %j $+ / $+ %i $+ ) $ial(*!*@*,%j)
n126= if %j >= %i { echo 2 %rh («φ■P) End Of IAL List. | halt }
n127= goto next
n128= }
n129=}
n130=/n {
n131= rlevel 250
n132= .nick *1
n133= set %mynick *1
n134= set %awaynick *1 $+ -away
n135= guser 250 $me
n136=}
n137=/s /splay stop
n138=/j /join *1
n139=/w1 /whowas *1
n140=/q /query *1
n141=/w /whois *1
n142=jc /join #Chat
n143=jt /join #teen
n144=jn /join #learners_lounge
n145=jd /join #Da_Porch
n146=jm /join #mIRC
n147=jp /join #pIRCh
n148=jnz /join #NZ
n149=jh /join #Happyclappy
n150=e {
n151= %bel = $replace(*1,a,Γ)
n152= %bel = $replace(%bel,A,├)
n153= %bel = $replace(%bel,b,▀)
n154= %bel = $replace(%bel,ae,µ)
n155= %bel = $replace(%bel,c,ó)
n156= %bel = $replace(%bel,C,⌐)
n157= %bel = $replace(%bel,d,╨)
n158= %bel = $replace(%bel,e,δ)
n159= %bel = $replace(%bel,E,╔)
n160= %bel = $replace(%bel,i,φ)
n161= %bel = $replace(%bel,I,╧)
n162= %bel = $replace(%bel,l,ú)
n163= %bel = $replace(%bel,n, ±)
n164= %bel = $replace(%bel,o,°)
n165= %bel = $replace(%bel,O, ╪)
n166= %bel = $replace(%bel,w,W)
n167= %bel = $replace(%bel,W,W)
n168= %bel = $replace(%bel,f,f)
n169= %bel = $replace(%bel,F,f)
n170= %bel = $replace(%bel,cks,X)
n171= %bel = $replace(%bel,r,«)
n172= %bel = $replace(%bel,s,º )
n173= %bel = $replace(%bel,t,t)
n174= %bel = $replace(%bel,T,t)
n175= %bel = $replace(%bel,u,√)
n176= %bel = $replace(%bel,u,█)
n177= %bel = $replace(%bel,y, )
n178= %bel = $replace(%bel,Y,▌)
n179= %bel = $replace(%bel,?,┐)
n180= %bel = $replace(%bel,z,z░)
n181= %bel = $replace(%bel,!,!)
n182= /say %bel
n183=}
n184=bw {
n185= unset %final
n186= unset %endreverse
n187= set %sections $token(0,32,*1)
n188= :revstart
n189= if (%sections == 0) goto revend
n190= set %reverseme $token(%sections,32,*1)
n191= set %length $len(%reverseme)
n192= set %backtext $mid(%length,1,%reverseme)
n193= dec %length 1
n194= :backstart
n195= if (%length == 0) goto backend
n196= set %tempback $mid(%length,1,%reverseme)
n197= set %backtext %backtext $+ %tempback
n198= dec %length 1
n199= goto backstart
n200= :backend
n201= set %reversed_text %backtext
n202= set %temp %reversed_text
n203= set %final %final %temp
n204= dec %sections 1
n205= goto revstart
n206= :revend
n207= set %endreverse %final
n208= say %final
n209=}
n210=b1 /say $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,w,W),e,Ω),o,÷),a,σ),b,▀),c,ó),d,╨),f,ú),g,G),h,H),i,ε),j,J),k,K),l,L),m,M),n,±),O,≡),p,■),q,Q),r,«),s,º),t,T),u,√),v,V),x,X),z,Z),!,í),?,┐),0,░),y,Ñ),1,╣),2,▓),3,│)
n211=e3 {
n212= set %bz *1
n213= %bz = $replace(%bz,a,6┼)
n214= %bz = $replace(%bz,b,4▀)
n215= %bz = $replace(%bz,c,4╟)
n216= %bz = $replace(%bz,d,11╨)
n217= %bz = $replace(%bz,e,13╔)
n218= %bz = $replace(%bz,f,2F)
n219= %bz = $replace(%bz,g,1G)
n220= %bz = $replace(%bz,h,2H)
n221= %bz = $replace(%bz,i,10╧)
n222= %bz = $replace(%bz,j,11J)
n223= %bz = $replace(%bz,k,4K)
n224= %bz = $replace(%bz,l,1ú)
n225= %bz = $replace(%bz,m,14M)
n226= %bz = $replace(%bz,n,7±)
n227= %bz = $replace(%bz,o,6÷)
n228= %bz = $replace(%bz,p,13■)
n229= %bz = $replace(%bz,q,12Q)
n230= %bz = $replace(%bz,r,13«)
n231= %bz = $replace(%bz,s,4º)
n232= %bz = $replace(%bz,t,8t)
n233= %bz = $replace(%bz,u,5ⁿ)
n234= %bz = $replace(%bz,v,2V)
n235= %bz = $replace(%bz,w,7\\')
n236= %bz = $replace(%bz,x,1╫)
n237= %bz = $replace(%bz,y,10Ñ)
n238= %bz = $replace(%bz,z,3Z)
n239= %bz = $replace(%bz,!,1í)
n240= %bz = $replace(%bz,?,4┐)
n241= %bz = $replace(%bz,{,13)
n242= %bz = $replace(%bz,},13)
n243= /say %bz
n244= unset %bz
n245=}
n246=/et {
n247= set %bz *1
n248= %bz = $replace(%bz,a,2σ)
n249= %bz = $replace(%bz,b,3▀)
n250= %bz = $replace(%bz,c,4ó)
n251= %bz = $replace(%bz,d,5╨)
n252= %bz = $replace(%bz,e,4Ω)
n253= %bz = $replace(%bz,f,7f)
n254= %bz = $replace(%bz,g,4g)
n255= %bz = $replace(%bz,h,13h)
n256= %bz = $replace(%bz,i,13═)
n257= %bz = $replace(%bz,j,11j)
n258= %bz = $replace(%bz,k,12k)
n259= %bz = $replace(%bz,l,12ú)
n260= %bz = $replace(%bz,m,6m)
n261= %bz = $replace(%bz,n,6±)
n262= %bz = $replace(%bz,o,14╪)
n263= %bz = $replace(%bz,p,12■)
n264= %bz = $replace(%bz,q,13q)
n265= %bz = $replace(%bz,r,11«)
n266= %bz = $replace(%bz,s,10º)
n267= %bz = $replace(%bz,t,9t)
n268= %bz = $replace(%bz,u,8ⁿ)
n269= %bz = $replace(%bz,v,7v)
n270= %bz = $replace(%bz,w,6\\')
n271= %bz = $replace(%bz,x,5╫)
n272= %bz = $replace(%bz,y,4Ñ)
n273= %bz = $replace(%bz,z,3z)
n274= %bz = $replace(%bz,!,1í)
n275= %bz = $replace(%bz,?,9┐)
n276= say %bz
n277= unset %bz
n278=}
n279=F1 /mode $me +i-ws | /.enable #qnprot | /.disable #autoping | /.enable #prot | /.disable #flood_off | /sound off | /.enable #notedcc | /echo -a 4ññññ Fú÷÷╨ Pú÷tΦótφ÷± E±gΣgΦd!! Sound Requests,DCC [OFF] Auto Ping [OFF] [ $me +i-ws ] ññññ | /set %ap [OFF] | /set %po [ON] | /set %qnp [ON]
n280=F2 /mode $me %mode | /.disable #qnprot | /.disable #prot | /.enable #flood_off | /.disable #notedcc | /echo -a 4ññññ Fú÷÷╨ Pú÷tΦótφ÷± is OFF!!!! ññññ | /set %ap [OFF] | /set %po [OFF] | /set %qnp [ON]
n281=F3 /gone
n282=F4 /back
n283=F5 /run notepad.exe $mircdir $+ away.log
n284=F6 /.enable #qnprot | /echo 12 -a Query/Notice Flood Protection 1[4ON1] | /set %qnp [ON]
n285=F7 /.disable #qnprot | /echo 12 -a Query/Notice Flood Protection 1[4OFF1] | /set %qnp [OFF]
n286=F8 /list | .echo 12 -a Listing Channels....
n287=F9 /wavs
n288=F10 /play # $file="what file??" %ascii 1000
n289=F11 /partall
n290=F12 /onotice ½ñ╪■zñ╗ $$?="Enter Notice to ops on this channel"
n291=/mt {
n292= set %Var.Chan $chan
n293= set %i 1
n294= set %Var.Index 1
n295= if (s isin $1) { set %Var.Safe $$2 }
n296= if (t isin $1) { set %Var.Take y }
n297= if (undernet isin $server) { set %Var.Num 6 }
n298= else { set %Var.Num 4 }
n299= :start
n300= set %Var.User $opnick(%i,%Var.Chan)
n301= if (%Var.User == $null) {
n302= raw -q mode %Var.Chan -oooooo %Var.Nick
n303= if (%Var.Take == y) { /mode # +mints | /topic %Var.Chan («φ■P) -[-= ñM√Tσ±T TσkΩ╓vδr =-]- («φ■P) }
n304= if (s isin $1) { raw -q mode # +o %Var.Safe }
n305= echo 6 -a («φ■P) TσkΩ╓vδr On # Complete!
n306= unset %Var.Nick | unset %i | unset %Var.Chan | unset %Var.Index | unset %Var.Num | unset %Var.Safe | unset %Var.Take | halt
n307= }
n308= if (%Var.User == $me) || (%Var.User == %Var.Safe) { inc %i 1 | goto start }
n309= if (%Var.User != $me) { set %Var.Nick %Var.User %Var.Nick | if (%Var.Index == %Var.Num) { raw -q mode %Var.Chan -oooooo %Var.Nick | unset %Var.Nick | set %Var.Index 1 | inc %i 1 | goto start } | inc %Var.Index 1 }
n310= inc %i 1
n311= goto start
n312=}
n313=mkno {
n314= set %kicked $nopnick(0,#)
n315= set %kicker 0
n316= set %i $nopnick(0,#)
n317= set %j 0
n318= :next
n319= inc -q %j 1
n320= inc -q %kicker
n321= if ($nopnick(%j,#) != $null) {
n322= if ($nopnick(%j,#) != $me) { kick # $nopnick(%j,#) («φ■P) MΓºº KεóK Non ╓■'º ( $+ %kicker $+ / $+ %kicked $+ ) }
n323= }
n324= if (%j >= %i) {
n325= echo 4 -a («φ■P) MΓºº KεóK Not ╓■'º Complete
n326= unset %j %i %kicked %kicker
n327= halt
n328= }
n329= goto next
n330=}
n331=mko {
n332= set %kicked $opnick(0,#)
n333= dec %kicked 1
n334= set %kicker 0
n335= set %i $opnick(0,#)
n336= set %j 0
n337= :next
n338= inc -q %j 1
n339= inc -q %kicker
n340= if ($opnick(%j,#) != $null) {
n341= if ($opnick(%j,#) != $me) { kick # $opnick(%j,#) («φ■P) MΓºº KεóK ╓■'º ( $+ %kicker $+ / $+ %kicked $+ ) }
n342= }
n343= if %j >= %i {
n344= echo 4 -a MΓºº KεóK ╓■'º Complete
n345= unset %j %i %kicked %kicker
n346= halt
n347= }
n348= goto next
n349=}
n350=mkba {
n351= set %kicked $nick(0,#)
n352= set %kicker 0
n353= set %i $nick(0,#)
n354= set %j 0
n355= :next
n356= inc -q %j 1
n357= inc -q %kicker
n358= if ($nick(%j,#) != $null) {
n359= if ($nick(%j,#) != $me) { raw -q mode # -o+b $nick(%j,#) $address($nick(%j,#),3) | raw -q kick # $nick(%j,#) :(«φ■P) MΓºº KεóK ▀Γ±..w╓╓p w╓╓p!! ( $+ %kicker $+ / $+ %kicked $+ ) }
n360= }
n361= if (%j >= %i) {
n362= echo 4 -a («φ■P)MΓºº KεóK ▀Γ± Complete YEAH!!!
n363= unset %j %i %kicked %kicker
n364= halt
n365= }
n366= goto next
n367=}
n368=mds {
n369= set %i 1
n370= set %deop
n371= set %num 0
n372= :next
n373= set %nick $snick(%i,#)
n374= if %nick == $null goto done
n375= if %nick != $me { %deop = %deop %nick
n376= inc %num }
n377= if %num == 4 { raw -q mode # -oooo %deop
n378= set %num 0
n379= set %deop }
n380= inc %i
n381= goto next
n382= :done
n383= if %num != 0 { raw -q mode # -oooo %deop }
n384= unset %i %deop %nick %num
n385=}
n386=mo {
n387= set %i 1
n388= set %op
n389= set %num 0
n390= :next
n391= set %nick $snick(%i,#)
n392= if %nick == $null goto done
n393= if %nick != $me { %op = %op %nick
n394= inc %num }
n395= if %num == 4 { raw -q mode # +oooo %op
n396= set %num 0
n397= set %op }
n398= inc %i
n399= goto next
n400= :done
n401= if %num != 0 { raw -q mode # +oooo %op }
n402= unset %i %op %nick %num
n403=}
n404=mos {
n405= set %i 1
n406= set %deop
n407= set %num 0
n408= :next
n409= set %nick $snick(%i,#)
n410= if %nick == $null goto done
n411= if %nick != $me { %deop = %deop %nick
n412= inc %num }
n413= if %num == 4 { raw -q mode # +oooo %deop
n414= set %num 0
n415= set %deop }
n416= inc %i
n417= goto next
n418= :done
n419= if %num != 0 { raw -q mode # +oooo %deop }
n420= unset %i %deop %nick %num
n421=}
n422=md {
n423= set %i 1
n424= set %deop
n425= set %num 0
n426= :next
n427= set %nick $opnick(%i,#)
n428= if %nick == $null goto done
n429= if %nick != $me { %deop = %deop %nick
n430= inc %num }
n431= if %num == 4 { raw -q mode # -oooo %deop
n432= set %num 0
n433= set %deop }
n434= inc %i
n435= goto next
n436= :done
n437= if %num != 0 { raw -q mode # -oooo %deop }
n438= unset %i %deop %nick %num
n439=}
n440=sp /.timer100 0 30 /raw -q pong $server $server
n441=autoaway {
n442= if (%set.aaway == ON) && ($away != $true) {
n443= if ($idle > %set.aaway.idle) {
n444= .nick %awaynick
n445= away Automatically set away at $atime -- Messages are logged
n446= ame has automatically been set away -- Messages are logged
n447= set %start $ctime
n448= set %bbs.aaway ON
n449= }
n450= }
n451= elseif (%set.aback == ON) && ($away == $true) && (%bbs.aaway == ON) {
n452= if ($idle < %set.aaway.idle) {
n453= away
n454= set %awaytime $atime - %start
n455= ame has automatically been set back -- away for $duration(%awaytime)
n456= .nick %mynick
n457= unset %start %awaytime %bbs.aaway
n458= }
n459= }
n460=}
n461=perc {
n462= if $2 == $null { return Syntax error }
n463= if ($3 == bar) {
n464= if ($4 != $null) {
n465= set %scale $4
n466= }
n467= else { set %scale 20 }
n468= }
n469= %x = $1 * 100 | %x1 = $1 * %scale
n470= if ($2 != 1) { %rest = $2 / 2 } | else { %rest = 1 }
n471= %y = %x / $2 | %y1 = %x1 / $2
n472= %z = %x % $2 | %z1 = %x1 % $2
n473= if (%z > %rest) { inc %y }
n474= if (%z1 > %rest) { inc %y1 }
n475= %y2 = %scale - %y1
n476= if (%y1 > 0) && (%y2 > 0) { set %bar $chr(91) $+ $str(%y1,$chr(35)) $+ $str(%y2,=) $+ $chr(93) }
n477= elseif (%y1 > 0) && (%y2 == 0) { set %bar $chr(91) $+ $str(%y1,$chr(35)) $+ $chr(93) }
n478= else { set %bar $chr(91) $+ $str(%y2,=) $+ $chr(93) }
n479= if ($3 == bar) { set %return %bar %y $+ % } | else { set %return %y $+ % }
n480= unset %bar %x %x1 %rest %y %y1 %z %z1 %y2
n481= return %return
n482=}
n483=-#################################TALKERS####################
n484=r2 { %num = 1 | unset %belg | %num2 = 1 | %belg =
n485= :start
n486= %num2 = $rand(1,15)
n487= if $mid(%num,1, *1) != $null {
n488= %belg = %belg $+ $+ %num2 $+ $mid(%num, 1,*1) $+
n489= inc %num
n490= goto start }
n491= say %belg
n492=}
n493=r3 { %num = 1 | unset %belg | %num2 = 1 | %belg =
n494= :start
n495= %num2 = $rand(1,15)
n496= if $mid(%num,1, *1) != $null {
n497= %belg = %belg $+ $+ %num2 $+ $mid(%num, 1,*1) $+
n498= inc %num
n499= goto start }
n500= me %belg
n501=}
n502=r4 { %num = 1 | unset %belg | %num2 = 1 | %belg =
n503= :start
n504= %num2 = $rand(1,7)
n505= if $mid(%num,1, *1) != $null {
n506= %belg = %belg $+ $+ %num2 $+ $mid(%num, 1,*1) $+
n507= inc %num
n508= goto start }
n509= say %belg
n510=}
n511=r5 { %num = 1 | unset %belg | %num2 = 1 | %belg =
n512= :start
n513= %num2 = $rand(1,7)
n514= if $mid(%num,1, *1) != $null {
n515= %belg = %belg $+ $+ %num2 $+ $mid(%num, 1,*1) $+
n516= inc %num
n517= goto start }
n518= me %belg
n519=}
n520=/brk { %num = 1 | unset %belg | %belg = | %color = p
n521= :start
n522= if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
n523= if %color == y { %num2 = 4 | %num3 = 1 | %color = p | goto add }
n524= :add
n525= if $mid(%num,1, *1) != $null {
n526= %belg = %belg $+ $+ %num2 $+ , $+ %num3 $+ $mid(%num, 1,*1) $+
n527= inc %num
n528= goto start }
n529= say %belg
n530=}
n531=/bkw { %num = 1 | unset %bel | %bel = | %color = p
n532= :start
n533= if %color == p { %num2 = 1 | %num3 = 16 | %color = y | goto add }
n534= if %color == y { %num2 = 16 | %num3 = 1 | %color = p | goto add }
n535= :add
n536= if $mid(%num,1, *1) != $null {
n537= %bel = %bel $+ $+ %num2 $+ , $+ %num3 $+ $mid(%num, 1,*1) $+
n538= inc %num
n539= goto start }
n540= say %bel
n541=}
n542=/wr { %num = 1 | unset %bel | %bel = | %color = p
n543= :start
n544= if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add }
n545= if %color == y { %num2 = 4 | %num3 = 0 | %color = p | goto add }
n546= :add
n547= if $mid(%num,1, *1) != $null {
n548= %bel = %bel $+ $+ %num2 $+ , $+ %num3 $+ $mid(%num, 1,*1) $+
n549= inc %num
n550= goto start }
n551= say %bel
n552=}
n553=/rg { %num = 1 | unset %bel | %bel = | %color = p
n554= :start
n555= if %color == p { %num2 = 9 | %num3 = 4 | %color = y | goto add }
n556= if %color == y { %num2 = 4 | %num3 = 9 | %color = p | goto add }
n557= :add
n558= if $mid(%num,1, *1) != $null {
n559= %bel = %bel $+ $+ %num2 $+ , $+ %num3 $+ $mid(%num, 1,*1) $+
n560= inc %num
n561= goto start }
n562= say %bel
n563=}
n564=scan {
n565= unset %friends
n566= set %c $nick(0,#)
n567= set %d 0
n568= :next
n569= inc %d
n570= if $nick(%d,#) != $null {
n571= if ($level($maddress($address($opnick(%d,#),5))) == 100) { mode # +o $nick(%d,#) }
n572= }
n573= if (%d >= %c) { halt }
n574= goto next
n575=}
n576=slist {
n577= echo 2 %rh («φ■P) Server List.
n578= set %i $server(0)
n579= set %j 0
n580= :next
n581= inc %j 1
n582= if $server(%j) != $null {
n583= echo 2 %rh [Server: $server(%j) $+ : $+ $server(%j).port $+ ] ( $+ $server(%j).desc $+ ) ( $+ %j $+ / $+ %i $+ )
n584= if %j >= %i { echo 2 %rh («φ■P) End of Server List. | halt }
n585= goto next
n586= }
n587=}
n588=stats1 {
n589= echo 4 %rh *******************************************************************************************************
n590= echo 6 %rh $chr(91) ñM√Tσ±TRφ■P V0.8░ mIR╟ 4.72 =- $chr(93)
n591= echo 4 %rh Time: $+ $atime $+
n592= echo 13 %rh ╤εóK: $+ $me $chr(91) $+ $usermode $+ $chr(93)
n593= echo 2 %rh Local Host $chr(91) $+ $host $+ $chr(93)
n594= echo 10 %rh ºΩrvΩr: $chr(91) $+ $server $+ $chr(93) $chr(91) $+ $port $+ $chr(93)
n595= echo 12 %rh ╪±úε±δ: %hours Hours %minutes Minutes
n596= echo 1 %rh IP $chr(91) $+ $ip $+ $chr(93) LongIP $chr(91) $+ $longip($ip) $+ $chr(93)
n597= echo 4 %rh *******************************************************************************************************
n598=}
n599=/stats2 /echo 6 %rh ñM√Tσ±TRφ■P V0.8░ mIR╟ 4.72 =- SCRIPT STATUS: | /echo 13 %rh FLOOD PROTECTION :4 %po | /echo 13 %rh NICK FLOOD PROTECTION:4 %nf | /echo 13 %rh QUERY/NOTICE FLOOD PROTECTION:4 %qnp | /echo 13 %rh USERLIST:4 %ul | /echo 13 %rh CHANNEL TOPIC PROT:2 %var.chantopic 4 %tp 2 %var.topic | /echo 13 %rh CHANNEL MODE PROT:2 %var.chanmode 2 %var.mode 4 %mpr | /echo 13 %rh REINFORCING BANS:4 %rb | /echo 12 %rh SEEN:2 %lastseen | /echo 12 %rh AUTOPING:2 %ap | /echo 12 %rh DCC On REQUEST:2 %ss
n600=/timesup {
n601= .disable #bbvote
n602= say 13Vote-o-rama Closed.
n603= say 12Topic: %votetopic $+
n604= say $+ %votey Voted YES!
n605= say $+ %voten Voted NO Way!
n606= say $+ %voteun Were Undecided
n607=}
n608=urllist {
n609= set %i $url(0)
n610= set %j 0
n611= :next
n612= inc %j 1
n613= if $url(%j) != $null {
n614= echo 2 %rh ( $+ %j $+ / $+ %i $+ ) 13[ : $url(%j) $+ ] 6[Desc: $url(%j).desc $+ ]
n615= if %j >= %i { echo 2 %rh («φ■P) End Of URL List. | halt }
n616= goto next
n617= }
n618=}
n619=/wavs /sound # $hfile="choose a file" $wavedir $?="■LσÑ M맧Γgδ ?"
n620=mw {
n621= SET %tmp *1
n622= SET %ct $len(%tmp)
n623= :megaloop
n624= SET %ch $mid(%ct,1,%tmp)
n625= %ch = CHAR $+ $asc(%ch)
n626= SET %line1 $readini extras.ini %ch n1 $+ %line1
n627= SET %line2 $readini extras.ini %ch n2 $+ %line2
n628= SET %line3 $readini extras.ini %ch n3 $+ %line3
n629= SET %line4 $readini extras.ini %ch n4 $+ %line4
n630= SET %line5 $readini extras.ini %ch n5 $+ %line5
n631= DEC %ct
n632= if (%ct != 0) GOTO megaloop
n633= if (%line1) { MSG $active $chr(160) }
n634= if (%line1) { MSG $active %line1 }
n635= if (%line2) { MSG $active %line2 }
n636= if (%line3) { MSG $active %line3 }
n637= if (%line4) { MSG $active %line4 }
n638= if (%line5) { MSG $active %line5 }
n639= UNSET %line1
n640= UNSET %line2
n641= UNSET %line3
n642= UNSET %line4
n643= UNSET %line5
n644= UNSET %tmp
n645= UNSET %ct
n646= UNSET %ch
n647= HALT
n648=}
n649=clock {
n650= say 4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=
n651= say 4,2-2,4=4,2-2,4=13,2 $atime 2,4=4,2
n652= say 4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=
n653=}
n654=colors {
n655= msg $1 The colors are: 0,1White[0] 1Black[1] 2Dk.Blue[2] 3Green[3] 4Red[4] 5Brown[5] 6Purple[6] 7Orange[7] 8Yellow[8] 9Lt.Green[9] 10Teal[10] 11Cyan[11] 12Royal[12] 13Lt.Purple[13] 14Dk.Grey[14] 15Lt.Grey[15]
n656=}
n657=/clonejoin {
n658= if $nick != $me {
n659= set %count 0 | /unset %clonejoin
n660= :start
n661= inc %count 1
n662= if $nick(%count,$chan) == $null goto end
n663= if $nick == $nick(%count,$chan) goto start
n664= if $address($nick(%count,$chan),0) == $address($nick,0) set %clonejoin %clonejoin $nick(%count,$chan) &
n665= goto start
n666= :end
n667= if %clonejoin != $null { /set %clonejoin %clonejoin $nick | /echo 4 %rh ü $+ %clonejoin $+ ü are CLONES! | /echo 4 %rh ü $+ $address($nick,0) $+ ü ▀▀ }
n668= unset %count | /unset %clonejoin
n669= }
n670=}
n671=;HI! heres a couple more aliases i threw in at the last minute....thanx to REDW00D!
n672=/b /say 2,2 *1 $+ ! | /say 0,2 *1 1,1! | /say 2,2 *1 1,1! | /say 0,0 1,1 *1 $+ !
n673=/b2 /say 3,3 *1 $+ ! | /say 8,3 *1 1,1! | /say 3,3 *1 1,1! | /say 0,0 1,1 *1 $+ !
n674=/b3 /say 4,4 *1 $+ ! | /say 0,4 *1 1,1! | /say 4,4 *1 1,1! | /say 0,0 1,1 *1 $+ !
n675=/b4 /say 8,8 *1 $+ ! | /say 3,8 *1 1,1! | /say 8,8 *1 1,1! | /say 0,0 1,1 *1 $+ !
n676=/b5 /say 9,9 *1 $+ ! | /say 12,9 *1 1,1! | /say 9,9 *1 1,1! | /say 0,0 1,1 *1 $+ !
n677=/b6 /say 11,11 *1 $+ ! | /say 2,11 *1 1,1! | /say 11,11 *1 1,1! | /say 0,0 1,1 *1 $+ !
n678=/b7 /say 12,12 *1 $+ ! | /say 0,12 *1 1,1! | /say 12,12 *1 1,1! | /say 0,0 1,1 *1 $+ !
n679=/b8 /say 13,13 *1 $+ ! | /say 1,13 *1 1,1! | /say 13,13 *1 1,1! | /say 0,0 1,1 *1 $+ !
n680=/3R /say 4,4 *1 8,8! | /say 8,12 *1 8,8! | /say 4,4 *1 8,8! | /say 0,08,8 *1 !
n681=/3B /say 13,13 *1 6,6! | /say 9,4 *1 6,6! | /say 13,13 *1 6,6! | /say 0,06,6 *1 !
n682=/psplit {
n683= if (($right(7,$parm1) == dal.net) && ($right(7,$parm2) == dal.net)) {
n684= set %split2 $token(1,46,$parm2)
n685= set %split $token(1,46,$parm1)
n686= echo 4 Possible Netsplit At: $parms
n687= }
n688=}
n689=/tell /say 9,5/-----------------------------------------------------------------\ | /say 13,5ñM√Tσ±T«φ■P V0.8░ñ ▀ -=▀Γ╨▀° =- ┼°tδΓr°Γñ | /say 9,5\-----------------------------------------------------------------/ | /say 11,5Get it at--╗http://www.xcalibre.com/mirc/scripts