Forums Scripts & Popups combo boxes

alias tie {
  write nickAdd.txt $1 $+ . $address($1, 1) 
  echo Wrote address
}
on *:somedialog:init:*: {
  var %a = 1
  while (%a <= $lines(nickAdd.txt)) {
    did -a $dname <id> $gettok($read(nickAdd.txt, %a), 1, $asc(.))
    did -a $dname <other id> $gettok($read(nickAdd.txt, %a), 2, $asc(.))
  }
}

 dialog anti-op {
  title "AwSuMovies :  Anti-Op"
  size -1 -1 290 154
  option dbu
  icon C:\MIRC\mIRC-multi.ico, 0
  button "OK", 1, 83 137 25 12, ok cancel
  combo 2, 9 43 60 50, size
  combo 3, 125 78 60 50, size
  check "Enable", 4, 14 126 28 10
  box "Active Channels", 5, 4 34 71 63
  box "Authorised Ops", 6, 121 61 160 83, group
  text "Hostmasks", 10, 217 70 28 8
  combo 9, 190 78 87 50, size
  check "Disable", 11, 14 139 28 10
  text "This option allows you to prevent any user(s) from accidentaly getting opped! ", 7, 92 14 183 8
  text "Input the nick and hostmask of your fellow ops", 8, 143 51 115 8
  text "Input the channel(s) you are opped in", 12, 7 16 69 13
  button "Add", 13, 10 101 22 11
  button "Remove", 14, 40 101 23 11
  text "Nicks", 15, 146 70 14 8
  button "Add", 16, 157 130 26 12
  button "Remove", 17, 203 130 25 12
}
on *:anti-op:init:*:{
  .fopen -no cc dat\amanti-op.txt
     var %i = 1
      while $did(dname,2,%i) {
     .fwrite cc $+($v1,:,$did(dname,3,%i))
      inc %i
   }
  }
  .fclose cc
on *:anti-op:edit:*:{
     if ($did == 16) { .fopen cc amanti-op.txt
       while !$feof {
         if $fread(cc) {
             tokenize 58 $v1
    did -a dname 2 $1
    did -a dname 3 $2
  }
}
.fclose cc
 

on *:dialog:anti-op:sclick:*:{
  if $did == 16 {
    ; check if both combos have data
    if $did(3) && $did(9) {
      ; add the data to the combo proper
      did -a $dname 3 $did(3)
      did -a $dname 9 $did(9)
      ; clear the edit field
      did -d $dname 3,9 0
    }
  }
  elseif $did == 17 {
    if $did(3).sel || $did(9).sel {
      did -d $dname 3,9 $v1
    }
  }
}
on *:dialog:anti-op:close:0:{
  if $did(3,1) {
    .fopen -no cc dat\amanti-op.txt
    var %i = 1
    while $did(3,%i) {
      .fwrite -n cc $+($v1,:,$did(9,%i))
      inc %i
    }
    .fclose cc
  } 
} 
on *:dialog:anti-op:init:0:{
  .fopen cc dat\amanti-op.txt
  if !$ferr {
    while !$feof {
      if $fread(cc) {
        tokenize 58 $v1
        did -a $dname 3 $1
        did -a $dname 9 $2
      }
    }
  }
  .fclose cc
}

on *:dialog:anti-op:close:0:{
  if $did(3,1) {
    savebuf -o $dname 9 dat\amanti-op.txt
    ; no need to save the "nick" combo because it's included in the hostmark.
  } 
} 
on *:dialog:anti-op:init:0:{
  loadbuf -o $dname 9 dat\amanti-op.txt
  var %i = 1
  while $did(9,%i) {
    did -a $dname 3 $gettok($v1,1,33)
    inc %i
  }
}