Stuff

on *:TEXT:!count:#: { 
  /notice $nick 1Users on4 $chan 4[12Total:6 $nick($chan,0) $+ 4]
  /notice $nick 4@Ops:6 $nick($chan,0,o) 12| 7%Half-Ops:6 $nick($chan,0,h) 12| 2+Voiced:6 $nick($chan,0,v) 12| 10Regulars:6 $nick($chan,0,r)
}
on *:text:@if:*:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    /msg $chan 0,1 If you are 95+ Combat, 85+ Str or 90+ range join #pest-time for faster worlds.
  }
}
on *:text:!pcw:*:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    //notice $nick 10»14]12[World:4 %world $+ 12][Suggested:4 %suggest $+ 12][Last updated:4 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) $+ 12][Set by4 %nic $+ 12]14[10«
  }
}
on *:text:!p:*:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    //notice $nick 10»14]12[World:4 %world $+ 12][Suggested:4 %suggest $+ 12][Last updated:4 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) $+ 12][Set by4 %nic $+ 12]14[10«
  }
}
on *:text:!w:*:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    //notice $nick 10»14]12[World:4 %world $+ 12][Suggested:4 %suggest $+ 12][Last updated:4 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) $+ 12][Set by4 %nic $+ 12]14[10«
  }
}
on *:text:!world:*:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    //notice $nick 10»14]12[World:4 %world $+ 12][Suggested:4 %suggest $+ 12][Last updated:4 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) $+ 12][Set by4 %nic $+ 12]14[10«
  }
}
on *:text:@p:*:{
  if ($nick isop $chan) {
    /msg $chan 10»14]12[World:4 %world $+ 12][Suggested:4 %suggest $+ 12][Last updated:4 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) $+ 12][Set by4 %nic $+ 12]14[10«
  }
}
on *:text:@pcw:*:{
  if ($nick isop $chan) {
    /msg $chan 10»14]12[World:4 %world $+ 12][Suggested:4 %suggest $+ 12][Last updated:4 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) $+ 12][Set by4 %nic $+ 12]14[10«
  }
}
on *:text:@w:*:{
  if ($nick isop $chan) {
    /msg $chan 10»14]12[World:4 %world $+ 12][Suggested:4 %suggest $+ 12][Last updated:4 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) $+ 12][Set by4 %nic $+ 12]14[10«
  }
}
on *:text:@world:*:{
  if ($nick isop $chan) {
    /msg $chan 10»14]12[World:4 %world $+ 12][Suggested:4 %suggest $+ 12][Last updated:4 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) $+ 12][Set by4 %nic $+ 12]14[10«
  }
}
on *:text:!suggest*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    if ( $2 == %suggest ) {
    notice $nick That world has already been suggested $+ . | halt }
    if ($2 isnum) {
      set %suggest $2
      notice $nick Thankyou, your suggestion has been noticed. If you abuse this system you will be banned.
    }
    else { 
    notice $nick That is not a valid world. }
  }
}
on $*:TEXT:/^[!](change|setpcw|setworld)/Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ( $2 == %world ) {
    /notice $nick The world is already $2 $+ . | halt }
    if ($2 isnum) {
    set %world $2 }
    else {
    /notice $nick That is not a valid world. | halt }
    set %nic $nick
    set %suggest N/A
    set %pcsettime. [ $+ [ $chan ] ] $ctime
    /msg #pest-time 4 %nic 10has updated the 4Pest-Control 10world. 
    /msg #pest-time 10Type 4!pcw 10or 4!world 10to see the world.
    /msg #pest-time.staff 4 %nic 10has updated the 4Pest-Control 10world. 
    /msg #pest-time.staff 10Type 4!pcw 10or 4!world 10to see the world.
  }

  else {
    /notice $nick 1Only 4Ops 1and 7Half-Ops 1can set the 10Pest-Control 1world. 
    /notice $nick 1If you have a world you would like to suggest, type
    /notice $nick 4!suggest 12WORLD 1(eg. 4 !suggest12 991)
  }
}