Nick Takip Kodu txt

D

Delikan

Guest
Kodun çalışma mantığı giris.txt dosyasına hostunu baz alarak kanala giren kullanıcıları kayıt eder ve @giris penceresinde bize ispiyonlar.

Kod:
alias giris {
return giris
}

on !1:JOIN:#: { window -De @Giris
var %mask = $mask($fulladdress,2)
var %nfname = $mask($fulladdress,0)

; get the previous nicks
var %nicks = $readini(giris.txt, %mask, nicks)

; get the pervious full names
var %fname = $readini(giris.txt, %mask, fullname)

; add the new nick ($addtok will take care of duplicates)
var %nicks = $addtok(%nicks,$nick,32)

; add the new fname ($addtok will take care of duplicates)
var %fname = $addtok(%fname,$ial(%mask).user,32)

; update the nicks
writeini -n giris.txt %mask nicks %nicks

; update the seen time
writeini -n giris.txt %mask seentime $date

; update the fullname
writeini -n giris.txt %mask fullname %fname

echo -t @giris 4Bağlanan 5 $nick ------------------------------------------
echo -t @giris 4IP Adresi 5 %mask
echo -t @giris 4Önceki Nick:5 $readini(giris.txt, %mask, nicks)
echo -t @giris 4Kullanıcı Adı:5 $readini(giris.txt, %mask, fullname)
echo -t @giris 4Son Görülen Zaman 5 $readini(giris.txt, %mask, seentime)
echo -t @giris 4Kanal:5 $chan
echo -t @giris 2End $nick ------------------------------------------
}

alias ntrack {
var %mask = $address($1,2)
var %nfname = $address($1,0)
; get the previous nicks
var %nicks = $readini(giris.txt, %mask, nicks)
; get the pervious full names
var %fname = $readini(giris.txt, %mask, fullname)
; add the new nick ($addtok will take care of duplicates)
var %nicks = $addtok(%nicks,$nick,32)
; add the new fname ($addtok will take care of duplicates)
var %fname = $addtok(%fname,$ial(%mask).user,32)
echo -a 12 $1 on the ip %mask has used the nicks: $readini(giris.txt, %mask, nicks) and the full names: $readini(giris.txt, %mask, fullname) and was last seen on $readini(giris.txt, %mask, seentime)
}
menu nicklist {
NickTrack:ntrack $$1
}

alias giris.txt {
return giris.txt
}

on !1:nick: { window -De @giris
var %mask = $mask($fulladdress,2)
var %nfname = $mask($fulladdress,0)

; get the previous nicks
var %nicks = $readini(giris.txt, %mask, nicks)

; get the pervious full names
var %fname = $readini(giris.txt, %mask, fullname)

; add the new nick ($addtok will take care of duplicates)
var %nicks = $addtok(%nicks,$newnick,32)

; add the new fname ($addtok will take care of duplicates)
var %fname = $addtok(%fname,$ial(%mask).user,32)

; update the nicks
writeini -n giris.txt %mask nicks %nicks

; update the seen time
writeini -n giris.txt %mask seentime $date

; update the fullname
writeini -n giris.txt %mask fullname %fname

echo -t @giris 4Bağlanan 5 $nick ------------------------------------------
echo -t @giris 4IP Adresi 5 %mask
echo -t @giris 4Önceki Nick:5 $readini(giris.txt, %mask, nicks)
echo -t @giris 4Kullanıcı Adı:5 $readini(giris.txt, %mask, fullname)
echo -t @giris 4Son Görülen Zaman 5 $readini(giris.txt, %mask, seentime)
echo -t @giris 4Kanal:5 $chan
echo -t @giris 2End $nick ------------------------------------------
}
 
Üst
Alt