Miscellany

on *:TEXT:!setworld*:#: {
  if ($(%,pcon,$2),2) {
    if ($nick isop ($($+(%,sets,%pchan,$2),2)) || $nick ishop ($($+(%,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 ($($+(%,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 {
        only Ops and Halfops of ($($+(%,sets,%pchan,$chan),2)) can Set worlds
      }
    }
  }
}