Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias st { opdialog start 200 200 410 300 }
alias opdialog { opdialogs $rand(a,k) $$1 $$2 $$3 $$4 $$5 }
alias opdialogs {
if $$1- != $null {
if $$1 = a {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.w 0 | set %temp.d.wd $$5 | set %temp.d.h $$6 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $$4
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
.timeropendlw $calc(%temp.d.wd / 3) 0.001 opendl.w
}
if $$1 = b {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.x $$3 | set %temp.d.y $calc($$4 + ($$6 / 2))
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
.timeropendlh $calc(%temp.d.hd / 3) 0.001 opendl.h
}
if $$1 = c {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
.timeropendlwh $calc(%temp.d.hd / 3) 0.001 opendl.wh
}
if $$1 = d {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.w
opendl.h
}
if $$1 = e {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.h
opendl.w
}
if $$1 = f {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.mvr
}
if $$1 = g {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $calc($$4 + $$6)
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.b
}
if $$1 = h {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.t
}
if $$1 = i {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + $$5) | set %temp.d.y $$4
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.l
}
if $$1 = j {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.r
}
if $$1 = k {
dialog -m $$2 $$2
set %temp.d $$2 | set %temp.d.r1 $rand(1,4) | set %temp.d.r2 $rand(1,2)
set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.r1 = 1 {
if %temp.d.r2 = 1 { opendl.r | opendl.t }
if %temp.d.r2 = 2 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.r | opendl.b }
}
if %temp.d.r1 = 2 {
if %temp.d.r2 = 1 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.l | opendl.t }
if %temp.d.r2 = 2 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.l | opendl.b }
}
if %temp.d.r1 = 3 {
if %temp.d.r2 = 1 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.t | opendl.l }
if %temp.d.r2 = 2 { opendl.t | opendl.r }
}
if %temp.d.r1 = 4 {
if %temp.d.r2 = 1 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.b | opendl.l }
if %temp.d.r2 = 2 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.b | opendl.r }
}
}
if $$1 = ? {
linesep
linesep
linesep
}
}
}
alias opendl.w {
:start
inc %temp.d.w 2 | dec %temp.d.x 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
.timeropendlw off
}
alias opendl.h {
:start
inc %temp.d.h 2 | dec %temp.d.y 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
:end
.timeropendlh off
}
alias opendl.wh {
:start
inc %temp.d.h 2 | inc %temp.d.w 2 | dec %temp.d.x 1 | dec %temp.d.y 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.h < %temp.d.hd && %temp.d.w => %temp.d.wd { dec %temp.d.w 2 }
if %temp.d.h => %temp.d.hd && %temp.d.w < %temp.d.wd { dec %temp.d.h 2 }
if %temp.d.h < %temp.d.hd || %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
.timeropendlwh off
}
alias opendl.mvr {
set %temp.d.xd $calc(%temp.d.x - (%temp.d.x / 2))
set %temp.d.y $calc(%temp.d.y - (%temp.d.y / 2))
:start
inc %temp.d.w 1 | dec %temp.d.x 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
:start2
inc %temp.d.x 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.x < %temp.d.xd { goto start2 } | else { goto end2 }
:end2
}
alias opendl.b {
set %temp.d.yd $calc(%temp.d.y - %temp.d.hd)
:start
inc %temp.d.h 1 | dec %temp.d.y 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.y > %temp.d.yd { goto start } | else { goto end }
:end
}
alias opendl.t {
:start
inc %temp.d.h 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
:end
}
alias opendl.l {
:start
inc %temp.d.w 1 | dec %temp.d.x 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
}
alias opendl.r {
:start
inc %temp.d.w 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
}
alias st { if ($dialog(start)) { dialog -x start } | dialog -md start start }
dialog Start {
title "BagLantı Menusu"
size -1 -1 207 147
option dbu
box "", 1, 4 0 102 125
edit "", 2, 42 6 59 12
text "Nick :", 3, 8 9 26 8
text "Yedek Nick :", 4, 7 26 32 8
edit "", 5, 42 24 59 12
edit "", 6, 42 42 59 12
text "Identd :", 7, 7 44 32 8
edit "", 8, 42 60 59 12, autohs
text "Fullname :", 9, 7 63 32 8
text " Yazdigim Server'a Baglan", 10, 24 78 66 8
box "", 11, 8 86 93 20
edit "", 12, 13 92 84 13
box "", 13, 4 125 200 21
edit " ", 14, 8 130 193 13, read
box "", 15, 108 0 95 125
}
alias md dll dll\mdc.dll $1 $2-
alias mdx dll dll\mdx.dll $1 $2-
on *:dialog:Start:init:0: {
md BitBtn Create Start 28 11 214 198 31 > BagLan
md BitBtn Create Start 29 221 12 178 41 > mIRCTurkiye
md BitBtn Create Start 30 221 58 178 41 > Sohbet
md BitBtn Create Start 31 221 106 178 41 > mIRCtr
md BitBtn Create Start 32 221 153 178 41 > Zurna
md BitBtn Create Start 33 221 201 178 41 > soyLe
md BitBtn Icon 29 $shortfn(system\Star.ico)
md BitBtn Icon 30 $shortfn(system\Star.ico)
md BitBtn Icon 31 $shortfn(system\Star.ico)
md BitBtn Icon 32 $shortfn(system\Star.ico)
md BitBtn Icon 33 $shortfn(system\Star.ico)
md BitBtn Icon 28 $shortfn(system\kes.ico)
md BitBtn Color 28 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
md BitBtn downcolor 28 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
md BitBtn Color 29 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
md BitBtn downcolor 29 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
md BitBtn Color 30 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
md BitBtn downcolor 30 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
md BitBtn Color 31 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
md BitBtn downcolor 31 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
md BitBtn Color 32 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
md BitBtn downcolor 32 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
md BitBtn Color 33 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
md BitBtn downcolor 33 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
md BitBtn Font 28 $rgb(255,252,252) 11 +b > Tahoma
md BitBtn Font 29 $rgb(255,252,252) 11 +b > Tahoma
md BitBtn Font 30 $rgb(255,252,252) 11 +b > Tahoma
md BitBtn Font 31 $rgb(255,252,252) 11 +b > Tahoma
md BitBtn Font 32 $rgb(255,252,252) 11 +b > Tahoma
md BitBtn Font 33 $rgb(255,252,252) 11 +b > Tahoma
mdx MarkDialog $dname
mdx SetColor $dname 3,4,7,9 text $rgb(245,2,0)
mdx SetColor $dname text $rgb(139,26,26)
mdx SetColor $dname text $rgb(0,0,85)
mdx SetColor $dname text $rgb(99,121,142)
mdx SetFont 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 -12 700 Tahoma
mdx SetFont 14 -12 700 Tahoma
mdx SetColor $dname 2,5,6,8,14,12 background $rgb(9,1,1)
mdx SetColor $dname 2,8,5,6,14,12 textbg $rgb(9,1,1)
mdx SetColor $dname 2,5,6,8,14,12 text $rgb(255,252,252)
did -a $dname 2 $me
did -a $dname 5 User- $+ $rand(1,9999)
did -a $dname 6 $emailaddr
did -a $dname 8 $FuLLname
}
on *:signal:mdc: {
if ($2 == Start) && ($3 == sclick) && ($4 == 28) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server $did(Start,12) | .timer 1 0 dialog -x Start }
if ($2 == Start) && ($3 == sclick) && ($4 == 29) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
if ($2 == Start) && ($3 == sclick) && ($4 == 30) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
if ($2 == Start) && ($3 == sclick) && ($4 == 31) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
if ($2 == Start) && ($3 == sclick) && ($4 == 32) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
if ($2 == Start) && ($3 == sclick) && ($4 == 33) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
}
on *:start:{
if %sayac == $null {
.set %sayac 1
.did -a Start 14 Scriptinizin İlk Açılışı..
}
else {
.inc %sayac
.st
.did -a Start 14 Scriptinizin Açma Sayınız: %sayac
}
}
Degiştirilecek yerLeri arkada$Lar kırmızı iLe Gosterdim.
koLay geLsin. dll'leri dll kLasorüne atmamız yeterLi .