Untitled

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 Channel Blacklisted 
      halt 
    } 
  } 
} 
on *:INVITE:#:{ 
  if ( $readini(cbl.ini,chans,$chan == $null) { 
    join $chan 
  } 
  else { 
    halt 
  } 
}