NickTracer v1.1 by Mechonit (irc.icq.com) part 1

;NICK TRACER v1.1 coded by Mechonit from IrCQnet (irc.icq.com)
;Please do NOT edit this script.
;Copyright 2015 Mechonit www.gwura.com

ON *:LOAD: { hmake NickTracer 10000 | hmake NickBase 10000 | echo -s *** Nick Tracer 1.0 by Mechonit (IrCQnet) loaded. }
ON *:START: { hmake NickTracer 10000 | hmake NickBase 10000 | hload NickTracer NickTracer.hsh | hload NickBase NickBase.hsh }
ON *:EXIT: { hsave -a NickTracer NickTracer.hsh | hsave -a NickBase NickBase.hsh | hfree NickTracer | hfree NickBase }

ON *:JOIN:*: {
  if (!$hget(NickTracer,$address($nick,2))) && ($wildtok($hget(NickTracer,$address($nick,2)),$nick,0,32) != 1) { hadd NickTracer $address($nick,2) $nick | halt }
  if ($hget(NickTracer,$address($nick,2))) {
    if ($nick != $me) && ($numtok($hget(NickTracer,$address($nick,2)),32) == 1) { echo $chan 4***7 $nick 10has been using4 $numtok($hget(NickTracer,$address($nick,2)),32) 10nickname before:14 $hget(NickTracer,$address($nick,2)) }
    if ($nick != $me) && ($numtok($hget(NickTracer,$address($nick,2)),32) > 1) { echo $chan 4***7 $nick 10has been using4 $numtok($hget(NickTracer,$address($nick,2)),32) 10nicknames before:14 $hget(NickTracer,$address($nick,2)) }
    if ($wildtok($hget(NickTracer,$address($nick,2)),$nick,0,32) == 1) { halt }
    if ($hget(NickTracer,$address($nick,2))) && ($wildtok($hget(NickTracer,$address($nick,2)),$nick,0,32) != 1) { hadd NickTracer $address($nick,2) $nick $hget(NickTracer,$address($nick,2)) | halt }
  }
}

ON *:NICK: {
  if (!$hget(NickTracer,$address($newnick,2))) && ($wildtok($hget(NickTracer,$address($newnick,2)),$newnick,0,32) != 1) && ($wildtok($hget(NickTracer,$address($nick,2)),$nick,0,32) != 1) { hadd NickTracer $address($newnick,2) $nick $newnick | halt }
  elseif ($hget(NickTracer,$address($newnick,2))) && ($wildtok($hget(NickTracer,$address($newnick,2)),$newnick,0,32) != 1) { hadd NickTracer $address($newnick,2) $newnick $hget(NickTracer,$address($newnick,2)) | halt }
}
RAW 311:*: {
  if ($hget(NickTracer,*!*@ $+ $4)) && ($numtok($hget(NickTracer,*!*@ $+ $4),32) == 1) { echo -a 4***7 $2 10has been using4 $numtok($hget(NickTracer,*!*@ $+ $4),32) 10nickname before:14 $hget(NickTracer,*!*@ $+ $4) }
  if ($hget(NickTracer,*!*@ $+ $4)) && ($numtok($hget(NickTracer,*!*@ $+ $4),32) > 1) { echo -a 4***7 $2 10has been using4 $numtok($hget(NickTracer,*!*@ $+ $4),32) 10nicknames before:14 $hget(NickTracer,*!*@ $+ $4) }
}

RAW 314:*: {
  if ($hget(NickTracer,*!*@ $+ $4)) && ($numtok($hget(NickTracer,*!*@ $+ $4),32) == 1) { echo -a 4***7 $2 10has been using4 $numtok($hget(NickTracer,*!*@ $+ $4),32) 10nickname before:14 $hget(NickTracer,*!*@ $+ $4) }
  if ($hget(NickTracer,*!*@ $+ $4)) && ($numtok($hget(NickTracer,*!*@ $+ $4),32) > 1) { echo -a 4***7 $2 10has been using4 $numtok($hget(NickTracer,*!*@ $+ $4),32) 10nicknames before:14 $hget(NickTracer,*!*@ $+ $4) }
}

