on*:text:!setpcw*:#: {
  (if $nick == op)
  set %world3 $2-
  msg $chan 3 a new world has been set  
}

on*:text:!suggest *:#: {
  set %suggest3 $2-
  set %nick3 $nick
  notice $nick 3You have suggested a new world
}

on $*:text:/^[!@.](pcw|world)/Si:#: {
  set %reply3 $iif($left($1,1) == @ ,msg $chan ,notice $nick)
  %reply3 3 The PC world is 8 %world3 3 but 8 %suggest3 3 was suggested by 8 %nick3