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 ] ]
}
}