on $*:TEXT:/^[!@.](setpcw|set|change|setworld)/si:#:{ 
  if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan) { 
    set %world $2 
    set %pcnick $nick 
    set %time $ctime 
    msg $chan 6The current [ [Pest world ] ] Has updated type 13!pcw6 or 13!world 
  } 
  Else { 
    Notice $nick 6You must be 13op6 to set a world. 
  } 
} 
on $*:TEXT:/^[!@.](pcw|world|pc)/si:#:{ 
  Notice $nick 6The current pest world is13 [ %world ] ] 6set by13 [ [ %pcnick ] ] 6This world was last set13  [ [ $duration($calc($ctime - %time)) ] ] Ago6. 
} 
on $*:TEXT:/^[!@.](suggest|wsuggest|sw)/si:#:{ 
  if ($nick isreg $chan) { 
    if ($2 isnum 2-140) { 
      msg $chan 13 $nick 6has suggested13 world $2 
    } 
  } 
  Else { 
    Notice $nick 6You can set a world by typing13 !setpcw6. No need to suggest. 
  } 
} 

on *:TEXT:!start:#:{ 
  if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan) { 
    msg $chan 13Timer activated. 
    timer 0 30 msg $chan 6The current pest world is13 [ [ %world ] ] 6set by13 [ [ %pcnick ] ] 6This world was last set13  [ [ $duration($calc($ctime - %time)) ] ]6Ago. 
  } 
} 
on *:TEXT:!stop:#:{ 
  if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan) { 
    Msg $chan 13Timer halted. 
  }