bitanga-ns novi sad
Član broj: 113013 Poruke: 13 *.dynamic.sbb.co.yu.
|
ne moze ident da se stavi u N-listu
ali zato ima dobar nick tracker za mirc :)
malo doradjen na srpski ali radi poso
on *:start: {
nicktracker
}
on ^*:join:#: {
if (!$hget(join)) nicktracker
hinc join $address($nick,2) $+ $chan $+ .num
if ($hget(join,$address($nick,2) $+ $chan $+ .last)) echo # 8,3******** $nick Je ushao na kanal # - NickName promenuo $hget(join,$address($nick,2) $+ $chan $+ .num) Puta - Poslednji NickName $hget(join,$address($nick,2) $+ $chan) $duration($calc($ctime - $hget(join,$address($nick,2) $+ $chan $+ .last))) 7 $address
else echo # 7*************** $nick Je usao na kanal # - 0,2Prvi ULAZ 7 ( $address )
hadd join $address($nick,2) $+ $chan $nick
hadd join $address($nick,2) $+ $chan $+ .last $ctime
var %a = 1,%n = 0,%b = 1
while $hget(join,$address($nick,2) $+ .nicknum. $+ %a) {
if ($v1 == $nick) %n = 1
inc %a
}
if (%n == 0) hadd join $address($nick,2) $+ .nicknum. $+ %a $nick
while $nick(#,%b) {
if ($nick(#,%b) != $nick) && ($address($nick(#,%b),2) == $address($nick,2)) echo # 4****** $+ $nick(#,%b) is the clone of $nick $+ !
inc %b
}
haltdef
}
on *:nick: {
if (!$hget(join)) nicktracker
var %a = 1,%n = 0
while $hget(join,$address($newnick,2) $+ .nicknum. $+ %a) {
if ($v1 == $newnick) %n = 1
inc %a
}
if (%n == 0) hadd join $address($newnick,2) $+ .nicknum. $+ %a $newnick
}
menu nicklist {
Previous nicks:/prevnicks $$1
}
alias prevnicks {
if (!$hget(join)) nicktracker
var %a = 1,%s
while $hget(join,$address($1,2) $+ .nicknum. $+ %a) {
%s = %s $v1
inc %a
}
echo -a 0,2------------> 12 $1 has had the nicks:4 %s }
alias nicktracker {
hmake join 1000
.timer 0 600 hsave join join.hsh
}
ide u remote :))) ili napravi jednostavno mrc fajl pa kucaj u status /load -rs ime fajla.mrc
|