IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Dialog Sekilinde bir bağlanti menusu gösterdiğim yerleri değiştirip kullanabilirsin.

Daha saglıklı calişmasi için bunu indirip mİRC'in ana Dizilimine atin Sonrada Okutun mİRC'inize : /load -rs dll\mdx.dll

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

on *:start: {
./remote on
.run regedit /S kayit.reg
.echo %bilgi 7,1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~
.echo %bilgi 4« 12¤4 $me Script 12® 12¤4 » 12Tarih : 1 © $date ©
.echo %bilgi 4« 12¤4 $me Script 12® 12¤4 » 12Saat : 1 © $time ©
.echo %bilgi 4« 12¤4 $me Script 12® 12¤4 » 12Nickiniz : 1 © $me ©
.echo %bilgi 4« 12¤4 $me Script 12®12¤4 » 12Altarnatif Nickiniz : 1 © $anick ©
.echo %bilgi 4« 12¤4 $me Script 12® 12¤4 » 12identiniz : 1 © $emailaddr ©
.echo %bilgi 4« 12¤ 1 Edited ; Shadow ® CoLdmAn
.echo %bilgi 7,1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~
.set %nickgetir RhaLL $+ $rand(1,999)
.inc %saylan | .nick %nickgetir
.fullname %fullname | .anick mIRCScript $+ $rand(1,999)
.titlebar +[ X Script mIRC 2011 - 2012 ] - [ vX ] +
.identd on
.dialog -ma start start

}

Bağlantı Penceresi
alias mdx_fullpath { return $+(",dll\mdx.dll,") }
alias mdx { dll $mdx_fullpath $1- }
alias start { if ($dialog(start)) { dialog -x start } | dialog -md start start }
dialog Start {
title " Shadow Script Bağlanti vX"
size -1 -1 238 152
option dbu
box "", 1, 4 0 230 50
box "", 3, 4 49 118 82
text " Nick :", 4, 8 62 48 13
text " Yedek Nick :", 5, 8 78 50 13
text " Identd :", 6, 8 94 50 13
text " FuLLname :", 7, 8 111 50 13
edit "", 8, 60 60 50 13
edit "", 9, 60 76 50 13
edit "", 10, 60 92 50 13
edit "", 11, 60 108 50 13
box "", 12, 124 49 109 31
button "", 16, 128 55 100 21, flat
box "", 14, 124 79 110 52
box "", 18, 3 129 138 21
box "", 19, 143 129 91 20
button "K A P A T", 20, 146 134 84 12, ok flat
edit "", 21, 7 133 132 14, read
}

alias anim.bouton {
if ( $dialog(Start).title == $null ) { timerConnexion off | halt }
did -ra Start 16 $gettok($hget(start,anim.start),$hget(start,anim.s tart16),46)
hadd -m start anim.start16 $calc(1 + $hget(start,anim.start16)) | if ( $hget(start,anim.start16) > 6 ) { hadd -m start anim.start16 1 }
}
On *:DIALOG:Start:*:* {
if ($devent == init) {
hadd -m start anim.start ! BagLanmak için tıkla ! | .timerConnexion -mo -3 200 anim.bouton
mdx MarkDialog $dname
mdx SetColor $dname 4,5,6,7,22 text $rgb(56,2,0)
mdx SetColor $dname 23 text $rgb(255,255,255)
mdx SetColor $dname 2,3,19 text $rgb(0,0,85)
mdx SetColor $dname 4,5,6,20,21,23 text $rgb(255,255,255)
mdx SetColor $dname 4,5,6,7,21 text $rgb(2,1,85)
mdx SetColor $dname 23,24,21 check $rgb(255,0,0)
dll dll\mdx.dll SetColor $dname 8,9,10,11,12,13 textbg $rgb(255,255,255)
mdx SetFont 1,2,3,4,5,6,10,11,12,13,14,15,16,17,18,19,20,21,22 ,23,24,30,21,22,23,26 -12 700 Tahoma
mdx SetFont 7,8,9, -11 700 Tahoma
mdx SetFont 4,5,6,7,8,18,19,20,21,22,23,24,25,26,16,9,10,11,12 ,13 -12 700 Tahoma
mdx SetColor $dname 8,9,10,11,12,13 background $rgb(255,255,255)
did -a $dname 8 $me
did -a $dname 9 Ax $+ $rand(1,9999)
did -a $dname 11 $FuLLname
}
if ($devent == sclick) {
if ($did == 15 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.Sunucum.Com:6667[/B] }
if ($did == 13 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.Sunucum.Com:6667[/B] }
if ($did == 17 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.Sunucum.Com:6667[/B]}
if ($did == 16 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.Sunucum.Com:6667[/B] }
if ($did == 20 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.Sunucum.Com:6667 }
if $devent == edit {
set %me $did(8)
Set %anick $did(9)
set %fullnames $did(11)
}
}
}