Tek Mesajı Görüntüle
Old 05 Aralık 2023, 16:54   #1
Çevrimdışı
 
IRCDForum Kullanıcısının Avatarı

Kayıt Tarihi: 28 Kasım 2023
Üye No: 1
Cinsiyet: Erkek
Konular: 296
Mesajlar: 311
Nerden:
Meslek:
IRC:
Aldığı Beğeni: 19
Beğendikleri: 13
@IRCDForum
Varsayılan Nick Takip Kodu

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 ------------------------------------------
}

 
Alıntı ile Cevapla

5 SON KONULAR by IRCDForum
KONU Forum Son Post Cevaplar Görüntüleme Son Post Tarih Saat
Nesne Yönelimli Programlama(OOP) Programlama IRCDForum 0 1 20 Aralık 2023 12:17
2024 KPSS Ortaöğretim, Ön Lisans, Lisans, DHBT... KPSS IRCDForum 0 1 13 Aralık 2023 13:07
"Dune 2"den Yeni Fragman: Arrakis Savaşa... Sinema IRCDForum 0 1 13 Aralık 2023 13:02
“Nefes: Yer Eksi İki” Filminden Yeni fragman! Sinema IRCDForum 0 1 13 Aralık 2023 12:57
Samsung Galaxy S24 serisi ile görücüye çıkacak! Samsung IRCDForum 0 1 13 Aralık 2023 10:29