on *:JOIN:#: { 
  if (stupidbot isin $nick) { halt }
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  inc %jonseys 1
  notice $nick 12Hello4 $nick 12And Welcome To4 $chan $+ 12! 12I Am4 $me 12For My Commands Please Type 4!Commands. 12I Have Seen4 %jonseys 12Joins In My Life. 
}

on *:TEXT:.acc*:#:{ 
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if ($nick == Wishful) { 
    /cs access $chan add $2 $3- 
    /kick $chan $2 12Wishful Told Me To :p
  }   
} 
on *:TEXT:.delacc*:#:{ 
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if ($nick == Wishful) { 
    /cs access $chan del $2  
  }   
} 
on 2000:TEXT:.kick*:#:{ 
  /mode $chan -Q
  /kick $chan $2 4Reason:12 $3-
}   
on 2000:TEXT:.out*:#:{ 
  /ban -k # $2
  /mode $chan -Q
  /kick $chan $2 4Reason:12 $3-
}
on *:TEXT:!pchelp*:#: { 
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  notice $nick 12To Set The4 Main 12Pest Control World, Please Type !SetMpc <World> 
  notice $nick 12To Set The4 40+ 12Pest Control World, Please Type !Set40Pc <World> 
  notice $nick 12To Set The4 70+ 12Pest Control World, Please Type !Set70Pc <World> 
  notice $nick 12To Set The4 100+ 12Pest Control World, Please Type !Set100Pc <World>
}
on *:TEXT:!Setmpc*:#: {
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if ($2 == $null) { notice $nick 12Please specify a World to set | halt }
  elseif ($nick isop $chan) || ($nick ishop $chan) {
    set %mpc. [ $+ [ $chan ] ] $2
    msg $chan 12The4 Main12 PC World has changed! Type4 !Pcw 12To View All The Set Worlds.
  }
}
on *:TEXT:!Set40pc*:#: {
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if ($2 == $null) { notice $nick 12Please specify a World to set | halt }
  elseif ($nick isop $chan) || ($nick ishop $chan) {
    set %40pc. [ $+ [ $chan ] ] $2
    msg $chan 12The4 40+ 12PC World has changed, Type !Pcw To View All The Set Worlds.
  }
}
on *:TEXT:!Set70pc*:#: {
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if ($2 == $null) { notice $nick 12Please specify a World to set | halt }
  elseif ($nick isop $chan) || ($nick ishop $chan) {
    set %70pc. [ $+ [ $chan ] ] $2
    msg $chan 12The4 40+ 12PC World has changed, Type !Pcw To View All The Set Worlds.
  }
}
on *:TEXT:!Set100pc*:#: {
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if ($2 == $null) { notice $nick 12Please specify a World to set | halt }
  elseif ($nick isop $chan) || ($nick ishop $chan) {
    set %100pc. [ $+ [ $chan ] ] $2
    msg $chan 12The4 40+ 12PC World has changed, Type !Pcw To View All The Set Worlds.
  }
}
on *:TEXT:@pcw*:#: {
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if (%100pc. [ $+ [ $chan ] ] == $null) { notice $nick 12There's At Least 1 OR More Worlds That Are Not Set, To Set Them Type4 !PcHelp.  | halt }
  msg $chan 12The 4Main 12World Is:4 %mpc. [ $+ [ $chan ] ] 7- 12The4 40+ 12World Is:4 %40pc. [ $+ [ $chan ] ] 7-12 The4 70+ 12World Is:4 %70pc. [ $+ [ $chan ] ] 7- 12The4 100+ 12World Is:4 %100pc. [ $+ [ $chan ] ] 
}
on *:TEXT:@world*:#: {
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if (%100pc. [ $+ [ $chan ] ] == $null) { notice $nick 12There's At Least 1 OR More Worlds That Are Not Set, To Set Them Type4 !PcHelp.  | halt }
  msg $chan 12The 4Main 12World Is:4 %mpc. [ $+ [ $chan ] ] 7- 12The4 40+ 12World Is:4 %40pc. [ $+ [ $chan ] ] 7-12 The4 70+ 12World Is:4 %70pc. [ $+ [ $chan ] ] 7- 12The4 100+ 12World Is:4 %100pc. [ $+ [ $chan ] ] 
}
on *:TEXT:!pcw*:#: {
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if (%100pc. [ $+ [ $chan ] ] == $null) { notice $nick 12There's At Least 1 OR More Worlds That Are Not Set, To Set Them Type4 !PcHelp.  | halt }
  notice $nick 12The 4Main 12World Is:4 %mpc. [ $+ [ $chan ] ] 7- 12The4 40+ 12World Is:4 %40pc. [ $+ [ $chan ] ] 7-12 The4 70+ 12World Is:4 %70pc. [ $+ [ $chan ] ] 7- 12The4 100+ 12World Is:4 %100pc. [ $+ [ $chan ] ] 
}
on *:TEXT:!world*:#: {
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if (%100pc. [ $+ [ $chan ] ] == $null) { notice $nick 12There's At Least 1 OR More Worlds That Are Not Set, To Set Them Type4 !PcHelp.  | halt }
  notice $nick 12The 4Main 12World Is:4 %mpc. [ $+ [ $chan ] ] 7- 12The4 40+ 12World Is:4 %40pc. [ $+ [ $chan ] ] 7-12 The4 70+ 12World Is:4 %70pc. [ $+ [ $chan ] ] 7- 12The4 100+ 12World Is:4 %100pc. [ $+ [ $chan ] ] 
}
on *:TEXT:!cwhelp*:#: { 
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  notice $nick 12To Set The4 Main 12Castle Wars World, Please Type4 !SetCw <World> 
} 
on *:TEXT:!Setcw*:#: {
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if ($2 == $null) { notice $nick 12Please specify a World to set | halt }
  elseif ($nick isop $chan) || ($nick ishop $chan) {
    set %mcw. [ $+ [ $chan ] ] $2
    msg $chan 12The4 Main12 Castle Wars World has changed! Type4 !Cw 12To View The Set World.
  }
}
on *:TEXT:@cw*:#: {
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if (%mcw. [ $+ [ $chan ] ] == $null) { notice $nick 12There Is No Current World Set, Type4 !CwHelp 12To Set One. | halt }
  msg $chan 12The 4Main 12Castle Wars World Is:4 %mcw. [ $+ [ $chan ] ] 
}
on *:TEXT:!cw*:#: {
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if (%mcw. [ $+ [ $chan ] ] == $null) { notice $nick 12There Is No Current World Set, Type4 !CwHelp 12To Set One. | halt }
  notice $nick 12The 4Main 12Castle Wars World Is:4 %mcw. [ $+ [ $chan ] ] 
}
on *:TEXT:!reportbug*:#: { 
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  ms send Wishful 12A Bug Has Been Reported By4 $nick 12The Bug Is:4 $2-
}
on *:TEXT:!requestscript*:#: { 
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  ms send Wishful 12A Nick By The Name Of4 $nick 12Wants A Script Added, Info About The Nick Is: $2-
}
on *:TEXT:!rune*:#: { 
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  notice $nick 4[Link]12 http://www.RuneScape.com/
}
on *:TEXT:!tipit*:#: { 
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  notice $nick 4[Link]12 http://www.Tip.It/RuneScape | notice $nick 4[Link]12 12http://Forum.Tip.It/ 
}
on *:TEXT:!questhelp*:#: { 
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  notice $nick 4[Link]12 http://Runescape.Salmoneus.net/Quests/
}
on *:TEXT:!zybez*:#: { 
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  notice $nick 4[Link]12 http://www.Zybez.Net/ | notice $nick 4[Link] 12http://www.RuneScapeCommunity.com/ 
}
on *:TEXT:!runehq*:#: { 
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  notice $nick 4[Link]12 http://www.RuneHq.com/ | notice $nick 4[Link]12 12http://RuneHq.Net/RHQInn/ 
}
on *:TEXT:!rhq*:#: { 
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  notice $nick 4[Link]12 http://www.RuneHq.com/ | notice $nick 4[Link]12 12http://RuneHq.Net/RHQInn/ 
}
on $*:TEXT:/^[!@](check|spell)/Si:#:{ 
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if ($2-) { 
    set %word $replace($2-,$chr(32),+) 
    set %output.dictionary $iif($left($1,1) == @, msg $chan, notice $nick) 
    sockopen dictionary dictionary.reference.com 80 
  } 
  else {  
    set %output.dictionary $iif($left($1,1) == @, msg $chan, notice $nick) 
    %output.dictionary You need to specify a word to lookup! 
  } 
} 
on *:SOCKOPEN:dictionary:{ 
  sockwrite -nt $sockname GET /browse/ $+ %word HTTP/1.1 
  sockwrite -nt $sockname Host: dictionary.reference.com 
  sockwrite -nt $sockname $crlf 
} 
on *:SOCKREAD:dictionary:{ 
  var %sockread 
  sockread %sockread 
  if (*results for:* iswm %sockread) { 
    %output.dictionary 1 %word is spelt 3Correctly1. 
  }  
  if ($regex(%sockread,/<a href="\/search\?r=2&amp;q=(.*?)">(.*?)<\/a>/gi)) { %output.dictionary 12 %word Is spelt4 Incorrectly12. 4Dictionary Sugestions Are:12 $regml(2) $+ , $regml(4) $+ , $regml(8) $+ , $regml(10) $+ , $regml(12) $+ , $regml(14) $+ , $regml(16) $+ , $regml(18) or $regml(20) $+ . 
    sockclose $sockname    
    unset %word 
    unset %output.dictionary 
  } 
} 
on $*:TEXT:/^[!@.](rs)?news$/Si:#:{ 
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  /inc %x 
  /set $+(%,rsnewsname,%x) $iif($left($1,1) = @, msg $chan, notice $nick) 
  /sockopen $+(rsnews.,%x) runescape.com 80 
} 
on *:SOCKOPEN:rsnews.*:{ 
  /sockwrite -n $sockname GET /lang/en/aff/runescape/title.ws HTTP/1.1 
  /sockwrite -n $sockname Host: runescape.com $+ $crlf $+ $crlf 
} 
on *:SOCKREAD:rsnews.*:{ 
  /var %read 
  /sockread %read 
  if (<dt><span class="newsdate">*</span>*</dt> iswm %read) { /set $+(%,rsnewsdh,$gettok($sockname,2,46)) $remove(%read,<dt><span class="newsdate">,</span>,</dt>) 
  } 
  if (<td style="text-align: justify; vertical-align: top;"> isin %read) { /set $+(%,rsnewsp,$gettok($sockname,2,46)) $remove(%read,<td style="text-align: justify; vertical-align: top;">,</td>) 
  } 
  if (<td style="padding-left: 1em; text-align: right; vertical-align: top;"> isin %read) { 
    $eval($+(%,rsnewsname,$gettok($sockname,2,46)),2) Latest Runescape News: 
    $eval($+(%,rsnewsname,$gettok($sockname,2,46)),2) Date: $left($eval($+(%,rsnewsdh,$gettok($sockname,2,46)),2),11) Heading: $right($eval($+(%,rsnewsdh,$gettok($sockname,2,46)),2),-11) 
    $eval($+(%,rsnewsname,$gettok($sockname,2,46)),2) $eval($+(%,rsnewsp,$gettok($sockname,2,46)),2) 
    /unset $+(%,rsnews*,$gettok($sockname,2,46)) 
    /sockclose $sockname 
  } 
}