Anonymous

alias menu {
  .dialog -md menu menu
}
dialog menu {
  title "WhatBot Control Panel"
  size -1 -1 879 542
  option pixels
  tab "Main", 1, 6 1 868 542
  tab "Settings", 2
  tab "Blacklist", 3
  tab "ReadMe", 4
  box "CTCP VERSION Reply", 5, 20 360 405 45, tab2
  combo 6, 32 376 380 80, drop,edit,tab2
  button "Ok" 7, 14 501 80 30,ok, tab2
  box Nick $chr(124) Address $chr(124) Reason, 8, 15 28 797 420,tab3
  list 9, 25 49 778 400, vsbar,tab3 
}


on 1:dialog:menu:init:*: {
  did -a $dname 6 12m4IR8C-WhatBot.0.1Beta (whats my name?)
  did -a $dname 6 12m4IR8C-WhatBot.0.1Beta (whats my name bitch?)
  did -c $dname 6 1

  var %i = 1 
  while (%i <= $lines(blacklist.txt)) { 
    did -a menu 9  $gettok($read(blacklist.txt,%i),2,32) $chr(124) $gettok($read(blacklist.txt,%i),1,32) $chr(124) $gettok($read(blacklist.txt,$readn),3,32)
    inc %i   
  }
}

;Ctcp Version
on 1:dialog:menu:sclick:7:{ set %versionreply $did(5) }

alias sf3 { vermodify }

alias vermodify { %ns =  $dialog( menu, menu, -2) }

;Blacklist

on @*:JOIN:#: { if ($read(blacklist.txt, s, $address($nick,2))) { /set %blackl $calc(%blackl + 1) | mode $chan -o+b $nick $address($nick,2) | kick $chan $nick Blacklisted (- $+ %blackl $+ -) [ $+ $gettok($read(blacklist.txt,$readn),3-,32) $+ ] } } 

on *:dialog:menu:dclick:9:{ /set %blackrivi $did(2).sel | /set %blackteksti $gettok($did(2).seltext,2,32) | did -d blacklist 2 $did(2).sel 1 |  echo -a $timestamp  $+ %blackteksti $+  is now removed from Blacklist | write -dl $+ %blackrivi blacklist.txt }

menu nicklist {
  $iif($$1 = $me,$style(2)) &-Blacklist-
  .Add $$1:{ if (!$read(blacklist.txt, s, $$1)) { $iif(%blackl,inc %blackl,set %blackl 1) | write blacklist.txt $address($$1,2) $$1 $?="Reason?" | echo -a $timestamp $address($$1,2) is now on blacklist! (- $+ %blackl $+ -) | mode $chan -o+b $$1 $address($$1,2) | kick $chan $$1 Blacklisted (- $+ %blackl $+ -) } | else { $timestamp echo -a $$1 is allready on BlackList } }
}