Stuff

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:!off:#: { if ($nick isop #) || ($nick ishop #) {
      /set %won off
    }
  }
  on *:TEXT:!on:#: { if ($nick isop #) || ($nick ishop #) {
      /set %won on
    }
  }
  on *:TEXT:!world:#pestcontrol: { if ( %won == off) { halt }
    else {
      /notice $nick 14 the current pc world is :4 %worldnub
    }
  }
  on *:TEXT:!add*:#check,#110pc: { if ($nick isop #) || ($nick ishop #) {
      /writeini mylist.ini ALLOW $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 *:JOIN:#110pc: {
  if ($readini(mylist.ini,ALLOW,$nick) || ($nick == kloud) || ($nick == $me) { /mode $chan v $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
  }
}


on *:TEXT:!black*:#110PC: { if ($nick isop #) || ($nick ishop #) { if ($2 == $me) { halt }
    else {
      /writeini mylist.ini BLACK $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
      /msg $2 4 you have been removed from my14 #chat4 blacklist by4 $nick 
    }
  }
}  
on *:JOIN:#110PC: {
  if ($readini(mylist.ini,BLACK,$nick) != $null) { /mode $chan +b $+ $address($nick,2) {
      /kick $nick 14Y4ou 14A4re 14N4ot 14P4ermitted 14I4n 14H4ere 14Y4ou 14W4ere 14A4dded 14T4o 14M4y 14B4lacklist 14B4y 14O4ne 14O4f 14T4he 14O4ps 14O4r 14H4alfops.
    }
    else { halt }
  }
}

on *:TEXT:!black*:##110pc: { if ($nick isop #) || ($nick ishop #) { if ($2 == $me) { halt }
    else {
      /writeini mylist.ini ALLOW $2
      /msg $2 4 you have been added to my14 #chat4 blacklist by4 $nick 14for reason4 $3 .
      /ban -k #chat $2
    }
  }
}
on *:TEXT:!remove*:#110pc: { if ($nick isop #) || ($nick ishop #) { if ($2 == $me) { halt }
    else {
      /remini mylist.ini ALLOW $2
      /msg $2 4 you have been removed from my14 #110pc4 ALLOW14list4 by4 $nick 
    }
  }
}  
on *:JOIN:#110pc: {
  if ($readini(mylist.ini,ALLOW,$nick) != $null) {
    /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
  }
}