Demon

on *:TEXT:!setworld*:#: {
  if ($(%,pcon,$2)) {
    if ($nick isop $+(%,sets,%pchan,$2) || $nick ishop $+(%,sets,%pchan,$2)) {
      if ($regex($3,/[2-144]/) {
        set $+(%,pcw,$2) $3
        $iif($4,set $+(%,pcs,$2) $4,set $+(%,pcs,$2) N/A) 
        set $+(%,pcset,$2) $nick 
        notice $nick Changed world to $3 Scouted by $4 Set by $nick 
        msg $+(%,pchan,$2) 10!!4Attention10!! 10PCWORLD has been changed! Press 4!world or !pcw 10to view it or 4!suggest10 to suggest a new, better world.
      }
      else {
        notice $nick Please use a RSworld.
      }
      else {
        only Ops and Halfops of $+(%,sets,%pchan,$chan) can Set worlds
      }
    }
  }
}