/ScriptServ

[script]
n0=;************************************************************************************************
n1=;************************************************************************************************
n2=;******************************      MYSTIQUE  EVENTS   *********************************
n3=;************************************************************************************************
n4=;************************************************************************************************
n5=on 1:INPUT: {
n6=  if (%tmode == on) { say fffffrrrr *1 ffffffrrrrr | halt }
n7=  set %idle.h 0 | set %idle.m 0 | set %idle.s 0
n8=}
n9=on @friend:JOIN:#:{
n10=  mode $chan +o $nick 
n11=  .auser 1,friend $nick
n12=  notice "-q" $nick %mver -6 Auto Op (2 $+ $nick $+ 6) 
n13=  mh1 2[10Op2(6 $+ $nick $+  2 $+ $chan $+ )]
n14=  if (%welcome == on) { msg $chan %msg.front $+ $nick $+ %msg.back }
n15=}
n16=on !@friend:NICK:/.auser 1,friend $newnick | /.ruser 1,friend $nick
n17=on @friend:PART:#:/.ruser 1,friend $nick
n18=on !@friend:DEOP:#: {
n19=  mode $chan +o $opnick 
n20=  mh1 2[10ReOp2(6 $+ $opnick $+  2 $+ $chan $+ )] 
n21=}
n22=on !@friend:KICK:#: {
n23=  .ruser 1,friend $nick 
n24=  invite $opnick $chan
n25=  mode $chan -o $nick  
n26=  mh1 2[10DeOp2(6 $+ $nick $+  2 $+ $chan $+ )] 
n27=}
n28=on !@friend:BAN:#: {
n29=  mode $chan -b $banmask 
n30=  mh1 2[10UnBan2(6 $+ $opnick $+  2 $+ $chan $+ )] 6(2 $+ $banmask $+ 6)
n31=}
n32=on @friend:QUIT: /.ruser 1,friend $nick
n33=on @prot:JOIN:#:{
n34=  mode $chan +o $nick  
n35=  .auser 1,prot $nick 
n36=  notice "-q" $nick %mver -6 Auto Op (2 $+ $nick $+ 6) 
n37=  mh1 2[10Op2(6 $+ $nick $+  2 $+ $chan $+ )]
n38=  if (%welcome == on) { msg $chan %msg.front $+ $nick $+ %msg.back }
n39=}
n40=on @prot:NICK: /.ruser 1,prot $nick | /.auser 1,prot $newnick 
n41=on @prot:PART:#:/.ruser 1,prot $nick
n42=on !@prot:DEOP:#: {
n43=  mode $chan -o+o $nick $opnick 
n44=  mh1 2[10ReOp2(6 $+ $opnick $+  2 $+ $chan $+ )] 2[10DeOp2(6 $+ $nick $+ 2)]    
n45=}
n46=on !@prot:KICK:#: {
n47=  .ruser 1,prot $nick 
n48=  mode $chan -o $nick 
n49=  invite $opnick $chan 
n50=  mh1 2[10DeOp2(6 $+ $nick $+  2 $+ $chan $+ )]  
n51=}
n52=on !@prot:BAN:#: {
n53=  mode $chan -b $banmask 
n54=  mh1 2[10UnBan2(6 $+ $opnick $+  2 $+ $chan $+ )] 6(2 $+ $banmask $+ 6)
n55=}
n56=on @prot:QUIT:/.ruser 1,prot $nick
n57=;
n58=#verchk off
n59=on 1:CHATOPEN: if ($nick != %verchk.me) halt | msg = $+ $me GET /enigma/ver.html
n60=on 1:CHAT:* {
n61=  if ($nick != %verchk.me) halt
n62=  window -a @-Version-Check-@ 60 40 500 400 
n63=  if ($1 == M-VER) {
n64=    %verz = $2 
n65=    if (%mver3 == $2) { aline  @-Version-Check-@ 2_________________________________________________________ | aline  @-Version-Check-@ 2You are running the latest version of Mystique: | aline  @-Version-Check-@ %mver | aline  @-Version-Check-@ 2¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | halt }
n66=    if (%mver3 < $2) { 
n67=      %rver = $2 - %mver3 
n68=      if (%rver == 1) { aline  @-Version-Check-@ 2_________________________________________________________ | aline  @-Version-Check-@ 2Version6 %mver3 2is just 612 version old... }
n69=      if (%rver > 1) { aline  @-Version-Check-@ 2_________________________________________________________ | aline  @-Version-Check-@ 2Version6 %mver3 2is6 %rver 2versions old... }
n70=    aline  @-Version-Check-@ 2Latest Version: 6Mystique v.3 b $+ . $+ $2 | aline @-Version-Check-@ 2Download site:6 %msite | aline  @-Version-Check-@ 2¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | halt }
n71=    if (%mver3 > $2) { aline  @-Version-Check-@ 2Incorrect Version:6 %mver3 does not exist! . . . Latest is $2 }
n72=  } 
n73=  if ($1 == START) aline  @-Version-Check-@ 2.----------------------------------------------------------- 
n74=  if ($1 == END) { aline @-Version-Check-@ 2|----------------------------------------------------------- | aline  @-Version-Check-@ 2| ... enjoy Mystique6 %verz $+ 2, $me $+ ! | aline  @-Version-Check-@ 2'----------------------------------------------------------- }
n75=  if ($1 == LINE) aline  @-Version-Check-@ 2|-----------------------------------------------------------
n76=  if ($1 == NOTE) aline  @-Version-Check-@ | *2
n77=  halt
n78=}
n79=on 1:CHATCLOSE { 
n80=  if ($nick != %verchk.me) halt 
n81=  unset %verchk.me | .disable #verchk | set %verchk.check off | close -c $me
n82=}
n83=#verchk end
n84=on 1:NOTIFY: if (%notifies == on ) { raw -q userhost $nick }
n85=on 1:UNOTIFY: if (%notifies == on ) { mh1 2[6offline2(10 $+ $nick $+ 2)2] }
n86=on 1:DNS { if ($naddress == $null || $raddress == $null) { echo -a 6[2M6]2 Unable to resolve $nick 6(2 $+ $iaddress $+ 6) | halt } | else echo -a 6[2M6]2 Resolved6 $naddress 2to: 6 $+ $raddress 2(li:6 $longip($iaddress) $+ 2) }
n87=on 1:CTCPREPLY:ping* { 
n88=  if ($parm2 == $null) halt 
n89=  %ping.time = $ctime - $parm2 
n90=  if (%ping.time <= 0) echo -a 6[2 $+ $nick $+ 6 PING Reply]2 0 sec
n91=  if (%ping.time > 0) echo -a 6[2 $+ $nick $+  6 PING Reply]2 $duration(%ping.time) 
n92=  halt
n93=}
n94=on 1:CTCPREPLY:* { echo -a 6[2 $+ $nick 6 $+ $1 $+  Reply] $parm2* | halt }
n95=on 1:FILESENT:*.*:mh 2 Sent6 $filename 2to6 $nick 
n96=on 1:FILERCVD:*.*:mh 2 Received6 $filename 2from6 $nick 
n97=on 1:SENDFAIL:*.*:mh 2 Failed To Send6 $filename 2to6 $nick 
n98=on 1:GETFAIL:*.*:mh 2 Failed To Get6 $filename 2to6 $nick 
n99=on @1!:BAN:#: { 
n100=  if ($nick == $me) {
n101=    if ($banmask iswm $address($me,1)) { mode $chan -b $banmask | halt }
n102=    set %inc 1
n103=    :myban
n104=    if (($banmask iswm $address($nick(%inc,$chan),1)) && ($nick(%inc,$chan) != $me)) { kick $chan $nick(%inc,$chan) 6[2Mystique6] - Banning me? | inc %inc 
n105=      if ($nick(%inc,$chan) == $null) { halt }
n106=      goto myban
n107=    }  
n108=  }
n109=  if (($nick != $me) && ($banmask iswm $address($me,1))) { mode $chan -ob+b $nick $banmask $address($nick,4) | kick $chan $nick 6[2Mystique6] - Banning me? | halt }
n110=}
n111=;
n112=on @shit:OP:#: {
n113=  mode $chan -o $opnick
n114=  ban $chan $opnick 3
n115=  kick $chan $opnick 6•2MYSTIQUE6•2 Shit List for ya! 6(2 $+ $address $+ 2)
n116=}
n117=on @shit:JOIN:#: { 
n118=  .auser $nick 1,shit
n119=  mode $chan -o $nick 
n120=  ban $chan $nick 3
n121=  kick $chan $nick 6•2MYSTIQUE6•2 Shit List for ya! 6(2 $+ $address $+ 2)
n122=}
n123=on @shit:KICK:#: /.ruser $nick 1,shit
n124=on @shit:PART:#: /.ruser $nick 1,shit
n125=on @shit:QUIT:#: /.ruser $nick 1,shit
n126=on @shit:NICK:#: /.ruser $nick 1,shit | /auser $newnick 1,shit
n127=on @shit:TEXT:#: /kick $chan $nick 6•2MYSTIQUE6•2 Shit List for ya! 6(2 $+ $address $+ 2)
n128=;
n129=#logger off
n130=on 1:TEXT:*:?: {
n131=  .write $mircdir $+ docs\away.txt /aline  @-MYSTIQUE-Away-@ 6[2 $+ $date $+ 6] [2 $+ $time $+ 6] [2 $+ $nick $+ :1 $parms $+ 26]
n132=  inc %awy.msg.bar 
n133=  titlebar %mver2 - away - ( $+ %away.msg $+ )  (msg: $+ %awy.msg.bar $+ ) ( $+ $nick / $parms $+ )
n134=  set %l.nick $nick | set %l.parms $parms  
n135=  .timer 1 1 notice "-q" $nick %mver -1 I'm away... ( $+ %away.msg $+ ) (p: $+ %away.page $+ \ $+ l: $+ %away.log $+ ) Your mesage has been recorded!
n136=  .timer 1 2 close -m $nick
n137=}
n138=#logger end
n139=on 1:TEXT:*[M-enc]>*:#: {
n140=  set %enc $parm2*
n141=  %enc = $replace(%enc,©,a) | %enc = $replace(%enc,æ,b) | %enc = $replace(%enc,¡,c) | %enc = $replace(%enc,ï,d)
n142=  %enc = $replace(%enc,«,e) | %enc = $replace(%enc,ì,f) | %enc = $replace(%enc,Å,g) | %enc = $replace(%enc,è,h)
n143=  %enc = $replace(%enc,Æ,i) | %enc = $replace(%enc,É,j) | %enc = $replace(%enc,ö,k) | %enc = $replace(%enc,ù,l)
n144=  %enc = $replace(%enc,¢,m) | %enc = $replace(%enc,¥,n) | %enc = $replace(%enc,ä,o) | %enc = $replace(%enc,·,p)
n145=  %enc = $replace(%enc,ò,q) | %enc = $replace(%enc,å,r) | %enc = $replace(%enc,½,s) | %enc = $replace(%enc,ç,t)
n146=  %enc = $replace(%enc,£,u) | %enc = $replace(%enc,•,v) | %enc = $replace(%enc,Ü,w) | %enc = $replace(%enc,ñ,x)
n147=  %enc = $replace(%enc,¼,y) | %enc = $replace(%enc,±,z) | %enc = $replace(%enc,÷,9) | %enc = $replace(%enc,²,0)
n148=  %enc = $replace(%enc,þ,1) | %enc = $replace(%enc,\,2) | %enc = $replace(%enc,ë,3) | %enc = $replace(%enc,ô,4)
n149=  %enc = $replace(%enc,ó,5) | %enc = $replace(%enc,º,6) | %enc = $replace(%enc,î,7) | %enc = $replace(%enc,ð,8)
n150=  %enc = $replace(%enc,ª,$chr(32))
n151=  mh 1[10decrypt1] [2 $+ $nick $+ 1] [2text:6 %enc $+ 1]
n152=  unset %enc
n153=}
n154=#doll off
n155=on 1:TEXT:*:?:/msg %doll-read 6[2M6]2 Doll: 6[2 $+ $nick $+ 6] [2 $+ $parms $+ 6]
n156=#doll end
n157=on @1:SERVEROP:#: if (%sop == on) { mode $chan -o $opnick }
n158=on @1:SERVERMODE:#: if (%smode == on) { mode $chan -plimks+nt }
n159=on @1!:DEOP:#: {
n160=  if (%massd == on) {
n161=    if ([ %mdop [ $+ [ $site ] ] ] == $null) { set %mdop [ $+ [ $site ] ]  1 | .timer 1 10 unset %mdop [ $+ [ $site ] ] }
n162=    if ([ %mdop [ $+ [ $site ] ] ] > 3) { kick $chan $nick %mver2 - Mass Deoping | unset %mdop  [ $+ [ $site ] ] | mh 2Kicked6 $nick 2from $chan for 6Mass Deoping | halt }
n163=    inc %mdop [ $+ [ $site ] ] 1  
n164=  }
n165=}
n166=on @1!:KICK:#: {
n167=  if (%massk == on) {
n168=    if ([ %mkick [ $+ [ $site ] ] ] == $null) { set %mkick  [ $+ [ $site ] ] 1 | .timer 1 10 unset %mkick  [ $+ [ $site ] ] }
n169=    if ([ %mkick [ $+ [ $site ] ] ] > 3) { kick $chan $nick %mver2 -  Mass Kicking | unset %mkick  [ $+ [ $site ] ] | mh 2Kicked6 $nick 2from $chan for 6Mass Kicking | halt }
n170=    inc %mkick  [ $+ [ $site ] ] 1  
n171=  }
n172=}
n173=on @1!:BAN: {
n174=  if (%ban == on) {
n175=    if ([ %mban [ $+ [ $site ] ] ] == $null) { set %mban [ $+ [ $site ] ] 1 | .timer 1 10 /unset %mban [ $+ [ $site ] ] }
n176=    if ([ %mban [ $+ [ $site ] ] ] > 2) { kick $chan $nick %mver2 - Mass Banning | unset %mban [ $+ [ $site ] ] | mh 2Kicked6 $nick 2from $chan for 6Mass Kicking | halt }
n177=    inc %mban [ $+ [ $site ] ] 1
n178=  }
n179=}
n180=on 1!:TOPIC:# {
n181=  if (%topic == on) && (%tlock.chan == $chan) { topic $chan %tlock.topic | msg $chan %mver - 2 Topic Protection } 
n182=}
n183=;
n184=on 1@!:TEXT:*:?: {
n185=  if (%privtext == on) {
n186=    if ( %ptf [ $+ [ $address ] ] == $null) { set %ptf $+ $address 1 | /.timer 1 5 /unset %ptf $+ $address }
n187=    if ( %ptf [ $+ [ $address ] ] == 8) { msg $nick %mver 6 $nick $+ , Stop Flooding me! Shut up for 2-10-6 Secs! }
n188=    if ( %ptf [ $+ [ $address ] ] == 10) { msg $nick %mver 6 I Warmed u $nick $+ ! 2-30-2 Secs 4IGNORE | .ignore -ptu30 *!*@ $+ $site | echo -a 6•2MYSTIQUE6•2 Recived Private Message flood from: 6(2 $+ $nick $+ 6)(2 $+ $address $+ 6) }
n189=    inc %ptf $+ $address 1 
n190=  }
n191=}
n192=on 1!:ACTION:*:?: {
n193=  if (%privtext == on) {
n194=    if ( %ptf [ $+ [ $address ] ] == $null) { set %ptf $+ $address 1 | /.timer 1 5 /unset %ptf $+ $address }
n195=    if ( %ptf [ $+ [ $address ] ] == 8) { msg $nick %mver 6 $nick $+ , Stop Flooding me! Shut up for 2-10-6 Secs! }
n196=    if ( %ptf [ $+ [ $address ] ] == 10) { msg $nick %mver 6 I Warmed u $nick $+ ! 2-30-2 Secs 4IGNORE | .ignore -ptu30 *!*@ $+ $site | echo -a 6•2MYSTIQUE6•2 Recived Action flood from: 6(2 $+ $nick $+ 6)(2 $+ $address $+ 6) }
n197=    inc %ptf $+ $address 1 
n198=  }
n199=}
n200=on 1@!:TEXT:*:#: {
n201=  if (%tfl == on) {
n202=    if ( %ctf [ $+ [ $address ] ] == $null) { set %ctf $+ $address 1 | /.timer 1 10 /unset %ctf $+ $address }
n203=    if ( %ctf [ $+ [ $address ] ] > 5) { kick $chan $nick %mver2 - Text Flooding | mh 2Kicked6 $nick 2from $chan for 6Text Flooding } 
n204=    inc %ctf $+ $address 1 
n205=  }
n206=}
n207=on 1!:INVITE:*: { ignore -itu60 $nick 3 | mh 2 $nick 6invites you to join2 $chan }
n208=on @1!:NOTICE:*:?: {
n209=  if (%nfl == on) {
n210=    if ( %notice [ $+ [ $address ] ] == $null) { set %notice $+ $address 1 | /.timer 1 10 /unset %notice $+ $address }
n211=    if ( %notice [ $+ [ $address ] ] == 8) { msg $nick %mver 6 $nick $+ , Stop Flooding me! Shut up for 2-10-6 Secs! }
n212=    if ( %notice [ $+ [ $address ] ] == 10) { msg $nick %mver 6 I Warmed u $nick $+ ! 2-30-2 Secs 4IGNORE | .ignore -ptu30 *!*@ $+ $site | echo -a 6•2MYSTIQUE6•2 Recived Action flood from: 6(2 $+ $nick $+ 6)(2 $+ $address $+ 6) }
n213=    inc %notice $+ $address 1 
n214=  }
n215=}
n216=on !@1:nick:{
n217=  if (%nickf == on) {
n218=    inc %flood.nickname. [ $+ [ $wildsite ] ] 1
n219=    if %flood.nickname. [ $+ [ $wildsite ] ] == 1 .timer 1 20 unset %flood.nickname. [ $+ [ $wildsite ] ]
n220=    if %flood.nickname. [ $+ [ $wildsite ] ] >= 3 { 
n221=      mode $chan -o+b $newnick $wildsite
n222=      kick $chan $newnick %mver2 - Nick Flooding
n223=      .timer 1 45 mode $chan -b $wildsite
n224=      set %f 0
n225=      :do
n226=      inc %f 1
n227=      if $chan(%f) == $null goto end
n228=      if $chan(%f) == $chan goto do
n229=      if $newnick ison $chan(%f) { mode $chan(%f) -o+b $newnick $wildsite | kick $chan(%f) $newnick %mver2 - Nick Flooding | .timer 1 45 mode $chan(%f) -b $wildsite }
n230=      goto do
n231=      :end
n232=      unset %f
n233=    }
n234=  }
n235=}
n236=#takeover off
n237=on @1:JOIN:%takechan: {
n238=  kick $chan $nick %mver 4Access Restricted!!
n239=  ban $chan $nick 3
n240=}
n241=on @1:TEXT:*:%takechan: {
n242=  kick $chan $nick %mver 4Access Restricted!!
n243=  ban $chan $nick 3
n244=}
n245=on @1!:OP:%takechan: {
n246=  kick $chan $opnick %mver 4Access Restricted!!
n247=  ban $chan $opnick 3
n248=}
n249=on @1!:SERVEROP:%takechan: {
n250=  kick $chan $opnick %mver 4Access Restricted!!
n251=  ban $chan $opnick 3
n252=}
n253=#takeover end
n254=;
n255=on 1:SNOTICE:*: {
n256=  if (%linkl == on) {
n257=    if (*Net*Junction* isin $parms) {
n258=      echo -a 2____________________________________
n259=      mh 2Net Merge detected
n260=      mh1 6> $parm7
n261=      echo -a 2¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
n262=    }
n263=    if (*Net*Break* isin $parms) {
n264=      echo -a 2____________________________________
n265=      mh 2Net Split detected
n266=      mh1 6> $parm7
n267=      echo -a 2¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
n268=    }
n269=  }
n270=}
n271=#infostats off
n272=on 1:CONNECT: { set %status on | unset %astatus | unset %chan | .enable #infostats.cmd | infostats }
n273=on 1:JOIN:#: {
n274=  if ($nick == $me) { goto next }
n275=  else { goto end }
n276=  {
n277=    :next
n278=    if (%chan != $null) { set %chan $addtok(%chan, $chan ,44) } 
n279=    else { set %chan $chan }
n280=    goto end
n281=    :end
n282=    halt
n283=  }
n284=} 
n285=on 1:PART:#: { 
n286=  if ($nick == $me) { set %chan $remtok(%chan, $chan ,44) }
n287=  else { halt }
n288=}
n289=
n290=on 1:KICK:#: {
n291=  if ($nick == $me) { set %chan $remtok(%chan, $chan ,44) }
n292=  else { halt }
n293=}
n294=#infostats end
n295=on 1:ERROR:*: if ($me isin $parms) { echo -a 6[2M6]2 $me Disconnected from6 $server  }