on *:TEXT:!setpcw*:#:{ 
  if (($nick isop $chan) || ($nick ishop $chan)) { 
    set %pcw $2- 
    describe $chan  The pcw has been set, plz type !pcw to see it! 
  } 
} 
on *:TEXT:!pcw:#:{ 
  if %pcw { 
    notice $nick The pestcontrol world is ~~ %pcw ~~ and the suggest world is ~~ %suggest ~~ 
  } 
} 
on *:TEXT:!suggest*:#: { 
  set %suggest $2- { 
    describe $chan $nick has suggested a world, please type !pcw to see it! 
  } 
} 
on *:TEXT:!delpcw*:#:{ 
  if (($nick isop $chan) || ($nick ishop $chan)) { 
    unset %pcw 
    unset %suggest 
    Notice $chan The pcw has been deleted 
  } 
} 
on $*:TEXT:/^[!@.]s(et)?pc-?l(ist)?/Si:#:{ 
  if ($nick isop $chan || $nick ishop $chan) { 
    if ($2 !isnum || !$3) { notice $nick You must supply a number in this fashion: $1 <number> <rsn> } 
    if ($2 != 1 && !$readini(Pcl.ini,-n,$chan,$calc( $2 - 1 ))) { notice $nick You have not yet supplied the $calc( $2 - 1 ) person in the list } 
    else { 
      writeini Pcl.ini $chan $2 $3 
      notice $nick $3 has been added as number $2 on the PC list 
    } 
  } 
} 
on $*:TEXT:/^[!@.]pc-?l(ist)?/Si:#:{ 
  if (!$readini(Pcl.ini,-n,$chan,1)) { notice $nick No list has been made } 
  else { 
    var %x = 1 
    while ($readini(Pcl.ini,-n,$chan,%x)) { 
      msg $nick %x $+ . $readini(Pcl.ini,-n,$chan,%x) 
      inc %x 
    } 
  }