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
  }
}