Someone

on *:TEXT:!wsuggest *:#power-pc:{ 
  if (!$istok(2 6 9 12 18 22 23 24 26 27 28 31 36 41 42 44 46 48 53 54 56 58 59 60 64 65 66 69 70 71 76 77 78 79 82 83 84 88 89 91 92 97 98 99 100 103 104 110 111 112 114 115 116 120 121 123 124 126 129 130 131 132,$2,32)) { .notice $nick Only members worlds may be suggested. }
  else {
    set %Change $2-
    msg #ppc-staff 6 $+ $nick has suggested the world4 $2- $+ 6, Hit !Change To Change it.
  }
}
on *:TEXT:!change:#ppc-staff:{ 
  set %world %Change
  msg #power-pc 6The Current PC World has just been changed! Type4 !world 6to see it! ; 6PcWorld Set by4 $nick $+ .
}
on *:text:!world:#:{ notice $nick The Current PCW is ^9,10 %world 1,0^ }
on *:TEXT:!decline:#ppc-staff:{
msg #power-pc 6 The world suggestoin was declined, please look for a better world. Type !wsuggest <W> to suggest a world ; Declined by $nick }
on *:TEXT:!setworld *:#power-pc:{
  if (!$istok 2 6 9 12 18 22 23 24 26 27 28 31 36 41 42 44 46 48 53 54 56 58 59 60 64 65 66 69 70 71 76 77 78 79 82 83 84 88 89 91 92 97 98 99 100 103 104 110 111 112 114 115 116 120 121 123 124 126 129 130 131 132,$2,32)) { .notice $nick Only members worlds may be suggested. }
  else {
  set %world $2-
  msg #power-pc 6The Current PC World has just been changed! Type4 !world 6to see it! ; 6PcWorld Set by4 $nick $+ .
}
}