;who the fuck?
;zeral`

on *:start: { hmake whotf 1000 | $iif($scriptdirwhotf.hsh,hload,noop) whotf $scriptdirwhotf.hsh }
on *:exit: { hsave whotf $scriptdirwhotf.hsh }
on *:disconnect: { hsave whotf $scriptdirwhotf.hsh }
on *:load: {
  hmake whotf 1000
  $iif($scriptdirwhotf.hsh,hload,noop) whotf $scriptdirwhotf.hsh
}

on *:join:#: {
  if ($nick != $me) {
    if (!$hget(whotf,$address($nick,2))) {
      hadd whotf $address($nick,2) $nick
    }
    elseif (!$istok($hget(whotf,$address($nick,2)),$nick,32)) {
      hadd whotf $address($nick,2) $hget(whotf,$address($nick,2)) $nick
    }
    $iif($whotf.c($address($nick,2),2),echo,noop) $chan 10 $timestamp $nick benutzte auch folgende Nicks: $hget(whotf,$address($nick,2))
  }
}

on *:nick: {
  if ($nick != $me) {
    if (!$hget(whotf,$address($nick,2))) {
      hadd whotf $address($nick,2) $nick $newnick
    }
    elseif (!$istok($hget(whotf,$address($nick,2)),$newnick,32)) {
      hadd whotf $address($nick,2) $hget(whotf,$address($nick,2)) $newnick
    }
    $iif($whotf.c($address($nick,2),3),echo,noop) $chan 10 $timestamp $newnick benutzte auch folgende Nicks: $hget(whotf,$address($nick,2))
  }
}

alias -l whotf.c {
  if ($numtok($hget(whotf,$address($1,2)),32) < $2) { return $false }
  else { return $true }
}