Çevrimdışı

bir süredir fındık toplamakla meşguldum bugün işim bitti. o yüzden mesajım biraz geç olmuştur kusura bakma Flyman... Nick Listesindeki info ile ilgili yazılmış nicklust dll si var..

bir kaç türlü info gösterdiği şekilde yollicam buraya

1.kod : Bu kodda nick renkleri sabittir , hepsi siyahtır. Arka planda beyazdır. Nick info penceresinin arka planı da beyaz yazıları ise siyahtır. Bu renkleri el ile ancak değişirsin. ctrl+k ile çıkan Renkler ( colors ) menüsünden değiştiremessin. Ayrıca kanal penceresinin en üstünde Kanal adı yazmaz.

alias nicklust { return $shortfn($scriptdirdll\nicklust.dll) }
on *:join:*:{
if ($nick == $me) {
if (%whochan == $null) set %whochan 1
else set %whochan $calc(%whochan + 1)
.nicklist #
.enable #visiblewho
.who #
}
}
alias nicktt {
if ($1 == color) {
if ($3 == $me) return %nl.owntext
elseif ($istokcs(%nl.specialnicks,$3,44)) return %nl.specialtext
elseif ($3 ishop $active) return %nl.halftext
elseif ($3 isop $active) return %nl.optext
elseif ($3 isvoice $active) return %nl.voicetext
return %nl.regtext
}
if ($1 == tooltip) {
return Nicki: $3 $+ $crlf $+ Adresi: $address( $+ $3 $+ ,1) $+ $crlf $+ Durumu: $getStatus($3,$active)
}
}
alias getStatus {
if ($istokcs(%nl.specialnicks,$1,44)) return Arkadaşın
elseif ($1 == $me) return Kendi Nickin
elseif ($1 ishop $2) return Half-operatör
elseif ($1 isop $2) return Operator
elseif ($1 isvoice $2) return Voice
else return Normal User
}
alias nicklist {
dll $nicklust Mark $1 > nicktt borderselect autoarrange balloon
dll $nicklust SetTipTitle $1 1 > Nick Bilgileri
dll $nicklust SetTipDelay $1 roll default
dll $nicklust SetTipColor # text $rgb(0,0,0)
dll $nicklust SetTipColor # bkg $rgb(255,255,255)
}


2.ci Kod : Bu kodda ise kanal ismi kanal penceresinin en üstünde yazar. Şimdi bunu nasıl yaptık dersen 1.ci koddan tek farkı şu satır dır : dll $nicklust SetHeaderText $1 > $1 işte bu satır kanal penceresinin üstünde kanal isminin yazmasını sağlar.

alias nicklust { return $shortfn($scriptdirdll\nicklust.dll) }
on *:join:*:{
if ($nick == $me) {
if (%whochan == $null) set %whochan 1
else set %whochan $calc(%whochan + 1)
.nicklist #
.enable #visiblewho
.who #
}
}
alias nicktt {
if ($1 == color) {
if ($3 == $me) return %nl.owntext
elseif ($istokcs(%nl.specialnicks,$3,44)) return %nl.specialtext
elseif ($3 ishop $active) return %nl.halftext
elseif ($3 isop $active) return %nl.optext
elseif ($3 isvoice $active) return %nl.voicetext
return %nl.regtext
}
if ($1 == tooltip) {
return Nicki: $3 $+ $crlf $+ Adresi: $address( $+ $3 $+ ,1) $+ $crlf $+ Durumu: $getStatus($3,$active)
}
}
alias getStatus {
if ($istokcs(%nl.specialnicks,$1,44)) return Arkadaşın
elseif ($1 == $me) return Kendi Nickin
elseif ($1 ishop $2) return Half-operatör
elseif ($1 isop $2) return Operator
elseif ($1 isvoice $2) return Voice
else return Normal User
}
alias nicklist {
dll $nicklust Mark $1 > nicktt borderselect autoarrange balloon
dll $nicklust SetTipTitle $1 1 > Nick Bilgileri
dll $nicklust SetTipDelay $1 roll default
dll $nicklust SetTipColor # text $rgb(0,0,0)
dll $nicklust SetTipColor # bkg $rgb(255,255,255)
dll $nicklust SetHeaderText $1 > $1
}


3.cü Kod : Bu kod ilede Nick renklerinide belirtebilirsin ve değiştirebilirsin.. Ayrıca Kanal penceresi arka planınıda değiştirebilirsin..

alias nicklust { return $shortfn($scriptdirdll\nicklust.dll) }
on *:join:*:{
if ($nick == $me) {
if (%whochan == $null) set %whochan 1
else set %whochan $calc(%whochan + 1)
.nicklist #
.enable #visiblewho
.who #
}
}
alias nicktt {
if ($1 == color) {
if ($3 == $me) return %nl.owntext
elseif ($istokcs(%nl.specialnicks,$3,44)) return %nl.specialtext
elseif ($3 ishop $active) return %nl.halftext
elseif ($3 isop $active) return %nl.optext
elseif ($3 isvoice $active) return %nl.voicetext
return %nl.regtext
}
if ($1 == tooltip) {
return Nicki: $3 $+ $crlf $+ Adresi: $address( $+ $3 $+ ,1) $+ $crlf $+ Durumu: $getStatus($3,$active)
}
}
alias getStatus {
if ($istokcs(%nl.specialnicks,$1,44)) return Arkadaşın
elseif ($1 == $me) return Kendi Nickin
elseif ($1 ishop $2) return Halfops
elseif ($1 isop $2) return Operator
elseif ($1 isvoice $2) return Voice
else return Normal User
}

