IWay pc script

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 The current [ [Pest world ] ] Has updated type !pcw or !world 
  } 
  Else { 
    Notice $nick You must be op to set a world. 
  } 
} 
on $*:TEXT:/^[!@.](pcw|world|pc)/si:#:{ 
  Notice $nick The current pest world is [ %world ] ] set by [ [ %pcnick ] ] This world was last set  [ [ $duration($calc($ctime - %time)) ] ] Ago. 
} 
on $*:TEXT:/^[!@.](suggest|wsuggest|sw)/si:#:{ 
  if ($nick isreg $chan) { 
    if ($2 isnum 2-140) { 
      msg $chan  $nick has suggested world $2 
    } 
  } 
  Else { 
    Notice $nick You can set a world by typing !setpcw. No need to suggest. 
  } 
} 

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