Something

on $*:text:/^[!@.>~](pcw|world) */Si:#: {
  if (!%pcw) { /notice $nick There Is No Currently Set World }
  else {
  inc %world.time | $iif($left($1,1) == @ && ($nick !isreg $chan),msg $chan,.notice $nick) 3The Current #RSPC PC World is:4 %pcw $+ , 3The World Command Has been Used12 $bytes(%world.time,b) 3Times. }
}
on $*:text:/^[!@.>~]Setpcw */Si:#: {
  if ($nick !isreg $chan) {
    /set %pcw $2 | notice $nick World Has Been Set to $2 
  }
  else { notice $nick You do not have the access level required to use that command. }
}