Someone

on *:text:!setpcw *:#: { if ($nick isop $chan) {
    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 is10 %world [ $+ [ $chan ] ] 3but10 %suggest3 [ $+ [ $chan ] ] 3was suggested by10 %nick3 [ $+ [ $chan ] ]
}