James

menu * {
  -
  Blacklist · V.01:BList
}
Alias BList {
  dialog -md BList BList
}
dialog BList {
  title "Advanced Blacklist Dialog™ · V.01"
  size -1 -1 160 200
  option dbu
  Tab "Home", 01, 000 000 160 200
  Tab "Users", 02
  ;03
  ;04
  ;05
  Button "Ok", 06, 000 188 036 012, Ok
  Button "Cancel", 07, 122 188 036 012, Cancel
  Text "James' Blacklist dialog · On Request of [P5]", 08, 027 030 105 012, Tab 1
  Box "Header", 09, 023 024 109 016, Tab 1
  Edit "Person To Blacklist", 10, 028 050 100 012, Center, Tab 1, AutoHS, Limit 30
  Edit "Reason for Blacklist", 11, 028 063 100 012, Center, Tab 1, AutoHS
  Edit "#Channel for Blacklist", 12, 028 076 100 012, Center, Tab 1, AutoHS
  Box "Blacklist Info", 13, 023 041 109 051, Tab 1
  Check "Channel Blacklist", 14, 030 100 050 012, Tab 1
  Check "Regular Blacklist", 15, 080 100 050 012, Tab 1
  Box "Blacklist Type", 16, 023 094 109 020, Tab 1
  Box "Blacklist Commands", 17, 023 120 109 023, Tab 1
  button "Enable", 18, 44 128 36 12, Tab 1
  button "Disable", 19, 80 128 36 12, Tab 1
  Text "Advanced Blacklist Dialog™ · By Jdawg140 · V.01", 20, 000 175 160 012, Center, Tab 1
  Text "", 21, 000 155 160 012, Center, Tab 1
  List 22, 020 040 120 120, VSbar, HSbar, Tab 2
  Box "Blacklisted Users", 23, 017 032 127 127, Tab 2
  Button "Rem Blacklist", 24, 62 165 36 12, Tab 2
}
ON *:DIALOG:BList:Close:*:{ unset %Blacklist.* }
ON *:DIALOG:BList:sclick:*:{
  if ($did == 18) {
    if (%Blacklist.18 == Enabled) {   }
    else {
      set %Blacklist.18 Enabled
      did -a $dname 18 Add Blacklist
      did -n $dname 10
      did -n $dname 11
      did -e $dname 19
    }
  }
  elseif ($did == 22) did -e $dname 24
  elseif ($did == 14) {
    if ($did($dname,15).state) { 
      did -u $dname 15
      did -e $dname 12
      did -e $dname 15
    }
    elseif (!$did($dname,15).state) { 
      did -c $dname 15
      did -b $dname 15
      did -b $dname 12
    }
  }
  elseif ($did == 15) {
    if (!$did($dname,14).state) did -c $dname 15
    if ($did($dname,14).state) {
      did -u $dname 14
      did -b $dname 15
      did -b $dname 12
    }
  }
  elseif ($did == 19) {
    did -m $dname 10
    did -m $dname 11
    did -b $dname 19
    did -b $dname 12
    unset %Blacklist.*
    did -a $dname 18 Enable
    did -b $dname 19
    did -c $dname 15
    did -b $dname 15
    did -u $dname 14
  }
}
ON *:DIALOG:BList:init:0:{
  did -m $dname 10
  did -m $dname 11
  did -b $dname 12
  did -c $dname 15
  did -b $dname 19
  did -b $dname 15
  did -b $dname 20
  did -b $dname 24
  var %i = 0 
  while (%i < $calc($calc($lines(BList.ini) + 1) - 1)) {
    inc %i
    did -a $dname 22 $readini(BList.ini,$network,%i $+ .)
  }
}