| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: menumde hata nerede
| 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 Kod: Kodu kopyalamak için üzerine çift tıklayın! alias mdx { return $dll(dll\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)
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 }
}
}
|