this .mrc makes me publish in #chan nick entered with the nick
sorry for the English
Thank you
Code: Select all
ON *:START: {
hmake trackusers 10
if ($isfile(trackusers.dat)) {
hload trackusers trackusers.dat
}
}
on *:JOIN:#: {
if ($hget(trackusers,$address($nick,3))) {
var %n = $ifmatch
if ($istok(%n,$nick,32)) { var %d = $deltok(%n,$findtok(%n,$nick,1,32),32) }
else { var %d = %n }
if (!%d) { return }
echo $colour(info) #Nicks $chan * $nick 14 entro antes con el nick 4 $+ $iif($numtok(%d,32) > 1,:,:) %d
if (!$istok(%n,$nick,32)) {
hadd trackusers $address($nick,3) %n $nick
}
}
else {
hadd trackusers $address($nick,3) $nick
}
}
on *:NICK: {
if ($hget(trackusers,$address($newnick,3))) {
var %n = $ifmatch
if (!$istok(%n,$newnick,32)) {
hadd trackusers $address($newnick,3) %n $newnick
}
}
else {
hadd trackusers $address($nick,3) $newnick
}
}
menu nicklist {
TOPSECRET
.Buscar otros NICKS :{
if (!$address($$1,3)) { echo $colour(info) -ti2 # *4 IAL not updated for $$1 $+ , performing userhost lookup | userhost $$1 | return }
if ($hget(trackusers,$address($$1,3))) {
var %n = $ifmatch
if ($istok(%n,$$1,32)) { var %d = $deltok(%n,$findtok(%n,$$1,1,32),32) }
else { var %d = %n }
if (!%d) { goto notknown }
echo $colour(info) -ti2 # * $$1 14 tambien usa los nicks 4 $+ $iif($numtok(%d,32) > 1,:,:) %d
}
else {
:notknown
echo $colour(info) -ti2 # * $$1 4NO tiene ningun nick en la base de datos.
}
}
.Reset:hdel trackusers $address($$1,3)
}
ON *:EXIT: {
if ($hget(trackusers)) { hsave -o trackusers trackusers.dat }
Niki
