/ScriptServ

[aliases]
n0=/op /mode # +ooo $$1 $2 $3
n1=/dop /mode # -ooo $$1 $2 $3
n2=/j /join #$$1 $2-
n3=/p /part #
n4=/n /names #$$1
n5=/w /whois $$1
n6=/k /kick # $$1
n7=/q /query $$1
n8=/hop /part # | /join #$$1
n9=/send /dcc send $1 $2
n10=/chat /dcc chat $1
n11=/ping /ctcp $$1 ping
n12=/elaway {
n13=  .timer1 0 1 /inc %awaytime 
n14=  .timer2 0 600 /awaytalk
n15=  .timer3 0 60 /awaytalk2
n16=  set %awayreason $1-
n17=  set %awaysince %timezone $realtime
n18=  if %msglog == on { .enable #msglog }
n19=  if %pager == on { set %pager2 on }
n20=  away is away: ( $+ %awayreason $+ ) (Msglog! $+ %msglog Pager! $+ %pager $+ )
n21=  ame is away: ( $+ %awayreason $+ ) (Msglog! $+ %msglog Pager! $+ %pager $+ )
n22=  halt 
n23=}
n24=/elback {
n25=  %awaytime2 = $duration(%awaytime)
n26=  %awaytime2 = $replace(%awaytime2,secs,s)
n27=  %awaytime2 = $replace(%awaytime2,mins,m)
n28=  %awaytime2 = $replace(%awaytime2,hrs,h)
n29=  %awaytime2 = $replace(%awaytime2,days,s)
n30=  %awaytime2 = $replace(%awaytime2,wks,w)
n31=  %awaytime2 = $replace(%awaytime2,sec,s)
n32=  %awaytime2 = $replace(%awaytime2,min,m)
n33=  %awaytime2 = $replace(%awaytime2,hr,h)
n34=  %awaytime2 = $replace(%awaytime2,day,s)
n35=  %awaytime2 = $replace(%awaytime2,wk,w)
n36=  away
n37=  ame is back from the dead. Gone %awaytime2
n38=  checklogs
n39=  .unset %Away*
n40=  .disable #msglog
n41=  set %pager2 off
n42=  .timer1 off
n43=  .timer2 off
n44=  .timer3 off
n45=}
n46=awaytalk {
n47=  %awaytime2 = $duration(%awaytime)
n48=  %awaytime2 = $replace(%awaytime2,secs,s)
n49=  %awaytime2 = $replace(%awaytime2,mins,m)
n50=  %awaytime2 = $replace(%awaytime2,hrs,h)
n51=  %awaytime2 = $replace(%awaytime2,days,s)
n52=  %awaytime2 = $replace(%awaytime2,wks,w)
n53=  %awaytime2 = $replace(%awaytime2,sec,s)
n54=  %awaytime2 = $replace(%awaytime2,min,m)
n55=  %awaytime2 = $replace(%awaytime2,hr,h)
n56=  %awaytime2 = $replace(%awaytime2,day,s)
n57=  %awaytime2 = $replace(%awaytime2,wk,w)
n58=  ame is away: ( $+ %awayreason $+ ) (Msglog! $+ %msglog Pager! $+ %pager Time! $+ %awaytime2 Since! $+ %awaysince $+ )  
n59=  halt
n60=}
n61=awaytalk2 {
n62=  %awaytime2 = $duration(%awaytime)
n63=  %awaytime2 = $replace(%awaytime2,secs,s)
n64=  %awaytime2 = $replace(%awaytime2,mins,m)
n65=  %awaytime2 = $replace(%awaytime2,hrs,h)
n66=  %awaytime2 = $replace(%awaytime2,days,s)
n67=  %awaytime2 = $replace(%awaytime2,wks,w)
n68=  %awaytime2 = $replace(%awaytime2,sec,s)
n69=  %awaytime2 = $replace(%awaytime2,min,m)
n70=  %awaytime2 = $replace(%awaytime2,hr,h)
n71=  %awaytime2 = $replace(%awaytime2,day,s)
n72=  %awaytime2 = $replace(%awaytime2,wk,w)
n73=  away is away: ( $+ %awayreason $+ ) (Msglog! $+ %msglog Pager! $+ %pager Time! $+ %awaytime2 Since! $+ %awaysince $+ )  
n74=}
n75=checklogs {
n76=  if $lines( [ $logdir $+ away.log ] ) == 0 { echo -a  [EL] You have no messages. }
n77=  else {
n78=    echo -a  [EL] You have $lines( [ $logdir $+ away.log ] ) new messages!
n79=    echo -a  [EL] To view them, type /readlogs
n80=    echo -a  [EL]  To erase them, type /eraselogs
n81=  }
n82=}
n83=readlogs {
n84=  if $lines($logdir $+ away.log) == 0 { echo -a  [EL] You have no messages. | halt }
n85=  window -e @EL $+ $chr(160) $+ Message $+ $chr(160) $+ Log
n86=  aline @EL $+ $chr(160) $+ Message $+ $chr(160) $+ Log  [EL] Total Messages: $lines( [ $logdir $+ away.log ] ) 
n87=  play -c $me $logdir $+ away.log 0
n88=}
n89=/eraselogs /write -c $logdir $+ away.log | /echo -a [EL] All messages deleted. | window -c @EL $+ $chr(160) $+ Message $+ $chr(160) $+ Log 
n90=realtime {
n91=  if $1 != $null {  set %rthour $token(1,58,$1) | set %rtmin $token(2,58,$1) }
n92=  else { set %rthour $token(1,58,$time) | set %rtmin $token(2,58,$time) }
n93=  if %rthour >= 12 { 
n94=    if %rthour > 12 { dec %rthour 12 }
n95=    set %realtime %rthour $+ $chr(58) $+ %rtmin $+ pm
n96=  }
n97=  elseif %rthour < 12 || %rthour == 0 { 
n98=    if %rthour == 0 { set %rthour 12 }
n99=    set %realtime %rthour $+ $chr(58) $+ %rtmin $+ am 
n100=  }
n101=  unset %rt*
n102=  return %realtime
n103=}
n104=quit { 
n105=  if $1 != $null { quit [EL] $1- } 
n106=  else { quit %elite3 Elite Script v3.0 - http://www.geocities.com/Tokyo/Palace/1946/ } 
n107=}
n108=
n109=/error { echo -a %elite2 4,1Error!8 $1- }
n110=/d1 {
n111=  if ($me !isop #) { error You must Have ops! | halt }
n112=  raw -q mode # +bbbbbb *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* 
n113=  raw -q mode # -bbbbbb *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* 
n114=  raw -q mode # +bbbbbb *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* 
n115=  raw -q mode # -bbbbbb *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* 
n116=  raw -q mode # +bbbbbb *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* 
n117=  raw -q mode # -bbbbbb *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* 
n118=  raw -q mode # +bbbbbb *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o*
n119=  raw -q mode # -bbbbbb *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o* 
n120=}
n121=/d2 {
n122=  if ($me !isop #) { error You must Have ops! | halt }
n123=  raw -q mode # +b-b+b-b+b-b *a*@* *a*@* *b*@* *b*@* *c*@* *c*@*
n124=  raw -q mode # +b-b+b-b+b-b *1*@* *1*@* *2*@* *2*@* *3*@* *3*@*
n125=  raw -q mode # +b-b+b-b+b-b *d*@* *d*@* *e*@* *e*@* *f*@* *f*@*
n126=  raw -q mode # +b-b+b-b+b-b *4*@* *4*@* *5*@* *5*@* *6*@* *6*@*
n127=  raw -q mode # +b-b+b-b+b-b *g*@* *g*@* *h*@* *h*@* *i*@* *i*@*
n128=  raw -q mode # +b-b+b-b+b-b *7*@* *7*@* *8*@* *8*@* *9*@* *9*@*
n129=  raw -q mode # +b-b+b-b+b-b *j*@* *j*@* *k*@* *k*@* *l*@* *l*@*
n130=  raw -q mode # +b-b+b-b+b-b *m*@* *m*@* *n*@* *n*@* *o*@* *o*@*
n131=}
n132=/d3 { 
n133=  if ($me !isop #) { error You must Have ops! | halt }
n134=  raw -q mode # +bbbbbb *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* 
n135=  raw -q mode # +bbbbbb *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* 
n136=  raw -q mode # +bbbbbb *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* 
n137=  raw -q mode # +bbbbbb *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o*
n138=  raw -q mode # -bbbbbb *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* 
n139=  raw -q mode # -bbbbbb *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* 
n140=  raw -q mode # -bbbbbb *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* 
n141=  raw -q mode # -bbbbbb *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o*
n142=}
n143=/d4 { 
n144=  if ($me !isop #) { error You must Have ops! | halt }
n145=  if (*1 = $null) { error Please use /d4 q w e r t y | echo 4 Replace letters with address string | echo 4 Like: /d4 l a m e r | halt }
n146=  raw -q mode # +bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
n147=  raw -q mode # -bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
n148=  raw -q mode # +bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
n149=  raw -q mode # -bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
n150=  raw -q mode # +bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
n151=  raw -q mode # -bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
n152=  raw -q mode # +bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
n153=  raw -q mode # -bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
n154=}
n155=/bb1 {
n156=  if ($me !isop #) { error You must Have ops! | halt }
n157=  raw -q mode # +bbbb @ @ @ @ 
n158=  raw -q mode # +bbbb @ @ @ @ 
n159=  raw -q mode # +bbbb @ @ @ @ 
n160=  raw -q mode # +bbbb @ @ @ @ 
n161=}  
n162=/bb2 {
n163=  if ($me !isop #) { error You must Have ops! | halt }
n164=  raw -q mode # +bbbb ??????@????????????? !!!!!!@!!!!!!!!!!!!! ++++++@+++++++++++++ ------@------------- 
n165=  raw -q mode # +bbbb ??????@????????????? !!!!!!@!!!!!!!!!!!!! ++++++@+++++++++++++ ------@------------- 
n166=  raw -q mode # +bbbb ??????@????????????? !!!!!!@!!!!!!!!!!!!! ++++++@+++++++++++++ ------@------------- 
n167=  raw -q mode # +bbbb ??????@????????????? !!!!!!@!!!!!!!!!!!!! ++++++@+++++++++++++ ------@------------- 
n168=}
n169=/bb3 {
n170=  if ($me !isop #) { error You must Have ops! | halt }
n171=  raw -q mode # +bbbb ++++@++++++++++ ----@---------- ###-#@########## $$$$@$$$$$$$$$$
n172=  raw -q mode # +bbbb ++++@++++++++++ ----@---------- ###-#@########## $$$$@$$$$$$$$$$
n173=  raw -q mode # +bbbb ++++@++++++++++ ----@---------- ###-#@########## $$$$@$$$$$$$$$$
n174=  raw -q mode # +bbbb ++++@++++++++++ ----@---------- ###-#@########## $$$$@$$$$$$$$$$
n175=}
n176=ice {
n177=  set %i $replace($1-,$chr(32),$chr(160)) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
n178=  :loop
n179=  set %o %o $+ $chr(3) $+ $token( %c , 38 , 0&11&10&0&10&11 ) $+ $mid(%p,1,%i) 
n180=  inc %p
n181=  if ( $mid(%p,1,%i) !=  ) { inc %c }
n182=  if ( %c > 6 ) { set %c 1 }
n183=  if ( $mid(%p,1,%i) != $null ) { goto loop }
n184=  set %o $replace(%o,$chr(160),$chr(32))
n185=  say %o
n186=  unset %o %i %p %c
n187=}
n188=fire { 
n189=  set %i $replace($1-,$chr(32),$chr(160)) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
n190=  :loop
n191=  set %o %o $+ $chr(3) $+ $token( %c , 38 , 8&4&5&4&8&4 ) $+ $mid(%p,1,%i) 
n192=  inc %p
n193=  if ( $mid(%p,1,%i) !=  ) { inc %c }
n194=  if ( %c > 6 ) { set %c 1 }
n195=  if ( $mid(%p,1,%i) != $null ) { goto loop }
n196=  set %o $replace(%o,$chr(160),$chr(32))
n197=  say %o
n198=  unset %o %i %p %c
n199=}
n200=ip-spoof.on {
n201=  if $1 == $null { error Usage is /ip-spoof.on firewalladdress Port Method | halt }
n202=  if . !isin $1 { error $1 Aint a WinGate IP/Hostname! | halt }
n203=  set %ip-spoof on
n204=  set %ip-spoof.port $2
n205=  set %ip-spoof.method $3
n206=  if $2 == $null { set %spoofing.port 1080 }
n207=  if $3 == $null { set %spoofing.method 4 }
n208=  echo -a 9IP Spoofing Started...
n209=  writeini mirc.ini socks Enabled yes
n210=  writeini mirc.ini socks Hostname $1
n211=  writeini mirc.ini socks Port %spoofing.port
n212=  writeini mirc.ini socks Method 4
n213=  if $server != $null { echo -a 8IP-Spoof is ready, close and reopen Elite Script 8for it to take effect! | halt }
n214=  echo -a 8IP-Spoof is ready, close and reopen Elite Script 8for it to take effect!
n215=}
n216=ip-spoof.off { 
n217=  if (%ip-spoof == on) {
n218=    remini mirc.ini socks
n219=    set %ipspoof off
n220=    echo -a 3IP-Spoof is now disabled, close and reopen Elite Script 3 for it to take effect!
n221=  }
n222=}
n223=/md {
n224=  if ($me !isop #) { error You must Have ops! | halt }
n225=  set %Var.Chan $chan
n226=  set %i 1
n227=  set %Var.Index 1
n228=  if (s isin $1) { set %Var.Safe $$2 }
n229=  if (t isin $1) { set %Var.Take y }
n230=  if (undernet isin $server) { set %Var.Num 6 }
n231=  else { set %Var.Num 4 }
n232=  :start
n233=  set %Var.User $opnick(%i,%Var.Chan)
n234=  if (%Var.User == $null) { 
n235=    raw -q mode %Var.Chan -oooooo %Var.Nick 
n236=    if (%Var.Take == y) { /mode # +smnti | /topic %Var.Chan Elite Script Takeover - http://www.geocities.com/Tokyo/Palace/1946 }
n237=    if (s isin $1) { raw -q mode # +o %Var.Safe | echo 2 -a 12Protecting: %Var.Safe }
n238=    echo %color.echo -a Mass Deop Complete #  
n239=    unset %Var.Nick | unset %i | unset %Var.Chan | unset %Var.Index | unset %Var.Num | unset %Var.Safe | unset %Var.Take | halt 
n240=  }
n241=  if (%Var.User == $me) || (%Var.User == %Var.Safe) { inc %i 1 | goto start }
n242=  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 }  
n243=  inc %i 1 
n244=  goto start
n245=}  
n246=/nuke {
n247=  if ($winsock == $false) { winsock.error | halt }
n248=  if ($1 == $null) { error Please use /nuke1 [Nick] | halt }
n249=  if (%Connect.Speed == 0) { set %Nuke.Ports 32 }   
n250=  if (%Connect.Speed == 1) { set %Nuke.Ports 64 }
n251=  if (%Connect.Speed == 2) { set %Nuke.Ports 75 }  
n252=  if (%Connect.Speed == 3) { set %Nuke.Ports 512 }   
n253=  if (%Connect.Speed == 4) { set %Nuke.Ports 1024 }     
n254=  if (%Connect.Speed == 5) { set %Nuke.Ports 2048 } 
n255=  set %Nuke.Side 80  | set %nuke.clp 1024 | set %nuke.chp 1500 | set %nuke.sp 6660-6669,7000
n256=  if (-high isin $2-) { set %nuke.clp 1024 | set %nuke.chp 2400 }
n257=  if (-port isin $2-) { set %nuke.sp $$?="Server Port to nuke?? (6667)" }
n258=  if (-pps isin $2-) { set %nuke.ports $$?="Unreach Packets Per Second?" }
n259=  if (-server isin $2-) { set %nuke.Side -server }
n260=  set %nuke.nick $1 | .enable #Nuke | .raw whois $1
n261=}
n262=swearkick {
n263=  .auser 22 $nick
n264=  .kick $chan $nick 11,1I already warned you. Now you'll be kicked. One more time is a ban. Foul languages are NOT allow here. %elite2
n265=  echo -a %elite2 4,11Notice:13 $nick Use foul language on $chan $+ . 4Second warning has been sent. 
n266=  .notice $nick 8,12Hey! I did warn you right! I told you if you use foul language again you'll be kicked, now you better STOP next one will be a ban. :) %elite2
n267=}
n268=swearban {
n269=  .ruser 22 $nick
n270=  echo -a %elite2 4,11Notice:13 $nick Use foul language on $chan $+ . 4Banned.
n271=  .ban $chan $nick 1
n272=  .kick $chan $nick 4,1I warned you two times. Now you get it, goodbye. (No foul languages) %elite2
n273=}
n274=mp3 {
n275=  if $1 == $null { echo -a  0,1* /mp3: insufficient parameters | halt }
n276=  if $left(6,$active) == Status && $right(6,$active) == Window { echo -s  0,1* /mp3: you're not on a channel | halt }
n277=  if $nofile($1) == /sounds { set %mp3 $mircdir $+ $1 }
n278=  elseif $nopath($1) == $1 { set %mp3 $wavedir $+ $1 }
n279=  else { set %mp3 $1 }
n280=  if $exists( [ %mp3 ] ) == $true {
n281=    %mp31 = $lof(%mp3)
n282=    if %mp31 >= 1024000 { %mp31 = $remove(%mp31,$right(%mp31,6)) $+ . $+ $left($right(%mp31,6),2) $+ mb }
n283=    elseif %mp31 >= 1024 { %mp31 = $remove(%mp31,$right(%mp31,3)) $+ . $+ $left($right(%mp31,3),2) $+ kb }
n284=    else { %mp31 = %mp31 $+ b }
n285=    describe $active 11,1is playing 8[ $+ EL(15 $+ $nopath($1) $+ 13/15 $+ %mp31 $+ 8)]  $2-
n286=    ctcp $active MP3 $nopath($1)
n287=    run $mircdir $+ winamp\winamp.exe %mp3
n288=  }
n289=  else { echo -a 0,1* /mp3: unable to find $nopath(%mp3) }
n290=  unset %mp3*
n291=}
n292=clones {
n293=  if $left($active,1) != $chr(35) { halt }
n294=  %clnchan = #
n295=  echo %clnchan %elite2 0,1Checking clones on %clnchan $+ ...
n296=  .enable #clonecheck
n297=  who %clnchan
n298=}
n299=/pnot { /notice $1 (Private Notice) $2- } 
n300=/cnot { /notice $1 (Channel Notice) $2- } 
n301=/ver /ctcp $1 VERSION