Kodun Düzeltilmil Hali
Daha önce de Söylediğim gibi uzantıyı belirten kod satırında sorun var... Ayrıca Kanal Durumunu göstermede, ve Kullanıcı durumlarını göstermede sorun var. Kod'a bir kaç şey daha ekledim.. Kodu denedim tıkır tıkır çalışıyor.. Bu Kodu bugünlerde tam olarak verecektim. Nicklust.dll ile ilgili resimli açıklamalı döküman yazmıştım. Bu dökümanla ilgili başka bir forumda bir soru sorulmuştu. Bu soru şununla ilgili idi : İlk çıkan Nicklust.dll de biz bazı serverlerde kullanılan . ve ~ karakterlerinde kullanamıyorduk. İşte Nicklust3.dll ile bunu artık gerçekleştirebiliyoruz..
Not : Bu Kodu kullanabilmeniz için nicklust3.dll nin yüklü olması gerekir. Nicklust3.dll sistem\dll dosyasının içinde olmak zorunda.
Ayrıca iconlarınız da sistem\icons dosyasının içinde olmak zorundadır.
Uzantıları bu şekilde ayarladım... Bu Kodu Alt+R ye bastığınız zaman karşınızda çıkan boş bir remote penceresine kopyalayınız... Düzeltilmiş kod :
ON *:JOIN:#:{
if ($nick == $me) {
nicklust Mark $window($chan).hwnd nLUST_CallBack rowselect tooltips balloontips hideempty hottrack dlgframe clientedge
dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\operator.ico)
dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\voice.ico)
dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\user.ico)
dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\halfop.ico)
dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\operator.ico)
dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\sop.ico)
dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\sahip.ico)
dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\sahip.ico)
dll sistem\dll\nickLUST3.dll SetGroupText $chan 1 > Userler
dll sistem\dll\nickLUST3.dll AddGroup $chan 10 + 2 > Voiceler +
dll sistem\dll\nickLUST3.dll AddGroup $chan 11 @ 1 > Operatorler @
dll sistem\dll\nickLUST3.dll AddGroup $chan 12 % 4 > Halfopler %
dll sistem\dll\nickLUST3.dll AddGroup $chan 13 - 5 > Normal Oplar
dll sistem\dll\nickLUST3.dll AddGroup $chan 14 & 6 > Soplar
dll sistem\dll\nickLUST3.dll AddGroup $chan 15 . 7 > Kanal Sahibi
dll sistem\dll\nickLUST3.dll AddGroup $chan 16 ~ 7 > Kanal Sahibi
dll sistem\dll\nickLUST3.dll SetGroupView $chan 1 normal
dll sistem\dll\nickLUST3.dll SetGroupView $chan 10 normal
dll sistem\dll\nickLUST3.dll SetGroupView $chan 11 normal
dll sistem\dll\nickLUST3.dll SetGroupView $chan 12 normal
dll sistem\dll\nickLUST3.dll SetGroupView $chan 13 normal
dll sistem\dll\nickLUST3.dll SetGroupView $chan 14 normal
dll sistem\dll\nickLUST3.dll SetGroupView $chan 15 normal
dll sistem\dll\nickLUST3.dll SetGroupView $chan 16 normal
dll sistem\dll\nickLUST3.dll SetGroupIcon $chan 1 3
dll sistem\dll\nickLUST3.dll SetGroupPos $chan 15 start
dll sistem\dll\nickLUST3.dll SetGroupPos $chan 11 end
dll sistem\dll\nickLUST3.dll SetGroupPos $chan 12 end
dll sistem\dll\nickLUST3.dll SetGroupPos $chan 10 end
dll sistem\dll\nickLUST3.dll SetGroupPos $chan 14 end
dll sistem\dll\nickLUST3.dll SetGroupPos $chan 13 end
dll sistem\dll\nickLUST3.dll SetGroupPos $chan 1 end
dll sistem\dll\nickLUST3.dll SetColor $chan bkg $rgb(244,244,244)
dll sistem\dll\nickLUST3.dll SetColor $chan text $color(14)
dll sistem\dll\nickLUST3.dll SetColor $chan tipbkg $rgb(219,219,219)
dll sistem\dll\nickLUST3.dll SetColor $chan tiptext $color(1)
dll sistem\dll\nickLUST3.dll SetColor $chan hottext $color(12)
dll sistem\dll\nickLUST3.dll SetColor $chan divider $color(12) $color(0)
dll sistem\dll\nickLUST3.dll SetHeaderFontStyle $chan italic
dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 15 $rgb(147,147,255)
dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 11 $rgb(255,70,70)
dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 12 $color(15)
dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 10 $rgb(78,191,224)
dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 14 $rgb(41,209,155)
dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 1 $color(6)
}
haltdef
}
alias nicklust { dll $+(",$mircdirsistem\dll\nickLUST3.dll,") $1- }
alias nlust_callback {
if ($1 = tooltip) {
var %extra
if ($3 == $me) %extra = (Kendi Nickin)
nicklust SetTipTitle $2 1 > $3 %extra Nickinin Bilgisi
return Durumu: $nlist_pnick($remove($nick($2,$3).pnick,$3)) $+ $crlf $+ Idlesi: $duration($nick($2,$nick($2,$3)).idle) $+ $crlf $+ Notify list: $iif($notify($3),Notify Listesine Ekli,Notifyde Değil) $+ $crlf $+ Adresi: $iif($address($3,1),$ifmatch,Unknown) $+ $crlf $+ Kanal: $_comchans($3,32))
}
}
alias nlist_pnick {
if ($1 = @) { return Kanal Operatörü }
elseif ($1 = .) { return Kanal Sahibi }
elseif ($1 = &) { return Super Op (Sop) }
elseif ($1 = +) { return Voice }
elseif ($1 = %) { return Halfoperatör }
elseif ($1 = -) { return Operator }
elseif ($1 = ~) { return Kanal Sahibi }
elseif ($1 = $null) { return Normal Kullanıcı }
}
alias _isnotifylist {
if ($notify($1)) return $2
return $3
}
alias _comchans {
var %tokk = $iif($2,$ifmatch,$chr(32)), %iii = 1, %chh
while (%iii <= $comchan($1,0)) {
%chh = $addtok(%chh,$comchan($1,%iii),%tokk) | inc %iii
}
return $sorttok(%chh,%tokk)
}
if ($1 == nickadded) {
if ($3 == $me) return 2 $rgb(255,0,255) > $me $crlf $+
}
Kod sonucu oluşan görüntülere 2 resimli örnek :
Birinci Resim: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
İkinci Resim : Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Konu McKruGer tarafından (20 Kasım 2005 Saat 03:48 ) değiştirilmiştir.
|