Someone

on *:TEXT:!PCWOFF*:#:{
 msg $chan pcw scripts now off
 set %pcwscripts false
}
on *:TEXT:!PCWON*:#:{
msg $chan pcw scripts now on
unest %pcwscripts
}
on *:TEXT:!suggest*:#:{ 
 if (%pcwscripts == false) { HALT } 
 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) { 
  if (%pcwscripts == false) { HALT }    
 set %Chanspcw %ThePcwSuggested 
    msg $chan A new world has been set for $chan type !world or !pcw to view it.     
    inc %PcwSets [ $+ [ $nick ] ] 
    inc %pcwscouts [ $+ [ $ ] ] 
    set %pcwtime $ctime  
    unset %ThePcWSuggested 
    set %pcwsetter $nick  
    set %pcwscouter    
  } 
} 
on $*:TEXT:/^!(pcw|world)/Si:#:{ 
  if (%pcwscripts == false) { HALT }  
 inc %pcwtimesused  
  notice $nick The current world for $chan is %Chanspcw Set By:  %pcwsetter . Last set $duration($calc( $ctime - %pcwtime )) ago .Scouter: %pcwscouter !pcw Used <> %pcwtimesused <>    
} 
on *:TEXT:!setworld*:#:{ 
 if (%pcwscripts == false) { HALT }   
if ($Nick isop $chan) || ($nick ishop $chan) { 
    msg $chan A new world has been set for $chan type !world or !pcw to view it.    
    set %pcwtime $ctime 
    set %Chanspcw $2 
    set %pcwscouter $3 
    inc %PcwSets [ $+ [ $nick ] ] 
    inc %pcwscouts [ $+ [ %pcwscouter ] ] 
  } 
} 
on *:TEXT:!scouts:#:{ 
 if (%pcwscripts == false) { HALT } 
  notice $nick You have set %PcwSets [ $+ [ $nick ] ] . You have scouted %pcwscouts [ $+ [ $nick ] ]  worlds. 
}