Mine

on *:TEXT:!setpcw*:?:{
  if (($nick isop #samoschat) || ($nick ishop #samoschat)) { 
    /set -s %var $2 
    /set -s %worldperson $nick
    /unset %worldchange $ctime
    /set %pccount %count
    /set %worldchange $ctime
    /notice $nick 12 The new world is- 4 $2 
    /msg #samoschat 12 The world has been changed!!- 4 Set by $+(,$nick,) 12 -Type 4 !pcw- 12 To see the new world
  }
  else { /notice $nick You are not allowed to set a world, only operators are }
}