Çevrimdışı

bitanede ben ekliyim bari animasyonlu dialog açılımı diğerlerinden farkı her açılışta değişik bir animasyonla açılması tabi seni biraz zorluyacak çünkü açılış komutu /dialog -m falan falan değil dialogları açarken aliases kullanıcaksın örneğin ben aşağıda error diye bir dialog yaptım kısa yol olacak /aç komutunu verdim komutun tam açıklaması : alias kısayol { opdialog dialogismi sabit180 180 en boy } şeklinde kolay gelsin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


alias aç { opdialog error 180 180 400 260 }
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
}
dialog error {
title " ( Dikkat )"
size -1 -1 250 100
button "Tamam" 2, 80 70 80 19, ok
}