Someone

on *:TEXT:!setworld*:?: {  
  if ($nick isop #pcmasters) || ($nick ishop #pcmasters) || ($nick isop #smooth) {  
    set %pkworld $2
    set %Pcnick $nick
    msg #pcmasters 14the pcworld has been changed by7 $nick 14type  7!world 14or 7!pcw 14to see it
  } 
}
on $*:TEXT:/^[!@](world|pcw) */Si:#: {
  if (%pkworld == $null) notice $nick 14Sorry, but there is no world set.
  elseif ($nick isvoice #pcmasters) || ($nick ishop #pcmasters) || ($nick isop #pcmasters) || ($nick isop #smooth) {
    inc %pccount
    notice $nick 7 %pkworld 14is the recommended world on7 #pcmasters 14set by7 %pcnick $+ . 14used7 %pccount 14times 13(4if the world sucks type !suggest <world>. Happy pcing13)
  }
}
on *:TEXT:!noworld*:?: {
  if ($nick isop pcmasters) || ($nick isop #smooth) {
    unset %pkworld
    msg pcmasters 14The pcing world has now been reset by7 $nick
  }
  else notice $nick 14Sorry, but only op's can reset the world.
}