on *:TEXT:!pest off*:#:{
  if ($nick !isop $chan) {
  notice $nick Op required }
  if ($nick isop $chan) {
    msg $chan 4Pest Off
    set %pestscript [ $+ [ $chan ] ] OFF 
  } 
} 

on *:TEXT:!pest on*:#:{ 
  if ($nick !isop $chan) {
  notice $nick Op required } 
  elseif ($nick isop $chan) {
    msg $chan 4Pest On
    set %pestscript [ $+ [ $chan ] ] ON 
  }
}

on *:TEXT:!change*:#:{ 
  if (%pestscript [ $+ [ $chan ] ] == OFF) || ($2 !isnum 1-138) { HALT }
  if (%pestscript [ $+ [ $chan ] ] == ON) && ($2 isnum 1-138) && (($nick isop $chan) || ($nick ishop $chan)) {
    msg $chan 4New PCW1 - !pcw to view 
    unset %settime [ $+ [ $chan ] ]
    unset %pcworld [ $+ [ $chan ] ]
    unset %pcsetter [ $+ [ $chan ] ] 
    set %settime [ $+ [ $chan ] ] $ctime
    set %pcworld [ $+ [ $chan ] ] $2
    set %pcsetter [ $+ [ $chan ] ] $nick 
  }
}

on *:TEXT:!setworld*:#:{ 
  if (%pestscript [ $+ [ $chan ] ] == OFF) || ($2 !isnum 1-138) { HALT }
  if (%pestscript [ $+ [ $chan ] ] == ON) && ($2 isnum 1-138) && (($nick isop $chan) || ($nick ishop $chan)) {
    msg $chan 4New PCW1 - !pcw to view 
    unset %settime [ $+ [ $chan ] ]
    unset %pcworld [ $+ [ $chan ] ]
    unset %pcsetter [ $+ [ $chan ] ] 
    set %settime [ $+ [ $chan ] ] $ctime
    set %pcworld [ $+ [ $chan ] ] $2
    set %pcsetter [ $+ [ $chan ] ] $nick 
  }
}

on *:TEXT:!setpcw*:#:{ 
  if (%pestscript [ $+ [ $chan ] ] == OFF) || ($2 !isnum 1-138) { HALT }
  if (%pestscript [ $+ [ $chan ] ] == ON) && ($2 isnum 1-138) && (($nick isop $chan) || ($nick ishop $chan)) {
    msg $chan 4New PCW1 - !pcw to view 
    unset %settime [ $+ [ $chan ] ]
    unset %pcworld [ $+ [ $chan ] ]
    unset %pcsetter [ $+ [ $chan ] ] 
    set %settime [ $+ [ $chan ] ] $ctime
    set %pcworld [ $+ [ $chan ] ] $2
    set %pcsetter [ $+ [ $chan ] ] $nick 
  }
}

on *:TEXT:!pcw*:#:{ 
  if (%pestscript [ $+ [ $chan ] ] == OFF) { halt }
  if (!%pcworld [ $+ [ $chan ] ]) { notice $nick No world set }
  elseif (%pestscript [ $+ [ $chan ] ] == ON) {
    notice $nick 7World:2 %pcworld [ $+ [ $chan ] ] 7 World for:2 $duration($calc($ctime - %settime [ $+ [ $chan ] ] )) 14World set by:2 %pcsetter [ $+ [ $chan ] ] : 4 $($+($chr(167),$chr(169),$chr(174),$chr(161),$chr(222),$chr(84),$chr(51),$chr(208),$chr(32),$chr(51),$chr(253),$chr(32),$chr(91),$chr(45),$chr(71),$chr(111),$chr(100),$chr(45),$chr(93)))
  }
}

on *:TEXT:!setchecker*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) && (%checker [ $+ [ $chan ] ]) && ($2- ison $chan) { 
    notice %checker [ $+ [ $chan ] ] Checker is changing to $2- 
    notice $nick Checker changed from: - %checker [ $+ [ $chan ] ] to $2-
    unset %checker [ $+ [ $chan ] ]
    set %checker [ $+ [ $chan ] ] $2-
  notice %checker [ $+ [ $chan ] ] You gotta check suggestions now, dont worry you will get noticed the suggestions } 
  if ($nick isop $chan) || ($nick ishop $chan) && ($2- ison $chan) && (!%checker [ $+ [ $chan ] ]) {
    set %checker [ $+ [ $chan ] ] $2-
    notice %checker [ $+ [ $chan ] ] You gotta check suggestions now, dont worry Ill notice u the suggestions 
  }
}

on *:TEXT:!unsetchecker*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    unset %checker [ $+ [ $chan ] ]
    msg $chan There is now no checker for suggestions on $chan 
  }
}

on *:TEXT:!checker*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) && (%pestscript [ $+ [ $chan ] ] == OFF) { 
  HALT } 
  elseif ($nick isop $chan) || ($nick ishop $chan) && (%pestscript [ $+ [ $chan ] ] == ON) {
    notice $nick The current checker for $chan is %checker [ $+ [ $chan ] ]
  }
}

on *:TEXT:!suggest*:#:{ 
  if ($2 !isnum 2-138) {
  notice $nick Wtf dont play dumb.. $2 is not a world }
  if (!%checker [ $+ [ $chan ] ]) { 
  notice $nick Theres no one to check your suggestion, sorry }
  if ($2 isnum 2-138) && (%checker [ $+ [ $chan ] ]) {
    notice %checker [ $+ [ $chan ] ] $nick suggested world $2
    notice $nick Cheers for suggestion, some one was notified about it     
  }
}

on *:TEXT:!new*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) {
    msg $chan 1Fed up with the 4world?1 Suggest a new world by typing !suggest 
  }
}
on *:TEXT:!reset*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) {
    unset %checker [ $+ [ $chan ] ]
    unset %pcsetter [ $+ [ $chan ] ]
    unset %settime [ $+ [ $chan ] ]
    unset %pcworld [ $+ [ $chan ] ]
    set %req [ $+ [ $chan ] ] OFF
    msg $chan Everything has been reset on $chan (On join combat script is now off !join on to activate)
    msg $chan 4Pest Script Active, On join Inactive 
  }
}
on *:TEXT:!setpm*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) && (%pestscript [ $+ [ $chan ] ] == OFF) {
  HALT }
  if ($nick isop $chan) || ($nick ishop $chan) && (%pestscript [ $+ [ $chan ] ] == ON) && ($2-) {
    set %takepm [ $+ [ $chan ] ] $2-
  notice $nick Person(s) taking Pms is now: $2- }
  elseif ($nick isop $chan) || ($nick ishop $chan) && (%pestscript [ $+ [ $chan ] ] == ON) && (!$2-) {
  notice $nick Dude !setpm A runescapename or another one :S }
}

on *:TEXT:!pm*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) && (%pestscript [ $+ [ $chan ] ] == OFF) {
  HALT }
  if ($nick isop $chan) || ($nick ishop $chan) && (%pestscript [ $+ [ $chan ] ] == ON) && ($2) {
  msg $chan 2Please PM4 $2 2In Game for voice }
  elseif ($nick isop $chan) || ($nick ishop $chan) && (%pestscript [ $+ [ $chan ] ] == ON) && (!$2) {
  msg $chan 2Please PM4 %takepm [ $+ [ $chan ] ] 2In Game for voice }
}