on *:TEXT:!part *:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($2 == $me) { part $chan 10Part command requested by 4 $+ $nick 10 $+ . }
  }
}
on *:TEXT:!commands:#:{
  msg $nick 10[-PcBot-] ~ 4Part of the MaxBot Family.
  msg $nick 10!pcjoinon - 4Shows combat of nick on join.
  msg $nick 10!pcjoinoff - 4Turns off combat of nick on join.
  msg $nick 10!setrule <your rules> - 4Set rules for your channel.
  msg $nick 10!rules - 4Shows rules for your channel.
  msg $nick 10!setworld/!setpcw <world> - 4Sets a pest control world for you.
  msg $nick 10!pcw/!world - 4View the pest control world.
  msg $nick 10!aov <user> - 4Auto voice someone. (Must be OP)
  msg $nick 10!pm - 4Alerts user's to Private Message $nick on Runescape. (Must be OP)
  msg $nick 10!part  $+ $me $+  - 4To make $me leave your channel.
}
on *:TEXT:!pcjoinon:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %pcjoin [ $+ [ $chan ] ] on 
    msg $chan 10The combat on-join is now 4on 10for 4 $+ $chan $+ 10.
  }
}
on *:TEXT:!pcjoinoff:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    unset %pcjoin [ $+ [ $chan ] ] on 
    msg $chan 10The combat on-join is now 4off 10for 4 $+ $chan $+ 10.
  }  
}
on *:INVITE:#:{
  join $chan
  msg $chan 10 $+ $me $+  A full scripted Pest Control Bot. To view a full list of commands, type 4!commands10. If you want $me to leave type 4!part [-PcBot-]10. Enjoy using  $+ $me $+ !
}
on *:TEXT:!pm:#:{
  if ($nick isop $chan) || ($nick ishop $chan) { msg $chan 4[0:00] 10Please can all un-voiced users private message 4 $+ $nick 10on Runescape for validation and voice. | .timer 1 5 msg $chan 4[0:05] 10Please can all un-voiced users private message 4 $+ $nick 10on Runescape for validation and voice. }
  else { notice $nick 10You cannot use this command. 
  }
}
on *:TEXT:!ruleoff:#:{
  if ($nick isop $chan) || ($nick ishop $chan) { unset %ruleuse [ $+ [ $chan ] ] on | notice $nick 10The rules for 4 $+ $chan $+ 10, have been 4disabled10.
  }
}
on *:TEXT:!rules:#:{
  if (%ruleuse [ $+ [ $chan ] ] == on) { 
    msg $chan 10Searching rules for the channel 4 $+ $chan $+ 10. [4Please Wait10] | .timer 1 2 msg $chan 10Rules4 $+ : %rule [ $+ [ $chan ] ] 10[Last Updated: 4 $+ %ruletime  [ $+ [ $chan ] ]  $+ 10]  
  }
  else { notice $nick 10There are no rules for 4 $+ $chan $+ 10.
  }
}
on *:TEXT:!setrule*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) { set %rule [ $+ [ $chan ] ] $2- | set %ruletime [ $+ [ $chan ] ] $fulldate | set %ruleuse [ $+ [ $chan ] ] on | notice $nick 10You have succesfully changed the 4 $+ $chan 10rules for the bot 4 $+ $me $+ 10.
    else { notice $nick 10You cannot use this command.
    }
  }
}
on $*:TEXT:/^[!@.](set(pcw|word)?)/Si:#: {
  if ($nick isop $chan) || ($nick ishop $chan) && ($2 isnum 2-138) { set %pcworld [ $+ [ $chan ] ] $2 | set %pctime [ $+ [ $chan ] ] $fulldate | set %pcnick [ $+ [ $chan ] ] $nick | set %pcuse [ $+ [ $chan ] ] on | msg $chan 4[0:00] 10The Pest Control world has been updated. Please type 4!pcw 10or 4!world 10to view it. | .timer 1 5 msg $chan 4[0:05] 10The Pest Control world has been updated. Please type 4!pcw 10or 4!world 10to view it. }
  else { notice $nick 10You cannot use this command.
  }
}
on *:TEXT:!pcw:#:{
  if (%pcuse [ $+ [ $chan ] ] == on) {
  notice $nick 10The current pest control world is 4[ $+ %pcworld [ $+ [ $chan ] ] $+ ] 10and was set by 4 $+ %pcnick [ $+ [ $chan ] ] $+ 10. Last Updated: 4 $+ %pctime  [ $+ [ $chan ] ] $+ 10. }
  else { notice $nick 10There is no world set for 4 $+ $chan $+ 10.
  }
}
on *:TEXT:!world:#:{
  if (%pcuse [ $+ [ $chan ] ] == on) {
  notice $nick 10The current pest control world is 4[ $+ %pcworld [ $+ [ $chan ] ] $+ ] 10and was set by 4 $+ %pcnick [ $+ [ $chan ] ] $+ 10. Last Updated: 4 $+ %pctime  [ $+ [ $chan ] ] $+ 10. }
  else { notice $nick 10There is no world set for 4 $+ $chan $+ 10.
  }
}
on *:TEXT:!aov *:#:{
  if ($nick isop $chan) || ($nick ishop $chan) && ($me isop $chan) { writeini Autovoice1.ini Voice $2 $chan | mode $chan +v $2 | msg $chan 10Added 4 $+ $2 10to the Autovoice list. }
  else { notice $nick 10You cannot use this command.
  }
}
on *:TEXT:*:#:{
  if ($nick isop $chan) && ($me isop $chan) {
    if ($1 == !op) { mode $chan +o $2 }
    if ($1 == !deop) { mode $chan -o $2 }
    if ($1 == !halfop) { mode $chan +h $2 }
    if ($1 == !dehalfop) { mode $chan -h $2 }
    if ($1 == !voice) { mode $chan +v $2 }
    if ($1 == !devoice) { mode $chan -v $2 }
  }
} 
on *:JOIN:#:{
  if ($readini(Owner.ini,$nick,Owner) == $address($nick,2)) { msg $chan 10[4 $+ $nick $+ 10] The owner of 4 $+ $me 10has joined 4 $+ $chan $+ 10. }
  if ($readini(Autovoice1.ini,-n,Voice,$nick) == $chan) { mode $chan +v $nick | msg $chan 4 $+ $nick 10 was found on the Autovoice list for 4 $+ $chan $+ 10. }
  if (%pcjoin. [ $+ [ $chan ] ] == on) { halt } 
  set -u5 %pcjoin. $+ $chan on
  if (%pcjoin [ $+ [ $chan ] ] == $null) || ($nick == $me) { halt }
  set %channy $chan
  set %user $nick
  set %pc.msg msg $chan
  sockopen pestkick www.slushpuppy.silverinterlocution.org 80
}
on *:SOCKOPEN:pestkick*:{
  sockwrite -nt $sockname GET /pestcontrol.php?pestcontrol= $+ %user HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:pestkick*:{
  var %sockread
  sockread %sockread
  if (<b> isin %sockread) {
    set %attack $gettok($htmlfree(%sockread),4,32)
    set %strength $gettok($htmlfree(%sockread),8,32)
    set %defence $gettok($htmlfree(%sockread),6,32)
    set %hit $gettok($htmlfree(%sockread),10,32)
    set %range $gettok($htmlfree(%sockread),12,32)
    set %prayer $gettok($htmlfree(%sockread),14,32) 
    set %mage $gettok($htmlfree(%sockread),16,32)  
  }
  if (<br> isin %sockread) {
    var %combat = $htmlfree(%sockread)
    %pc.msg 10User: 4 $+ %user 10 $+ Attack: %attack Strength: %strength Defence: %defence Hitpoints: %hit Range: %range Mage: %mage Prayer: %prayer Combat: %combat $+ 10.
    sockclose $sockname | unset %combat.3 | unset %channy | unset %user | unset %attack | unset %strength | unset %mage | unset %range | unset %prayer | unset %defence | unset %hit | unset %pc.msg
  }
}

on *:Sockclose:pestkick*:{
  Sockclose $sockname
  unset %combat | unset %channy | unset %user | unset %attack | unset %strength | unset %mage | unset %range | unset %prayer | unset %defence | unset %hit | unset %pc.msg
}


alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x }