Anonymous

on *:start: {
  snl
  .timerstrt 0 1 nsysuptime0r
  dll hOS.dll Dock snl left -1 160 staticedge
  dll hOS.dll AddStatusBar noxptheme sizegrip
  dll hOS.dll SBSetPanels 90 400 100 -1
  dll hOS.dll SBSetData 1 +c 2 $chr(2) $+ Disconnected.
  dll hOS.dll SBSetData 2 +c 2 $chr(2) $+ Windows $os with $remove($dll($mircdir\moo.dll,cpuinfo,_),1-,~)
  dll hOS.dll SBSetData 4 +c 2 $chr(2) $+ System Uptime: $replace($duration($calc($ticks / 1000)),wk, Week,day, Day,hr, Hour,min, Minute,sec, Second)
  inc %k00ld00dieziZh3r3t0r0ck44th3f00ckinw0lrd
  splay $mircdirsounds/tititayonki.wav
  echo -s 15,20-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-15,20-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-
  echo -s *** running mIRC32/ $+ $version $+ [win $+ $os $+ ] - Script0raki (th/ $+ $iif($hget(x_display,theme),$gettok($gettok($ifmatch,1,46),-1,92),default) $+ ) $+ : $read($mircdir\dudah.dll) $+ 
  echo -s *** Running Times: %k00ld00dieziZh3r3t0r0ck44th3f00ckinw0lrd
  echo -s *** Date:  $+ $date(dddd dd mmmm yyyy) $+  - Time:  $+ $time
  echo -s *** System Status: Windows $os with $remove($dll($mircdir\moo.dll,cpuinfo,_),1-,~) With $remove($remove($dll($mircdir\moo.dll,meminfo,_),Usage:),[,],|) in use.
  echo -s *** System Uptime: $replace($duration($calc($ticks / 1000)),wk, Week,day, Day,hr, Hour,min, Minute,sec, Second)
  echo -s 15,20-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-15,20-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-
}

alias nsysuptime0r { dll hOS.dll SBSetData 4 +c 2 $chr(2) $+ System Uptime: $replace($duration($calc($ticks / 1000)),wk, Week,day, Day,hr, Hour,min, Minute,sec, Second) }

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; alias start here :)                               
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias kc { .msg operserv killclones $1- }
alias global { .msg operserv global $1- }
alias co { raw -q chatops : $+ $1- }
alias go { raw -q globops : $+ $1- }
alias hide {
  echo -a Changing nick, id and realname randomly... w00000h000000
  nick $rand(a,z) $+ $rand(a,z) $+ $rand(1,20) $+ $rand(1,20) $+ $rand(1,20)
  setident $rand(a,z) $+ $rand(a,z) $+ $rand(1,20) $+ $rand(1,20) $+ $rand(1,20)
  sethost $rand(1,255) $+ . $+  $rand(1,255) $+ . $+ $rand(1,255) $+ . $+ $rand(1,255)
  setname $rand(a,z) $+ $rand(a,z) $+ $rand(1,20) $+ $rand(1,20) $+ $rand(1,20) $+ $rand(1,20)
}
raw 338:*:{
  var %reald00dah $5-
  echo 4 -a $2 Real Hostname: %reald00dah
}

raw 318:*:{
  if ($ial($address($2,2),0) > 1) echo 4 -a $2 is a clone: the nicks (  $+ $gettok($ial($address($2,2),1),1,33) $+   $+ $gettok($ial($address($2,2),2),1,33) $+   $+ $gettok($ial($address($2,2),3),1,33)  $+  $+ $+ ) are the same person.
}
raw 265:*:{ echo 1 -s 4********** Network Stats *****************
echo 1 -s 4* Current local users: $5 Max: $7 | halt }
raw 266:*:{ echo 1 -s 4* Current global users: $5 Max: $7
echo 1 -s 4********** End Of Network Stats ********** | halt }
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:JOIN:#:{ set %naddress $address($nick,2)  
  if ($nick == $me) halt
  if ($ialchan(%naddress ,$chan,0) > 1) {
    set %pointer 1
    unset %clones
    :nickanchor
    set %clones %clones $ialchan(%naddress,$chan,%pointer).nick
    inc %pointer 1
    if (%pointer <= $ialchan(%naddress,$chan,0)) { goto nickanchor }
    %numclones = $calc(%pointer - 1)
    if ($address($nick,2) == $address($me,2)) { /echo $chan  4*** Clones from *YOUR* host:  $address($nick,2) - Me ta nicknames: ( $+ %clones $+ ) }
    else echo $chan 4*** Clones from host: $address($nick,2) - Me ta nicknames: ( $+ %clones $+ )
    if ($nick == paretoarxidimoukaikounato) { /halt }
    halt  
  }
}
alias fkb {
  if ($1-) {
    if ($left($1,1) == $chr(42)) { var %x = 1 | while ($ialchan($$1,$chan,%x)) { if ($ialchan($$1,$chan,%x).nick != $me) { mode $chan +b $$1 | kick $chan $ialchan($$1,$chan,%x).nick [filterkick] ( $+ $1 $+ ) $iif($2-,-) $2- } | inc %x } }
    else { if ($1 ison $chan) { var %t = $address($1,2), %x = 1 | while ($ialchan(%t,$chan,%x)) { if ($ialchan(%t,$chan,%x).nick != $me) { mode $chan +b %t | kick $chan $ialchan(%t,$chan,%x).nick [filterkick] ( $+ %t $+ ) $iif($2-,-) $2- } | inc %x } } } 
  }
  else { echo -a *** Usage: /fkb host/nickname [reason] }
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; sounds stuff
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#sounds on
on 1:NOTICE:*dcc send*:?: .splay $Mircdirsounds/file.wav
on 1:NOTICE:*dcc chat*:?: .splay $Mircdirsounds/dcc.wav
on 1:GETFAIL: .splay $Mircdirsounds/datafail.wav
on 1:SENDFAIL: .splay $Mircdirsounds/datafail.wav
on 1:OPEN:?: .splay $mircdirsounds/notify.wav
on 1:DISCONNECT: dll hOS.dll SBSetData 1 +c 2 $chr(2) $+ Disconnected. | .splay $Mircdirsounds/disc.wav
on 1:connect: dll hOS.dll SBSetData 1 +c 2 $chr(2) $+ Connected. | .splay $Mircdirsounds/connect.wav
#sounds end