Mine

on *:TEXT:!suggest*:#110pc: {  
  if ($istok(6 9 12 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 83 83 84 88 89 91 92 97 98 99 100 103 104 110 111 112 114 115 116 120 121 123 124 129 130 131 132,$2,32)) {
    set %sworld $2
    set %snick $nick
    set %schan $chan
    set %sug $nick
    onotice #pestcontrol 14New world suggestion:4 %sworld 14by4 %snick 14on4 %schan
    onotice #pestcontrol 14Description with world4 %sworld 14:4 $3-
    /msg #suggest 4W14e 4N14eed 4A14t 4L14east4 3 P14pl 4T14o 4C14onfirm 4T14hat4 %sworld I14s4 A G14ood 4W14orld 4T14ype4 !confirm T14o 4C14onfirm 
    /unset %confirm  
  }
  else { notice $nick 14The world can only contain numerics, dont use 4.Suggest world 14(4...14) but 4.Suggest Number5.
    notice $nick 14Also, you can only suggest Member Worlds excluding world 2, 18 and 66.
  }
}

on *:TEXT:!setsuggest:#110pc: { if ($nick isop #) || ($nick ishop #) {
    /msg #pestcontrol 14New world being set:4 %sworld 14suggested by4 %snick
    /set %worldnub %sworld
  }
}
on *:TEXT:!setworld*:#110pc: { if ($nick isop #) || ($nick ishop #) && ($istok(6 9 12 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 83 83 84 88 89 91 92 97 98 99 100 103 104 110 111 112 114 115 116 120 121 123 124 129 130 131 132,$2,32)) {
    /msg #110pc 14New world being set:4 $2
    /set %worldnub $2
  }
}
on *:TEXT:!world:#110pc: {
  /notice $nick 4C14urrent 4W14orld is : %worldnub
}
on *:TEXT:!add*:#check,#110pc: { if ($nick isop #) || ($nick ishop #) {
    /writeini mylist.ini ALLOW $2 $2
    /msg $2- 4you have been added to my14 #110pc4 userlist.14 Being on this list allows you to use4 #110pc
  }
}
on *:TEXT:!black*:#pestcontrol,#check,#suggest,#110pc: { if ($nick isop #) || ($nick ishop #) { if ($2 == $me) { halt }
    else {
      auser -a black $2
      /msg $2- 4 you have been added to my14 #pestcontrol4 blacklist by4 $nick 14for reason4 $3 .
      /ban -k #pestcontrol $2
      /ban -k #suggest $2
      /ban -k #check $2
    }
  }
}
on *:TEXT:!black*:#110PC: { if ($nick isop #) || ($nick ishop #) { if ($2 == $me) { halt }
    else {
      /writeini mylist.ini BLACK $2 $2
      /msg $2 4 you have been added to my14 #chat4 blacklist by4 $nick 14for reason4 $3 .
      /ban -k #chat $2
    }
  }
}
on *:TEXT:!removeblack*:#110PC: { if ($nick isop #) || ($nick ishop #) { if ($2 == $me) { halt }
    else {
      /remini mylist.ini BLACK $2 $2
      /msg $2 4 you have been removed from my14 #chat4 blacklist by4 $nick 
    }
  }
}  

on *:TEXT:!remove*:#110pc: { if ($nick isop #) || ($nick ishop #) { if ($2 == $me) { halt }
    else {
      /remini mylist.ini ALLOW $2 $2
      /msg $2 4 you have been removed from my14 #110pc4 ALLOW14list4 by4 $nick 
    }
  }
}  
on *:JOIN:#110pc: {
  if (!$readini(mylist.ini,ALLOW,$nick)) {
    /notice $nick 14welcome to 4#110pc 14the4 110+14 room for #pestcontrol
  }
  else { /mode $chan b $nick 
    /kick $chan $nick 14Y4ou 14A4re 14N4ot 14P4ermitted 14I4n 14H4ere 14P4lease 14J4oin 4#check 14T4o 14G4et 14V4erified 14A4nd 14A4dded 14T4o 14T4his 14C4hannel
  }
}