; Syntax: /akill [nick] (time) [reason] OR /akill OR /akill ?clear
; Note: Putting in /akill without any arguments summons the dialog. Putting /akill [nick] [reason] will make a permanent akill. Alternatively, you can put /akill [nick] [time] [reason]. /akill ?clear will clear the akill list.

&&&&&&&&&&&&&&&&&&&&&&&&&&&&
 AKILL SCRIPT v3.1 By MOhammaD
Server: IRC.IranServ.Org #MeMO
E-mail: MeMO@IranServ.Org
&&&&&&&&&&&&&&&&&&&&&&&&&&&&
on *:LOAD:{
  disable #akillcommand
  disable #akilldialog
}
alias akill {
  if ($dialog(akill) == akill) { echo Dialog already open! Please close to enable command line akill. }
  elseif ($1 == ?clear) { os akill clear }  
  elseif ($1 == $null) { dialog -m akill akill | enable #akilldialog }
  else { 
    if ($3 == $null) { set %akilltime 0 | set %akillreason $2 }
    else { set %akilltime $2 | set %akillreason $3- }
    enable #akillcommand
    userip $1
  }
}

dialog akill {
  title "Akill "
  size -1 -1 158 83
  option dbu
  edit "", 1, 38 18 114 10, autohs
  text "Easy Akill", 2, 3 3 152 8, center
  text "User Name:", 3, 1 19 33 8, right
  text "Seperate multiple users with a space. (up to 10 nicks)", 11, 6 10 999 8, nowrap
  text "Time:", 4, 1 34 33 8, right
  text "Reason:", 5, 1 49 33 8, right
  edit "", 6, 38 33 55 10
  edit "", 7, 38 48 113 10
  list 8, 96 33 57 10, size vsbar
  button "Akill", 9, 60 60 37 12, ok
  text "", 10, 4 73 150 8, center
}

on *:dialog:akill:init:0: {
  did -a akill 8 Minutes
  did -a akill 8 Hours
  did -a akill 8 Days
  did -a akill 8 Perm
}

on *:dialog:akill:sclick:*:{
  if ($did == 9)  { tokenize 32 $did(akill,1) }
  if ($did(akill,8,$did(akill,8).sel) == Minutes) { set %akilltime $did(akill,6) $+ min }
  if ($did(akill,8,$did(akill,8).sel) == Hours) { set %akilltime $did(akill,6) $+ hrs }
  if ($did(akill,8,$did(akill,8).sel) == Days) { set %akilltime $did(akill,6) $+ days }
  if ($did(akill,8,$did(akill,8).sel) == Perm) { set %akilltime 0 }
  if ($did == 9) && ($0 > 10)  { did -a akill 10 Can't akill more than 10 people! | did -r akill 1,6,7 | halt }
  if ($did == 9) && ($chr(32) !isin $1-)  { userip $1 }
  else { var %i 1 | while (%i <= $0) { userip $eval($ $+ %i,$0) | inc %i } }
  if ($did == 9) { halt }
}

on *:dialog:akill:close:*:{
  disable #akilldialog
}

#akillcommand on
raw 340:*:{
  set %akillhost $gettok($1-,2,64)
  if (%akillhost == $null) { echo -a No such user! | disable #akillcommand }
  else {
    msg operserv akill add + $+ %akilltime *@ $+ $gettok($1-,2,64) %akillreason
    unset %akill*
  }
  disable #akillcommand
}
#akillcommand end
#akilldialog off
raw 340:*:{
  set %akillreason $did(akill,7)
  set %akillhost $gettok($1-,2,64)
  if (%akillhost == $null) { did -a akill 10 No such user! | did -r akill 1,6,7 }
  else {
    msg operserv akill add + $+ %akilltime *@ $+ %akillhost %akillreason
    did -a akill 10 User(s) Akilled! | did -r akill 1,6,7
  }
  unset %akill*
}
#akilldialog end