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 
    inc %PcwSets [ $+ [ $nick ] ] 
    inc %pcwscouts [ $+ [ %pcwscouter ] ] 
  } 
}