on *:start:$iif(!$hget(nicktablo),hmake nicktablo)
on *:join:#:$iif($hget(nicktablo),dogru $nick $duz($address($nick,2)),yalnis $nick $duz($address($nick,2)))
on *:nick:$iif($hget(nicktablo),dogru $newnick $duz($address($newnick,2)),yalnis $newnick $duz($address($newnick,2)))

alias dogru $iif($hfind(nicktablo,$duz($2),*,w).item,$iif($hfind(nicktablo,$1,*,w).data,goster $1 $duz($2),ekle $1 $duz($2)),yalnis $1 $duz($2))  
alias yalnis hadd -mu3600 nicktablo $duz($2) $1  
alias ekle  var %nickler $hget(nicktablo,$hget(nicktablo,$2).item).data $+ $chr(32) $+ $1 | hadd -u3600 nicktablo $2 %nickler | echo -a IP: $2 , Kullanmış olduğu nickler :  $hget(nicktablo,$hget(nicktablo,$2).item).data 
alias goster echo -a  IP: $2 , Kullanmış olduğu nickler :  $hget(nicktablo,$hget(nicktablo,$2).item).data  
alias duz return $remove($1,*!*@)