alias nicklist {
dll $nicklust Mark $1 > nicktt borderselect autoarrange balloon
dll $nicklust SetTipTitle $1 1 > Nick Bilgileri
dll $nicklust SetTipDelay $1 roll default
dll $nicklust SetTipColor # text $rgb(0,0,0)
dll $nicklust SetTipColor # bkg $rgb(255,255,255)
dll $nicklust SetHeaderText $1 > $1
dll $nicklust SetColor # bkg $rgb(255,255,255)
dll $nicklust SetColor # op $rgb(221,0,0)
dll $nicklust SetColor # halfop $rgb(255,94,0)
dll $nicklust SetColor # normal $rgb(0,0,255)
dll $nicklust SetColor # voice $rgb(0,110,0)
}

dll $nicklust SetColor # bkg $rgb(255,255,255) satırı ile kanalın arka plan rengini değiştirirsin.. Parantez içinde yer alan 255,255,255 rgb renklendirme kodudur...

dll $nicklust SetTipColor # bkg $rgb(255,255,255) satırı ile info penceresinin arka plan rengini değişirsin. ki arka plan rengi şu an beyaz.

dll $nicklust SetTipColor # text $rgb(0,0,0) satırı ilede info penceresindeki yazı rengini değişirsin. ki yazıların rengi siyahtır.


dll $nicklust SetColor # op $rgb(221,0,0) satırı op rengini
dll $nicklust SetColor # halfop $rgb(255,94,0) halfop rengini
dll $nicklust SetColor # normal $rgb(0,0,255) Normal user rengini
dll $nicklust SetColor # voice $rgb(0,110,0) voice rengini değiştirir. Parantez içindekiler yukarıda dediğim gibi rgb renklendirme kodudur.


rgb renkleri hakkında yardım istiyorsan hangi rakamlar hangi renge işaret eder diyorsan o koduda yazayım remoteye eklersin.

Rgb kodu :

alias -l preview {
window -phn +b @Color -1 -1 270 25
drawfill -r @Color $rgb($1,$2,$3) 1 1 1
drawsave @Color preview.bmp
window -c @Color
}
alias -l color {
window -phn +b @Color -1 -1 18 18
drawfill -r @Color $rgb($1,$2,$3) 1 1 1
drawsave @Color $+($4,.bmp)
window -c @Color
}

dialog RGB {
title "RGB Renkleri"
size -1 -1 126 102
option dbu
icon 1, 4 45 117 15, preview.bmp, 0
scroll "", 3, 24 5 96 8, range 0 255 horizontal
scroll "", 4, 24 19 96 8, range 0 255 horizontal
scroll "", 5, 24 33 96 8, range 0 255 horizontal
icon 6, 4 3 15 10, r.bmp, 0
icon 7, 4 17 15 10, g.bmp, 0
icon 8, 4 31 15 10, b.bmp, 0
text "RGB", 10, 10 65 16 8
text "HEX", 11, 10 74 16 8
button "Çıkış", 12, 89 89 33 11, ok
text "", 13, 31 64 32 8
text "", 14, 31 74 32 8
box "", 15, 4 59 118 25
button "HEX Kopyala", 16, 47 89 38 11
button "RGB Kopyala", 17, 4 89 38 11
}
on *:dialog:rgb:*:*:{
if ($devent == init) {
did -a $dname 13 0,0,0
did -a $dname 14 #0
}
if ($devent == scroll) {
%rgb.val = $did(3).sel $did(4).sel $did(5).sel
preview %rgb.val
did -g $dname 1 preview.bmp
did -ra $dname 13 $replace(%rgb.val,$chr(32),$chr(44))
did -ra $dname 14 $chr(35) $+ $base($rgb($token(%rgb.val,1,32),$token(%rgb.val,2 ,32),$token(%rgb.val,3,32)),10,16)
color $did($did).sel 0 0 r
color 0 $did($did).sel 0 g
color 0 0 $did($did).sel b
did -g $dname $calc(3+ $did) $+($replace($did,3,r,4,g,5,b),.bmp)
}
if ($devent == sclick) {
if ($did isnum 16-17) {
%rgb.c = $iif($did == 16,~)
if (%rgb.c) {
clipboard $did(14)
}
else {
clipboard $did(13)
}
}
}
}
alias rgb {
preview 0 0 0
%rgb.count = 1
while ($token(r.g.b,%rgb.count,46)) {
color 0 0 0 $ifmatch
inc %rgb.count
}
unset %rgb.*
dialog -dm rgb rgb
}
menu channel {
.RGB Renkleri : dialog -m RGB RGB
}


Son olarak aşağıdan Nicklust dll si cek ve dll klasorü içinde at.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Not : Bu Kodu denedim tıkır tıkır calisiyor. şayet gene yapamassan o zaman bende mirc.exe ye yüklenmiş halini mirc.exe ile beraber yollarım.