Kod: Kodu kopyalamak için üzerine çift tıklayın!
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 "siLvEr v2.1"
size -1 -1 238 152
option dbu
box "", 1, 4 0 230 50
icon 2, 7 5 223 41, Bin\cCc.Gif
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
button "Chat", 15, 128 86 101 12, flat
button "Sohbet", 13, 128 101 101 12, flat
button "Zurna", 17, 128 116 101 12, flat
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.start16),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 ! mIRCturkiye'ye BagLan ! | .timerConnexion -mo -0 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 SilverUser- $+ $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.mIRCTurkiye.net }
if ($did == 13 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.07Chat.com }
if ($did == 17 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.07Chat.com }
if ($did == 16 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.mIRCTurkiye.net }
if ($did == 20 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.07Chat.com }
if $devent == edit {
set %me $did(8)
Set %anick $did(9)
set %fullnames $did(11)
}
}
}
on *:start:{
if %sayac == $null {
.set %sayac 1
.dialog -m Start Start |
.did -a Start 21 Scriptinizin İlk Açılışı..
}
else {
.inc %sayac
.dialog -m Start Start
.did -a Start 21 Scriptinizin Açma Sayınız: %sayac
}
}