Mine

on *:TEXT:!setpcw*:#: { 
  if ($nick isop # || $nick ishop #) || ($nick = hoi153) && ($2 isnum 2-136) { 
    set %pcw.nick. [ $+ [ $chan ] ] $nick 
    set %pcw.world. [ $+ [ $chan ] ] $2 
    set %pcw.time. [ $+ [ $chan ] ] $ctime
    msg #  4 There is a new  7PC world  4 set by:7 %pcw.nick. [ $+ [ $chan ] ] 4type  12!pcw 4 or  12!world 4 to find out. 
  } 
  else { 
    notice $nick  4 Sorry only OPs/hOPs May use this command. (or you have to take a member world)
  } 
} 
on $*:TEXT:/^[!@.](pcw|world)/Si:#: { 
  if ($nick isreg $chan) { halt } 
  elseif (%pcw.nick. [ $+ [ $chan ] ] != $null) { 
    notice $nick  12 The current  4PC World  12is 4 %pcw.world. [ $+ [ $chan ] ] $+ . 12 set by: 4 %pcw.nick. [ $+ [ $chan ] ] . 12 set4 $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) 12ago
  } 
}
on *:TEXT:!setworld*:#: { 
  if ($nick isop # || $nick ishop #) || ($nick = hoi153) && ($2 isnum 2-136) { 
    set %pcw.nick. [ $+ [ $chan ] ] $nick 
    set %pcw.world. [ $+ [ $chan ] ] $2 
    set %pcw.time. [ $+ [ $chan ] ] $ctime
    msg #  4 There is a new  7PC world  4 set by:7 %pcw.nick. 4type  12!pcw 4 or  12!world 4 to find out. 
  } 
  else { 
    notice $nick  4 Sorry only OPs/hOPs May use this command. (or you have to take a member world)
  } 
} 
on *:TEXT:!suggest*:#: { /msg Hoi153 7 $nick 4suggested the world7 $2 4in7 $chan | /notice $nick 4thanks for your suggestion }