| Cevap: Whowas takip
on *:join:#x:userip $nick
raw 340:*:set %ip $gettok($2,2,64) | who +h $gettok($2,2,64) | hadd -m kayıt $+($gettok($2,1,61),½,$gettok($2,2,64)) | iptara $gettok($2,2,64) $gettok($2,1,61) | haltdef
raw 352:*:hadd -m nick $6 1 | haltdef
raw 315:*:var %& = 1,%&& | while %& <= $hget(nick,0).item { %&& = $addtok(%&&,$hget(nick,%&).item,32) | inc %& } | $iif(!$window(@IP),window -nCbsa @IP) | echo -t @IP Bilgi: %ip adresin'den bağlantı kuranlar: %&& | unset %ip | hfree nick | haltdef
alias iptara { if $hget(kayıt) { var %o = 1 | while %o <= $hget(kayıt,0).item { if $gettok($hget(kayıt,%o).item,2,189) == $1 && $gettok($hget(kayıt,%o).item,1,189) != $2 { $iif(!$window(@sonuc),window -nCbsa @sonuc) | echo -te @sonuc Bilgi: $gettok($hget(kayıt,%o).item,2,189) IP adresin'den daha önce; $gettok($hget(kayıt,%o).item,1,189) nick'i ile giriş yapıldı. } | inc %o } } }
Sorunsuz çalışıcaktır.
|