/ScriptServ

; Author: CarTMan
; Description: Auto channels join through dialogs
; File name: autojoin.mrc
; Installation: Copy this to mIRC dir & type: /load -rs autojoin.mrc

on 1:load:{
echo -a Auto Channels Join addon -LOADED-
echo -a To activate type /chanjoin or click on "AutoJoins" in MenuBar.
echo -a Thanx for using my addon. -CarTMan
echo -a Any comments are welcomed at desired@inter.net.il
echo -a Or memo me on DALnet. :)
}

alias chanjoin {
  dialog -m jsetup jsetup
}
dialog jsetup {
  title "Auto Channels Join"
  size -1 -1 270 250
  button "Done",1,225 205 40 40, OK
  text "Channels List:",13, 15 20 94 25
  combo 14,15 50 120 140,sort
  button "Add Chan",15, 140 70 84 25
  button "Remove Chan",16, 140 100 84 25
  button "Join Chan",17, 140 130 84 25
  check "Join Channels On Connect",18, 15 185 160 25
  button "Reset Channel List",22, 15 215 120 25
}
on *:DIALOG:jsetup:init:0: {
  if (%setup.connect == $null) { set %setup.connect off }
  if (%setup.connect == on) { did -c jsetup 18 }
  update.setup
}
alias -l update.setup {
  did -r jsetup 14
  set %temp.total $count(%setup.list,$chr(44))
  set %temp.count 0
  :start
  inc %temp.count 1
  did -a jsetup 14 $gettok(%setup.list,%temp.count,44)
  if (%temp.count < %temp.total) { goto start }
}
on *:DIALOG:jsetup:edit:*: {
  if ($did == 14) {
    set %setup.temp.channel $did(14).text
  }
}
on *:DIALOG:jsetup:sclick:*: {
  if ($did == 22) {
    unset %setup.list
    update.setup
  } 
  if ($did == 15) {
    set %setup.list %setup.list $+ %setup.temp.channel $+ ,
    update.setup
  }
  if ($did == 16) {
    set -u1 %setup.tc %setup.channel.selected $+ ,
    set %setup.list $remove(%setup.list,%setup.tc)
    update.setup
  }
  if ($did == 17) {
    join %setup.channel.selected
  }
  if ($did == 14) {
    set %setup.channel.selected $did($dname,14,$did(14).sel)
  }
  if ($did == 18) {
    if (%setup.connect == on) { set %setup.connect off | halt }
    if (%setup.connect == off) { set %setup.connect on | halt }
  }
}
on *:CONNECT: {
  if (%setup.connect == on) {
    set %temp.total $count(%setup.list,$chr(44))
    set %temp.count 0
    :start
    inc %temp.count 1
    .timer 1 3 join $gettok(%setup.list,%temp.count,44)
    if (%temp.count < %temp.total) { goto start }
  }
}

Menu MenuBar {
-
AutoJoins:/chanjoin
-
}