Kick clones for Alone v1.5

ON @*:TEXT:*:#: {
  tokenize 32 $strip($1-)

  if ($1 == .dr) {
    if ($network !== DaVang) || (!$read(userbot.txt,nw,$nick)) || ($nick isreg #userbot) { return }
    if (!$2) && ($2 !== $me) && ($2 !== $nick) && ($2 !ison $chan) && ($2 !isreg $chan) { return }

    var %id = $rands(A,Z) $+ $rands(A,Z) $+ $rands(10000,99999)
    var %reason = $read(atb_dronereason.txt,nt)

    var %h = $ial($2).host
    var %u = $ial($2).user
    var %t = $ial(*@ $+ %h,0)

    if (%t == 1) { kick_clones $2 $chan $remove(%u,~) %h %id %reason | return }

    var %i = 1
    while (%i <= %t) {
      var %n = $ial(*@ $+ %h,%i).nick
      var %a = $ial(*@ $+ %h,%i).host

      if (%h == %a) { var %tot = $addtok(%tot,%n,32) }

      inc %i
    }

    if (!%tot) { return }

    var %z = 1
    while (%z <= $numtok(%tot,32)) {
      var %n_name = $gettok(%tot,%z,32)
      var %n_host = $ial(%n_name).host
      var %n_ident = $ial(%n_name).user

      kick_clones %n_name $chan $remove(%n_ident,~) %n_host %id %reason

      inc %z
    }
  }
}

alias -l kick_clones {
  ; /kick_clones <nickname> <#channel> <ident> <host> <ID> <reason>

  if (!$1) || (!$2) || (!$3) || (!$4) || (!$5) || (!$6) { return }

  var %txt_db = atb_dronedatabase.txt

  if (*irccloud* iswm $4) {
    mode $2 +b *! $+ $3 $+ @*

    kick $2 $1 4([Banned] (reason: $6- $+ ) $chr(91) $+ ID: $5 $+ $chr(93) - (for more information regarding your ban please contact nickname Kendy for removal))

    var %r = $read(%txt_db,nw,* $+ $5 $+ *)

    if (!%r) { write $qt(%txt_db) $+([ID:,$chr(32),$5,],$chr(59),*!,$3,@*) | .notice $1 Added $+  *! $+ $3 $+ @*  $+ to %txt_db successfull. }

    .timer[UNBAN_ $+ $2 $+ _ $+ $3 $+ _IDENT] 1 3600 mode $2 -b *! $+ $3 $+ @*
  }
  else {
    ban -ku3600 $2 $1 2 4([Banned] (reason: $6- $+ ) $chr(91) $+ ID: $5 $+ $chr(93) - (for more information regarding your ban please contact nickname Kendy for removal))

    var %r = $read(%txt_db,nw,* $+ $5 $+ *)

    if (!%r) { write $qt(%txt_db) $+([ID:,$chr(32),$5,],$chr(59),*!*@,$4) | .notice $1 Added $+  *!*@ $+ $4  $+ to %txt_db successfull. }
  }
}