Çevrimiçi

Mack Nickli Üyeden Alıntı

bu istediğin özellik diaolog scriptde mevcutdur yapıcsına ulaşırsan yardımcı olur yada arkadaşında dediği gibi c0c0ric0 ya özel mesaj at oda yardımcı olur. Kolay gelsin... Not:[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] dialog scriptin sitesi...

Yabancı bir scriptin Türkçeleştirilmişi Dialog Script.

__________________

 

Çevrimdışı

nicklust.dll yi kullanarak balon olayını bu satır ile yapabilirsin flyman

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 $+ ,2) $+ $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
}

 

Çevrimdışı

arkadaşım nicklust.dll diye yazdım.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

buraya tıkla cek. verdiğim kodu remoteye ekle. mirce gir sonra. nick üstüne gel azıcık bekle gorursun.

e gene yapamıyorsan ilerde biraz daha geliştirince kendini yaparsın.
hazır verdik kodu daha bir şey yapamam. yapacak bir şey kalmadı cunku
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ne varyahu nuryol script in yaptığı diyaloglarda mdx i bilen herkes yapar. az bucuk dll lerden de anlican ki dll lerin mantığı aynıdır hep. ayrıca dll lerinde nasıl kullanacağına dair komut ornekleri var..

 

Ç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.

 

Çevrimdışı

Eline sağlık Mc.

 

Çevrimdışı

nicklist.dll mi nicklust.dll mi bu
bulamadim nerden bulurum bu dll dosyasini

 

Çevrimdışı

buldumda o dll yapamadim yine ben bu isi tam olarak ne yapmam gerek?

 

Çevrimdışı

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] da Olması Gerek :p

 

Çevrimdışı

O eleman Benimle İddaalaşıyordu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Senin bilmediğin Coder'larda var v.s.