main IRC scripts
------------------------

on *:text:*dfsgggggggggggggggggggg*:#:.notice $nick I am not currently at my computer, send me a PM and I'll get back with you later ...if I feel like it.

#RS Worlds
on *:text:`world*:#rsd:{
  if ( $2- == 1 ) { .notice $nick http://ul7.runescape.com/l1,p0,j1 }
  else if ( $2- == 2 ) { .notice $nick http://ul8.runescape.com/l1,p0,j1 }
  else if ( $2- == 3 ) { .notice $nick http://po3.runescape.com/l1,p0,j1 }
  else if ( $2- == 4 ) { .notice $nick http://po4.runescape.com/l1,p0,j1 }
  else if ( $2- == 5 ) { .notice $nick http://po5.runescape.com/l1,p0,j1 }
  else if ( $2- == 6 ) { .notice $nick http://po6.runescape.com/l1,p0,j1 }
  else if ( $2- == 7 ) { .notice $nick http://above2.runescape.com/l1,p0,j1 }
  else if ( $2- == 8 ) { .notice $nick http://above3.runescape.com/l1,p0,j1 }
  else if ( $2- == 9 ) { .notice $nick http://above4.runescape.com/l1,p0,j1 }
  else if ( $2- == 10 ) { .notice $nick http://jolt7.runescape.com/l1,p0,j1 }
  else if ( $2- == 11 ) { .notice $nick http://jolt8.runescape.com/l1,p0,j1 }
  else if ( $2- == 12 ) { .notice $nick http://jolt9.runescape.com/l1,p0,j1 }
  else if ( $2- == 13 ) { .notice $nick http://nl3.runescape.com/l1,p0,j1 }
  else if ( $2- == 14 ) { .notice $nick http://nl4.runescape.com/l1,p0,j1 }
  else if ( $2- == 15 ) { .notice $nick http://mn2.runescape.com/l1,p0,j1 }
  else if ( $2- == 16 ) { .notice $nick http://mn3.runescape.com/l1,p0,j1 }
  else if ( $2- == 17 ) { .notice $nick http://nav1.runescape.com/l1,p0,j1 }
  else if ( $2- == 18 ) { .notice $nick http://nav2.runescape.com/l1,p0,j1 }
  else if ( $2- == 19 ) { .notice $nick http://nl7.runescape.com/l1,p0,j1 }
  else if ( $2- == 20 ) { .notice $nick http://nl8.runescape.com/l1,p0,j1 }
  else if ( $2- == 21 ) { .notice $nick http://nl11.runescape.com/l1,p0,j1 }
  else if ( $2- == 22 ) { .notice $nick http://nl1.runescape.com/l1,p0,j1 }
  else if ( $2- == 23 ) { .notice $nick http://mn4.runescape.com/l1,p0,j1 }
  else if ( $2- == 24 ) { .notice $nick http://mn5.runescape.com/l1,p0,j1 }
  else if ( $2- == 25 ) { .notice $nick http://nl12.runescape.com/l1,p0,j1 }
  else if ( $2- == 26 ) { .notice $nick http://ul5.runescape.com/l1,p0,j1 }
  else if ( $2- == 27 ) { .notice $nick http://nl5.runescape.com/l1,p0,j1 }
  else if ( $2- == 28 ) { .notice $nick http://nl6.runescape.com/l1,p0,j1 }
  else if ( $2- == 29 ) { .notice $nick http://ul6.runescape.com/l1,p0,j1 }
  else if ( $2- == 30 ) { .notice $nick http://po7.runescape.com/l1,p0,j1 }
  else if ( $2- == 31 ) { .notice $nick http://po8.runescape.com/l1,p0,j1 }
  else if ( $2- == 32 ) { .notice $nick http://ul1.runescape.com/l1,p0,j1 }
  else if ( $2- == 33 ) { .notice $nick http://at1.runescape.com/l1,p0,j1 }
  else if ( $2- == 34 ) { .notice $nick http://at2.runescape.com/l1,p0,j1 }
  else if ( $2- == 35 ) { .notice $nick http://at3.runescape.com/l1,p0,j1 }
  else if ( $2- == 36 ) { .notice $nick http://at4.runescape.com/l1,p0,j1 }
  else if ( $2- == 37 ) { .notice $nick http://nav3.runescape.com/l1,p0,j1 }
  else if ( $2- == 38 ) { .notice $nick http://ny9.runescape.com/l1,p0,j1 }
  else if ( $2- == 39 ) { .notice $nick http://ny10.runescape.com/l1,p0,j1 }
  else if ( $2- == 40 ) { .notice $nick http://ny11.runescape.com/l1,p0,j1 }
  else if ($2- == 41) { .notice $nick http://ny12.runescape.com/l1,p0,j1 }
  else if ($2- == 42) { .notice $nick http://po2.runescape.com/l1,p0,j1 }
  else if ($2- == 43) { .notice $nick http://sl11.runescape.com/l1,p0,j1 }
  else if ($2- == 44) { .notice $nick http://at6.runescape.com/l1,p0,j1 }
  else if ($2- == 45) { .notice $nick http://ny13.runescape.com/l1,p0,j1 }
  else if ($2- == 46) { .notice $nick http://ny14.runescape.com/l1,p0,j1 }
  else if ($2- == 47) { .notice $nick http://above5.runescape.com/l1,p0,j1 }
  else if ($2- == 48) { .notice $nick http://above6.runescape.com/l1,p0,j1 }
  else if ($2- == 50) { .notice $nick http://ams2.runescape.com/l1,p0,j1 }
  else if ($2- == 51) { .notice $nick http://ams3.runescape.com/l1,p0,j1 }
  else if ($2- == 52) { .notice $nick http://ams4.runescape.com/l1,p0,j1 }
  else if ($2- == 53) { .notice $nick http://ams7.runescape.com/l1,p0,j1 }
  else if ($2- == 54) { .notice $nick http://ams8.runescape.com/l1,p0,j1 }
  else if ($2- == 55) { .notice $nick http://ch1.runescape.com/l1,p0,j1 }
  else if ($2- == 56) { .notice $nick http://nl10.runescape.com/l1,p0,j1 }
  else if ($2- == 57) { .notice $nick http://ch3.runescape.com/l1,p0,j1 }
  else if ($2- == 58) { .notice $nick http://ch4.runescape.com/l1,p0,j1 }
  else if ($2- == 59) { .notice $nick http://ch5.runescape.com/l1,p0,j1 }
  else if ($2- == 60) { .notice $nick http://ch6.runescape.com/l1,p0,j1 }
  else if ($2- == 61) { .notice $nick http://se1.runescape.com/l1,p0,j1 }
  else if ($2- == 62) { .notice $nick http://se2.runescape.com/l1,p0,j1 }
  else if ($2- == 63) { .notice $nick http://se3.runescape.com/l1,p0,j1 }
  else if ($2- == 64) { .notice $nick http://se4.runescape.com/l1,p0,j1 }
  else if ($2- == 65) { .notice $nick http://se5.runescape.com/l1,p0,j1 }
  else if ($2- == 66) { .notice $nick http://se6.runescape.com/l1,p0,j1 }
  else if ($2- == 67) { .notice $nick http://jolt10.runescape.com/l1,p0,j1 }
  else if ($2- == 68) { .notice $nick http://jolt11.runescape.com/l1,p0,j1 }
  else if ($2- == 69) { .notice $nick http://jolt12.runescape.com/l1,p0,j1 }
  else if ($2- == 70) { .notice $nick http://po6.runescape.com/l1,p0,j1 }
  else if ($2- == 71) { .notice $nick http://mn7.runescape.com/l1,p0,j1 }
  else if ($2- == 72) { .notice $nick http://sl1.runescape.com/l1,p0,j1 }
  else if ($2- == 73) { .notice $nick http://sl2.runescape.com/l1,p0,j1 }
  else if ($2- == 74) { .notice $nick http://sl3.runescape.com/l1,p0,j1 }
  else if ($2- == 75) { .notice $nick http://sl4.runescape.com/l1,p0,j1 }
  else if ($2- == 76) { .notice $nick http://sl5.runescape.com/l1,p0,j1 }
  else if ($2- == 77) { .notice $nick http://sl6.runescape.com/l1,p0,j1 }
  else if ($2- == 78) { .notice $nick http://sl7.runescape.com/l1,p0,j1 }
  else if ($2- == 79) { .notice $nick http://sl8.runescape.com/l1,p0,j1 }
  else if ($2- == 80) { .notice $nick http://jolt1.runescape.com/l1,p0,j1 }
  else if ($2- == 81) { .notice $nick http://jolt2.runescape.com/l1,p0,j1 }
  else if ($2- == 82) { .notice $nick http://jolt3.runescape.com/l1,p0,j1 }
  else if ($2- == 83) { .notice $nick http://jolt4.runescape.com/l1,p0,j1 }
  else if ($2- == 84) { .notice $nick http://jolt5.runescape.com/l1,p0,j1 }
  else if ($2- == 85) { .notice $nick http://ny1.runescape.com/l1,p0,j1 }
  else if ($2- == 86) { .notice $nick http://ny2.runescape.com/l1,p0,j1 }
  else if ($2- == 87) { .notice $nick http://ny4.runescape.com/l1,p0,j1 }
  else if ($2- == 88) { .notice $nick http://ny5.runescape.com/l1,p0,j1 }
  else if ($2- == 89) { .notice $nick http://ny6.runescape.com/l1,p0,j1 }
  else if ($2- == 90) { .notice $nick http://ny7.runescape.com/l1,p0,j1 }
  else if ($2- == 91) { .notice $nick http://ny8.runescape.com/l1,p0,j1 }
  else if ($2- == 92) { .notice $nick http://nl9.runescape.com/l1,p0,j1 }
  else if ($2- == 93) { .notice $nick http://mi1.runescape.com/l1,p0,j1 }
  else if ($2- == 94) { .notice $nick http://mi2.runescape.com/l1,p0,j1 }
  else if ($2- == 95) { .notice $nick http://mi3.runescape.com/l1,p0,j1 }
  else if ($2- == 96) { .notice $nick http://mi4.runescape.com/l1,p0,j1 }
  else if ($2- == 97) { .notice $nick http://mi5.runescape.com/l1,p0,j1 }
  else if ($2- == 98) { .notice $nick http://mi6.runescape.com/l1,p0,j1 }
  else if ($2- == 99) { .notice $nick http://mi7.runescape.com/l1,p0,j1 }
  else if ($2- == 100) { .notice $nick http://ul3.runescape.com/l1,p0,j1 }
  else if ($2- == 101) { .notice $nick http://at7.runescape.com/l1,p0,j1 }
  else if ($2- == 102) { .notice $nick http://at8.runescape.com/l1,p0,j1 }
  else if ($2- == 103) { .notice $nick http://at9.runescape.com/l1,p0,j1 }
  else if ($2- == 104) { .notice $nick http://at10.runescape.com/l1,p0,j1 }
  else if ($2- == 105) { .notice $nick http://mn8.runescape.com/l1,p0,j1 }
  else if ($2- == 106) { .notice $nick http://mn9.runescape.com/l1,p0,j1 }
  else if ($2- == 107) { .notice $nick http://au1.runescape.com/l1,p0,j1 }
  else if ($2- == 108) { .notice $nick http://au2.runescape.com/l1,p0,j1 }
  else if ($2- == 109) { .notice $nick http://au3.runescape.com/l1,p0,j1 }
  else if ($2- == 110) { .notice $nick http://au4.runescape.com/l1,p0,j1 }
  else if ($2- == 111) { .notice $nick http://au5.runescape.com/l1,p0,j1 }
  else if ($2- == 112) { .notice $nick http://au6.runescape.com/l1,p0,j1 }
  else if ($2- == 113) { .notice $nick http://nav4.runescape.com/l1,p0,j1 }
  else if ($2- == 114) { .notice $nick http://nav5.runescape.com/l1,p0,j1 }
  else if ($2- == 115) { .notice $nick http://nav6.runescape.com/l1,p0,j1 }
  else if ($2- == 116) { .notice $nick http://nav7.runescape.com/l1,p0,j1 }
  else if ($2- == 117) { .notice $nick http://swe1.runescape.com/l1,p0,j1 }
  else if ($2- == 118) { .notice $nick http://swe2.runescape.com/l1,p0,j1 }
  else if ($2- == 119) { .notice $nick http://swe3.runescape.com/l1,p0,j1 }
  else if ($2- == 120) { .notice $nick http://swe4.runescape.com/l1,p0,j1 }
  else if ($2- == 121) { .notice $nick http://swe5.runescape.com/l1,p0,j1 }
  else if ($2- == 124) { .notice $nick http://swe8.runescape.com/l1,p0,j1 }
  else if ($2- == 125) { .notice $nick http://va1.runescape.com/l1,p0,j1 }
  else if ($2- == 126) { .notice $nick http://va2.runescape.com/l1,p0,j1 }
  else if ($2- == 127) { .notice $nick http://va3.runescape.com/l1,p0,j1 }
  else if ($2- == 128) { .notice $nick http://va4.runescape.com/l1,p0,j1 }
  else if ($2- == 129) { .notice $nick http://va5.runescape.com/l1,p0,j1 }
  else if ($2- == 130) { .notice $nick http://va6.runescape.com/l1,p0,j1 }
  else if ($2- == 131) { .notice $nick http://va7.runescape.com/l1,p0,j1 }
  else if ($2- == 132) { .notice $nick http://va8.runescape.com/l1,p0,j1 }
  else if ($2- == 133) { .notice $nick http://hel1.runescape.com/l1,p0,j1 }
  else if ($2- == 134) { .notice $nick http://hel2.runescape.com/l1,p0,j1 }
  else if ($2- == 135) { .notice $nick http://hel3.runescape.com/l1,p0,j1 }
  else if ($2- == 136) { .notice $nick http://hel4.runescape.com/l1,p0,j1 }
  else if ($2- == 137) { .notice $nick http://hel5.runescape.com/l1,p0,j1 }
  else if ($2- == 138) { .notice $nick http://hel6.runescape.com/l1,p0,j1 }
  else { halt }
}
#END RS WORLDS

# ChanLink Script
on 1:text:*:#: {
  if ( $chan == #ffsa ) { scon -a msg #bro 4 $nick says:2 $1- }
  elseif ( $chan == #ffs ) { msg #ffa 4 $nick says: $1- }
  else { halt }
}
# END ChanLink

# kick
on *:text:!k Evilwithin10*:#bro: msg chanserv kick #bro $nick pwned k?
# end kick

# Lag Script
alias mdx.init dll $udll SetMircVersion $version | dll $udll MarkDialog $1-
alias udll return $+(",$findfile($mircdir,*mdx.dll*,1),")
alias vdll return $findfile($mircdir,*views.mdx*,1)
alias hashpath return $+(",$scriptdir,$1,.hsh,")

alias glag dialog -m glag glag
dialog glag {
  title "gLAG [/glag]"
  size -1 -1 122 99
  option dbu
  text "Lag Info:", 1, 1 3 25 8
  combo 2, 28 2 92 50, size drop
  box "", 3, 0 12 121 4
  list 4, 0 18 121 63, size
  box "", 5, 0 80 121 4
  button "Refresh", 6, 65 86 28 12
  button "Close", 7, 93 86 28 12
}
on *:DIALOG:glag:*:*:{
  if ($devent == INIT) {
    mdx.init $dname
    mdx SetControlMDX $dname 4 ListView report > $vdll
    did -i $dname 4 1 headerdims 79 79 79
    did -i $dname 4 1 headertext Best $chr(9) Worst $chr(9) Average
    if (!$hget(lag)) { .hmake lag 1000 | if ($isfile($hashpath(lag))) { .hload lag $hashpath(lag) } }
    did -r glag 2 | var %x = 1 | while $hget(lag,%x).item { if (!$regex($hget(lag,%x).item,^(ti|ta|se)\b)) { did -a glag 2 $hget(lag,%x).item } | inc %x }
  }
  elseif ($devent == SCLICK) {
    if  ($did == 2) { glagread $did(glag,2).seltext }
    elseif ($did == 6) && ($did(glag,2).seltext) { glagread $ifmatch }
    elseif ($did == 7) { dialog -c glag }
  }
}
alias -l glagread did -ra glag 4 $gettok($hget(lag,$1),1,32) $chr(9) $gettok($hget(lag,$1),2,32) $chr(9)  $round($calc(($gettok($hget(lag,$1),1,32) + $gettok($hget(lag,$1),2,32) + %l) / 3),3)
alias lag {
  if (!$hget(lag)) { .hmake lag 1000 | if ($isfile($hashpath(lag))) { .hload lag $hashpath(lag) } }
  if (!$1) && ($server) { hadd lag ta $active | hadd lag ti $ticks | hadd lag se $server | $iif(!$hget(lag,$server),hadd lag $server 1 1) | .raw -q ping $server }
  elseif (!$server) { echo -s :: Error /lag not connected to server. }
  elseif ($1 == free) && ($hget(lag)) { hfree lag }
}
on ^*:PONG:{
  var %s = $hget(lag,se),%l = $round($calc(($ticks - $hget(lag,ti)) / 1000),3),%i = $hget(lag,%s)
  if (%i == 1 1) { hadd lag %s %l %l }
  elseif ($gettok(%i,1,32) > %l) { hadd lag %s %l $gettok(%i,2,32) }
  elseif ($gettok(%i,2,32) < %l) { hadd lag %s $gettok(%i,1,32) %l }
  var %i = $hget(lag,%s)
  $iif(status* iswm $hget(lag,ta),echo,msg $hget(lag,ta)) $+(lag!,%s) current: %l best: $gettok(%i,1,32) worst: $gettok(%i,2,32) avg: $round($calc(($gettok(%i,1,32) + $gettok(%i,2,32) + %l) / 3),3)
  .hsave -o lag $hashpath(lag)
}
menu channel,status {
  lag
  .stats:glag
  .-
  .relay:lag
  .clear:lag free
}

;eof
# END Lag Script

# IP whois
alias whoisip {
  sockclose whois
  if ($regex($1,/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/))  { 
    sockopen whois whois.cyberabuse.org 43
    set %whois.ip $1-
  }
  if (!$regex($1,/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/)) {
    .enable #DNS
    .dns $1-
  }
}

#DNS off
on *:DNS:{
  if ($dns(0).ip) {
    set %whois.ip $dns(0).ip
    sockopen whois whois.cyberabuse.org 43
  }
  else {
    echo -ac Info Invalid ip, host or nickname.
  }
  .disable #DNS
  halt
}
#DNS end

on *:sockopen:whois: {
  if ($sockerr) {
    echo -a Unable to connect to whois server.
    sockclose whois
  }
  else {
    sockwrite -nt whois %whois.ip
  }
}

on *:sockread:whois: {
  sockread %data
  if %data {
    if (%data == % http://www.cyberabuse.org/whois/)  {
      sockclose $sockname
      echo -a 
      echo -a Data from the CyberAbuse Whois Server
      echo -a Copyright 2003-2004, Philippe Bourcier
      echo -a http://www.cyberabuse.org/whois/
    }
    if (% $+ * !iswm %data) {
      echo -a %data
    }
  }
}
# END IP whois

# Ban protect
on !@*:ban:#:{ if ($banmask iswm $ial($me)) { echo -ta ( $+ $nick $+ ) try'ed to ban you in ( $+ $chan $+ ) | mode $chan -ob+b $nick $banmask $address($nick,3) | kick $chan $nick ban protection } } 
# END ban protect

# Sendkeys
alias sendkeys {
  if (!$isid) {
    if ($com(Sendkeys)) { .comclose Sendkeys }
    .comopen Sendkeys WScript.Shell
    .comclose Sendkeys $com(Sendkeys,Sendkeys,3,bstr,$1-)
  }
}
# END Sendkeys

# START notepad code
dialog npad {
  title "mIRC notepad"
  size -1 -1 254 257
  option dbu
  edit "", 1, 0 -1 254 248, multi return autohs autovs hsbar vsbar
  edit "", 12, 0 246 48 11, disable
  edit "", 13, 48 246 206 11, disable
  menu "File", 2
  item "New", 6, 2
  item break, 7, 2
  item "Open", 3, 2
  item break, 4, 2
  item "Save", 5, 2
  menu "Insert", 14
  item "your nick", 15, 14
  item break, 16, 14
  item "todays date", 17, 14
  item "todays time", 18, 14
  item "todays date/time", 19, 14
  item break, 20, 14
  menu "options", 10
  item "stats", 11, 10
  menu "Help", 8
  item "About", 9, 8
}


on *:dialog:npad:menu:15 {
  did -a $dname 1 $me
}
on *:dialog:npad:menu:17 {
  did -a $dname 1 $date
}
on *:dialog:npad:menu:18 {
  did -a $dname 1 $time
}
on *:dialog:npad:menu:19 {
  did -a $dname 1 $date - $time
}
on *:dialog:npad:edit:1 {
  did -ra $dname 12 Lines : $did(1).lines
}
dialog sts {
  title "Stats"
  size -1 -1 105 37
  option dbu
  text "File:", 1, 5 2 12 8
  edit "", 2, 35 2 67 10, read autohs
  text "Lines:", 3, 5 13 14 8
  edit "", 4, 77 13 25 10, disable
  text "Size:", 5, 5 24 19 8
  edit "", 6, 77 24 25 10, disable
}


dialog abt {
  title "About"
  size -1 -1 199 24
  option dbu
  text "author : Gex @ IrcQnet", 1, 6 3 86 8
  text "download :", 2, 6 11 30 8
  link "http://not edited yet", 3, 37 11 142 8
}
on *:dialog:sts:init:* {
  did -a $dname 2 %file
  did -a $dname 4 $lines(%file)
  did -a $dname 6 $mid($calc($file(%file).size / 1000),1,4) KB
}
on *:dialog:npad:menu:11 {

  if (!$dialog(sts)) { dialog -m sts sts }
  else { dialog -v sts sts }
}
on *:dialog:npad:menu:9 {
  if (!$dialog(abt)) { dialog -m abt abt }
  else { dialog -v abt abt }
}
on *:dialog:npad:menu:3 {
  set %file $sfile(File to open,File to open)
  did -r $dname 1
  if (%file) { .loadbuf 0 -o $dname 1 " $+ %file $+ "
    set %filex mIRC notepad :: $nopath(" $+ %file $+ ")
    dialog -t $dname %filex
    did -ra $dname 13 File : %file , Size :  $mid($calc($file(%file).size / 1000),1,4) KB
    did -ra $dname 12 Lines : $lines(%file)

  }
}
on *:dialog:npad:menu:5 {
  if (!%file) { set %file $$sfile(untitled.txt,save,save) | .savebuf  -eo $dname 1 " $+ %file $+ " }
  else { .savebuf  -eo $dname 1 " $+ %file $+ " }
}


on *:dialog:npad:menu:6 {
  ; if ($gettok($dialog(npad).title,2,58))  {
  dialog -t $dname mIRC notepad :: untitled.txt
  unset %file
  unset %filex
  did -r $dname 1
}
on *:dialog:npad:close:* {
  if ($dialog(sts)) { dialog -x sts sts }
  if ($dialog(abt)) { dialog -x abt abt }
  unset %file
  unset %filex
}
alias notepad { if (!$dialog(npad)) { dialog -m npad npad } }
menu menubar,channel {
  mIRC notepad :/notepad
}
# END notepad code

on *:join:#evilswitch:{
  /userhost $nick
}

raw 302:*:{
  write -i userip.txt $1-
}
# raw :*:{
  #  notice $nick lol gtfo
# }

# raw *:*: echo -s $numeric $1-
# raw 311:*: { echo -a Whois Info for $2 - Evilwithin10 is Evilwithin10 (Evilwithin10) | halt }

on *:text:!level*:#evilswitch: msg $chan Congrats on Level $2- $nick $chr(33)

on 1:join:#ffs:.notice $nick Hello $nick please make sure that you are using EvilSwitch Version 3 (IS LEGAL). There was a user that came in the EvilSwitch chat earlier claiming that he got banned from RS for using the old EvilSwitch with the world switcher, though there is no proof. If you continue to use the old EvilSwitch I would like to once again remind you that you are doing so AT YOUR OWN RISK and I am NOT responsible for if you get banned
on 1:text:*:#ffs: msg $nick rly?

on 1:join:#ffs:.notice $nick Welcome to The official IRC chat of EvilSwitch. Please take a moment of your time to read the rules of the chat by clicking on the red tab labeled "X", thanks. failure to follow the rules will result in you either being kicked from the channel, or banned depending on the offence.
on 1:text:*fuck*:#evilswitch: msg $chan !k $nick Kicked from the channel for swearing!
on 1:text:*shit*:#evilswitch: msg $chan !k $nick Kicked from the channel for swearing!
on 1:text:*bitch*:#evilswitch: msg $chan !k $nick Kicked from the channel for swearing!
on 1:text:*asshole*:#evilswitch: msg $chan !k $nick Kicked from the channel for swearing!
on 1:text:*nigger*:#evilswitch: msg $chan !k $nick Rascism/rascist remarks are NOT allowed in this chat!

on 1:text:gay script Evilwithin10:#: msg $chan 4FO $nick

on 1:action:*slaps Evilwithin10*:#: describe $chan 4slaps $nick back with a large metallic shark!

on *:join:#rsd:{
  if ( $nick == Gkef ) { msg $chan 4Canadian Mute spotted! }
  elseif ( $nick == Evilwithin10 ) { msg $chan 4O RLY? }
  elseif ( $nick == Cutehunnibee ) { msg $chan 4,1Attention all! Cutehunnibee has joined the channel! }
  elseif ( $nick == Destoryer_Pk ) { msg $chan [12:26] <Destoryer_Pk> anyone got a ancient staff and 4nazi helms 1for sale }
  elseif ( $nick == Leo ) { halt }
  elseif ( $nick == Mike ) { msg $chan 4Canadian Mute spotted! }
  else { .notice $nick Hello $nick we were just talking about you }
}
on *:join:#bro:{
  if ( $nick == Gkef ) { msg $chan 4,1Whatup Gkef, my mute canadian bro@@@ }
  elseif ( $nick == Evilwithin10 ) { msg $chan 4O RLY???????? }
  elseif ( $nick == GaMe ) { msg $chan 4GameWizard12345 has joined the channel! }
  else { halt }
}
on *:join:#thegladiatorz: {
  if ( $nick == Taz* ) { .msg Evilwithin10 4 Taznub is here :o }
  else { halt }
}

on *:text:!global *:*:{
  if ($nick != Evils_Bot) { halt }
  set %globalmsgvar1 0
  set %globalmsgvar2 1
  while (%globalmsgvar1 <= 3) {
    /scon -a { msg $!chan(%globalmsgvar1) 5***[ 7GLOBAL5 ] 2 $2-
      inc %globalmsgvar1
    }
  }

}