Miscellany

dialog war.add {
  title "Clan Adder"
  size -1 -1 216 205
  option pixels notheme
  edit "Name", 2, 19 24 179 20
  edit "Tag", 3, 19 46 179 20
  edit "Founder", 4, 19 68 179 20
  edit "Cofounder", 5, 19 90 179 20
  edit "Website", 6, 19 112 179 20
  edit "Banner", 7, 19 134 179 20
  box "Clan Details", 8, 11 12 195 148
  button "ADD", 1, 34 169 65 25
  button "CANCEL", 9, 122 170 65 25
}
alias war.add { .dialog -m war.add war.add }

on *:dialog:war.add:sclick:1:{
  /write warclans.txt $did(3) $did(4) $did(5) $did(6) $did(7) $did(2)
}
dialog war.main {
  title "War-Bot Clan Main"
  size -1 -1 288 276
  option pixels notheme
  list 1, 9 10 273 219
  button "ADD", 2, 32 234 65 25
  button "EDIT", 3, 107 234 65 25
  button "DELETE", 4, 185 234 65 25
}
alias war.main { dialog -m war.main war.main }
on *:dialog:war.main:init:*:{
  var %war.list = 1
  while (%war.list <= $lines(warclans.txt)) {
    /did -i war.main 1 %war.list $gettok($read(warclans.txt, $+ %war.list $+ ),6-,32) 
    inc %war.list 1
  }
}
ON *:NOTICE:*:*:{
  if (($nick ison #xbc_opers) && ($1 == war.add)) {
    /write warclans.txt $2 $3 $4 $5 $6 $7-
  }
  if ($nick ison #war-bot) {
    var %war.read = $read(warclans.txt, s, $2)
    /$readn
  }
}
ON *:DIALOG:war.main:sclick:*:{
  if ($did = 2) { /war.add }
  if ($did = 3) { /war.edit }
}