Something

on *:TEXT:!suggest*:#:{
  set %ThePcwSuggested $2
  set %PcWReason $3-
  set %pcwscouter $nick
  msg $chan $nick Has suggested the world: %ThePcwSuggested . Reason : %PcWReason . Would an op or half-op please check it.
  unset %PcWReason
}
on *:TEXT:!lazy*:#:{
if ($Nick isop $chan) || ($nick ishop $chan) { 
  set %Chanspcw %ThePcwSuggested 
  msg $chan the pcw has been updated type !pcw or !world to view it.
  inc %PcwSets [ $+ [ $nick ] ]
  inc %pcwscouts [ $+ [ %pcwscouter ] ] 
  set %pcwtime $ctime  
  unset %ThePcWSuggested
}
on $*:TEXT:/^!(pcw|world)/Si:#:{
inc %pcwtimesused  
msg $chan The current world for $chan is %Chanspcw Set By: %pcwsetter . Last set $duration($calc( $ctime - %pcwtime )) ago . !pcw Used <> %pcwtimesused <>   
}
on *:TEXT:!setworld*:#:{
if ($Nick isop $chan) || ($nick ishop $chan) { 
msg $chan new world set    
set %pcwtime $ctime 
set %Chanspcw $2
set %pcwscouter $3
inc %PcwSets [ $+ [ $nick ] ]
inc %pcwscouts [ $+ [ %pcwscouter ] ] 
}
on *:TEXT:!scouts:#:{
notice $nick You have set %PcwSets [ $+ [ $nick ] ] . You have scouted %pcwscouts [ $+ [ %pcwscouter ] ]  worlds
}