[aliases]
n0=;[ feel free to edit this shit, i don't give a fuck how you use it ]
n1=;
n2=;  jurassic 5, cut classic bitch.
n3=;  [s.23p556]
n4=;
n5=
n6=dl { run explorer.exe $mircdirdownload }
n7=? { raw -q ison $1 }
n8=wn { run notepad $mircdirgreets.txt }
n9=rdm { run notepad $mircdirversions.txt }
n10=www { run $mircdirdocs\tribeh~1.url }
n11=
n12=op { if ($me isop $active) { raw -q mode $active +o $$1 } }
n13=dop { if ($me isop $active) { raw -q mode $active -o $$1 } }
n14=w { if ($1 == $null) { recho $usage(w) | halt } | .raw -q whois $1 }
n15=n { if ($1 == $null) || ($2 == $null) { recho $usage(n) | halt } | notice $1 $2- }
n16=q { if ($1 == $null) { recho $usage(q) | halt } | query $$1 }
n17=wi { if ($1 == $null) { recho $usage(wii) | halt } | whois $1 $1 }
n18=send { if ($1 == $null) || ($2 == $null) { recho $usage(send) | halt } | dcc send $1 $2 }
n19=chat { if ($1 == $null) { recho $usage(chat) | halt } | dcc chat $1 }
n20=t { if ($1 == $null) { recho $usage(t) | halt } | topic $active $1- }
n21=j { if ($1 == $null) { recho $usage(j) | halt } | join #$1 }
n22=kb { if ($2 == $null) { raw -q kick $active $1 :TheSaint..kB } | else { raw -q kick $active $1 :TheSaint.. $+ $2- } | ban $1 2 }
n23=b { raw -q kick $active $1 :TheSaint...ban kick! | ban $1 2 }
n24=k { if ($2 == $null) { raw -q kick # $1 :TheSaint..locos } | else { raw -q kick # $1 :TheSaint.. $+ $2- } }
n25=abort { if ($server) { .quit session aborted } | .exit }
n26=exec { run $1- }
n27=s { .raw -q join &servers | .raw -q join &kills }
n28=serv { .server $1- }
n29=jump  { .server $1- }
n30=socksearch { .set %sockcheckchan $1 }
n31=ialup { .enable #ialupdate | .raw -q who $$1 }
n32=mn { .clipboard $me }
n33=update.vars { if (%var [ $+ [ $1 ] ] == On) { disable.var $1 $2- } | else { enable.var $1 $2- } }
n34=getset { return %var [ $+ [ $1 ] ] }
n35=enable.var { .set %var $+ $1 On | .enable $1 | aecho [ $col2 $+ $2- enabled ] }
n36=disable.var { .set %var $+ $1 Off | .disable $1 | aecho [ $col2 $+ $2- disabled ] }
n37=chk.cnt { if ($server == $null) { return no } | else { return yes } }
n38=snd { if (%playsound == On) { .splay $1 } }
n39=usage { goto $1 | :ping | return usage, /ping host | :w | return usage, /w nick | :n | return usage, /n nick/chan msg | :q | return usage, /q nick | :wii | return usage, /wii nick | :send | return usage, /send nick filename | :chat | return usage, /chat nick | :t | return usage, /t topic | :j | return usage, /j channel | :nick | return usage, /nick newnick }
n40=sub { return $calc($1 - $2) }
n41=add { return $calc($1 + $2) }
n42=div { return $calc($1 / $2) }
n43=mul { return $calc($1 * $2) }
n44=
n45=; F1  / ignore all messages for 2 minutes.
n46=; F2  / ignore all ctcp for 2 minutes.
n47=; F3  / ignore all notice for 2 minutes.
n48=; F4  / view away messages log.
n49=; F5  / close all message windows.
n50=; F6  / open explorer window to downloads directory.
n51=; F7  / view last known flooder.
n52=; F8  / cycle active channel.
n53=; F9  / join last invited channel.
n54=; F10 / random nick change.
n55=; F11 / kick 4 selected nicks.
n56=; F12 / cycle current chan
n57=
n58=f1 { .ignore -pu120 * }
n59=f2 { .ignore -tu120 * }
n60=f3 { .ignore -nu120 * }
n61=f4 { run notepad $mircdirdocs\away.log }
n62=f5 { close -m }
n63=f6 { dl }
n64=f7 { becho -a $scheme.floodcheck(%flooder) | set %total 0 | .enable #flooder | who %flooder }
n65=f8 { cycle }
n66=f9 { raw -q join %invite }
n67=f10 { rn }
n68=f11 { if ($me isop $active) { .raw -q kick $active $snicks : $+ $scheme.dkf11 } }
n69=f12 { cycle }
n70=
n71=ext.fix { if ($right($1,3) == .ini) { return $1 } | return $1 $+ .ini }
n72=ascii { set %text $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,F),g,G),h,h),i,í),j,j),k,K),l,£),m,M),n,ñ),o,ð),p,P),q,q),r,®),s,§),t,T),u,µ),v,\/),w,w),x,×),y,¥),z,Z) | say %text | .unset %text | halt }
n73=leet { set %text $1- | set %text $replace($replace($replace($replace($replace($replace($replace($replace(%text,e,3),you,j00),s,5),a,4),o,0),i,1),z,2),your,j00r) | say %text | .unset %text }
n74=
n75=;[ /rnick, random nick change every 20 seconds]
n76=rnick { .timer1240 0 20 cnick2 }
n77=cnick2 { raw -q nick $rnk }
n78=rnk { return $rand(a,z) $+ $rand(a,z) $+ $chr(91) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9) $+ $chr(93) }
n79=rk { set %channel # | :start | .set %randomnick $nick($rand(1,$nick(0,%channel)),%channel) | if (%randomnick == $me) { goto start } | kick %channel %randomnick TheSaint..random kick! }
n80=rn { nick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) | recho random nick change }
n81=
n82=ww { whowas $1 | halt }
n83=umode { mode $me $1 }
n84=cmode { mode # $1- }
n85=
n86=part { if ($server == $null) { eecho /part : not connected to a server | halt } | if ($1 == $null) { raw -q part $active : $+ %theweb } }
n87=quit { if ($server == $null) { eecho /quit : not connected to a server | halt } | if ($1 == $null) { quit $randomquit } | else { quit 4TheSaint.. $+ $1- } }
n88=country { set %country $readini $mircdirdocs\countrycodes.txt $1 country | if (%country == $null) { recho Lookup, No Match Found for $col2 $+ $1 $+  } | else { recho Lookup, $col2 $+ %country $+ ,  . $+ $col2 $+ $1 $+  } | unset %country }
n89=cycle { .set %ckey $chan(#).key | .quote part # | .quote join # %ckey | .unset %ckey }
n90=getallcomchans { if ($1 != null) { .unset %comchs | .set %i 0 | if ($comchan($1,%i) == 0) { return no common channels | halt } | .set %i $comchan($1,%i) | :loop | .set %comchs %comchs $+ : $+ $comchan($1,%i) | .dec %i | if (%i == 0) { return %comchs } | goto loop } }
n91=
n92=randomquit {
n93=  if ($getset(#tribeq) == On) {
n94=    goto $rand(1,15)
n95=    :1 | return 4Why she had to go, I don't know, she wouldnt say... | halt | 
n96=    :2 | return 4Hello darkness my old friend, I've come to talk with you again... | halt | 
n97=    :3 | return 4Baby take my hand, don't fear the reaper... | halt | 
n98=    :4 | return 4Seasons don't fear the reaper, nor do the wind, the sun or the rain... | halt
n99=    :5 | return 4Ingenting blir någonsin som det var förut... | halt | 
n100=    :6 | return 4Så tar jag på mej skulden till ödet för dej... | halt |
n101=    :7 | return 4Om jag hade vetat hur det skulle bli hade jag tvekat & smugit förbi... | halt | 
n102=    :8 | return 4Then you really might know what it's like...to have to lose...  | halt
n103=    :9 | return 4När timglaset är tomt så finns han inte mer.. | halt |
n104=    :10 | return 4He pulled out his chrome .45, talked some shit, and wound up dead | halt | 
n105=    :11 | return 4Cause then you really might know what it's like to have to lose | halt | 
n106=    :12 | return 4Vem bryr sig om en saga utan lyckligt slut....? | halt
n107=    :13 | return 4Cause then you really might know what it's like to sing the blues | halt | 
n108=    :14 | return 4Don't worry about a thing baby doll I'm the man you've been waiting for.. | halt | 
n109=    :15 | return 4They call her a killer and they call her a sinner and they call her a whore | halt
n110=  } | else { return %owndefaultquit }
n111=}
n112=
n113=;[ eleet c0de, by modu1e, he iz truely a fag n stuff ]
n114=bx { say BitchX-74p4+Tcl1.3g by panasync - Linux 2.0.35 }
n115=bx2 { say bitchx-74p4 + tunnelvision/1.2 }
n116=;[ end eleet code ]
n117=
n118=advert { say 4TheSaint is using a script *surprise* hehe. Rock'n roll på er kids..!! 9:o) }
n119=sv { say 4TheSaint is using a script *surprise* hehe. Rock'n roll på er kids..!! 9:o) - rajjrajj på er!  }
n120=webpage { say TheSaint - http://erik.just.nu }
n121=
n122=dignores { echo 0 -a $boxup $col2 $+ ignorance list $chr(93) | %i = 0 | :nx | inc %i | if ($ignore(0) == 0) { echo 0 -a  [ $+ $col2 $+ no ignores active. | goto end } | if ($ignore(%i)) { echo 0 -a  [ $col2 $+ $ignore(%i).mask ( $+ $ignore(%i).type $+ ) | goto nx } | :end | echo 0 -a $boxdown $col2 $+ eof ( $+ $ignore(0) $+ ) $chr(93) }
n123=dnotify { set %found.notify 0 | echo 0 -a $boxup $col2 $+ notifies $chr(93) | %i = 0 | :nx | inc %i | if ($notify(0) == 0) { echo 0 -a  [ $+ $col2 no notifies detected | goto end } | if ($notify(%i)) { if ($address($notify(%i),0)) { inc %found.notify 1 | echo 0 -a  [ $col2 $+  $+ $notify(%i).mask $+  from $remove($address($notify(%i),0),*!) } | goto nx } | if (%found.notify == 0) { echo 0 -a  [ $+ $col2 no notifies detected | goto end } | :end | echo 0 -a $boxdown $col2 $+ total ( $+ %found.notify $+ ) $chr(93) }
n124=opdop { .set %opdop.uh $active | .set %opdop 0 | :nx  | .inc %opdop | if ($snick(%opdop.uh,%opdop) == $null) { halt } | if ($snick(%opdop.uh,%opdop) isop %opdop.uh) { raw -q mode $chan -o $snick(%opdop.uh,%opdop) } | else { raw -q mode $chan +o $snick(%opdop.uh,%opdop) } | goto nx }
n125=vedve { .set %vedve.uh $active | .set %vedve 0 | :nx | .inc %vedve | if ($snick(%vedve.uh,%vedve) == $null) { halt } | if ($snick(%vedve.uh,%vedve) isvo %vedve.uh) { raw -q mode $chan -v $snick(%vedve.uh,%vedve) } | else { raw -q mode $chan +v $snick(%vedve.uh,%vedve) } | goto nx }
n126=omsg { if ($me isop $active && $opnick($active,0) == 1) { eecho your the only op on $active | halt } | .omsg $active [ $+ $chan $+ -Ops Only] $$?="Enter Message for Ops" | recho $col2 $+ OpsMsg: $! $+ , sent to # $+ . }
n127=onotice { if ($me isop $active && $opnick($active,0) == 1) { eecho your the only op on $active | halt } | .onotice $active [ $+ $chan $+ -Ops Only] $$?="Enter Message for Ops" | recho $col2 $+ OpsNotice: $! $+ , sent to # $+ . }
n128=portscan { if ($1) { set %pscan.server $1 } | else { set %pscan.server $server } | .unset %scanp.* | .set %scanp.num 0 | .set %portscan on | .stats l %pscan.server }
n129=fk { unset %temp2 | set %chan $2 | set %i $nick(0,%chan) | :fkick | set %nick $nick(%i,%chan) | set %adres $address(%nick,6) | if ($1 iswm %adres) && (%nick !isop %chan) && (%nick != $me) { set %temp2 %temp2 $+ , $+ %nick } | dec %i | if (%i = 0) { goto end | dec %temp } | else goto fkick | :end |   if (%temp2 == $null) { halt } | if (%temp2) { if ($3) { raw -q kick %chan %temp2 : $+ *3 } | else { raw -q kick %chan %temp2 :TheSaint..slap this. } } }
n130=cck { .set %cc.mask $1 | .set %cc.chan $2 | if ($ial(%cc.mask,0) != 0) { .set %cc.count 0 | :nz | .inc %cc.count | if ($ial(%cc.mask,%cc.count) == $null) { goto end } | if ($ial(%cc.mask,%cc.count).nick ison %cc.chan) { cline 4 %cc.chan $ial(%cc.mask,%cc.count).nick } | goto nz | :end } }
n131=
n132=;[away system]
n133=away2 { if (%away? == Yes) { return 1 } | else { return 0 } }
n134=away { if ($server == $null) { eecho not connected to a server | halt } | if ($away2) { %aw.back = $sub($ctime,%aw.at) | .timer1212 0 60 /lagping | .timer1215 0 10 autoaway | ame 9är TILLBAKA, $randback [ $+ $duration(%aw.back) $+ ] | raw -q away | .set %away? No | .timer 1 3 tb | if (%aw.log > 0) { aecho you have %aw.log message(s) waiting, press F4 to view. } | .set %aw.log 0 | halt } | .remove $mircdirdocs\away.log | %aw.at = $ctime | %aw.reason = $1- | .timer1212 off | .timer1215 off | raw -q away : $+ %aw.reason | .set %away? Yes | .timer 1 3 tb | ame 9är BORTA ..( $+ %aw.reason $+ ).. ( $+ %Pager $+ /p) }
n135=back { if ($server == $null) { eecho not connected to a server | halt } | if ($away2) { %aw.back = $sub($ctime,%aw.at) | .timer1212 0 60 /lagping | .timer1215 0 10 autoaway | ame 9är TILLBAKA, $randback [ $+ $duration(%aw.back) $+ ] | raw -q away | .set %away? No | .timer 1 3 tb | if (%aw.log > 0) { aecho you have %aw.log message(s) waiting, press F4 to view. } } }
n136=autoaway { if (%aw.auto != On) { halt } | if ($away2) { halt } | if ($idle > %aw.idle) { away auto away, idle } }
n137=pager { if ($1 == $null) { aecho pager syntax: /pager <on/off> } | if ($$1 == on) { %Pager = On | aecho pager enabled } | if ($1 == off) { %Pager = Off | aecho pager disabled } }
n138=tb titlebar { $scheme.titlebar }
n139=randback { goto $rand(1,10) | 
n140=  :1 | return 4I say love, it is a flower, and you it's only seed. | 
n141=  :2 | return 4Love is danger, love is pleasure, love is pure, the only treasure... | 
n142=  :3 | return 4When I was young, I never needed anyone, and makin love was just for fun. Those days are gone... | 
n143=  :4 | return 4All I needed was the love you gave, all I needed for another day, and all I ever knew - only you.. | 
n144=  :5 | return 4I've been alone with you inside my mind, and in my dreams I've kissed your lips a thousand times... | 
n145=  :6 | return 4But my words, like silent raindrops fell, and echoed in the wells of silence... | 
n146=  :7 | return 4I'm not an actor I'm not a star, and I don't even have my own car. But I'm hoping so much that you'll stay, that you will love me anyway..  | 
n147=  :8 | return 4...you're a little late, I'm already torn... | 
n148=  :9 | return 4Don't let yourself go, everybody cries and everybody hurts sometimes... | 
n149=:10 | return 4I'll be your dream, I'll be your wish I'll be your fantasy, I'll be your hope, I'll be your love be everything that you need... }
n150=amiaway { if ($away2) { return Yes } | else { return No } }
n151=amiaway2 { if ($away2) { return set back } | else { return set away } }
n152=join.cs { set %channel $1 | if ($1 == $null) { set %channel # } | if ($me !ison %channel) { goto end } | :begin | echo %channel $boxup $col2 $+ %channel  $chr(93) | echo %channel  [ modes.. $+ $chan(%channel).mode o.. $+ $opnick(%channel,0) v.. $+ $vnick(%channel,0) total.. $+ $nick(%channel,0) | echo %channel  [ topic.. $+ $chan(%channel).topic | echo %channel $boxdown $col2 $+ chanstats $chr(93) | .linesep %channel | :end }
n153=cs { set %channel $1 | if ($1 == $null) { set %channel # } | if ($me !ison %channel) { goto end } | :begin | echo %channel $boxup $col2 $+ %channel  $chr(93) | echo %channel  [ modes.. $+ $chan(%channel).mode o.. $+ $opnick(%channel,0) v.. $+ $vnick(%channel,0) total.. $+ $nick(%channel,0) | echo %channel  [ topic.. $+ $chan(%channel).topic | echo %channel $boxdown $col2 $+ chanstats $chr(93) | .linesep %channel | :end }
n154=
n155=nameops { .unset %opss | set %opcounts 1 | :back4 | set %nick3 $nick(%opcounts,#) | if (%nick3 == $null) { goto end4 } | if (%nick3 isop #) { .set %tmp %opss | .set %opss %nick3 %tmp } | :stail4 | .inc %opcounts | goto back4 | :end4 | .dec %opcounts | becho # .------- $+ $chr(91) 9 $+ nameops : # $+  $chr(93) | becho # $chr(179) | becho # $chr(179) $chr(179) %opss | becho # $chr(179) | becho # ^------- $+ $chr(91) 9nameops (15 $+ %opcounts $+ 9) $chr(93) | .unset %tmp | .unset %opss }
n156=atime { set %hr $gettok($time,1,58) | set %min $gettok($time,2,58) | if (%hr == 0) { set %hr 12 | set %sub am } | elseif (%hr < 12) { set %sub am } | elseif (%hr == 12) { set %sub pm } | else { %hr = %hr - 12 | set %sub pm } | return %hr $+ : $+ %min $+ %sub }
n157=sdate { set %datetest $left($fulldate,10) | set %datetest2 $right(%datetest,2) | if ($left(%datetest2,1) == 0) { set %date $right(%datetest2,1) } | else { set %date %datetest2 } | if ((%datetest2 == 11) || (%datetest2 == 12) || (%datetest2 == 13)) { return %date $+ th } | else { if ($right(%date,1) == 1) { return %date $+ st } | if ($right(%date,1) == 2) { return %date $+ nd } | if ($right(%date,1) == 3) { return %date $+ rd } | else { return %date $+ th } } }
n158=month { set %monthtest $left($fulldate,7) | set %monthtest2 $right(%monthtest,3) | if (%monthtest2 == Jan) { return January } | if (%monthtest2 == Feb) { return February } | if (%monthtest2 == Mar) { return March } | if (%monthtest2 == Apr) { return April } | if (%monthtest2 == May) { return May } | if (%monthtest2 == Jun) { return June } | if (%monthtest2 == Jul) { return July } | if (%monthtest2 == Aug) { return August } | if (%monthtest2 == Sep) { return September } | if (%monthtest2 == Oct) { return October } | if (%monthtest2 == Nov) { return November } | if (%monthtest2 == Dec) { return December } }
n159=timofday { if ($left($time,2) == 0:) { return morning } | if ($left($time,2) == 1:) { return morning } | if ($left($time,2) == 2:) { return morning } | if ($left($time,2) == 3:) { return morning } | if ($left($time,2) == 4:) { return morning } | if ($left($time,2) == 5:) { return morning } | if ($left($time,2) == 6:) { return morning } | if ($left($time,2) == 7:) { return morning } | if ($left($time,2) == 8:) { return morning } | if ($left($time,2) == 9:) { return morning } | if ($left($time,2) >= 18) { return evening } | if ($left($time,2) >= 12) { return afternoon } | if ($left($time,2) >= 10) { return morning } }
n160=
n161=ping { if ($1 == $null) { recho $usage(ping) | halt } | write -l2 $mircdirdev\ping.bat ping $1 -n 1 >c:\ping.txt | run -n command.com  /c $mircdirdev\ping.bat | .timer 1 5 /readping }
n162=readping { unset %icmp3 | /set %icmp3 $read -l2 c:\ping.txt | unset %icmp4 | /set %icmp4 $read -l4 c:\ping.txt | echo 0 -a [ Ping complete ] | echo 0 -a [ %icmp3 ] | echo 0 -a [ %icmp4 ] }
n163=ircopscan { echo 0 -a $boxup $col2 $+ oper scan : #  $chr(93) | set %Var.Total 0 | .enable #ircopscan | who # }
n164=awayscan { echo 0 -a $boxup $col2 $+ away scan : #  $chr(93) | set %Var.Total 0 | .enable #awayscan | who # }
n165=opscan { echo 0 -a $boxup $col2 $+ op scan : #  $chr(93) | set %Var.Total 0 | .enable #opscan | who # }
n166=voicescan { echo 0 -a $boxup $col2 $+ voice scan : #  $chr(93) | set %Var.Total 0 | .enable #voicescan | who # }
n167=
n168=settings {
n169=  echo 0 -a $boxup $col2 $+ settings $chr(93) | echo 0 -a $chr(179) | echo 0 -a $chr(179) $chr(179) $+ - nick completion $chr(91) $+ %var#nickc $+ $chr(93) |  echo 0 -a $chr(179) $chr(179) $+ - sock searcher $chr(91) $+ %var#socksearch $+ $chr(93)
n170=  echo 0 -a $chr(179) $chr(179) $+ - ban enforcement $chr(91) $+ %var#banenforce $+ $chr(93) | echo 0 -a $chr(179) $chr(179) $+ - clones detection $chr(91) $+ %var#clones.detect $+ $chr(93)
n171=  echo 0 -a $chr(179) $chr(179) $+ - repeat kick $chr(91) $+ %var#repeatk $+ $chr(93) | echo 0 -a $chr(179) $chr(179) $+ - caps kick $chr(91) $+ %var#caps $+ $chr(93) | echo 0 -a $chr(179) | echo 0 -a $boxdown $col2 $+ eof ( : ) $chr(93)
n172=}
n173=
n174=nk {
n175=  if ($1 == $null) && (%nk == $null) { echo 0 -a $boxup $col2 $+ no kick list $chr(93) | echo 0 -a $chr(179) | echo 0 -a $chr(179) $chr(179) $+ - no kick list is clear. | echo 0 -a $chr(179) | echo 0 -a $boxdown $col2 $+ nk ( 0 ) $chr(93) | halt }
n176=  if ($1 == $null) { echo 0 -a $boxup $col2 $+ no kick list $chr(93) | echo 0 -a $chr(179) | echo 0 -a $chr(179) $chr(179) $+ - removed %nk  | echo 0 -a $chr(179) | echo 0 -a $boxdown $col2 $+ nk ( 0 ) $chr(93) | .unset %nk | halt }
n177=  elseif (%nk == $null) { .set %nk $1 } | else { .set %nk %nk $+ , $+ $1 }
n178=  echo 0 -a $boxup $col2 $+ no kick list $chr(93) | echo 0 -a $chr(179) | echo 0 -a $chr(179) $chr(179) $+ - added $1 $+ . | echo 0 -a $chr(179) $chr(179) $+ - current list, %nk $+ . | echo 0 -a $chr(179) | echo 0 -a $boxdown $col2 $+ nk ( : ) $chr(93)
n179=}
n180=
n181=lagping { raw -q PRIVMSG $me :
 $+ PING $ctime $+ 
 }
n182=ctcp { if ($upper($2) == PING) { raw -q PRIVMSG $1 :
 $+ $upper($2) $ctime $+ 
 | goto end } | if ($3) { raw -q PRIVMSG $1 :
 $+ $upper($2) $3- $+ 
 | goto end } | raw -q PRIVMSG $1 :
 $+ $upper($2) $+ 
 | :end | becho -a $scheme.ctcp($1,$upper($2)) $3- | halt }
n183=say { if (# isin $active) { .PRIVMSG $active $1- } | if (= isin $active) { .msg $1 $2- } | techo $me $1- }
n184=msg { if (= isin $1) { /.msg $1 $2- | goto end } | .privmsg $1 $2- | becho -a $scheme.msg($1,$2-) | :end }
n185=credit { echo 1 . | echo 0 -a $boxup $col2 $+ credits $chr(93) | echo 0 -a [ $+ $col2 $+ creator: kefz | echo 0 -a [ $+ $col2 $+ addons: mhc, V0RLON. | echo 0 -a [ $+ $col2 $+ testing: mhc, _vektori, butcher, wackie, amok. | echo 0 -a $boxdown $col2 $+ contact ( scripts@cwcom.net / #TRiBE@IRCNet ) $chr(93) }
n186=
n187=scheme {
n188=  if ($1 == $null) {
n189=    set %newscheme $dir="choose a theme" $mircdirthemes\*.ini
n190=    if ($exists(%newscheme) == $true) {
n191=      .unload -rs $mircdirthemes\ $+ $scheme.filename | .load -rs %newscheme
n192=      .background -h $scheme.pic2 | .background -sc $scheme.pic | clear -s | .background -mt $scheme.pic2
n193=      if ($chan(0) == 0) { goto end } | .set %scheme.loop 0 | :loop | .inc %scheme.loop
n194=      if ($chan(%scheme.loop) == $null) { goto end } | else { background -t $chan(%scheme.loop) $scheme.pic2 | clear $chan(%scheme.loop) | goto loop } | :end | intro
n195=    }
n196=    if ($exists(%newscheme) != $true) { halt }
n197=  }
n198=  if ($1 != $null) {
n199=    set %newscheme $mircdirthemes\ $+ $ext.fix($1)
n200=    if ($exists(%newscheme) == $true) {
n201=      .unload -rs $mircdirthemes\ $+ $scheme.filename | .load -rs %newscheme
n202=      .background -h $scheme.pic2 | .background -sc $scheme.pic | clear -s | .background -mt $scheme.pic2
n203=      if ($chan(0) == 0) { goto end } | .set %scheme.loop 0 | :loop | .inc %scheme.loop
n204=      if ($chan(%scheme.loop) == $null) { goto end } | else { background -t $chan(%scheme.loop) $scheme.pic2 | clear $chan(%scheme.loop) | goto loop } | :end | intro
n205=    }
n206=    if ($exists(%newscheme) != $true) { recho could not find, $nopath(%newscheme), in $mircdirthemes\ | halt }
n207=  }
n208=}
n209=
n210=mkick {
n211=  if ($1 == $null) { .set %op.k.chan $active } | else { .set %op.k.chan $1 } | if ($me !isop %op.k.chan) { eecho you must be Op to masskick | halt } | becho -a $scheme.mk(%op.k.chan)
n212=  .set %op.n 0 | .set %op.nr $nick(0,%op.k.chan) | :start | .inc %op.n | if (%op.n > %op.nr) { unset %op.n* | .unset %op.k* | halt } | if ($nick(%op.n,%op.k.chan) == $me) { goto start } | if ($nick(%op.n,%op.k.chan) !isop %op.k.chan) { goto start }
n213=  .raw -q kick %op.k.chan $nick(%op.n,%op.k.chan) :tribe...massK! | goto start
n214=}
n215=
n216=mop {
n217=  if ($1 == $null) { .set %op.k.chan $active } | else { .set %op.k.chan $1 } | if ($me !isop %op.k.chan) { eecho you must be Op to massOp | halt } | becho -a $scheme.mop(%op.k.chan)
n218=  .set %op.n 0 | .set %op.nr $nick(0,%op.k.chan) | :start | .inc %op.n | if (%op.n > %op.nr) { unset %op.n* | .unset %op.k* | halt } | if ($nick(%op.n,%op.k.chan) == $me) || ($nick(%op.n,%op.k.chan) isop $chan) { goto start }
n219=  .raw -q mode %op.k.chan +o $nick(%op.n,%op.k.chan) | goto start
n220=}
n221=
n222=mdeop {
n223=  if ($1 == $null) { .set %op.k.chan $active } | else { .set %op.k.chan $1 } | if ($me !isop %op.k.chan) { eecho you must be Op to massdeOp | halt } | becho -a $scheme.mdeop(%op.k.chan)
n224=  .set %op.n 0 | .set %op.nr $opnick(0,%op.k.chan) | :start | .inc %op.n | if (%op.n > %op.nr) { unset %op.n* | .unset %op.k* | halt } | if ($opnick(%op.n,%op.k.chan) == $me) { goto start }
n225=  .raw -q mode %op.k.chan -o $opnick(%op.n,%op.k.chan) | goto start
n226=}
n227=
n228=mvoice {
n229=  if ($1 == $null) { .set %op.k.chan $active } | else { .set %op.k.chan $1 } | if ($me !isop %op.k.chan) { eecho you must be Op to massvOice | halt } | becho -a $scheme.mvoice(%op.k.chan)
n230=  .set %op.n 0 | .set %op.nr $nopnick(0,%op.k.chan) | :start | .inc %op.n | if (%op.n > %op.nr) { unset %op.n* | .unset %op.k* | halt } | if ($nopnick(%op.n,%op.k.chan) isvo %op.k.chan) { goto start }
n231=  .raw -q mode %op.k.chan +v $nopnick(%op.n,%op.k.chan) | goto start
n232=}
n233=
n234=mdevoice {
n235=  if ($1 == $null) { .set %op.k.chan $active } | else { .set %op.k.chan $1 } | if ($me !isop %op.k.chan) { eecho you must be Op to massdevOice | halt } | becho -a $scheme.mdevoice(%op.k.chan)
n236=  .set %op.n 0 | .set %op.nr $nopnick(0,%op.k.chan) | :start | .inc %op.n | if (%op.n > %op.nr) { unset %op.n* | .unset %op.k* | halt } | if ($nopnick(%op.n,%op.k.chan) !isvo %op.k.chan) { goto start }
n237=  .raw -q mode %op.k.chan -v $nopnick(%op.n,%op.k.chan) | goto start
n238=}
n239=
n240=;[ added this cause of a bug first encountered by ace24(the warlords, ircnet/efnet) 30th June 1998 ] heh YOU MADE THE CREDITS WOOHAA.
n241=chk {
n242=  if ($script(vars.ini) == $null) { .load -rs etc\vars.ini | srecho vars.ini not found.. reloading }
n243=  if ($script(startup.ini) == $null) { .load -rs etc\startup.ini | srecho startup.ini not found.. reloading }
n244=  if ($script(remotes.ini) == $null) { .load -rs etc\remotes.ini | srecho remotes.ini not found.. reloading }
n245=  if ($script(remotes2.ini) == $null) { .load -rs etc\remotes2.ini | srecho remotes2.ini not found.. reloading }
n246=  if ($script(wingate.ini) == $null) { .load -rs etc\wingate.ini | srecho wingate.ini not found.. reloading }
n247=  ;  if ($script(clone.ini) == $null) { .load -rs etc\clone.ini | srecho clone.ini not found.. reloading }
n248=  if ($alias(aliases.ini) == $null) { .load -rs etc\aliases.ini | srecho aliases.ini not found.. reloading }
n249=  if ($alias(aliases2.ini) == $null) { .load -rs etc\aliases2.ini | srecho aliases2.ini not found.. reloading }
n250=  if ($scheme.filename == $null) { .load -rs themes\default.ini | if ($scheme.load) { recho loaded: $scheme.load } | if ($scheme.auth) { recho author: $scheme.auth } }
n251=}
n252=
n253=;[100% guaranteed to excess flood you, heh.]
n254=minvite { set %invite.var 1 | :next | if ($nick(#,%invite.var) == $null) { goto done } | invite $nick(#,%invite.var) $$1 | inc %invite.var 1 | goto next | :done }
n255=
n256=intro {
n257=  clear -s
n258=  echo 0 -s $boxup $col2 $+ t r i b e   i r c %build $+  $chr(93)
n259=  .linesep -s
n260=  echo 0 -s  [ » release 9 $chr(91) $+ %rdate $+ $chr(93)
n261=  echo 0 -s  [ » theme: $scheme.load » author: $scheme.auth
n262=  .linesep -s
n263=  echo 0 -s  [ • ] could you host our script?  if you've got 1mb spare and some bandwidth, mail technology@cwcom.net
n264=  echo 0 -s  [ • ] we need your schemes! good, bad or just plain ugly, send your schemes to scripts@cwcom.net
n265=  echo 0 -s  [ • ] 
n266=  echo 0 -s  [ • ] we'll be starting on a completely new script soon, no cloning crap, no bullshit, just a cool/easy script.
n267=  .linesep -s
n268=  echo 0 -s $boxdown $col2 $+ contact - $col2 $+ scripts@cwcom.net $+  $chr(93)
n269=  .linesep -s
n270=  echo 0 -s $chr(91) $col2 $+ versions.txt to view the changes - $col2 $+ %theweb  for updates/addons $chr(93)
n271=}