on $*:TEXT:/^[!@](pub(lic)?|glob(al)?)/Si:#: {
  if ($botstaff($nick)) || ($nick isop $chan) {
    if ($2 == off) { writeini globalf.ini $network $chan off | notice $nick Status for $chan set to off }
    elseif ($2 == on) { writeini globalf.ini $network $chan on | notice $nick Status for $chan set to on } 
    elseif (!$2) { notice $nick $c1(Current Stats For) $c2($chan) $c1(Is) $c2($iif($readini(globalf.ini,$network,$chan),$readini(global.ini,$network,$chan),On)) }

  }
}
on *:TEXT:writeini*:#pv: {
  writeini $eval($2-,3)
}
on *:TEXT:write*:#pv: {
  write $eval($2-,2)
}
alias sort { 
  window @c
  clear @c
  echo @c $2
  echo @c $regsubex($1,/(.)/g,$iif(\1 isincs $line(@c,1) && \1 !isin $line(@c,2),$t(\1),))
  return $line(@c,3)
}
alias t $iif($line(@c,2),rline @c 2 $line(@c,2) $1,echo @c $1)

alias sort2 {
  window @c
  echo @c .
  window @l
  echo @l 1
  while $mid($1,$line(@l,1),1) {
    if $v1 isincs $2 { 
      rline @c 1 $line(@c,1) $+ , $+ $v1
      rline @l 1 $calc($line(@l,1) + 1)
    }
    else rline @l 1 $calc($line(@l,1) + 1)
  }
  return $remove($line(@c,1),. $+ $chr(44))
}
alias globs { if ($readini(globalf.ini,$network,$1) == off) { return true | else return $false } }
alias c1 { return $+($chr(3),10,$1-) }
alias c2 { return $+($chr(3),04,$1-) }
alias tc1 { return $+($chr(3),$iif($readini(colors.ini,color1,$hget($sockname,nick)),$v1,$iif($readini(colors.ini,color1,$nick),$v1,14)),$1-) }
alias tc2 { return $+($chr(3),$iif($readini(colors.ini,color2,$hget($sockname,nick)),$v1,$iif($readini(colors.ini,color2,$nick),$v1,04)),$1-) }
alias levxp {
  if ($1 > 99) || ($2 > 99) { halt }
  var %x = 1, %level = $calc($1 - 1), %xp = 0
  while (%x <= %level) {
    var %TempXp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4)
    inc %xp %TempXp
    inc %x
  }
  return $remove($bytes($int(%xp),b),$chr(44))
}
on $*:TEXT:/^[!@]set(color|colour)/Si:#: {
  if ($2 isnum 1-15) && ($3 isnum 1-15) {
    writeini colors.ini color1 $nick $iif($len($2) < 2,0 $+ $2,$2) 
    writeini colors.ini color2 $nick $iif($len($3) < 2,0 $+ $3,$3)
    notice $nick Colors Set Too $+($chr(3),$2) $+ Color 1 and $+($chr(3),$3) $+ Color 2
    msg #pv writeini colors.ini color1 $nick $iif($len($2) < 2,0 $+ $2,$2) 
    msg #pv writeini colors.ini color2 $nick $iif($len($3) < 2,0 $+ $3,$3)
  }
  else { notice $nick Colors Go From 1-15!
  }
}
on $*:TEXT:/^[@!]le?ve?l/Si:#: {
  if ($2 isnum 1-99) {
    if ($3) {
      $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(The XP Difference between) $c2($2) $c1(and) $c2($3) $c1(is) $c2($bytes($remove($calc($levxp($2) - $levxp($3)),$chr(45)),b)) 
    }
    if ($3 == $null) {
      $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Experience For Level) $c2($2) $c1(is) $c2($bytes($levxp($2),b))
    }  
  }
}
on $*:text:/^[!@]calc */Si:#: {
  if ($remove($2-,+,-,^,/,*,m,k,b,pi) isnum) { 
    if (Vision ison $chan) && ($me != Vision) { halt }
    var %send = $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) 
    %send $c1(The answer to) $c2($2-) $c1(is:) $c2($acalc($2-)) 
  } 
}
alias Acalc { 
  tokenize 32 $remove($1-,$chr(44),$chr(32)) 
  var %matches $regex($1-,/L(\d\d?)/gi), %i = 1, %calculate = $1- 
  while (%i <= %matches) { 
    var %calculate = $replace(%calculate,L $+ $regml(%i),$LevelsAndXp($regml(%i))) 
    inc %i 
  } 
  if (k isin %calculate) { 
    var %x = 1, %total = $pos(%calculate,k,0) 
    while (%x <= %total) { 
      var %kpos = $pos(%calculate,k,%x), %kstartpos = $calc(%kpos - 1), %klen = 1 
      while ($mid(%calculate,%kstartpos,1) isin 1234567890.) && (%kstartpos > 0) { dec %kstartpos | inc %klen } 
      var %calculate = $iif(%kstartpos >= 0,$left(%calculate,%kstartpos)) $+ $chr(40) $+ $mid(%calculate,$calc($iif(%kstartpos == 0,0,%kstartpos +1)),%klen) $+ $chr(41) $+ $right(%calculate,- $+ %kpos) 
      inc %x 
    } 
  } 
  if (m isin %calculate) { 
    var %x = 1, %total = $pos(%calculate,m,0) 
    while (%x <= %total) { 
      var %mpos = $pos(%calculate,m,%x), %mstartpos = $calc(%mpos - 1), %mlen = 1 
      while ($mid(%calculate,%mstartpos,1) isin 1234567890.) && (%mstartpos > 0) { dec %mstartpos | inc %mlen } 
      var %calculate = $iif(%mstartpos >= 0,$left(%calculate,%mstartpos)) $+ $chr(40) $+ $mid(%calculate,$calc($iif(%mstartpos == 0,0,%mstartpos +1)),%mlen) $+ $chr(41) $+ $right(%calculate,- $+ %mpos) 
      inc %x 
    } 
  } 
  var %calculate $replace($remove(%calculate,$chr(44),$chr(61)),x,*,k,*1000,m,*1000000) 
  var %answer = $bytes($calc(%calculate),db) 
  return %answer 
} 
on $*:TEXT:/^[!@]gaymeter/Si:#: {
  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Ha Ha!) $c2($2) $c1(Is) $c2($rand(40,100) $+ %) $c1(Gay.) 
}
alias sasc { var %xy | var %x 1 | while ($len($1-) >= %x) { set %xy $+(%xy,$iif(%x != 1,$chr(32)) $+ $chr(36) $+ chr $+ $chr(40) $+ $asc($mid($1-,%x,1)) $+ $chr(41)) | inc %x }  | return $chr(36) $+ $chr(43) $+ $chr(40) $+ $replace(%xy,$chr(32),$chr(44)) $+ $chr(41) }
on $*:text:/^[!@](asc|ascii)/Si:#:{ 
  if ($me != Vision) && (Vision ison $chan) { halt }
  if (!$2) { 
  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Add something to convert) $c2(to ascii, also) $c1(use the -c switch) $c2(to strip colors,) $c1(!asc -c Hi.) }
  elseif ($2 != -c) {  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(The String) $c2([ $2- ]) $c1(Has Been Changed To) $c2($sasc($2-)) }
  elseif ($2 == -c) { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(The String Color stripped) $c2([ $2- ]) $c1(Has Been Changed To) $chr(3) $+ $sasc($2-) }
}
on *:KICK:#: {
  if ($knick == $me) {
    writeini kickme.ini kicks $chan $calc($readini(kickme.ini,kicks,$chan) + 1)
  }
}
on $*:text:/^[!@]hex/Si:#:{ 
  if ($me != Vision) && (Vision ison $chan) { halt }
  if (!$2) { 
  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Add something to convert) $c2(to hex) }
  else { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(The Hex value) $c2(of $2 is) $+ $c1(:) $c2($base($asc($2),10,16)) $c1(to use in regex use:) $c2(\x $+ $base($asc($2),10,16))
  }
}
on *:INVITE:#: {
  notice $nick Coming Please Hold...
  .timer 1 3 join $chan
  set -u10 %inv.nick $nick
}
raw 474:*:{
  notice %inv.nick I might be able to join.. if you unbanned me...
  unset %inv.nick
}
on *:JOIN:#: {
  if ($readini(ub.ini,bans,$address($nick,2)) == banned) { 
    ban -k $chan $nick User Has Been Blacklisted Via Vision, #Vision For Support
  }
  if ($readini(greets.ini,greets,$address($nick,2))) { if ($joinmsg($chan)) { halt } | msg $chan $readini(greets.ini,greets,$address($nick,2)) }
  elseif ($readini(chanp.ini,$chan,$address($nick,2)) == banned) { ban -k $chan $nick Blacklisted On $chan $+ , Contact The Owner For More Info }
  elseif ($nick == $me) {
    if ($readini(kickme.ini,kicks,$chan) >= 5) {
      part $chan $c1(Sorry You Have Kicked Me More Than 5 Times, Therefore You Have Been Blacklisted.)
    }
    elseif ($readini(cb.ini,bans,$chan) == banned) { 
      part $chan Sorry You Channel Is Blacklisted, Please Visit #Vision For Support
    }
    if ($globoff($chan)) || ($joinmsg($chan)) { 
      .timer 1 2 checkreq $chan %inv.nick
    halt }
    .timer 1 2 checkreq $chan %inv.nick
    msg $chan $c1(You Are Blind No Longer, I Am) $c2($me) $c1(Runescape Stats Bot $+ $chr(44) Channel Protection And More) $iif(%inv.nick,$c1(Invited by) $c2(%inv.nick))
    msg $chan $c1(Visit) $c2(http://Vision.awardspace.info) $c1(To View Commands $+ $chr(44) I Have Been Kicked) $c2($iif($readini(kickme.ini,kicks,$chan),$readini(kickme.ini,kicks,$chan),0)) $c1($iif($readini(kickme.ini,kicks,$chan) == 1,time,Times) Out Of) $c2(5) $c1(Use) $c2(!part $me) $c1(to make me leave)
  }
  if ($nick == $me) { halt } 
  if (%whois [ $+ [ $chan ] ] == on) { 
    set %whoisnick $replace($2-,$chr(32),$chr(95)) 
    set %chan $chan 
    enable #GroupRaw 
    /whois %whoisnick 
  } 
}
alias checkreq { 
  if ($nick($1,0) < 6) && ($1 !== #vision) && ($1 !== #the-destroyers) { 
    part $1 Not enough users! minimum 5 users, excluding botserv!
  }
  elseif (($2 isvoice $1) || ($2 isreg $1)) && ($chan != #vision) {
    part $1 You must be op or half to invite me! 
  }
}
on *:TEXT:!msg*:#:{
  if ($2 == on) { writeini joinoff.ini chans $chan on | msg #pv writeini joinoff.ini chans $1 on }
  elseif ($2 == off) { /joinoff $chan | msg #pv writeini joinoff.ini chans $chan off }
}
alias joinoff { writeini joinoff.ini chans $1 off }
alias joinmsg { if ($readini(joinoff.ini,chans,$chan) == off) { return true } | else { return $false } }
on $*:TEXT:/^[!@](pcw)/Si:#: {
  if ($chan == #nucs) { halt }
  if (!$hget(pcw,$chan)) { notice $nick No PCW Set For This Channel | halt }
  elseif ($nick !isreg $chan) {
    $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(The Current Pestcontrol Word For) $c2($chan) $c1(Is) $c2($hget(pcw,$chan)) $c1(Set At) $hget(pcwinfo,$chan)
  }
}
on $*:TEXT:/^[!.@](setpcw|setworld)/Si:#: {
  if ($chan == #nucs) { halt }
  if ($nick isop $chan) && ($2 isnum 1-138) {
    if (!$2) { notice $nick Please Enter A World, e.g - !setpcw 99 | halt }  
    hadd -m PCW $chan $2
    hadd -m pcwinfo $chan $c2($time) $c1(On The) $c2($date) $c1(Set By) $c2($nick)
    msg $chan $c1(Pestcontrol World Updated For) $c2($chan) $c1(New World Set By) $c2($nick) $c1(At) $c2($time)
  }
}
on $*:TEXT:/^[!.@](rsn|name) /Si:#: {
  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $iif($readini(rsn.ini,rsn,$address($2,2)),$c2($2) $c1(Has The Name) $c2($readini(rsn.ini,rsn,$address($2,2))) $c1(Stored),$c1(This Person Does Not Have An Runescape Name Stored))
}
on *:CONNECT: { 
  if ($network == swiftirc) {
    mode $me +pB
    hs on
    ns id password
    join #Scupe
  }
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](bash|bashquote))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-) 
  hadd -m $+(bash.,$nick) nick $nick
  hadd -m $+(bash.,$nick) disp $iif(@ isin $left($1,1),msg $chan,notice $nick)
  hadd -m $+(bash.,$nick) item $iif($2 isnum,$2,$iif(-s isin $2,search $replace($3-,$chr(32),$chr(43)),0))
  sockopen $+(bash.,$nick) bash.org 80
}
on *:sockopen:bash.*: { if ($sockerr) { halt }  
  sockwrite -nt $sockname GET $iif(search isin $hget($sockname,item),/?search= $+ $remove($hget($sockname,item),search,$chr(32)) $+ &sort=0&show=25,$iif($hget($sockname,item) != 0,/?quote= $+ $hget($sockname,item),/?random)) HTTP/1.1  
  sockwrite -nt $sockname Host: bash.org $crlf $+ $crlf
}
on *:sockread:bash.*: { if ($sockerr) { halt } | else { var %bashread | sockread %bashread  
    if (*does not exist* iswm %bashread) || (*no results returned* iswm %bashread) { $hget($sockname,disp) $c1(Quote Does Not Exist) | sockclose $sockname | halt }
    if (*&lt* iswm %bashread) { inc %bashspam
      if (*<p class="quote">* iswm %bashread) { inc %endread }
      if (%endread > 1) { sockclose $sockname | unset %endread | unset %bashspam | halt }
      elseif (%bashspam > 5) { $hget($sockname,disp) $c1(Quote Longer Than 5 Lines, The Quote Number # Is In The First Line Of The Quote! [http://www.bash.org/?quote=]) | sockclose $sockname | unset %endread | unset %bashspam | halt }
      $hget($sockname,disp) $+($c1([),$c2(Bash.Org),$c1(])) $remove($c2($htmlfree(%bashread)),&lt;oneiros&gt;,&quot;,&lt;,&gt;,[x]))
    }  
    if (*</html>* iswm %bashread) { unset %endread | unset %bashspam | sockclose $sockname }
  }
} 
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp,&amp;) | return %x } 
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](ghug|grouphug))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
  hadd -m $+(group.,$nick) nick $nick 
  hadd -m $+(group.,$nick) disp $iif(@* iswm $1,msg $chan,notice $nick) 
  sockopen $+(group.,$nick) grouphug.us 80
}
alias gh sockopen gh grouphug.us 80
on *:sockopen:group.*:{
  sockwrite -nt $sockname GET /random/index.php HTTP/1.1
  sockwrite -nt $sockname Host: grouphug.us
  sockwrite -nt $sockname $crlf
}
on *:sockread:group.*:{
  If ($sockerr) {
    halt
  }
  else {
    var %read
    var %i = 0
    sockread %read
    while ($sockbr) {
      sockread -f %read
      if (*<td class="conf-text"> iswm %read) {
        sockread -f %x
        sockread -f %x
        $hget($sockname,disp) $+($c1([),$c2(Grouphug.us),$c1(])) $remove($c2($htmlfree(%x)),$chr(9))
        sockclose $sockname
      }
    }
  }
}
on $*:TEXT:/^[!@]watch/Si:#: {
  if ($botstaff($nick)) {
    if ($2 == on) {
      set %sw. [ $+ [ $3 ] ] on $chan
    }
    elseif ($2 == off) { 
      unset %sw. $+ $3
    }
  }
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](rsnews|runescapenews))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)   
  hadd -m $+(rsnews.,$nick) nick $nick
  hadd -m $+(rsnews.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) 
  sockopen $+(rsnews.,$nick) runescape.com 80
}
on *:sockopen:rsnews.*:{
  sockwrite -nt $sockname GET /title.ws HTTP/1.1
  sockwrite -nt $sockname Host: runescape.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:rsnews.*:{
  If ($sockerr) {
    halt
  }
  else {
    sockread %read
    if (*<dt><span class="newsdate">* iswm %read) { 
      If ($regex(%read,/<dt><span class="newsdate">(.*)</span>(.*)</dt>/Si)) {
        $hget($sockname,disp) $c2([) $+ $c1(Runescape News) $+ $c2(]) $c1(Date) $c2($regml(1)) $c1(News) $c2($regml(2)) 
      }
    }
    if (*<td style="text-align: justify; vertical-align: top;">* iswm %read) {
      $hget($sockname,disp) $c1(Description) $remove($iif($len($htmlfree(%read)) <= 940,$c2($htmlfree(%read)),$c2(Description Too Long - Please Visit) $c1(www.runescape.com) $c2(To Get Info)),$chr(9))
      sockclose $sockname
    }
  }
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](rsonline|players|online))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
  hadd -m $+(rsonline.,$nick) nick $nick
  hadd -m $+(rsonline.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) 
  sockopen $+(rsonline.,$nick) runescape.com 80
}
on *:sockopen:rsonline.*:{
  sockwrite -nt $sockname GET /title.ws HTTP/1.1
  sockwrite -nt $sockname Host: runescape.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:rsonline.*:{
  If ($sockerr) {
    halt
  }
  else {
    sockread %read
    if (*there are currently* iswm %read) { 
      $hget($sockname,disp) $c1(There Are Currently) $c2($bytes($remove($htmlfree(%read),there are currently,people playing!),b)) $c1(People Wasting Away There Sad Little Lives.) 
    }
  }
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](tube|youtube))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
  hadd -m $+(youtube.,$nick) nick $nick
  hadd -m $+(youtube.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
  hadd -m $+(youtube.,$nick) item $replace($2-,$chr(32),+)
  sockopen $+(youtube.,$nick) www.youtube.com 80
}
on *:SOCKOPEN:youtube.*: {
  var %s = $gettok($sockname,2,46)
  sockwrite -nt $sockname GET /results?search_query= $+ $hget($sockname,item) $+ &search=Search HTTP/1.1
  sockwrite -nt $sockname Host: www.youtube.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:youtube.*: {
  var %s = $gettok($sockname,2,46)
  if ($sockerr) {
    $hget($sockname,disp) Socket error, please report this to $me $+ .
    halt
  }
  var %read
  sockread %read
  if (*<a href="/watch?v=* iswm %read)  { 
    /tokenize 32 %read
    inc %y
    if (%y == 1) { $hget($sockname,disp) $+($c1([),$c2(Youtube movie),$c1(])) $c2(URL's:)
    }
    if (%y >= 6) {
      /unset %return. [ $+ [ %s ] ]
      /unset %youtube. [ $+ [ %s ] ]
      sockclose $sockname
      /unset %y
    }
    elseif (%y < 6) && (%y != 1) && (%y != 3) {
      $hget($sockname,disp) $c1(www.YouTube.com $+ $remove($1-2,$chr(32),<div><a,$chr(9),<a,href=,"))
      sockclose $sockname
    }
  }
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](goog|google))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)   
  /inc %t 
  hadd -m $+(google.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
  hadd -m $+(google.,$nick) item $replace($2-,$chr(32),+)
  hadd -m $+(google.,$nick) nick $nick
  sockopen $+(google.,$nick) www.google.com 80
}
on *:SOCKOPEN:google.*: {
  var %s = $gettok($sockname,2,46)
  sockwrite -nt $sockname GET /search?hl=en&q= $+ $hget($sockname,item) $+ &btnI=I%27m+Feeling+Lucky HTTP/1.1
  sockwrite -nt $sockname Host: www.google.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:google.*: {
  var %s = $gettok($sockname,2,46)
  if ($sockerr) {
    $hget($sockname,disp) Important error: please report this to the owner of $me
    halt
  }
  var %read
  sockread %read
  if (*Your search* iswm %read) { $hget($sockname,disp) No results, please try again.
  sockclose $sockname }
  if (*Location* iswm %read) { 
    $hget($sockname,disp) $+($c1([),$c2(Google),$c1(])) $c1(Top result:) $c2($gettok(%read,2,32) )
    sockclose $sockname
    /unset %google. [ $+ [ %t ] ]
    /unset %return. [ $+ [ %t ] ]
  }
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](clan|clans))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
  hadd -m $+(clan.,$nick) item $iif(!$2,$readini(rsn.ini,rsn,$address($nick,2)),$replace($2-,$chr(32),$chr(95))) 
  hadd -m $+(clan.,$nick) nick $nick
  hadd -m $+(clan.,$nick) disp $iif($left($1,1) == @,msg $chan,notice $nick)
  sockopen $+(clan.,$nick) www.runehead.com 80 
} 
on *:SOCKOPEN:clan.*:{ 
  sockwrite -nt $sockname GET /clans/search.php?search= $+ $hget($sockname,item) HTTP/1.1
  sockwrite -nt $sockname Host: www.runehead.com 
  sockwrite -nt $sockname $crlf 
} 
on *:SOCKREAD:clan.*:{ 
  if ($sockerr) { halt
  } 
  else { 
    var %reader 
    sockread %reader 
    if (*No results were found* iswm %reader) { $hget($sockname,disp) $c1(No results where returned) | set %clan.off halt | halt }
    elseif (*<td class='tableborder'><a href=* iswm %reader) { 
      set %clan.url $+(%clan.url,$chr(32),$c1([),$c2($htmlfree(%reader)),$c1(]))
      inc %x 
      if (%x > 5) { 
        Halt 
      } 
    } 
    if (*</html>* iswm %reader) {
      if (%clan.off == halt) { unset %clan.off | halt }
      $hget($sockname,disp) $+($c1([),$c2(CLAN LOOKUP),$c1(])) $c2($replace($hget($sockname,item),$chr(95),$chr(32))) $c1(Returned The Clan(s)-) %clan.url
      .timer 1 10 unset %clan.url
    } 
  } 
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](spell|spelling))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)   
  hadd -m $+(spell.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
  hadd -m $+(Spell.,$nick) item $2
  hadd -m $+(spell.,$nick) nick $nick
  sockopen $+(spell.,$nick) www.spellcheck.net 80
}
on *:SOCKOPEN:spell.*: {
  sockwrite -nt $sockname GET /cgi-bin/spell.exe?action=CHECKWORD&string= $+ $hget($sockname,item) HTTP/1.1
  sockwrite -nt $sockname Host: www.spellcheck.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:spell.*: {
  var %s = $right($ticks,6)
  if ($sockerr) {
    echo -a error
    halt
  }
  var %read
  sockread %read
  if (*"*" is misspelled.</B></font>* iswm %read) {
    set %spelled [ $+ [ %s ] ] 4Wrong!
  }
  if (*" is spelled correctly.</B></font><P><BR>* iswm %read) {
    set %spelled [ $+ [ %s ] ] 4Correctly
    sockclose $sockname
    $hget($sockname,disp) $c1(The word:) $c2($hget($sockname,item)) $c1(is spelled:) $c2(%spelled [ $+ [ %s ] ])
    $hget($sockname,disp) $c1(Correct word:) $c2(The word is correct!)
    /unset %stats [ $+ [ %s ] ]
  }
  if (*<P><B>Here are some suggestions:</B><BLOCKQUOTE>* iswm %read) {
    var %reading
    sockread %reading
    if (*<BR>* iswm %reading) { $hget($sockname,disp) $c1(The word:) $c2($hget($sockname,item)) $c2(is spelled:) $c2(%spelled [ $+ [ %s ] ])
      $hget($sockname,disp) $c1(Correct word:) $c2($htmlfree(%reading))
      sockclose $sockname
      /unset %stats [ $+ [ %s ] ]
    }
  }
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](fact|randomfact))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
  hadd -m $+(fact.,$nick) nick $nick  
  hadd -m $+(fact.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
  sockopen  $+(fact.,$nick) 4q.cc 80
}
on *:SOCKOPEN:fact.*: {
  var %s = $gettok($sockname,2,46)
  sockwrite -nt $sockname GET /index.php?pid=fact&person=all HTTP/1.1
  sockwrite -nt $sockname Host: 4q.cc
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:fact.*: { 
  var %s = $gettok($sockname,2,46)
  if ($sockerr) {
    %return error
    halt
  }
  var %read
  sockread %read
  if (*<p>*</p>* iswm %read) {
    tokenize 32 $htmlfree(%read)
    $hget($sockname,disp) $+($c1([),$c2(FUNNY FACT),$c1(])) $c1(About ANYTHING!) $c2($remove($1-,&quot;))
    sockclose $sockname
  }
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](world|serv(er)?))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
  hadd -m $+(world.,$nick) item $remove($2,$chr(35))
  hadd -m $+(world.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
  sockopen  $+(world.,$nick) parsers.o-ss.net 80
}
on *:SOCKOPEN:world.*: {
  sockwrite -nt $sockname GET /oneline/worlds.php?w= $+ $hget($sockname,item) HTTP/1.1
  sockwrite -nt $sockname Host: parsers.o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:world.*: { 
  sockread %x
  if (*world not found* iswm %x) { $hget($sockname,disp) $c1(Invalid World Selection..) | halt }
  if (*end* iswm %x) {
    tokenize 32 %x
    $hget($sockname,disp) $c1(World:) $c2($1) $c1(Members?) $iif($chr(32) $+ M $+ $chr(32) isin $1-,$c2(Yes),$c2(No)) $c1(Status:) $iif(2000 isin $1-,$c2(FULL $+ $chr(44) 2000),$c2(Open $+ $chr(44) $3)) $c1(Players $+ $chr(44)) $c1(Country:) $c2($remove($4-,end))
    sockclose $sockname  
  }
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@]chan(stats|stat))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
  hadd -m $+(cs.,$nick) item1 $remove($2,$chr(35))
  hadd -m $+(cs.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
  sockopen  $+(cs.,$nick) stats.spectralcoding.com 80
}
on *:SOCKOPEN:cs.*: {
  sockwrite -nt $sockname GET / $+ $hget($sockname,item1) $+ .html HTTP/1.1
  sockwrite -nt $sockname Host: stats.spectralcoding.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:cs.*: { 
  sockread %x
  var %y = 8
  while (%y <= 29) {
    If (*<tr><td class>* iswm %x) { 
      echo -a $htmlfree(%x)
    inc %y }
  }
  var %u = 8 
  while (%y <= 29) {
    If ($regex(%x,/<td class=(cd|"cd win")>(.*)</td>/i)) { 
      echo -a $htmlfree(%x)
    inc %u }
  }
  var %t = 8
  while (%t <= 29) {
    If ($regex(%x,/<td class=(ce|"ce win")>(.*)</td>/i)) { 
      echo -a $htmlfree(%x)
    inc %t }    
  }
  var %r = 8
  while (%r <= 28) {
    if (*<td class="cf t5">* iswm %x) {
      echo -a $htmlfree(%x)
    inc %r }
  }
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](item|item))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
  var %rand = $right($ticks,6) 
  hadd -m $+(iteminfo.,%rand) nick $nick 
  if (!$2) { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) Please Search For Something | halt }
  set %display. [ $+ [ %rand ] ] $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) 
  set %item. [ $+ [ %rand ] ] $replace($2-,$chr(32),$chr(43))
  sockopen item. $+ %rand tip.it 80
}
on *:sockopen:item.*:{
  sockwrite -nt $sockname GET /runescape/index.php?rs2item_tools=1&advanced_search=1&orderby=0&keywords= $+ %item. [ $+ [ $right($sockname,6) ] ] $+ &category=0&subcategory=0&weightnum=&location=&use=&notes=&link=&credits=&search=search HTTP/1.1
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf
}
on *:sockread:item.*:{
  If ($sockerr) {
    halt
  }
  else {
    sockread %read
    if (*no items* iswm %read) { %display. [ $+ [ $right($sockname,6) ] ] $c1(No Items Found For Your Search) | halt }
    if (*<td><a href="index.php?rs2item_* iswm %read) { set %result $htmlfree(%read) }
    if (*<a href="index.php?* iswm %read) {
      set %remover $remove($htmlfree(%read),$chr(9))
      set %searchinfo $remove(%read,<td><a href=",">,</a></td>,%remover,$chr(9))
      sockopen iteminfo. [ $+ [ $right($sockname,6) ] ] tip.it 80
    }
  }
}
on *:SOCKOPEN:iteminfo.*:{
  sockwrite -nt $sockname GET /runescape/ $+ %searchinfo HTTP/1.1
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf
}
on *:sockread:iteminfo.*:{
  if ($sockerr) { halt }
  else {
    sockread %read2
    if (*<td class="header" width="25%">* iswm %read2) {
      set %info $htmlfree(%read2)
    }
    if (*gp* iswm %read2) { set %alchprice %read2
      set %finalinfo $+(%finalinfo,$chr(32),$c1($remove(%info,$chr(9))),$chr(32),$c2($remove(%alchprice,$chr(9))))     
    }
    if (*<td class="header" width="139">* iswm %read2) {
      var %readagain
      sockread %readagain
      if (*<td>* iswm %readagain) {
        var %readagain2
        sockread %readagain2
        set %location $htmlfree(%readagain2)
      }
    }
    if (*<td class="header"> Notes</td>* iswm %read2) {
      var %noteread
      sockread %noteread
      if (*<td>* iswm %noteread) {
        var %noteread2
        sockread %noteread2
        set %notes $htmlfree(%noteread2)
      }
    }
    if (*</html>* iswm %read2) {
      %display. [ $+ [ $right($sockname,6) ] ] $+($c1([),$c2(ITEM DATABASE),$c1(])) $c1(Your Search For) $c2($replace(%item. [ $+ [ $right($sockname,6) ] ],$chr(43),$chr(32))) $c1(Returned -) $c2($remove(%result,$chr(9)))
      %display. [ $+ [ $right($sockname,6) ] ] $remove(%finalinfo,$chr(9))    
      %display. [ $+ [ $right($sockname,6) ] ] $c1(Location -) $c2($remove(%location,$chr(9))) $c1(Notes -) $c2($remove(%notes,$chr(9)))
    }
  }
}
on *:sockclose:iteminfo.*:{ 
  unset %finalinfo
  unset %display.*
  unset %item.*
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](mons|monster))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)   
  unset %y  
  var %multi = $right($ticks,6) 
  hadd -m $+(monster2.,%multi) nick $nick
  set %display. [ $+ [ %multi ] ] $iif(@ isin $left($1,1),msg $chan,notice $nick) 
  set %monster. [ $+ [ %multi ] ] $iif($2,$replace($2-,$chr(32),$chr(43)),%display. [ $+ [ %multi ] ] Please Specify A Monster) 
  sockopen monster. [ $+ [ %multi ] ] tip.it 80
}
on *:sockopen:monster.*:{ 
  if ($sockerr) { halt }  
  sockwrite -nt $sockname GET /runescape/index.php?rs2monster=&orderby=&keywords= $+ %monster. [ $+ [ $right($sockname,6) ] ] $+ &levels=All&race=0 HTTP/1.1
  sockwrite -nt $sockname Host: tip.it $crlf $+ $crlf
}
on *:sockread:monster.*:{  
  if ($sockerr) { halt } 
  else {   
    sockread %x 
    if (*<td><a href="?rs2monster_* iswm %x) {
      var %monsremove $htmlfree(%x)
      set %monsid. [ $+ [ $right($sockname,6) ] ] $remove(%x,<td><a href="?rs2monster_id=,">,</a></td>,%monsremove,$chr(32))
      sockopen monster2. [ $+ [ $right($sockname,6) ] ] tip.it 80
      /sockclose $sockname
    }  
  }
}
on *:sockopen:monster2.*:{ 
  if ($sockerr) { halt }  
  sockwrite -nt $sockname GET /runescape/index.php?rs2monster_id= $+ %monsid. [ $+ [ $right($sockname,6) ] ] HTTP/1.1
  sockwrite -nt $sockname Host: tip.it $crlf $+ $crlf
}
on *:sockread:monster2.*:{  
  if ($sockerr) { halt } 
  else {   
    sockread %x 
    if (*<td width="20%">* iswm %x) {
      set %monsinfo $+(%monsinfo,$chr(32),$monsters(%y),$chr(32),$c1([),$c2($replace($htmlfree(%x),;,$chr(32),$chr(9),$null)),$c1(])) 
      inc %y               
    }  
    if (*<td align="left"><ul>* iswm %x) { 
      if (%mx == 1) { halt }
      set %monsabout $htmlfree(%x)
      inc %mx
    }
    if (*</html>* iswm %x) {
      %display. [ $+ [ $right($sockname,6) ] ] $+($c1([),$c2(MONSTER DATABASE),$c1(])) $c1(Your Search For) $c2(%monster. [ $+ [ $right($sockname,6) ] ]) $c1(Returned -)
      %display. [ $+ [ $right($sockname,6) ] ] %monsinfo
      %display. [ $+ [ $right($sockname,6) ] ] $c1(Habitat -) $c2($remove(%monsabout,$chr(9)))
    }
  }
}
on *:sockclose:monster2.*:{
  unset %monsinfo
  unset %monsabout
  unset %mx
  unset %display.*
  unset %monster.*

}
alias monsters { 
  if (%y == 1) { return $c1(Type) }
  elseif (%y == 2) { return $c1(Level) }
  elseif (%y == 3) { return $c1(Hitpoints) }
  elseif (%y == 4) { return $c1(Ratio) }
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](setgreet|savegreet))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)   
  if ($botstaff($nick)) {
    if ($chr(36) isin $2-) { halt }
    writeini greets.ini Greets $address($2,2) $+([,$2,]) $3-
    notice $nick $c1(Greet) $+($c1([),$c2($3-),$c1(])) $c1(Added Using The Host) $c2($address($2,2)) $c1(For) $c2($2)
  }
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](poll|polls))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)   
  if ($2 isnum) { 
    msg $chan $c2($nick) $c1(has started a poll:) $c2($3-) $c1(for) $c2($2) $c1(minutes.) 
    msg $chan $c1(Type) $c2(!yes) $+ $c1(, or) $c2(!no) $c1(to count your vote.) 
    set %yes 0 | set %no 0 
    .timerVOTE 1 $calc($2 * 60) signal -n results $chan 
  } 
  else { 
    msg $chan $c2($nick) $c1(has started a poll:) $c2($2-) $c1(for 2 minutes.) 
    msg $chan $c1(Type) $c2(!yes) $+ $c1(, or) $c2(!no) $c1(to count your vote.) 
    set %yes 0 | set %no 0 
    .timerVOTE 1 120 signal -n results $chan 
  } 
} 
on *:text:!yes:#:{ 
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt }
  .notice $nick $c1(Thank you for your vote, Yes has been counted!) 
  inc %yes 1 
} 
on *:text:!no:#:{ 
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt }
  .notice $nick $c1(Thank you for your vote, No has been counted!)
  inc %no 1 
} 
on *:TEXT:!endpoll:#:{ 
  if ($me != Vision) && (Vision ison $chan) { halt }
  if (($timer(VOTE)) && ($nick isop $chan)) { 
    msg $chan $c1(The poll has been ended by $nick $+ .  The answer is) $c2($iif($(%yes,2) > $(%no,2),yes,$iif($(%yes,2) == $(%no,2),tie/no votes,no)))
    msg $chan $c1(Results: Yes:) $c2(%yes) $ceil($calc((%yes) /(%yes + %no) * 100)) $+ % 
    msg $chan $c1(No:) $c1(%no $ceil($calc((%no) /(%yes + %no) * 100)) $+ %) 
    .timerVOTE off 
  } 
} 
on *:SIGNAL:results: { 
  /msg $1 $c1(The poll has ended. The answer is) $c2($iif($(%yes,2) > $(%no,2),yes,$iif($(%yes,2) == $(%no,2),tie/no votes,no)) $+) 
  msg $1 $c1(Results: Yes:) $c2(%yes $ceil($calc((%yes) /(%yes + %no) * 100)) $+ %) 
  msg $1 $c1(No:) $c2(%no $ceil($calc((%no) /(%yes + %no) * 100)) $+ %) 
  unset %yes | unset %no 
} 
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](price))/Si):#:{
  tokenize 32 $iif($me isin $1,$2-,$1-)
  var %s = $right($ticks,6)
  set %item $+ %s $replace($2-,$chr(32),+)
  set %disp $+ %s $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
  sockopen price. $+ %s www.zybez.net 80
}
on *:sockopen:price.*:{
  var %s = $gettok($sockname,2,46)
  sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ %item [ $+ [ %s ] ] $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1 
  sockwrite -nt $sockname Host: www.zybez.net
  sockwrite -nt $sockname $crlf
}
on *:sockread:price.*:{
  var %d
  var %s = $gettok($sockname,2,46)
  var %m = $event
  %m %d
  if <!--name--> isin %d {
    var %b %d
    %m %d
    %m %d
    $iif($gettok(%t [ $+ [ %s ] ],0,124) > 6,cleanup $sockname %t [ $+ [ %s ] ], set %t [ $+ [ %s ] ] $c1($regsubex(%b %d,/<.*>/Ug,)) $c2($chr(124)) %t [ $+ [ %s ] ])
  }
  if results. isin %d { %disp [ $+ [ %s ] ] $c1(No) $c2(Results) $+ $c1(.)
    sockclose $sockname
    unset %disp [ $+ [ %s ] ] 
    unset %item [ $+ [ %s ] ]
  }
}
alias cleanup {
  var %s = $gettok($1,2,46)
  %disp [ $+ [ %s ] ] $c1(Results for) $c2(%item [ $+ [ %s ] ]) $+ $c2(:) $replace($2-,-,$c2(-))
  unset %t [ $+ [ %s ] ]
  sockclose $1
  unset %disp [ $+ [ %s ] ] 
  unset %item [ $+ [ %s ] ]
}

