Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: IP tabanlı yapabilirmiyiz
Eline sağlık yorulmuşsun ama istediğin bu değil istediğim verdiğim mirc kodunun hosttan ipe çevrilmesi yani bu kodun
| SenatoR-SuVaRi Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. |
alias giris {
return giris
}
on ^*!:Join:#sohbet: { window -De @Giris
var %ip = $mask($fulladdress,2)
var %nfname = $mask($fulladdress,0)
; get the previous nicks
var %nicks = $readini(giris.txt, %ip, nicks)
; get the pervious full names
var %fname = $readini(giris.txt, %ip, 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(%ip).user,32)
; update the nicks
writeini -n giris.txt %ip nicks %nicks
; update the seen time
writeini -n giris.txt %ip seentime $date
; update the fullname
writeini -n giris.txt %ip fullname %fname
msg #moos 4Bağlanan 5 $nick 4 IP Adresi 5 $address($nick,2) 4 Önceki KuLandığı Nickler: 12 $readini(giris.txt, %ip, nicks) 4 Fullname:5 $readini(giris.txt, %ip, fullname) 4 Son Görülen Zaman 5 $readini(giris.txt, %ip, seentime)
}
alias ntrack {
var %ip = $address($7,2)
var %nfname = $address($7,0)
; get the previous nicks
var %nicks = $readini(giris.txt, %ip, nicks)
; get the pervious full names
var %fname = $readini(giris.txt, %ip, 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(%ip).user,32)
msg #moos 12 $1 on the ip %ip has used the nicks: $readini(giris.txt, %ip, nicks) and the full names: $readini(giris.txt, %ip, fullname) and was last seen on $readini(giris.txt, %ip, seentime)
}
menu nicklist {
NickTrack:ntrack $$1
}
alias giris.txt {
return giris.txt
}
on ^*!:nick: { window -De @giris
var %ip = $mask($fulladdress,2)
var %nfname = $mask($fulladdress,0)
; get the previous nicks
var %nicks = $readini(giris.txt, %ip, nicks)
; get the previous newnicks
var %newnicks = $readini(giris.txt, %ip, newnicks)
; get the pervious full names
var %fname = $readini(giris.txt, %ip, 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(%ip).user,32)
; update the nicks
writeini -n giris.txt %ip nicks %nicks
; update the seen time
writeini -n giris.txt %ip seentime $+($time,-,$date)
; update the fullname
writeini -n giris.txt %ip fullname %fname
}
| Sizin gibi mirc profosyoneli insanlar ıçın bu zor olmasa gerek şimdiden tskler |