Well Just A Simple Shit List :D Rather Mixed Up A Bit Since I Am Too Tired To Fix It..But I Hope It Works For All Yaz...

on @shitlist:join:%protchans: {
        if (%shitlist == ON) {
          .ban $chan $nick %banmask4
          .raw kick $chan $nick : %shitreas %logo
        }
      }
      alias shitlist { dialog -m shitlist shitlist }

dialog shitlist {
        title "Shitlist"
        size -1 -1 300 243
        box "Configuration", 1, 4 2 293 205
        edit "", 2, 12 20 185 22, multi return autohs
        list 3, 12 44 185 102, sort size
        button "Add", 4, 203 21 86 21
        button "Remove", 5, 203 50 86 21, disable
        button "Update", 18, 203 71 86 21, disable
        radio "On", 7, 208 129 35 23
        radio "Off", 8, 253 129 35 23
        box "", 9, 12 147 280 8
        text "Kick Reason:", 10, 14 160 59 13
        edit "", 11, 12 176 136 22, multi return autohs
        button "Ok", 12, 82 212 65 23, ok
        box "", 13, -1 -6 302 249
        button "Cancel", 17, 155 212 65 23, cancel
        button "Affected #", 14, 204 104 86 22
        combo 15, 152 176 139 100, size drop
        text "BanMask:", 16, 152 158 48 16
      }
      on *:dialog:shitlist:*:*: {
        if ($devent = init) {
          didtok $dname 15 59 $read(gavin.txt,1)
          did -c $dname 15 $findtok($read(gavin.txt,1),$matchtok($read(gavin.txt,1),%banmask4,1,59),59)       
          didtok $dname 3 59 $read(gavin.txt,2)
          did -a $dname 11 %shitreas
          did -c $dname $iif(%shitlist == ON,7,8)
        }
        if ($devent = sclick) {
          if ($did = 3) { did -ra $dname 2 $did(3).seltext | did -e $dname 5,18 }
          if ($did = 4) {
            if ($did(2) == $null) { return }
            else {
              if ($istok($read(gavin.txt,2),$did(2),59) == $false) { did -a $dname 3 $did(2) }
              .auser shitlist $did(2)
              did -r $dname 2
              did -b $dname 5,18
            }
          }
          if ($did = 5) {
            if ($did(3).sel == $null) { return }
            else {
              .ruser $did(2) 
              did -d $dname 3 $did(3).sel       
              did -r $dname 2         
              did -b $dname 5,18   
            }
          }
          if ($did = 12) {
            set %shitlist $iif($did(7).state == 1,ON,OFF)   
            set %shitreas $did(11)
            set %banmask4 $mid($did(15).seltext,2,2)
            write -l2 gavin.txt $didtok(3,59)
          }
          if ($did = 14) { cdi -p }   
          if ($did = 18) {
            .ruser $did(3).seltext
            .auser shitlist $did(2)
            did -o $dname 3 $did(3).sel $did(2)
            did -r $dname 2       
            did -b $dname 5,18
          }
        }
      }

      menu menubar,channel {
        -
        Protections
        .Channel Protection
        ..-
        ..ShitList:/shitlist
      }