Tekil Mesaj gösterimi
Alt 03 Eylül 2007, 23:47   #6
Çevrimdışı
LauReLL
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Uçan MenüLer ( Dialog'Larınız Ucarak AçıLsın... )




alias start { if ($dialog(baqlanti)) { dialog -x baqlanti } | dialog -md baqlanti baqlanti }
dialog baqlanti {
title " -» SibErim Script ßy LauReLL "
size -1 -1 267 408
option pixels
text " Server: ", 1, 16 48 118 17
text " Port: ", 2, 163 49 50 17
text " Identd: ", 3, 17 91 68 17
text " E-mail: ", 4, 19 135 69 17
text " Username: ", 5, 18 177 83 17
text " Nickname: ", 6, 20 218 109 17
text " Alternatif Nick: ", 7, 20 258 98 17
button "Diğer sErvErs", 8, 20 313 105 25, flat ok
text "-» Created By LauReLL «-", 9, 12 365 245 77, center
button " ScripT Bilgisi ", 10, 79 14 100 27, flat
edit "IRc.mIRCTR.coM ", 11, 15 65 133 22, autohs
edit "6667 ", 12, 160 65 60 22
edit "mIRCTR ", 13, 16 108 132 22, autohs
edit "mIRCTR@ ", 14, 16 151 130 22, autohs
edit "..:: SibErim ScRipt ::..", 15, 15 194 132 22, autohs
edit " ", 16, 16 234 131 22, autohs
edit "", 17, 16 273 129 22, autohs
button " » BAGLAN « ",18 34, 175 112 70 196, flat cancel
box " -» ", 19, 73 -2 116 52
box " -» ", 20, 168 98 84 220
box " -» ", 21, 11 299 124 44
button "X", 500, 245 3 20 20 , ok
}
on 1:dialog:baqlanti:init:*:{
.timerbaqlanti -m 0 1 delidialog
did -a $dname 16 $me
did -a $dname 17 $anick
}
on *:dialog:baqlanti:sclick:18: {
set %server $did(11) $did(12)
set %identd $did(13)
set %email $did(14)
set %username $did(15)
set %nickname $did(16)
set %anick $did(17)
.identd on %identd
.emailaddr %email
.fullname %username
.nick %nickname
.anick %anick
.echo -a $timestamp %logo 7-» 14 Username:7 %username
.echo -a $timestamp %logo 7-» 14 Nickname:7 %nickname
.echo -a $timestamp %logo 7-» 14 Alt.Nick:7 %anick
.echo -a $timestamp %logo 7-» 14 Identd 2 :7 %identd
.echo -a $timestamp %logo 7-» 14 E-mail 2 :7 %email
.echo -a $timestamp %logo 7-» 14 Server 2 :7 %server
.echo -a $timestamp %logo 6 Sunucuya Bağlanılıyor..
.server %server
halt
}
alias -l delidialog {
if $dialog(baqlanti) {
if %x = 16 { timerbaqlanti off | unset %x %y }
else {
var %y = $calc($sin(%x) / %x)
dialog -s baqlanti -1 $calc($calc(%z + $round($iif(%x = 0,100,$calc(%y * 2000)),0)) + 250) -1 -1
inc %x 0.1
}
}
else {
.timerbaqlanti off
unset %x %y
}
unset %z
}



Kırmızı yerler dialog adıdır ve ben timer'ları dialog adına göre yerleştirdim sizde her dialog için ayrı bir kode yazmalısınız...

kırmızı yerleri dialog adına göre değiştiriniz... örnek vermek için bir dialog iLe bunu gösterdim...

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet sohbet