Çevrimdışı

arkadaşlar soyledim gibi acemiyim. kendi bağlan menumu kodları inceleyrek yapmayı denedim. bulduğum kodları eklediğimde mırc açılışında menu gelmedi. bağlantı menusu hakkında genelde ornek kod verilmiş, hangi kodun ne yaptığı anlatılmamış. bu yuzden anlamakta zorluk çektim aşağıda kodumu veriyorum.
yapmak istediğim mirc açılınca bağlan menusu gelsin, menudeki bağan tuşu ile bağlantı sağlansın
Sorun şu

1.mırc açılında dialog geliyor. Fakat bağlan tuşuna basmadan kendi bağlanmaya çalışıyor ve ekranımda şu hata çıkyor. ( kod içinde server kısmındaki ismi burada reklam olmasın diye deneme yazdım.)

/on: Servera bağlı değilsiniz (Satır 27, script.ini)
-

/// kodum şu şekilde

alias mdx { return $dll(sys\mdx.dll,$1,$2-) }
on 1:start: /baglan


alias baglan { dialog -m baglan baglan }
dialog baglan {
title "Türkçe mIRC Bağlantı Paneli"
size -1 -1 152 75
option dbu
box "", 1, 2 -1 148 74
text "Sohbette kullanacağınız rumuzu kutucuğa yazınız", 2, 4 5 143 14, center
edit "bb", 3, 8 23 135 10, center
button "- S O H B E T E B A Ğ L A N -", 4, 8 34 135 19,default
button "Türkiye", 5, 8 55 66 14
button "Yurt Dışı", 6, 77 55 66 14
}
on *:dialog:baglan:*:*:{
if ($devent == init) {
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetDialog $dname bgcolor $rgb(230,230,230)
mdx SetColor $dname 2,3,4,6,7,12,10 textbg $rgb(230,230,250)
mdx SetColor $dname 2,3,4,6,7,12,10 background $rgb(230,230,250)

}

on 1:dialog:baglan:*:*: {
if ($devent == init) {
if $me == $null {
.nick tutku- $+ $rand(1,999) $+ $rand(1,999)
}
did -a baglan 3 $me
}
if ($devent == sclick) {
if ($did == 4 ) { /!server irc.deneme.net:6667 | .nick $did(3) | /dialog -c baglan baglan }
}
if ($devent == sclick) {
if ($did == 5 ) { /!server irc.deneme.net:6668 | .nick $did(3) | /dialog -c baglan baglan }
}
if ($devent == sclick) {
if ($did == 6 ) { /!server irc.deneme.net:6666 | .nick $did(3) | /dialog -c baglan baglan }
}
}

 

Çevrimdışı

(Satır 27, script.ini)

Script ini dosyasında, 27'nci satıra bak, oradaki hatadan dolayı hata alıyorsun.

__________________
Lucifer dediler bana, kötülüğü anlatmak için. Halbuki, ışık ve güzelliği anlatırdı Lucifer. Ben kötüyüm bu düzen için; ama değilim asla kötülük.

 

Çevrimdışı

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) dalga geçmeyelim lutfen onu zaten belirttim hata kısmında buradaki hatanın ne olduğunu soruyorum zaten.

satır 27 dediği yer editorden baktığım kadarıyla

on *:dialog:baglan:*:*:{
if ($devent == init) {
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetDialog $dname bgcolor $rgb(230,230,230)
mdx SetColor $dname 2,3,4,6,7,12,10 textbg $rgb(230,230,250)
mdx SetColor $dname 2,3,4,6,7,12,10 background $rgb(230,230,250)
Burada hata olduğunu gosteriyor.
}

 

Çevrimdışı

LordAres Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

arkadaşlar soyledim gibi acemiyim. kendi bağlan menumu kodları inceleyrek yapmayı denedim. bulduğum kodları eklediğimde mırc açılışında menu gelmedi. bağlantı menusu hakkında genelde ornek kod verilmiş, hangi kodun ne yaptığı anlatılmamış. bu yuzden anlamakta zorluk çektim aşağıda kodumu veriyorum. yapmak istediğim mirc açılınca bağlan menusu gelsin, menudeki bağan tuşu ile bağlantı sağlansın Sorun şu 1.mırc açılında dialog geliyor. Fakat bağlan tuşuna basmadan kendi bağlanmaya çalışıyor ve ekranımda şu hata çıkyor. ( kod içinde server kısmındaki ismi burada reklam olmasın diye deneme yazdım.) /on: Servera bağlı değilsiniz (Satır 27, script.ini) - /// kodum şu şekilde alias mdx { return $dll(sys\mdx.dll,$1,$2-) } on 1:start: /baglan alias baglan { dialog -m baglan baglan } dialog baglan { title "Türkçe mIRC Bağlantı Paneli" size -1 -1 152 75 option dbu box "", 1, 2 -1 148 74 text "Sohbette kullanacağınız rumuzu kutucuğa yazınız", 2, 4 5 143 14, center edit "bb", 3, 8 23 135 10, center button "- S O H B E T E B A Ğ L A N -", 4, 8 34 135 19,default button "Türkiye", 5, 8 55 66 14 button "Yurt Dışı", 6, 77 55 66 14 } on *:dialog:baglan:*:*:{ if ($devent == init) { mdx SetMircVersion $version mdx MarkDialog $dname mdx SetDialog $dname bgcolor $rgb(230,230,230) mdx SetColor $dname 2,3,4,6,7,12,10 textbg $rgb(230,230,250) mdx SetColor $dname 2,3,4,6,7,12,10 background $rgb(230,230,250) } } on 1:dialog:baglan:*:*: { if ($devent == init) { if $me == $null { .nick tutku- $+ $rand(1,999) $+ $rand(1,999) } did -a baglan 3 $me } if ($devent == sclick) { if ($did == 4 ) { /!server irc.deneme.net:6667 | .nick $did(3) | /dialog -c baglan baglan } } if ($devent == sclick) { if ($did == 5 ) { /!server irc.deneme.net:6668 | .nick $did(3) | /dialog -c baglan baglan } } if ($devent == sclick) { if ($did == 6 ) { /!server irc.deneme.net:6666 | .nick $did(3) | /dialog -c baglan baglan } } }

sorunun sadece bir tane "}" işaretinin eksik olması kırmızı yer yani
-------------

kodda fazlalık var bu şekilde kullanmalısın

 

Çevrimdışı

teşekkurler hocam şimdi çalıştı. sayende yanlış kod tasarım yaptığımı ve nasıl olması gerektini gördüm. çok teşekkurler.