IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   whoiste önceki nick görünümü (https://www.ircforumlari.net/mirc-scripting-sorunlari/361357-whoiste-onceki-nick-gorunumu.html)

ekselansx 25 Ekim 2010 12:44

whoiste önceki nick görünümü
 
Öncelikler merhabalar arkadaşlar..
Elimde bi kod var ..nick listesinde sağ tıklayıp trackusers/ view other nicknames dediğimde önceki nickleri varsa gösteriyor...
Ben bunu nick listesinde olduğu gibi whoise entegre etmek istiyorum..
Yani whoise tıkladığım zaman varsa eğer önceki nicki çıkacak..
Önceki nicki gösteren kod;
ON *:START: {
; Create a hash table and load the saved user data
hmake trackusers 10
if ($isfile(trackusers.dat)) {
hload trackusers trackusers.dat
}
}
on *:JOIN:#: {
; Check if there are any nicknames for this mask
if ($hget(trackusers,$address($nick,2))) {
var %n = $ifmatch
; Delete the current nickname from the list of used nicknames
if ($istok(%n,$nick,32)) { var %d = $deltok(%n,$findtok(%n,$nick,1,32),32) }
else { var %d = %n }
; If there are no nicknames left in the list then stop
if (!%d) { return }
; Display the nicknames
echo $colour(info) -ti2 $chan 5 *** 3 $nick 7 [ONCEKI NICKLERI] 4 $+ $iif($numtok(%d,32) > 1,s:,:) %d
if (!$istok(%n,$nick,32)) {
; Add the current nickname to the list
hadd trackusers $address($nick,2) %n $nick
}
}
else {
; Create a new entry for this mask
hadd trackusers $address($nick,2) $nick
}
}
on *:NICK: {
if ($hget(trackusers,$address($newnick,2))) {
var %n = $ifmatch
if (!$istok(%n,$newnick,32)) {
; Append the new nickname to the list for this mask
hadd trackusers $address($newnick,2) %n $newnick
}
}
else {
; Create a new entry for this mask
hadd trackusers $address($nick,2) $newnick
}
}
menu nicklist {
Track Users
.View Other Nicknames:{
if (!$address($$1,2)) { echo $colour(info) -ti2 # * IAL not updated for $$1 $+ , performing userhost lookup | userhost $$1 | return }
if ($hget(trackusers,$address($$1,2))) {
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 5 *** 3 $nick 7 [ONCEKI NICKLERI] 4 $+ $iif($numtok(%d,32) > 1,s:,:) %d
}
else {
:notknown
echo $colour(info) -ti2 # * $$1 has not been known by any other nickname
}
}
; This resets the data for this nick's mask only
.Reset:hdel trackusers $address($$1,2)
}
ON *:EXIT: {
; Save data on exit
if ($hget(trackusers)) { hsave -o trackusers trackusers.dat }
}


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:52.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk