Stuff

alias cbl { 
 dialog -ma cbl cbl 
} 
alias abl { 
 if ($1 == $null) { 
   if ($readini(cbl.ini,chans,$chan) == $null) { 
     writeini cbl.ini chans $chan $chan 
   } 
 } 
 elseif ( $left($1,1) == $chr(35)) { 
   if ($readini(cbl.ini,chans,$1) == $null) { 
     writeini cbl.ini chans $1 $1 
   } 
 } 
 else { 
   if ($readini(cbl.ini,chans,$chr(35) $+ $1) == $null) { 
     writeini cbl.ini chans $chr(35) $+ $1 $chr(35) $+ $1 
   } 
 } 
} 
dialog cbl { 
 title "BLIST" 
 size -1 -1 73 40 
 option dbu 
 text "AlternativeNick", 1, 130 57 30 5 
 check "Add Channels on Kick", 4, 6 3 65 10 
 text "Kicks Before Added", 5, 4 14 46 8 
 edit "", 6, 54 13 13 10 
 button "Close", 7, 43 25 27 12, ok 
 button "Channels", 2, 3 25 37 12 
} 
dialog viewbadchannelsthingy { 
 title "BChan" 
 size -1 -1 76 90 
 option dbu 
 list 1, 2 1 71 73, size 
 button "Add", 2, 38 75 34 12 
 button "Remove", 3, 2 75 34 12 
} 
on *:DIALOG:cbl:init:*:{ 
 did -a $dname 6 $readini(cbl.ini,setup,kicklimit) 
 if ($readini(cbl.ini,setup,kick) == 1) { did -c $dname 4 } 
} 
on *:DIALOG:cbl:sclick:2:{ 
 dialog -ma viewbadchannelsthingy viewbadchannelsthingy 
} 
on *:DIALOG:cbl:close:*:{ 
 writeini cbl.ini setup kicklimit $did($dname,6).text 
 writeini cbl.ini setup kick $did($dname,4).state 
} 
on *:DIALOG:viewbadchannelsthingy:init:*:{ 
 var %i = 0 
 while (%i < $ini(cbl.ini,chans,0)) { 
   inc %i 1 
   did -a $dname 1 $readini(cbl.ini,chans,$ini(cbl.ini,chans,%i)) 
 } 
} 
on *:DIALOG:viewbadchannelsthingy:sclick:2:{ 
 .echo -q $$?="Channel to Add" 
 if ( $left($!,1) == $chr(35)) { 
   if ($readini(cbl.ini,chans,$!) == $null) { 
     writeini cbl.ini chans $! $! 
     did -a $dname 1 $! 
   } 
 } 
 else { 
   if ($readini(cbl.ini,chans,$chr(35) $+ $!) == $null) { 
     writeini cbl.ini chans $chr(35) $+ $! $chr(35) $+ $! 
     did -a $dname 1 $chr(35) $+ $! 
   } 
 } 
} 
on *:DIALOG:viewbadchannelsthingy:sclick:3:{ 
 if ($did($dname,1).seltext != $null) { 
   var %var = $did(viewbadchannelsthingy,1).seltext 
   did -d viewbadchannelsthingy 1 $ini(cbl.ini,chans,%var) 
   remini cbl.ini chans %var 
 } 
} 
on *:KICK:#:{ 
 if ($knick == $me) && ($readini(cbl.ini,setup,kick) == 1) { 
   writeini cbl.ini kicks $chan $calc($readini(cbl.ini,kicks,$chan) + 1) 
   if ($readini(cbl.ini,kicks,$chan) >= $readini(cbl.ini,setup,kicklimit)) { 
     writeini cbl.ini chans $chan $chan 
   } 
 } 
} 
on *:JOIN:#:{ 
 if ($nick == $me) { 
   if ($readini(cbl.ini,chans,$chan) != $null) { 
     part $chan $chan Blacklisted
     halt 
   } 
 } 
} 
on *:INVITE:#:{ 
 if ($readini(cbl.ini,chans,$chan) == $null) { 
   join $chan 
 } 
 else { 
   halt 
 } 
}