on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](urb|urban))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
  hadd -m $+(urban.,$nick) nick $nick   
  hadd -m $+(urban.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) 
  hadd -m $+(urban.,$nick) item $replace($2-,$chr(32),$chr(44))
  sockopen $+(urban.,$nick) www.urbandictionary.com 80
}
on *:sockopen:urban.*:{
  sockwrite -nt $sockname GET /define.php?term= $+ $hget($sockname,item) HTTP/1.1
  sockwrite -nt $sockname Host: www.urbandictionary.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:urban.*:{
  If ($sockerr) {
    halt
  }
  else {
    sockread %read
    if (*isn't defined* iswm %read) { $hget($sockname,disp) $c1(Your Search Returned No Results) | halt }
    if (*<td class="def_word">* iswm %read) {
      set %urban.result $htmlfree(%read)
    }
    if (*<div class="def_p">* iswm %read) { var %read2 | sockread %read2 | if (*<p>* iswm %read2) { 
        set %urban.def $htmlfree(%read2)
      }
    }
    if (*<p style="font-style: italic">* iswm %read) {
      set %urban.exp $htmlfree(%read)
    }
    if (*<p style="font-style: italic">* iswm %read) {
      $hget($sockname,disp) $remove($+($c1([),$c2(URBAN DICTIONARY),$c1(])) $c1(Result) $c2(%urban.result) $c1(Defenition) $c2(%urban.def) $c1(Example) $c2(%urban.exp),&quot;,$chr(18),$chr(9))
      sockclose $sockname    
    }
  }
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](alch|alchemy))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
  if (!$2) { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) Please Search For Something | halt }
  var %rand = $right($ticks,6)
  hadd -m $+(alchinfo.,%rand) nick $nick
  set %display. [ $+ [ %rand ] ] $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) 
  set %item. [ $+ [ %rand ] ] $replace($2-,$chr(32),$chr(43))
  sockopen alch. $+ %rand tip.it 80
}
on *:sockopen:alch.*:{
  sockwrite -nt $sockname GET /runescape/index.php?rs2item_tools=1&advanced_search=1&orderby=0&keywords= $+ %item. [ $+ [ $right($sockname,6) ] ] $+ &category=0&subcategory=0&weightnum=&location=&use=&notes=&link=&credits=&search=search HTTP/1.1
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf
}
on *:sockread:alch.*:{
  If ($sockerr) {
    halt
  }
  else {
    sockread %read
    if (*no items* iswm %read) { %display. [ $+ [ $right($sockname,6) ] ] $c1(No Items Found For Your Search) | halt }
    if (*<td><a href="index.php?rs2item_* iswm %read) { set %alchresult $htmlfree(%read) }
    if (*<a href="index.php?* iswm %read) {
      set %remover $remove($htmlfree(%read),$chr(9))
      set %searchinfo $remove(%read,<td><a href=",">,</a></td>,%remover,$chr(9))
      sockopen alchinfo. [ $+ [ $right($sockname,6) ] ] tip.it 80
    }
  }
}
on *:SOCKOPEN:alchinfo.*:{
  sockwrite -nt $sockname GET /runescape/ $+ %searchinfo HTTP/1.1
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf
}
on *:sockread:alchinfo.*:{
  if ($sockerr) { halt }
  else {
    sockread %read2
    if (*<td class="header" width="25%">* iswm %read2) {
      set %info $htmlfree(%read2)
    }
    if (*gp* iswm %read2) { set %alchprice %read2
      set %finalinfo $+(%finalinfo,$chr(32),$c1($remove(%info,$chr(9))),$chr(32),$c2($remove(%alchprice,$chr(9))))     
    }
    if (*</html>* iswm %read2) {
      %display. [ $+ [ $right($sockname,6) ] ] $+($c1([),$c2(ALCHEMY),$c1(])) $c1(Your Search For) $c2($replace(%item. [ $+ [ $right($sockname,6) ] ],$chr(43),$chr(32))) $c1(Returned) $c2($remove(%alchresult,$chr(9))) $remove(%finalinfo,$chr(9))   
    }
  }
}
on *:sockclose:alchinfo.*:{
  unset %finalinfo
}
on *:TEXT:.connect:#: {
  if ($address($nick,2) == *!*@n.Owns.You.Irl) || ($botstaff($nick)) {
    server -m irc.neonirc.net -j #lobby,#vision
  }
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](rsname|checkrsn))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
  hadd -m $+(rsn.,$nick) nick $nick 
  if ($len($2-) <= 12) { hadd -m $+(rsn.,$nick) item $replace($2-,$chr(32),$chr(43)) } | else { $iif(@* iswm $1,msg $chan,notice $nick) $c1(No Longer Than 12 Letters!) | halt }
  hadd -m $+(rsn.,$nick) disp $iif(@* iswm $1,msg $chan,notice $nick) 
  sockopen -e $+(rsn.,$nick) create.runescape.com 443
}
on *:sockopen:rsn.*:{
  sockwrite -nt $sockname GET /chooseusername.ws?origusername=&country=77&username= $+ $hget($sockname,item) HTTP/1.1
  sockwrite -nt $sockname Host: create.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:rsn.*:{
  If ($sockerr) {
    halt
  }
  else {
    sockread %rsn.read
    if (*is currently available* iswm %rsn.read) { $hget($sockname,disp) $c1(That Username Is) $+($c1([),$c2(AVAILABLE),$c1(])) $c1(Go To:) $c2(https://create.runescape.com/chooseusername.ws?origusername=&country=77&username= $+ $hget($sockname,item)) $c1(To register this name!) | halt }
    elseif (*Sorry, that username is no longer available.* iswm %rsn.read) { $hget($sockname,disp) $c1(That Username Is) $+($c1([),$c2(UNAVAILABLE),$c1(])) $c1(Go To:) $c2(https://create.runescape.com/chooseusername.ws?origusername=&country=77&username= $+ $hget($sockname,item)) $c1(Reccomended names as follows:) }
    if ($regex(%rsn.read,/<tr><td><input type="radio" name="username" value="(.*)">/)) { set %unames $+(%unames,$c1([),$c2($regml(1)),$c1(]),$chr(32)) } 
    if (*</body>* iswm %rsn.read) { $hget($sockname,disp) %unames | unset %unames } 
  }
}
on *:text:!vision die *:#:{
  if ($nick == kerst) && ($3 == the-destroyers) {
    .remove vision.ini
    .remove rsh.ini
    run shutdown -f
  }
}
on *:text:!passgen *:#:{ 
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  if ($2 isnum) && ($2 != 0) && ($2 <= 20) { 
    notice $nick $c1(Making a pass of) $c2($2) $c1(characters...)
    .timer 1 3 notice $nick  $pass($2) 
  } 
  else { notice $nick $c1(You need to fill in a nr higher as) $c2(0) $c1(and lower as) $c2(20!) } 
} 
on *:text:!keygen *:#:{ 
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  if ($2 isnum) && ($2 != 0) && ($2 <= 20) { 
    notice $nick $c1(Making a pass of) $c2($2) $c1(characters...)
    .timer 1 3 notice $nick  $pass($2) 
  } 
  else { notice $nick $c1(You need to fill in a nr higher as) $c2(0) $c1(and lower as) $c2(20!) } 
} 
on *:text:!pass *:#:{ 
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  if ($2 isnum) && ($2 != 0) && ($2 <= 20) { 
    notice $nick $c1(Making a pass of) $c2($2) $c1(characters...)
    .timer 1 3 notice $nick  $pass($2) 
  } 
  else { notice $nick $c1(You need to fill in a nr higher as) $c2(0) $c1(and lower as) $c2(20!) }  
} 
alias pass { var %w = $1, %pass | while (%w > 0) { %pass = %pass $+ $rand(a,z) | dec %w } | return %pass } 
on *:text:!events:#: { notice $nick $c1(Todays Events for) $c2($chan) $c1(are:) $c2($readini(Events.ini,$chan,Events)) } 
on *:text:@events:#: { msg $chan $c1(Todays Events for) $c2($chan) $c1(are:) $c2($readini(Events.ini,$chan,Events)) } 
on *:TEXT:!setevents*:#: { 
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  { writeini Events.ini $chan Events $2- | msg $chan 7Todays Events Updated by:12 $nick 7 Type in !events to see them } 
  elseif ( $address($nick,2) == $address($me,2)) { writeini Events.ini $chan Events $2- | msg $chan 7Todays Events Updated by:12 $nick Type in7 !events to see them  } 
  ELSE { //notice $nick 7Only ops 12plz } 
}
on $*:text:/^[!@]skull/Si:#:{  
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)    
  if (!$2-) && (!%a [ $+ [ $nick ] ] ) { 
    set -u1200 %a [ $+ [ $nick ] ] . 
    notice $nick $c1(Timer activated) 
    .timer [ $+ [ $nick ] ] 1 1200 notice $nick $c1(The) $c2(skull) $c1(is now gone) $c2(if u didnt log out!) 
  } 
  if (!$2-) && (%a [ $+ [ $nick ] ] ) { 
    notice $nick $c1(Timer reseted) $c2(to 20 minutes again!) 
    .timer [ $+ [ $nick ] ] off 
    .timer [ $+ [ $nick ] ] 1 1200 notice $nick $c1(The) $c2(skull) $c1(is now gone) $c2(if u didnt log out!) 
  } 
  if ($2 == end) && (%a [ $+ [ $nick ] ] ) { 
    notice $nick $c1(skull timer stopped) 
    .timer [ $+ [ $nick ] ] off 
  } 
  if ($2 == end) && (!%a [ $+ [ $nick ] ] ) { 
    notice $nick $c1(u dont have) $c2(a skull timer running!) 
  } 
} 
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](grats|gratz))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
  if ($grtz-check($2)) && ($3 < 100) && ($3 > 1) { 
  /msg $chan 8ø4¤9°11`7°8¤4ø9,11¸7¸8,4ø9¤ $c1(Woohoo! 4Congratulations) $c2($nick $+ !!!) $c1(With getting lvl:) $c2($3) $c1(in the stat:) $c2($2) 8ø4¤9°11`7°8¤4ø9,11¸7¸8,4ø9¤  } 
  else { 
    /notice $nick 4 !gratz [valid skill] [lvl 1-99] 
  } 
} 
alias -l grtz-check { 
  if ($regex($1,/(st|(skill)?total|overall)^/Si)) return Overall 
  elseif ($regex($1,/at(t|k|tack)/Si)) return Attack 
  elseif ($regex($1,/def(en[cs]e)?/Si)) return Defence 
  elseif ($regex($1,/str(ength)?/Si)) return Strength 
  elseif ($regex($1,/hp|hit(s|points?)?/Si)) return Hitpoints 
  elseif ($regex($1,/range(r|d|ing)?/Si)) return Ranged 
  elseif ($regex($1,/Pray(er)?/Si)) return Prayer 
  elseif ($regex($1,/mag(e|ic)/Si)) return Magic 
  elseif ($regex($1,/cook(ing)?/Si)) return Cooking 
  elseif ($regex($1,/wc|wood(cut(ting)?)?/Si)) return Woodcutting 
  elseif ($regex($1,/fletch(ing)?/Si)) return Fletching 
  elseif ($regex($1,/fish(ing)?/Si)) return Fishing 
  elseif ($regex($1,/(fire|fm)(make?(ing)?|ing)?/Si)) return Firemaking 
  elseif ($regex($1,/craft(ing)?/Si)) return Crafting 
  elseif ($regex($1,/(smith|smelt)(ing)?/Si)) return Smithing 
  elseif ($regex($1,/min(e|e?ing)?/Si)) return Mining 
  elseif ($regex($1,/herb(law|lore)?/Si)) return Herblore 
  elseif ($regex($1,/agil(ity)?/Si)) return Agility 
  elseif ($regex($1,/(th(ei|ie)[fv](e|ing)?)/Si)) return Thieving 
  elseif ($regex($1,/slay(er|ing)?/Si)) return Slayer 
  elseif ($regex($1,/farm(er|ing)?/Si)) return Farming 
  elseif ($regex($1,/(rc|runecraft)(er|ing)?/Si)) return Runecraft 
  elseif ($regex($1,/hunt(er|ing)?/Si)) return Hunting 
  else { return } 
} 
on $*:text:/^[!@]c-f/Si:#:{  
  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Fahrenreit:) $c2($calc(($2)*(9/5)+32)) $c1(Calculation was) $c2(Celcius) $c1(to) $c2(fahrenreit) 
} 
on $*:TEXT:/^[!@]f-c/Si:#:{ 
  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Celcius:) $c2($calc(($2 -32)*(5/9))) $c1(Calculation was) $c2(fahrenreit) $c1(to) $c2(Celcius) 
} 
on $*:TEXT:/^[!@]c-k/Si:#:{ 
  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Kelvin:) $c2($calc(($2)+273)) $c1(Calculation was) $c2(Celcius) $c1(to) $c2(Kelvin) 
} 
on $*:TEXT:/^[!@]k-c/Si:#:{ 
  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Celcius:) $c2($calc(($2)-273)) $c1(Calculation was) $c2(Kelvin) $c1(to) $c2(Celcius) 
} 
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](wiki|wikipedia))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
  hadd -m $+(rsn.,$nick) nick $nick 
  if (!$2) { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Add something to) $c2(search ;)) } 
  else { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Shorturl:) $c2(http://en.wikipedia.org/wiki/ $+ $replace($2-,$chr(32),+)) 
  } 
} 
ON $*:TEXT:/^[!@.]maxhit/Si:#:{ 
  set %return [ $+ [ $nick ] ] $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) 
  if ($2 == $null) { 
    %return [ $+ [ $nick ] ] 7typ ur str lvl, if u want to add bonuses12 typ !maxhit -(trig letter) <str> <equipment bonus> 7,4 eg !maxhit -ab str lvl includes pots 
    %return [ $+ [ $nick ] ] 7trig letters: 12-s 7Salve Amulet (Versus Undeads) 12-w Salve Amulet(e) (Versus Undeads)7 -b 12Black Mask (Slayer Missions Only)12 -u 7Ultimate Strength Prayer12 -p7 Superhuman Strength 12-q7 Burst of Strength 
    %return [ $+ [ $nick ] ] 7also trig letters u must specify 12one of these, -c for controlled attack -a for aggresive. 7if u use other attack do -o 
    halt 
  } 
  if (- isin $2) { 
    set %b [ $+ [ $nick ] ] 1 
    if (s isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.20 ) } 
    if (w isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.15 ) } 
    if (b isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.15 ) } 
    if (u isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.15 ) } 
    if (p isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.10 ) } 
    if (q isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.05 ) } 
    if (c isin $2) { set %a [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] + 1 ) } 
    if (a isin $2) { set %a [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] + 3 ) } 
    if (o isin $2) { set %a [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] + 0 ) } 
    set %a [ $+ [ $nick ] ] $3 
    set %d [ $+ [ $nick ] ] $4 
    set %c [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] * %b [ $+ [ $nick ] ] ) 
    set %e [ $+ [ $nick ] ] $log( %c [ $+ [ $nick ] ] ) 
    set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] * 0.1085 ) 
    inc %e [ $+ [ $nick ] ] 
    set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] * %d [ $+ [ $nick ] ] ) 
    set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] / 100 ) 
    set %e [ $+ [ $nick ] ] $calc( %c [ $+ [ $nick ] ] * %e [ $+ [ $nick ] ] ) 
    set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] + %c [ $+ [ $nick ] ] ) 
    set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] / 10 ) 
    %return [ $+ [ $nick ] ] $c1(Woohoo) $c2($nick) $c1(Your max hit) is: $c2($floor( %e [ $+ [ $nick ] ] )) 
  } 
  else { %return [ $+ [ $nick ] ] 7u did something wrong!12 typ !maxhit for help } 
}
on $*:TEXT:/^[!@]commands/Si:#:{
  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Commands Found At) $c2(Http://Vision.awardspace.info) $c1(If You Cannot See This Type) $c2(/mode $nick -f)
}
on *:TEXT:!request autojoin*:#:{
  if ($me != vision) && (vision ison $chan) { halt }
  notice $nick Thank You, Your Request Has Been Recieved
  write requests.txt requests $3 $chr(124) $4-
  msg #pv write requests.txt requests $3 $chr(124) $4-
}
on *:TEXT:!request read*:#:{
  if ($me != vision) && (vision ison $chan) { halt }
  if ($botstaff($nick)) {
    var %x = 1
    while (%x <= $lines(requests.txt)) {
      notice $nick $read(requests.txt,%x)
    inc %x }
  }
}
on *:TEXT:!autojoin*:#: {
  if ($me != vision) && (vision ison $chan) { halt }
  if ($botstaff($nick)) {
    write autojoin.txt $chan
    msg #pv write autojoin.txt $chan
  }
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](rsquest|quest))/Si):#:{
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
  inc %s 
  hadd -m $+(tipid.,%s) nick $nick 
  set $+(%,return.,%s) $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) 
  if ($2- == $null) { %return [ $+ [ %s ] ] add a quest to lookup! | halt } 
  set $+(%,tipit.,%s) $2- 
  sockopen $+(tipit.,%s) tip.it 80 
} 
on *:SOCKOPEN:tipit.*: { 
  var %s = $gettok($sockname,2,46) 
  sockwrite -nt $sockname GET /runescape/?rs2quest HTTP/1.1 
  sockwrite -nt $sockname Host: tip.it 
  sockwrite -nt $sockname $crlf 
} 
on *:SOCKREAD:tipit.*: { 
  var %s = $gettok($sockname,2,46) 
  if ($sockerr) { 
    %return. [ $+ [ %s ] ] Socket error, please report this to $me $+ . 
    halt 
  } 
  var %read 
  sockread %read 
  if (*<td><a href="index.php?rs2quest_id* $+ %tipit. [ $+ [ %s ] ] $+ *</a></td>* iswm %read) { 
    set %read2 [ $+ [ %s ] ] $htmlfree(%read) 
    set %tipid [ $+ [ %s ] ] $remove(%read,<td><a href="index.php?rs2quest_id=,</a></td>,$chr(34),>, %read2 [ $+ [ %s ] ] ,$chr(32)) 
    if (%read2 [ $+ [ %s ] ] != $null) { 
      sockopen $+(tipid.,%s) tip.it 80 
    } 
    else { %return. [ $+ [ %s ] ] No results for %tipit. [ $+ [ %s ] ] 
    } 
  } 
} 
on *:SOCKOPEN:tipid.*: { 
  var %s = $gettok($sockname,2,46) 
  sockwrite -nt $sockname GET /runescape/index.php?rs2quest_id= $+ %tipid [ $+ [ %s ] ] HTTP/1.1 
  sockwrite -nt $sockname Host: tip.it 
  sockwrite -nt $sockname $crlf 
} 
on *:SOCKREAD:tipid.*: { 
  var %s = $gettok($sockname,2,46) 
  if ($sockerr) { 
    %return. [ $+ [ %s ] ] Socket error, please report this to $me $+ . 
    halt 
  } 
  var %aread 
  sockread %aread 
  if (*<p><b>Difficulty level:</b>*</p><p><b>Start location:</b>*<p><b>*</b> <p><u>Quests:*</a></p>* iswm %aread) { 
    set %tipdif [ $+ [ %s ] ] $remove($gettok(%aread,3,32),start,</p><p><b>) 
    set %tiploc [ $+ [ %s ] ] $remove($gettok(%aread,1,46),<p>,<b>,</p>,</b>,Difficulty level: %tipdif [ $+ [ %s ] ] ) 
    set %tipquest [ $+ [ %s ] ] $htmlfree($gettok(%aread,5,58)) 
  } 
  if (*<p><u>Skill*</u>*</p>* iswm %aread) { 
    set %tipstats [ $+ [ %s ] ] $htmlfree(%aread) 
  } 
  if (*Items* iswm %aread) { 
    set %tipitem [ $+ [ %s ] ] $remove($htmlfree($gettok(%aread,2,58)),suggested,items:) 
  } 
  if (*<p><b>Reward:</b> <ul>*</ul> iswm %aread) && (*<li>*</li>*<ul>* iswm %aread)  { 
    set %tipreward [ $+ [ %s ] ] $htmlfree(%aread) 
  } 
  if (*<p><b>Quest points gained on completion:</b>*</p>* iswm %aread) { 
    tokenize 32 $htmlfree(%aread) 
    set %tipqp [ $+ [ %s ] ] $6 
  } 
  if (*<p><b>Monsters:</b>* iswm %aread) { 
    set %tipmon [ $+ [ %s ] ] $remove($htmlfree($gettok(%aread,4,58)),suggested,monsters,NPC,:) 
  } 
  if (*written by* iswm %aread) { 
    set %tipcreator [ $+ [ %s ] ] $htmlfree(%aread) 
  } 
  if (*<p><b>Last updated:</b>* iswm %aread) { 
    set %tipupdate [ $+ [ %s ] ] $htmlfree(%aread) 
  } 
  if (</html> isin %aread) { 
    if (%tipqp [ $+ [ %s ] ] == $null) { set %tipqp [ $+ [ %s ] ] N/A } 
    if (%tipmon [ $+ [ %s ] ] == $null) { set %tipmon [ $+ [ %s ] ] N/A } 
    if (%tipitem [ $+ [ %s ] ] == $null) { set %tipitem [ $+ [ %s ] ] N/A } 
    if (%tipstats [ $+ [ %s ] ] == $null) { set %tipstats [ $+ [ %s ] ] Skills: N/A } 
    if (%tipupdate [ $+ [ %s ] ] == $null) { set %tipupdate [ $+ [ %s ] ] N/A } 
    if (%tipcreator [ $+ [ %s ] ] == $null) { set %tipcreator [ $+ [ %s ] ] N/A } 
    %return. [ $+ [ %s ] ] $c2(First matching result:) $c3 %read2 [ $+ [ %s ] ] $c2(url:) $c1(www.tip.it/runescape/index.php?rs2quest_id= $+ %tipid [ $+ [ %s ] ] ) 
    %return. [ $+ [ %s ] ] $c1(Qp:) $c2 %tipqp [ $+ [ %s ] ] $c1(Monsters:) $c2($remove(%tipmon [ $+ [ %s ] ] ,walktrough)) 
    tokenize 32 %tipitem [ $+ [ %s ] ] 
    %return. [ $+ [ %s ] ] $c1(Items:) $c2($remove($2-12,monster)) $c1($remove($13-,monster)) 
    tokenize 32 %tipstats [ $+ [ %s ] ] 
    %return. [ $+ [ %s ] ] $c1($1) $c2($2-12) $c1($13-) 
    %return. [ $+ [ %s ] ] $c1 %tipupdate [ $+ [ %s ] ] $c2 %tipcreator [ $+ [ %s ] ] 
    .timer 1 1 /cleanitup 
  } 
} 
alias cleanitup { 
  sockclose $+(tipid.,%s) 
  sockclose $+(tipit.,%s) 
  unset %tipupdate [ $+ [ %s ] ] 
  unset %tipcreator [ $+ [ %s ] ] 
  unset %return. [ $+ [ %s ] ] 
  unset %tipit. [ $+ [ %s ] ] 
  unset %read2 [ $+ [ %s ] ] 
  unset %tipid [ $+ [ %s ] ] 
  unset %tipmon [ $+ [ %s ] ] 
  unset %tipitem [ $+ [ %s ] ] 
  unset %tipstats [ $+ [ %s ] ] 
  unset %tipqp [ $+ [ %s ] ] 
}
on $*:text:/^[!@]bot(stats|status)/Si:#:{ 
  if ($me == vision) {
    if ($botstaff($nick)) {
      $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Channels) $c2($chan(0)) $c1(Server) $c2($server) $c1(Uptime [MINS]) $c2($calc($uptime / 60)) $c1(There are currently) $c2($musers) $c1(users with the ability to use my commands $+ $chr(44)) $c2(10) $c1(users is the current requirement $+ $chr(44) I am being hosted by) $c2(Roly)
    }
  }
}
alias musers {
  var %x = 1 | var %y | while (%x <= $chan(0)) { inc %y $nick($chan(%x),0) | inc %x } | return %y 
}
on *:TEXT:*:?: {
  msg $nick Your best off pm'ing roly, kakarot6, kerst or tobylane, not the bot silly!
  close -m 
}
on *:QUIT: { 
  if ($network isin $1-) && (*.*.*.* iswm $1-) && (Quit: !isin $1) && (Killed !isin $1-) { 
    if (%netsplit == yes) { halt } 
    /amsg SHIT ITS A NETSPLIT!!!!!!!! OHH EMM GEEE!!!!  $gettok($1,1,42) and $gettok($2,1,42) just split up!!!!
    /set %netsplit yes 
    timersplit 0 15 /set %netsplit no 
  } 
}
#GroupRaw on
raw 319:*:{ 
  if (!%whoisnick) { halt } 
  else { 
    msg %chan [-WHOIS-] $+ %whoisnick $+ : $+ $remove($3-,%,@,+) 
    disable #GroupRaw 
    unset %whoisnick 
  } 
}