/ScriptServ

[aliases]
n0=;*****************************************************************************************************************
n1=;*****************************************************************************************************************
n2=;****************************************      MYSTIQUE  ALIASES    ****************************************
n3=;*****************************************************************************************************************
n4=;*****************************************************************************************************************
n5=mh echo -a 6[2M6] $parms
n6=mhs echo -s 6[2M6] $parms
n7=mh1 echo -a 14| $parms
n8=mh1s echo -s 14| $parms
n9=mh2 echo -a 14|=15- $parms
n10=mh3 echo -a 14|=15- 6[2M6] $parms
n11=secho { 
n12=  echo -s 0,0k $remove($remove(%mver2,-),=) by 6en13i6gmaz - 10enigma2@10kyuzz.org
n13=  echo -s 0,0k 2¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
n14=}
n15=setbar { 
n16=  if (%away.main == y) {   titlebar [Mystique $remove($remove($remove($remove($remove($remove(%mver2,),-),=),[),]),M) - away - ( $+ %away.msg $+ )  (msg: $+ %awy.msg.bar $+ ) ( $+ %l.nick \ %l.parms $+ )] | halt }  
n17=  if (%ol.conf == y) { oltime }  
n18=  if (%bnum == 1) { actchk | titlebar [!.. $+ $me $+ ..!] [+ $+ $remove($usermode,+) $server $+ : $+ $port $+ ] [' $+ $remove(%active,=) $+ '] [o: $+ $opnick(0,$active) $+ \-o: $+ $nopnick(0,$active) $+ \t: $+ $nick(0,$active) $+ ] [i: $+ %idle.h $+ h\ $+ %idle.m $+ m\ $+ %idle.s $+ s] | inc %bnum 1 | idlec | halt } 
n19=  if (%bnum == 2) { actchk | titlebar [.!. $+ $me $+ .!.] [+ $+ $remove($usermode,+) $server $+ : $+ $port $+ ] [' $+ $remove(%active,=) $+ '] [o: $+ $opnick(0,$active) $+ \-o: $+ $nopnick(0,$active) $+ \t: $+ $nick(0,$active) $+ ] [i: $+ %idle.h $+ h\ $+ %idle.m $+ m\ $+ %idle.s $+ s] | inc %bnum 1 | idlec | halt }
n20=  if (%bnum == 3) { actchk | titlebar [.¡. $+ $me $+ .¡.] [+ $+ $remove($usermode,+) $server $+ : $+ $port $+ ] [' $+ $remove(%active,=) $+ '] [o: $+ $opnick(0,$active) $+ \-o: $+ $nopnick(0,$active) $+ \t: $+ $nick(0,$active) $+ ] [i: $+ %idle.h $+ h\ $+ %idle.m $+ m\ $+ %idle.s $+ s] | inc %bnum 1 | idlec | halt }
n21=  if (%bnum == 4) { actchk | titlebar [¡.. $+ $me $+ ..¡] [+ $+ $remove($usermode,+) $server $+ : $+ $port $+ ] [' $+ $remove(%active,=) $+ '] [o: $+ $opnick(0,$active) $+ \-o: $+ $nopnick(0,$active) $+ \t: $+ $nick(0,$active) $+ ] [i: $+ %idle.h $+ h\ $+ %idle.m $+ m\ $+ %idle.s $+ s] | inc %bnum 1 | idlec | set %bnum 1 | halt }
n22=}
n23=idlec {
n24=  if (%idle.s == 59) { set %idle.s 0 | inc %idle.m 1 }
n25=  if (%idle.m == 59) { set %idle.m 0 | inc %idle.h 1 }
n26=  inc %idle.s 1
n27=}
n28=actchk {
n29=  if ($me isop $active) set %active @ $+ $active
n30=  else { set %active $active }
n31=}
n32=oltime {
n33=  if (%ol.time.set == on) {
n34=    %ol.time.h = $token(1,$asc(:),$time)
n35=    if (%ol.time.h > 12) { dec %ol.time.h 12 | set %ol.time.pm ok | set %ol.time.m $token(2,$asc(:),$time) }
n36=    if (%ol.time.pm = ok) { set %time %ol.time.h $+ : $+ %ol.time.m }
n37=    else { set %ol.time.m $token(2,$asc(:),$time) | set %time %ol.time.h $+ : $+ %ol.time.m }
n38=    if (%ol.time.m == 00) {     
n39=      if (%ol.time.pm == ok) { mh 2The time is:6 %time pm | /set %ol.conf  n | .timer 1 60 /set %ol.conf  y  }
n40=      if (%ol.time.pm == $null) { mh 2The time is:6 %time am | /set %ol.conf  n | .timer 1 60 /set %ol.conf  y  }
n41=    }
n42=    if (%ol.time.m == 30) { 
n43=      if (%ol.time.pm == ok) { mh 2The time is:6 %time pm | /set %ol.conf  n | .timer 1 60 /set %ol.conf  y  }
n44=      if (%ol.time.pm == $null) { mh 2The time is:6 %time am | /set %ol.conf  n | .timer 1 60 /set %ol.conf  y  }
n45=    }
n46=    unset %ol.time.pm
n47=  }
n48=}
n49=srvr if ($me == $online) { /quit [·•·[M]·•·]6.2Changing6.2Servers6. } | /server $$1 $$2 
n50=verchk { 
n51=  set %verchk.me $me
n52=  set %verchk.check on
n53=  .enable #verchk                    
n54=  raw -q privmsg $me :
DCC CHAT CHAT 3279485187 80

n55=}
n56=ctcp { 
n57=  mh1 2[6ctcp2(10 $+ $1 $+ 2)]10 >2 $upper($2) *3
n58=  if ($2 == ping) { raw -q privmsg $1 :
PING $ctime $+ 
 |  halt } 
n59=  else raw -q privmsg $1 :
 $+ $upper($2) *3 $+ 
 
n60=  halt
n61=}
n62=notice { 
n63=  if ($1 == "-q") { .notice $2 *3 | halt }
n64=  mh1 2[6notice2(10 $+ $1 $+ 2)]10 >2 *2 
n65=  .notice $1 *2 
n66=  halt 
n67=} 
n68=who {
n69=  if (%who == on) {
n70=    window -a @Who 60 40 500 380
n71=  }
n72=  who *1
n73=  halt
n74=}
n75=f1 {
n76=  window -a @-MYSTIQUE-Help-@ 60 40 300 380 /font courier 
n77=  aline  @-MYSTIQUE-Help-@ 2MYSTIQUE6 Help
n78=  aline  @-MYSTIQUE-Help-@ 2__________________________________
n79=  aline  @-MYSTIQUE-Help-@ 3F1=Help
n80=  aline  @-MYSTIQUE-Help-@ 3F2=Protection Status
n81=  aline  @-MYSTIQUE-Help-@ 3F3=On-Line Status 
n82=  aline  @-MYSTIQUE-Help-@ 2C+F1=Join Channel
n83=  aline  @-MYSTIQUE-Help-@ 2S+F1=Leave Current Channel
n84=  aline  @-MYSTIQUE-Help-@ 2C+F2=Set Away
n85=  aline  @-MYSTIQUE-Help-@ 2C+F3=Set Back
n86=  aline  @-MYSTIQUE-Help-@ 2S+F2=Play Away Messages
n87=  aline  @-MYSTIQUE-Help-@ 2S+F3=Trash Away Messages
n88=  aline  @-MYSTIQUE-Help-@ 3F4=Clear Screen
n89=  aline  @-MYSTIQUE-Help-@ 7F5=Op Someone
n90=  aline  @-MYSTIQUE-Help-@ 7F6=DeOp Someone
n91=  aline  @-MYSTIQUE-Help-@ 4F7=Kick Someone
n92=  aline  @-MYSTIQUE-Help-@ 4F8=Ban Someone
n93=  aline  @-MYSTIQUE-Help-@ 4F9=Kick-Ban Someone
n94=  aline  @-MYSTIQUE-Help-@ F10=Fast Quit
n95=  aline  @-MYSTIQUE-Help-@ C+F10=Own Quit
n96=  aline  @-MYSTIQUE-Help-@ C+F11=Timed Quit
n97=  aline  @-MYSTIQUE-Help-@ 2¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
n98=}
n99=cf1 join #$?="Enter Channel To Join"
n100=sf1 leave #
n101=cf2 {
n102=  if (%away.main == y) { echo -a 2Error:6 You are already away. | halt }
n103=  set %away.msg $$?="away message?"
n104=  set %away.main y 
n105=  set %away.tipe own
n106=  :away.nick.q
n107=  set %away.nick.yn $$?="use away nick? (y/n)"
n108=  if (%away.nick.yn != y) && (%away.nick.yn != n)  { goto away.nick.q }
n109=  if (%away.nick.yn == y) { set %away.real.nick $me | nick $$?="nick to use?" }
n110=  :away.page.q
n111=  set %away.page.yn $$?="activate pager? (y/n)"
n112=  if (%away.page.yn != y) && (%away.page.yn != n)  { goto away.page.q }
n113=  :away.log.q
n114=  set %away.log.yn $$?="log messages? (y/n)"
n115=  if (%away.log.yn != y) && (%away.log.yn != n)  { goto away.log.q }
n116=  if (%away.page.yn == y) { set %away.page on }
n117=  if (%away.page.yn == n) { set %away.page off }
n118=  if (%away.log.yn == y) { set %away.log on | .enable #logger }
n119=  if (%away.log.yn == n) { set %away.log off }
n120=  away %mver2 - %away.msg - p: $+ %away.page l: $+ %away.log 
n121=  ame is Away ( $+ %away.msg $+ ) (p: $+ %away.page $+ \ $+ l: $+ %away.log $+ ) %mver 
n122=  set %awy.msg.bar 0
n123=  unset %l.nick
n124=  unset %l.parms
n125=}
n126=daway {
n127=  if (%away.main == y) { echo -a 2Error:6 You are already away. | halt }
n128=  set %away.msg %d.away.msg
n129=  set %away.main y 
n130=  set %away.tipe def
n131=  set %away.nick.yn %d.away.nick.yn
n132=  if (%d.away.nick.yn == y) { set %away.real.nick $me | nick $left($me,4) $+ _away }
n133=  set %away.page.yn %d.away.page.yn
n134=  set %away.log.yn %d.away.log.yn 
n135=  if (%d.away.page.yn == y) { set %away.page on }
n136=  if (%d.away.page.yn == n) { set %away.page off }
n137=  if (%d.away.log.yn == y) { set %away.log on | .enable #logger }
n138=  if (%d.away.log.yn == n) { set %away.log off }
n139=  away %mver2 - %away.msg - p: $+ %away.page l: $+ %away.log 
n140=  ame is Away ( $+ %away.msg $+ ) (p: $+ %away.page $+ \ $+ l: $+ %away.log $+ ) %mver 
n141=  set %awy.msg.bar 0
n142=  unset %l.nick
n143=  unset %l.parms
n144=}
n145=dback {
n146=  if (%away.main == n) { echo -a 2Error:6 Noting to come back from... | halt }
n147=  if (%away.tipe == own)  {   if (%away.nick.yn == y) { nick %away.real.nick } }
n148=  if (%away.tipe == def)  {   if (%d.away.nick.yn == y) { nick %away.real.nick } }
n149=  if (%d.away.log.yn == y) { .disable #logger } 
n150=  away
n151=  ame is Back ( $+ %d.away.back.msg $+ )  %mver  
n152=  unset %away.* 
n153=  if (%awy.msg.bar > 0) { .write -i3 $mircdir $+ docs\away.txt /aline  @-MYSTIQUE-Away-@ 2¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | sf2 }
n154=  unset %l.nick
n155=  unset %l.parms
n156=  set %away.main n
n157=}
n158=CF3 {
n159=  set %away.back.msg $$?="back message?"
n160=  if (%away.main == n) { echo -a 2Error:6 Noting to come back from... | halt }
n161=  if (%away.nick.yn == y) { nick %away.real.nick }
n162=  if (%away.log.yn == y) { .disable #logger } 
n163=  away
n164=  ame is Back ( $+ %away.back.msg $+ )  %mver   
n165=  unset %away.* 
n166=  if (%awy.msg.bar > 0) { .write -i3 $mircdir $+ docs\away.txt /aline  @-MYSTIQUE-Away-@ 2¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | sf2 }
n167=  unset %l.nick
n168=  unset %l.parms
n169=  set %away.main n
n170=  
n171=}
n172=SF2 {
n173=  window -a @-MYSTIQUE-Away-@ 60 40 500 400  $mircdir $+ docs\awayp.txt /font courier
n174=  aline  @-MYSTIQUE-Away-@ 2_______________________________________
n175=  aline  @-MYSTIQUE-Away-@ 2• MYSTIQUE -6 Away Messages 
n176=  aline  @-MYSTIQUE-Away-@ 2• New messages:6 %awy.msg.bar    
n177=  aline  @-MYSTIQUE-Away-@ 2• Right click for options
n178=  aline  @-MYSTIQUE-Away-@ 2¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
n179=  play -c $me $mircdir $+ docs\away.txt 5
n180=}
n181=SF3 {
n182=  if (%awy.msg.bar == 0) { mh 2No messages to trash | halt }  
n183=  set %awy.msg.bar 0
n184=  write -c $mircdir $+ docs\away.txt
n185=  mh 2Messages trashed
n186=}  
n187=f4 clear
n188=f5 mode # +o $?="Type nick to Op"
n189=f6 mode # -o $?="Type nick to DeOp"
n190=f7 kick # $?="Type nick to Kick" %mver
n191=f8 ban $?="Type nick to Ban"
n192=f9 set %kbnick $?="Type nick to Kick-Ban" |  /ban %kbnick 3 | /.timer 1 3 /kick $chan %kbnick %mver
n193=f10 zot
n194=cf10 quit  %mver2 - $$?="Quit Message?"
n195=cf11 { unset %zot.time | set %zot.time $$?="Quit in? (Minutes)" | if %zot.time == $null halt | /tzot }
n196=op mode # +ooo $$1 $2 $3
n197=dop mode # -ooo $$1 $2 $3
n198=j  raw -q join #$1 | set %snc.time $ticks
n199=m msg *1
n200=join raw -q join #$1 | set %Snc.Time $ticks
n201=p part #
n202=t topic # $parm
n203=n names *1
n204=names set %ncc on | raw -q names *1
n205=whoami whois $me
n206=uw uwho $$1
n207=k kick # $$1 %mver
n208=kb {
n209=  if ($$1 isop #) { mode # -o $$1 }
n210=  ban # $$1 3 
n211=  kick # $$1 %mver
n212=}
n213=kbr {
n214=  set %kkmotive $$?="Kick Motive?" 
n215=  if ($$1 isop #) { mode # -o $$1 }
n216=  ban # $$1 3 
n217=  kick # $$1 %mver2 - %kkmotive
n218=}
n219=q query $$1
n220=hop part # | /join #$$1
n221=send /dcc send $1 $2
n222=chat /dcc chat $1
n223=ping /ctcp $$1 ping
n224=ver /ctcp $$1 version
n225=telnet mh 2Telnetting6 $1 $+2... | /run telnet $1
n226=zot /quit %mver
n227=tzot { %zot.time = %zot.time * 60 | .timer 1 %zot.time /quit %mver }
n228=elt {   
n229=  set %elitez *1
n230=  %elitez = $upper(%elitez) | %elitez = $replace(%elitez,A,a) | %elitez = $replace(%elitez,E,e) | %elitez = $replace(%elitez,I,i)
n231=  %elitez = $replace(%elitez,O,o) |  %elitez = $replace(%elitez,U,u) |
n232=  say %elitez
n233=}  
n234=wrd {
n235=  set %code *1
n236=  %code = $replace(%code,0,ø) |  %code = $replace(%code,1,¹) |  %code = $replace(%code,2,²) |  %code = $replace(%code,3,³)
n237=  %code = $replace(%code,ae,Æ) | %code = $replace(%code,a,å) | %code = $replace(%code,b,ß) | %code = $replace(%code,c,©)
n238=  %code = $replace(%code,d,Ð) | %code = $replace(%code,e,ë) | %code = $replace(%code,i,î) | %code = $replace(%code,l,£)
n239=  %code = $replace(%code,n,ñ) | %code = $replace(%code,o,ð) | %code = $replace(%code,l,£) | %code = $replace(%code,s,§)
n240=  %code = $replace(%code,u,µ) |  %code = $replace(%code,r,®) |  %code = $replace(%code,x,×) | %code = $replace(%code,y,¥)
n241=  %code = $replace(%code,?,¿) | %code = $replace(%code,!,¡) | %code = $replace(%code,v,\/) | %code = $replace(%code,w,\\')
n242=  %code = $replace(%code,<,«) | %code = $replace(%code,>,») | %code = $replace(%code,-,¬) | %code = $replace(%code,:,¦)
n243=  say %code 
n244=}
n245=;Used LUV Encryption table
n246=enc {
n247=  %enc = *1
n248=  %enc = $replace(%enc,a,©) | %enc = $replace(%enc,b,æ) | %enc = $replace(%enc,c,¡) | %enc = $replace(%enc,d,ï) 
n249=  %enc = $replace(%enc,e,«)  | %enc = $replace(%enc,f,ì) | %enc = $replace(%enc,g,Å) | %enc = $replace(%enc,h,è)
n250=  %enc = $replace(%enc,i,Æ)  | %enc = $replace(%enc,j,É) | %enc = $replace(%enc,k,ö) | %enc = $replace(%enc,l,ù)
n251=  %enc = $replace(%enc,m,¢) | %enc = $replace(%enc,n,¥) | %enc = $replace(%enc,o,ä) | %enc = $replace(%enc,p,·)
n252=  %enc = $replace(%enc,q,ò)  |  %enc = $replace(%enc,r,å)  | %enc = $replace(%enc,s,½) | %enc = $replace(%enc,t,ç)
n253=  %enc = $replace(%enc,u,£) | %enc = $replace(%enc,v,•) | %enc = $replace(%enc,w,Ü) | %enc = $replace(%enc,x,ñ)
n254=  %enc = $replace(%enc,y,¼) | %enc = $replace(%enc,z,±) | %enc = $replace(%enc,0,²) |  %enc = $replace(%enc,1,þ)  
n255=  %enc = $replace(%enc,2,\)  |  %enc = $replace(%enc,3,ë) |  %enc = $replace(%enc,4,ô) |  %enc = $replace(%enc,5,ó) 
n256=  %enc = $replace(%enc,6,º)  |  %enc = $replace(%enc,7,î)  |  %enc = $replace(%enc,8,ð) |  %enc = $replace(%enc,9,÷) 
n257=  %enc = $replace(%enc,$chr(32),ª) | say [M-enc]> %enc | unset %enc
n258=}
n259=col {
n260=  %c = *1
n261=  set %c $replace(%c,a,4a) | set %c $replace(%c,b,3B) | set %c $replace(%c,c,6C) | set %c $replace(%c,d,7D) 
n262=  set %c $replace(%c,e,4e) | set %c $replace(%c,f,12F) |  set %c $replace(%c,g,13G) |  set %c $replace(%c,h,6H) 
n263=  set %c $replace(%c,i,4i) |  set %c $replace(%c,j,J)  |  set %c $replace(%c,k,3K) |  set %c $replace(%c,l,L) 
n264=  set %c $replace(%c,m,4M) |  set %c $replace(%c,n,6N) |  set %c $replace(%c,o,4o) | set %c $replace(%c,p,12P) 
n265=  set %c $replace(%c,q,Q) | set %c $replace(%c,r,13R) |  set %c $replace(%c,s,7S) |  set %c $replace(%c,t,T) 
n266=  set %c $replace(%c,u,4u) |  set %c $replace(%c,v,V) |  set %c $replace(%c,w,12W) | set %c $replace(%c,x,7X) 
n267=  set %c $replace(%c,y,Y) |  set %c $replace(%c,z,6z) |  set %c $replace(%c,?,12¿15?) |
n268=  say %c
n269=  unset %c
n270=}
n271=turn say $nrut(*1)
n272=trace {
n273=  echo -a 2_________________________________________
n274=  mh1 14(10 $+ $1 $+ 14) 6Trace
n275=  raw -q trace $1
n276=}
n277=nrut { 
n278=  %text = X | %temp = $len(*1) | :next | 
n279=  if %temp > 0 { 
n280=    if $mid(%temp,1,*1) == $chr(32) { %text = %text $+ $chr(160) } | 
n281=    else { %text = %text $+ $mid(%temp,1,*1) } | 
n282=    dec %temp | 
n283=    goto next 
n284=  } | 
n285=  return $replace($right($len(*1),%text),$chr(160),$chr(32)) 
n286=}
n287=F3 {
n288=  window -a @-MYSTIQUE-Help-@ 60 40 300 380 /font courier
n289=  aline @-MYSTIQUE-Help-@ 2MYSTIQUE6 On Line Status
n290=  aline @-MYSTIQUE-Help-@ 2__________________________________
n291=  if (%aw-yn == y) aline @-MYSTIQUE-Help-@ 4Away:  %away 
n292=  aline @-MYSTIQUE-Help-@ 2Nick:  $me 
n293=  aline @-MYSTIQUE-Help-@ 2Channels:  $dde mirc channels "" 
n294=  aline @-MYSTIQUE-Help-@ 2On Server:  $server / $port 
n295=  aline @-MYSTIQUE-Help-@ 2Ip:  $ip
n296=  aline @-MYSTIQUE-Help-@ 2Mirc Dir:  $mircdir
n297=  aline @-MYSTIQUE-Help-@ 2Wave Dir:  $wavedir
n298=  aline @-MYSTIQUE-Help-@ 2Midi Dir:  $mididir
n299=  aline @-MYSTIQUE-Help-@ 6Date:  $fulldate 
n300=  aline @-MYSTIQUE-Help-@ 7On-Line For: %hrs Hrs -  %min Mins
n301=  aline @-MYSTIQUE-Help-@ 7To reset timer type:4 /timeset
n302=  aline @-MYSTIQUE-Help-@ 2¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
n303=}
n304=timeset {
n305=  echo 7 On-Line For: %hrs Hrs -  %min Mins
n306=  echo 0 6Resetting...
n307=  set %min 0
n308=  set %hrs 0
n309=  echo 7 On-Line For: %hrs Hrs -  %min Mins
n310=}
n311=F2 {
n312=  window -a @-MYSTIQUE-Help-@ 60 40 300 380 /font courier
n313=  aline @-MYSTIQUE-Help-@ 2__________________________________
n314=  aline @-MYSTIQUE-Help-@ 6[2M6]2 Protections 
n315=  aline @-MYSTIQUE-Help-@ 2Channel
n316=  aline @-MYSTIQUE-Help-@ 10server op:2 %sop 
n317=  aline @-MYSTIQUE-Help-@ 10server mode:2 %smode 
n318=  aline @-MYSTIQUE-Help-@ 10mass kick:2 %massk
n319=  aline @-MYSTIQUE-Help-@ 10mass deop:2 %massd 
n320=  aline @-MYSTIQUE-Help-@ 10mass ban:2 %ban
n321=  aline @-MYSTIQUE-Help-@ 10clones (3):2 %cl-prot
n322=  aline @-MYSTIQUE-Help-@ 10nick flood:2 %nickf
n323=  aline @-MYSTIQUE-Help-@ 10text flood:2 %tfl
n324=  aline @-MYSTIQUE-Help-@ 0 
n325=  aline @-MYSTIQUE-Help-@ 2Personal
n326=  aline @-MYSTIQUE-Help-@ 10ctcps:2 %ctcpp 
n327=  aline @-MYSTIQUE-Help-@ 10text flood:2 %privtext
n328=  aline @-MYSTIQUE-Help-@ 10notice flood:2 %nfl
n329=  aline @-MYSTIQUE-Help-@ 2¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
n330=}
n331=fakep /.notice $$1 MYSTIQUE4 Hell Ping Reply:666
n332=nuke { .enable #nuke | whois $$1 }
n333=doll-on {
n334=  set %doll-nick $$?="Doll's nickname?"
n335=  set %doll-read $$?="Type channel to read chats"
n336=  set &my.nick $me
n337=  nick %doll-nick 
n338=  .enable #doll
n339=}
n340=doll-off {
n341=  .disable #doll
n342=  nick %my.nick
n343=}
n344=insult /msg # $$1 $+ , $read docs\insults.txt
n345=friend {
n346=  .guser 1,friend $$1 3 
n347=  echo -a 6Got $$1 as: •2Friend6• 
n348=  notice $$1 2[ %mver 2 - You have been added on my Friend List2 ] -6 MYSTIQUE
n349=}
n350=sfriend {
n351=  .guser 1,friend $$1 3 
n352=  echo -a 6Got $$1 as: •2Friend6• 
n353=}
n354=unfriend {
n355=  .ruser 1,friend $$1 3 
n356=  echo -a 6Removed $$1 from: •2Friend6• List
n357=}
n358=prot {
n359=  .guser 1,prot $$1 3 
n360=  echo -a 6Got $$1 as: •2Protected6• 
n361=  notice $$1 2[ %mver 2 - You have been added on my Protect List2 ] -6 MYSTIQUE
n362=}
n363=sprot {
n364=  .guser 1,prot $$1 3 
n365=  echo -a 6Got $$1 as: •2Protected6• 
n366=}
n367=unprot {
n368=  .ruser 1,prot $$1 3
n369=  echo -a 6Removed $$1 from: •2Protected6• List
n370=}
n371=shit { 
n372=  mode # -o $$1 
n373=  ban # $$1 3 
n374=  kick # $$1 6•2MYSTIQUE6•2 Shit List for ya! 
n375=  .guser -a 1,shit $$1 3 
n376=  echo -a 6•2Got  $+ $$1 $+  in Shitlist6•
n377=}
n378=unshit {
n379=  .ruser 1,shit $$1 3
n380=  echo -a 6•2Removed  $+ $$1 $+  from Shitlist6•
n381=}
n382=shitclear {
n383=  .rlevel 1,shit 
n384=  echo -a 6•2List Cleared6•
n385=}
n386=lcolor { 
n387=  window -a @-MYSTIQUE-Help-@ 60 40 300 380
n388=  %bg = 0
n389=  aline @-MYSTIQUE-Help-@ 1•4MYSTIQUE1• Color Memo
n390=  aline @-MYSTIQUE-Help-@  $sp(1)
n391=  :next
n392=  if %bg < 16 { aline @-MYSTIQUE-Help-@  $fp(%bg,2) 0, $+ %bg 01  12  23  34  45  56  67  78  89  9101011111212131314141515 | inc %bg | goto next }
n393=  aline @-MYSTIQUE-Help-@  $sp(1)
n394=}
n395=sp { return $str($$1,$chr(160)) }
n396=fp { if $len($$1) >= $$2 { return $left($$2,$$1) } | %temp = $$2 - $len($$1) | %temp = $$1 $+ $str(%temp,$chr(160)) | return %temp }
n397=clonez {
n398=  {
n399=    echo -a  2______________________________________
n400=    echo -a  6[2M6]2 Clone Scanning in6 $chan
n401=    set %nick1 ""
n402=    set %nick2 ""
n403=    set %add1 ""
n404=    set %add2 ""
n405=    set %c1 1
n406=    set %c3 0
n407=    set %c4 0
n408=    set %flag 0
n409=    set %flag2 0
n410=    :next1
n411=    set %c2 %c1
n412=    set %nick1 $nick(%c1,#)
n413=    set %add1 $address($nick(%c1,#),3)
n414=    if $nick(%c1,#) == $null goto end
n415=    if %add1 == $null {    inc %c1  |  goto next1 }
n416=  }
n417=  :next2
n418=  if $nick(%c2,#) == $null { inc %c1 |  goto next1 }
n419=  set %nick2 $nick(%c2,#)
n420=  set %add2 $address($nick(%c2,#),3)
n421=  if %nick1 == %nick2 { inc %c2
n422=    goto next2
n423=  }
n424=  if %nick1 != %nick2 && %add1 == %add2 && %add1 != $null goto clone
n425=  inc %c2
n426=  goto next2
n427=  :clone
n428=  if %nick1 isop # { inc %c2
n429=    goto next2
n430=  }
n431=  mh2 2Clone Detected with6  %nick1 2and6 %nick2 
n432=  inc %c2
n433=  goto next2
n434=  :end
n435=  unset %nick2 %c1 %c2 %c3 %c4 %flag %flag2
n436=  echo  -a 2¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
n437=}
n438=asciidesign { 
n439=  if ($1 == -p) { 
n440=    play $hfile="Choose a painting"  [ $mircdir $+ ascii\ ]  
n441=  }
n442=  if ($1 == -i) { echo -a 2ASCii Design Info:6 Some of the "paintings" will not seem correct, this is because "we" are using the "Arial Font"....try changing in "Fixed Sys" and you'll see them all =) }
n443=}
n444=takeover {
n445=  if (%tinf == off) {
n446=    mode %takechan -stimkp -]|i||ii|i|i|[-
n447=    mode %takechan -lb -5000 *!*@*
n448=    .disable #takeover
n449=    .unset %takechan
n450=    .unset %checknick
n451=    halt
n452=  }
n453=  if (%tinf == on)  if ($me isop $$1) {
n454=    .enable #takeover
n455=    set %takechan $$1
n456=    mode %takechan +stimkp -]|i||ii|i|i|[-
n457=    mode %takechan +lb -5000 *!*@*
n458=    set %checknick 1
n459=    :next
n460=    set %nick1 $nick(%checknick,%takechan)
n461=    if %nick == $null goto done
n462=    if (%nick == $me) {
n463=      inc %checknick 1 
n464=      goto next
n465=    } 
n466=    kick %takechan %nick )2MYSTIQUE6 Fucked Kick(
n467=    inc %checknick 1
n468=    goto next
n469=    :done
n470=    halt
n471=  }
n472=  mh 2You need Op in6 $$1 2to takeover!
n473=}
n474=globkick {
n475=  set %nick $$?="Who you wanna kick?"
n476=  set %chan 0
n477=  :loop2
n478=  inc %chan 1
n479=  if (%nick ison $chan(%chan)) {
n480=    kick $chan(%chan) %nick  %mver2 - all chan kick
n481=    goto loop2
n482=  }
n483=  if ($chan(%chan) == $null) { goto end2 }
n484=  goto loop2
n485=  :end2
n486=  unset %nick
n487=}
n488=portscan { 
n489=  .enable #portscan 
n490=  echo -a 2 ___________________________________________________
n491=  echo -a 6[2M6]2 Scanning for all visible ports on6 $server $+ ! 
n492=  stats l 
n493=}
n494=portscan2 { 
n495=  .enable #portscan2
n496=  set %sserver $$?="Enter server name"
n497=  echo -a 2 ___________________________________________________
n498=  echo -a 6[2M6]2 Scanning for all visible ports on6 %sserver $+ ! 
n499=  stats l %sserver
n500=}
n501=postitto say  $+ %color2 $+ , $+ %color2  *1 $+ ! | /say  $+ %color1 $+ , $+ %color2  *1  1,1!  | /say  $+ %color2 $+ , $+ %color2  *1  1,1! | /say 0,0 1,1 *1 $+ !
n502=omminitelle say 2(6Bambino con leptospirosi:2) 7D2on7G2iulio1, ma questa 6eheh1 è la tecchinologgia 6eheh1 iggiggitale 6eheh1 GS:M.' 0,1Ommini0,3Telle©
n503=amigarulaz {
n504=  say 4,1.--------------------------------------.
n505=  say 4,1| System Failure - Guru MediTATION |
n506=  say 4,1'--------------------------------------'
n507=}
n508=pref { 
n509=  window -a @-Preferences-@ 60 40 330 190 /font courier
n510=  aline @-Preferences-@ 2________________________________
n511=  aline @-Preferences-@ 6[2M6]2 Settings
n512=  aline @-Preferences-@ 10who:2 %who
n513=  aline @-Preferences-@ 10whois:2 %whois
n514=  aline @-Preferences-@ 10names:2 %names
n515=  aline @-Preferences-@ 10notifies:2 %notifies
n516=  aline @-Preferences-@ 10version:2 $remove(%ver.txt,.txt)
n517=  aline @-Preferences-@ 10chan sync:2 %sync
n518=  aline @-Preferences-@ 10hour msgr:2 %ol.time.set
n519=  aline @-Preferences-@ 10link looker:2 %linkl
n520=  aline @-Preferences-@ 10protections:2 f2
n521=  aline @-Preferences-@ 2¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
n522=}
n523=sub { %tmp = $1 - $2 | return %tmp }
n524=infostats {
n525=  if (%status == on)  { window -l @Infostats 10 8 320 120 $mircdir $+ docs\infostat.txt | .timer222 0 1 infostats | rline @Infostats 1 $me ( $+ $address($me,1) $+ )  }
n526=  if (%astatus == Yes) { rline @Infostats 2 Away: %astatus }
n527=  else { rline @Infostats 2 Away: No } 
n528=  rline @Infostats 3 Idle: $duration($idle) | rline @Infostats 4 Time: $fulldate | rline @Infostats 5 Server: $Server $port 
n529=  if (%chan == $null) { rline @Infostats 6 Channels: None }
n530=  else { rline @Infostats 6 Channels: %chan }
n531=}
n532=statsoff { .timer222 off | window -c @Infostats | .disable #infostats | .disable #infostats.cmd | unset %chan | unset %astatus }