;Command /user.check <Nickanme> shows all nicknames a nicks host has used. Nick MUST be online!

alias user.check {
  if ($hget(NickTracer,$address($1,2))) {
    if ($numtok($hget(NickTracer,$address($1,2)),32) == 1) { echo -a 4***7 $1 10has been using4 $numtok($hget(NickTracer,$address($1,2)),32) 10nickname before:14 $hget(NickTracer,$address($1,2)) }
    if ($numtok($hget(NickTracer,$address($1,2)),32) > 1) { echo -a 4***7 $1 10has been using4 $numtok($hget(NickTracer,$address($1,2)),32) 10nicknames before:14 $hget(NickTracer,$address($1,2)) }
  }
  if (!$hget(NickTracer,$address($1,2))) { echo -a 4***10The host belonging to7 $1 10was not found in the database }
}

;Command /host.check <*!*@Host.Com> shows all nicknames a host has used. Please use *!*@Host.Com as host format.

alias host.check {
  if ($hget(NickTracer,$1)) {
    if ($numtok($hget(NickTracer,$1),32) == 1) { echo -a 4***10 The host7 $1 10has been using4 $numtok($hget(NickTracer,$1),32) 10nickname before:14 $hget(NickTracer,$1) }
    if ($numtok($hget(NickTracer,$1),32) > 1) { echo -a 4***10 The host7 $1 10has been using4 $numtok($hget(NickTracer,$1),32) 10nicknames before:14 $hget(NickTracer,$1) }
  }
  if (!$hget(NickTracer,$1)) { echo -a 4***10The host7 $1 10was not found in the database. }
}

;Command /host.del <*!*@Host.Com> deletes all nicknames refered to the host including the host. Please use *!*@Host.Com as host format.
;Attention! If a user with the delted host joins a channel where you are in, the host will be added again.

alias host.del {
  if ($hget(NickTracer,$1)) { hdel NickTracer $1 | echo -a 4***10 Successfully delted7 $1 10from the database. }
}

;Command nick.check <nickname> shows which hosts a nickname has used in the format [email protected].

alias nick.check {
  if ($hget(NickBase,$1)) {
    if ($numtok($hget(NickBase,$1),32) == 1) { echo -a 4***7 $1 10has been using4 $numtok($hget(NickBase,$1),32) 10host before:14 $hget(NickBase,$1) }
    if ($numtok($hget(NickBase,$1),32) > 1) { echo -a 4***7 $1 10has been using4 $numtok($hget(NickBase,$1),32) 10hosts before:14 $hget(NickBase,$1) }
  }
  if (!$hget(NickBase,$1)) { echo -a 4***7 $1 10was not found on the database. }
}

;Comand /nick.del <nick> deletes a nickname including all host belonging to this nickname from the database.

alias nick.del {
  if ($hget(NickBase,$1)) { hdel NickBase $1 | echo -a 4***10 Successfully deleted7 $1 10from the database. }
}

;Command /user.add <nickname> adds a nickname with the related host the nicknames uses at the moment. Nickname MUST be online

alias user.add {
  if (!$hget(NickTracer,$address($1,2))) { hadd NickTracer $address($1,2) $1 }
  if ($hget(NickTracer,$address($1,2))) && ($wildtok($hget(NickTracer,$address($1,2)),$1,0,32) != 1)  { hadd NickTracer $address($1,2) $1 $hget(NickTracer,$address($1,2)) }
}

;Command /nick.add <nickname> adds a host to its belonging nickname. Nickname  musst be online!
alias nick.add {
  if ($hget(NickBase,$1)) && ($wildtok($hget(NickBase,$1),$address($1,5),0,32) != 1) { hadd NickBase $1 $address($1,5) $hget(NickBase,$1) }
  if (!$hget(NickBase,$1)) { hadd NickBase $1 $address($1,5) }
}