;; Syntax: /akill nicknaam duur(zonder +) reden
;; Of gewoon /akill voor menu :)
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 "Stanley's Akill Script", 2, 3 3 152 8, center
  text "Nicknaam:", 3, 1 19 33 8, right
  text "Gebruik Spatie voor meer nicks", 11, 6 10 999 8, nowrap
  text "Tijd:", 4, 1 34 33 8, right
  text "Reden:", 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 Minuten
  did -a akill 8 Uren
  did -a akill 8 Dagen
  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) == Minuten) { set %akilltime $did(akill,6) $+ min }
  if ($did(akill,8,$did(akill,8).sel) == Uren) { set %akilltime $did(akill,6) $+ hrs }
  if ($did(akill,8,$did(akill,8).sel) == Dagen) { 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 Niet mogelijk om meer dan 10 personen te akillen! | 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 off
raw 340:*:{
  set %akillhost $gettok($1-,2,64)
  if (%akillhost == $null) { echo -a Geen geldige nicknaam! | disable #akillcommand }
  else {
    msg operserv akill add + $+ %akilltime *@ $+ $gettok($1-,2,64) %akillreason info -> stanley@chattersweb.nl
    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 Geen geldige nicknaam! | did -r akill 1,6,7 }
  else {
    msg operserv akill add + $+ %akilltime *@ $+ %akillhost %akillreason info -> stanley@chattersweb.nl
    did -a akill 10 User(s) Akilled! | did -r akill 1,6,7
  }
  unset %akill*
}
#akilldialog end