menu * { 
  Blacklist by Gsus:/dialog -m Blacklist Blacklist 
} 
dialog Blacklist { 
  title "Blacklist by Gsus." 
  size -1 -1 281 128 
  option dbu 
  tab "Add", 10, 1 -1 277 148 
  box "Add a person to the blacklist.", 5, 10 20 260 24, tab 10 
  edit "NickName here.", 6, 12 28 150 11, tab 10 
  button "Add nick to blacklist.", 7, 174 28 89 11, tab 10 
  box "Add a host to the blacklist.", 13, 10 50 260 24, tab 10 
  edit "*!*@host here.", 14, 13 58 150 11, tab 10 
  button "Add host to blacklist.", 12, 174 58 89 11, tab 10 
  tab "Delete", 11 
  box "Delete a person from the blacklist.", 16, 10 20 260 24, tab 11 
  edit "NickName here.", 17, 12 28 150 11, tab 11 
  button "Delete nick from blacklist.", 18, 174 28 89 11, tab 11 
  edit "*!*@host here.", 19, 13 58 150 11, tab 11 
  box "Delete a host from the blacklist.", 20, 10 50 260 24, tab 11 
  button "Delete host from blacklist.", 21, 174 58 89 11, tab 11 
  tab "Blacklist", 1 
  button "Show blacklist.", 25, 9 20 60 15, tab 1 
  button "Clear the blacklist.", 26, 9 40 60 15, tab 1 
  combo 8, 80 20 190 50, tab 1 size vsbar 
  tab "About", 4 
  text "This dialog was made by Gsus. For more information or any suggests about this dialog contact Gsus on SwiftIRC.", 28, 2 14 278 9, tab 4 
  box "Group Box", 9, 10 22 259 71, tab 4 
  text "To add/del someone to/from the blacklist: 2 options ", 15, 15 30 250 8, tab 4 
  text "1) Right click on their name and click on (add/del nick to/from backlist.)", 23, 14 38 250 8, tab 4 
  text "2) Open the dialog and put in the nick and click on (add/del nick to/from blacklist)", 24, 15 46 250 8, tab 4 
  text "If you want to see the blacklist go to ;", 27, 15 58 250 8, tab 4 
  text "Open the dialog: Go to blacklist, and click on (the show blacklist)", 29, 15 66 250 8, tab 4 
  text "To remove all blacklists ;", 30, 15 77 250 8, tab 4 
  text "Open the dialog ; Go to blacklist, then click on the (clear the blacklist) button.", 31, 14 85 250 8, tab 4 
  button "Cancel", 3, 155 110 37 12, cancel 
  button "Ok", 2, 115 110 37 12, ok 
  edit "", 22, 10 95 260 10, read 
} 
on *:JOIN:#: { 
  if ($me isop $chan) || ($me ishop $chan) { 
    if ($read(Blist.txt,w,$nick)) { 
      set %rd $readn 
      echo -t $chan $nick aka ( $+ $Address($nick,2) $+ ) is on your blacklist. 
      //mode # +b $address($nick,3) 
      /kick # $nick Blacklisted. 
    } 
    elseif ($read(Blist.txt,w,$address($nick,2))) { 
      set %rd $readn 
      echo -t $chan $nick aka ( $+ $Address($nick,2) $+ ) is on your blacklist. 
      //mode # +b $address($nick,3) 
      /kick # $nick Blacklisted. 
    } 
  } 
} 
on *:dialog:Blacklist:sclick:7: { 
  /set %blacklist.addnick $did($dname,6)    
  /write blist.txt $address($did($dname,6),2) 
  /did -a Blacklist 22 Succesfully added %blacklist.addnick to the blacklist. 
  /timer 1 5 /did -r Blacklist 22 
  if ($did($dname,6) ison $active) { 
    //mode $active +b $address($did($dname,6),3) 
    /kick $active $did($dname,6) Blacklisted. 
    /unset %blacklist.addnick 
  } 
} 
on *:dialog:Blacklist:sclick:12: { 
  /set %blacklist.addhost $did($dname,14) 
  /did -a Blacklist 22 Succesfully added %blacklist.addhost to the blacklist.  
  /write blist.txt %blacklist.addhost 
  /timer 1 5 /did -r Blacklist 22 
  if ($did($dname,14) ison $active) { 
    //mode $active +b $address($did($dname,14),3) 
    /kick $active $did($dname,14) Blacklisted. 
    /unset %blacklist.addhost 
  } 
} 
on *:dialog:Blacklist:sclick:18: { 
  /set %blacklist.delnick $did($dname,17)    
  /write -dl blist.txt $address($did($dname,17),2) 
  /did -a Blacklist 22 Succesfully removed %blacklist.delnick from the blacklist. 
  /timer 1 5 /did -r Blacklist 22 
  /unset %blacklist.delnick 
} 
on *:dialog:Blacklist:sclick:21: { 
  /set %blacklist.delhost $did($dname,19) 
  /did -a Blacklist 22 Succesfully removed %blacklist.delhost from the blacklist. 
  /timer 1 5 /did -r Blacklist 22 
  /write -dl blist.txt %blacklist.delhost 
  /unset %blacklist.delhost 
} 
on *:dialog:Blacklist:sclick:25: { 
  /did -a Blacklist 22 Succesfully loaded Blacklist 
/timer 1 5 /did -r Blacklist 22 
  var %x = 1 
  while (%x <= $lines(blist.txt)) { 
    did -a Blacklist 8 $read(blist.txt,%x) 
    inc %x 
  } 
} 
on *:dialog:Blacklist:sclick:26: { 
  /write -c blist.txt 
  /did -a Blacklist 22 Succesfully cleared the blacklist. 
  /timer 1 5 /did -r Blacklist 22 
} 
menu nicklist { 
  .Add nick to blacklist:/write blist.txt $address($1,2) 
  .Del nick from blacklist:/write -dl blist.txt $address($1,2) 
}