Demon

on *:TEXT:!setworld*:#: {
  if (($($+(%,pcon,$2),2))) {
    if ($nick isop $eval($+(%,sets,%pchan,$2),2) || $nick ishop $eval($+(%,sets,%pchan,$2),2) {
      if ($regex($3,/[2-144]/) {
        set ($($+(%,pcw,$2),2)) $3
        $iif($4,set ($($+(%,pcs,$2),2)) $4,set ($($+(%,pcs,$2),2)) N/A) 
        set ($($+(%,pcset,$2),2)) $nick 
        notice $nick Changed world to $3 Scouted by $4 Set by $nick 
        msg $eval($($+(%,pchan,$2),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 {
      notice $nick only Ops and Halfops of $eval($+(%,sets,%pchan,$2),2) can Set worlds
    }
  }
}