on *:TEXT:!suggest*:#:{ 
  set %ThePcwSuggested $2 
  set %PcWReason $3- 
  set %pcwscouter $nick 
  msg $chan   12  $nick 1 Has suggested the world: 12  %ThePcwSuggested . 1  Reason : 12  %PcWReason . 1 Would an op or half-op please check it. 
  unset %PcWReason 
} 

on $*:TEXT:/^!(pcw|world)/Si:#:{ 
  inc %pcwtimesused  
  notice $nick 1 The current world for $chan is 12  %Chanspcw 1  Set By:  12  %pcwsetter  1  Last set 12  $duration($calc( $ctime - %pcwtime )) ago 1  !pcw Used « 12  %pcwtimesused 1  ».  The suggested world for $chan is 12  %ThePcwSuggested   
} 

on *:TEXT:!setpcw*:#:{ 
  if ($Nick isop $chan) || ($nick ishop $chan) { 
    msg $chan 1,4  A new world has been set for $chan type !world or !pcw to view it.    
    set %pcwtime $ctime 
    set %Chanspcw $2 
    set %pcwscouter $3 
    set %pcwsetter $nick
    inc %PcwSets [ $+ [ $nick ] ] 
    inc %pcwscouts [ $+ [ %pcwscouter ] ] 
  } 
} 
on *:TEXT:!sets:#:{ 
  notice $nick 1,4 You have set %PcwSets [ $+ [ $nick ] ] . You have scouted %pcwscouts [ $+ [ $nick ] ]  worlds. 
}