| bLaсk | 29 Mayıs 2014 21:34 |
Bağlantı Menüsü Dialogu
Merhaba arkadaşlar dün kendimce basit bir şekilde bağlantı menüsü oluşturmaya çalıştım ve sizlerele paylaşmak istedim en baştan söyleyeytim aktif bir coder falan değilim sadece çalışıyor ve örnekler çıkarıyorum. Ayrıca AfraN arkadaşımızada teşekkür ederim dialogun eksik kısımı ile ilgilenip bana yardımcı olduğu için ..
Resim ; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kod; Kod:
dialog bagla {
title "mIRC Baglanti Menusu "
size -1 -1 219 95
option dbu
text "İdent", 1, 6 38 36 8, center
text "YedekNickiniz", 2, 6 24 36 8, center
text "Nickiniz", 3, 6 11 36 8, center
edit "", 4, 46 10 50 10, return autohs
edit "", 5, 46 23 50 10, return autohs
edit "", 6, 46 37 50 10, return autohs
box "Bağlantı Menüsü", 7, 1 0 109 62
button "Sohbetim.Com", 8, 119 10 42 12
button "Siberchat.Net", 9, 169 10 42 12
button "Sohbet.net", 10, 119 29 42 12
button "Sohbetik.Com", 11, 169 29 42 12
button "Turkgurbet.Com", 12, 119 47 42 12
button "Chatruya.Com", 13, 169 47 42 12
box "Sunucular", 14, 114 0 104 62
text "Server ", 15, 6 72 36 8, center
edit "", 16, 46 71 50 10, return autohs
box "Sunucuya Gir", 17, 2 62 215 32
button "Gir", 18, 60 83 25 9
button "Tamam", 19, 119 70 42 20, ok
button "Kapat", 20, 170 70 42 20, cancel
edit "", 21, 46 50 50 10, return autohs
text "Fullname", 22, 6 51 36 8, center
}
on *:dialog:bagla:init:*:{
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetBorderStyle ,4,6,8,14
mdx SetDialog [ $dname ] bgcolor [ $rgb(253,254,255) ]
mdx SetColor 4,5,6,21,23,24 textbg [ $rgb(0,0,0) ]
mdx SetColor $dname 4,5,6,21,23,24 text $rgb(253,255,250)
mdx SetFont $dname Turkish 36 750 Arial
mdx SetColor 4,5,6,21,23,24 background [ $rgb(0,0,0) ]
did -a bagla 4 $me
did -a bagla 5 $anick
did -a bagla 6 $email
did -a bagla 21 $fullname
}
on *:dialog:bagla:sclick:8: { server irc.sohbetim.com }
on *:dialog:bagla:sclick:9: { server irc.siberchat.net }
on *:dialog:bagla:sclick:10: { server irc.sohbet.net }
on *:dialog:bagla:sclick:11: { server irc.sohbetik.com }
on *:dialog:bagla:sclick:12: { server irc.turkgurbet.com }
on *:dialog:bagla:sclick:13: { server irc.chatruya.com }
on *:dialog:bagla:sclick:18: { if $did(16) == $null) { echo -a sunucu ismi yazdıktan sonra buttona basınız. örnek sunucu; irc.sohbetim.com | return }
else { server $did(16) }
Herkese keyifli forumlar dilerim. |
