امر عجيب لتصميم فلاشات للايرسي

[FAWAZ]

السلام عليكم ورحمة الله وبركاته

شباب هذا امر على كيف كيفكم لتصميم فلاشات في الايرسي

;= This Programe Make =;
;= To Make Your Flash =;
; -------------------
[My Nick In Arabchat : - w7eeed] [ My Nick In DalNet : - [FAWAZ] ]


dialog Flash5 {
title "w7eeed command to make asimple V.2"
size -1 -1 142 108
option dbu
combo 1, 83 16 57 34, size drop
box "اللوحه", 10, 82 9 59 19
button "صمم", 4, 1 98 36 10,flat
box "الخلفيه", 20, 1 20 78 62
combo 2, 38 25 39 61, size drop
button "طريقه الاستخدام", 11, 102 96 40 12,flat
button "الامر", 3, 47 96 37 12,flat
}
on 1:dialog:Flash5:init:*: {
.did -a Flash5 1 لوحه كبيره
.did -a Flash5 1 لوحه متوسطه
.did -a Flash5 2 أبيض
.did -a Flash5 2 أسود
.did -a Flash5 2 أزرق داكن
.did -a Flash5 2 أخضر داكن
.did -a Flash5 2 أحمر
.did -a Flash5 2 بني
.did -a Flash5 2 بنفسجي
.did -a Flash5 2 برتقالي
.did -a Flash5 2 أصفر
.did -a Flash5 2 أخضر فاتح
.did -a Flash5 2 سماوي داكن
.did -a Flash5 2 سماوي فاتح
.did -a Flash5 2 أزرق فاتح
.did -a Flash5 2 وردي
.did -a Flash5 2 رصاصي داكن
.did -a Flash5 2 رصاصي فاتح
}
on 1:dialog:Flash5:sclick:*: {
if ($did(2) == أبيض) { .set %background 0 }
if ($did(2) == أسود) { .set %background 1 }
if ($did(2) == أزرق داكن) { .set %background 2 }
if ($did(2) == أخضر داكن) { .set %background 3 }
if ($did(2) == أحمر) { .set %background 4 }
if ($did(2) == بني) { .set %background 5 }
if ($did(2) == بنفسجي) { .set %background 6 }
if ($did(2) == برتقالي) { .set %background 7 }
if ($did(2) == أصفر) { .set %background 8 }
if ($did(2) == أخضر فاتح) { .set %background 9 }
if ($did(2) == سماوي داكن) { .set %background 10 }
if ($did(2) == سماوي فاتح) { .set %background 11 }
if ($did(2) == أزرق فاتح) { .set %background 12 }
if ($did(2) == وردي) { .set %background 13 }
if ($did(2) == رصاصي داكن) { .set %background 14 }
if ($did(2) == رصاصي فاتح) { .set %background 15 }
if ($did(1) == لوحه كبيره) { //set %large on | //unset %Middle %small }
if ($did(1) == لوحه متوسطه) { //set %Middle on | //unset %small %large }
if ($did == 4) {
if (%large == on) && (%Background != $null) { set %write 0 | //write -c Comd.txt //window -aodphx +d @Flash | //write -tn Comd.txt //drawfill @Flash %Background %Background %Background %Background %Background | //window -aodphx +dl @Mode | //drawfill @Mode %Background %Background %Background %Background %Background }
if (%Middle == on) && (%Background != $null) { set %write 0 | //write -c Comd.txt //window -apdCo +d @Flash | //write -tn Comd.txt //drawfill @Flash %Background %Background %Background %Background %Background | //window -apdCo +dl @Mode | //drawfill @Mode %Background %Background %Background %Background %Background }
}
if ($did == 11) { dialog -m Notice Notice }
if ($did == 3) { run Comd.txt }
}
dialog Flash6 {
title "w7eeed commend to make asimple flash V.2"
size -1 -1 194 131
option dbu
edit "", 3, 2 16 189 10, multi return autohs autovs
box "شنو الكلام اللي تبيه", 4, 0 9 193 18
box "حجم الخط", 5, 15 32 62 66
radio "كبير", 6, 20 45 50 10, group
radio "متوسط", 7, 20 59 50 10
radio "صغير", 8, 21 76 50 10
box "لون الخط", 9, 77 33 40 22
combo 2, 77 42 38 69, size drop
button "Ok", 11, 0 119 37 12, ok flat
box "ظهور الكلام", 12, 117 39 60 32
radio "عادي", 13, 121 50 50 10, group
radio "حرف حرف (for E)", 14, 121 59 50 8
}
on 1:dialog:Flash6:init:*: {
set %F.S 0 | did -c Flash6 8
.Unset %7rf-7rf %L.R %R.L | did -c Flash6 13
.did -a Flash6 2 أبيض
.did -a Flash6 2 أسود
.did -a Flash6 2 أزرق داكن
.did -a Flash6 2 أخضر داكن
.did -a Flash6 2 أحمر
.did -a Flash6 2 بني
.did -a Flash6 2 بنفسجي
.did -a Flash6 2 برتقالي
.did -a Flash6 2 أصفر
.did -a Flash6 2 أخضر فاتح
.did -a Flash6 2 سماوي داكن
.did -a Flash6 2 سماوي فاتح
.did -a Flash6 2 أزرق فاتح
.did -a Flash6 2 وردي
.did -a Flash6 2 رصاصي داكن
.did -a Flash6 2 رصاصي فاتح
}
on 1:dialog:Flash6:sclick:*: {
if ($did(2) == أبيض) { .set %clr 0 }
if ($did(2) == أسود) { .set %clr 1 }
if ($did(2) == أزرق داكن) { .set %clr 2 }
if ($did(2) == أخضر داكن) { .set %clr 3 }
if ($did(2) == أحمر) { .set %clr 4 }
if ($did(2) == بني) { .set %clr 5 }
if ($did(2) == بنفسجي) { .set %clr 6 }
if ($did(2) == برتقالي) { .set %clr 7 }
if ($did(2) == أصفر) { .set %clr 8 }
if ($did(2) == أخضر فاتح) { .set %clr 9 }
if ($did(2) == سماوي داكن) { .set %clr 10 }
if ($did(2) == سماوي فاتح) { .set %clr 11 }
if ($did(2) == أزرق فاتح) { .set %clr 12 }
if ($did(2) == وردي) { .set %clr 13 }
if ($did(2) == رصاصي داكن) { .set %clr 14 }
if ($did(2) == رصاصي فاتح) { .set %clr 15 }
if ($did == 14) { .unset %L.R %R.L | set %7rf-7rf on }
if ($did == 1) { .unset %R.L 7rf-7rf | set %L.R on }
if ($did == 10) { .unset %L.R 7rf-7rf | set %R.L on }
if ($did == 6) { set %F.S 60 }
if ($did == 7) { set %F.S 30 }
if ($did == 8) { set %F.S 0 }
}
on 1:dialog:Flash6:edit:3: { set %oo $did(3) }
menu @Mode {
dclick {
if (%7rf-7rf != $null) { /7rf-7rf | //set %x 0 | //set %i 500 | //set %o $len(%oo) | while (%x <= %o) { inc %x | inc %i 100 | //.timer -m 1 %i //drawtext -o @Mode %clr Arial %F.S $mouse.x $mouse.y $mid(%oo,1,%x) } | halt }
inc %write 1000 | //write -tn Comd.txt .timer -m 1 %write drawtext -o @Flash %clr Arial %F.S $mouse.x $mouse.y %oo | drawtext -o @Mode %clr Arial %F.S $mouse.x $mouse.y %oo
}
تنظيف الشاشه: {
if (%large == on) { clear @Mode | drawfill @Mode %background %background %background %background %background | //write -c Comd.txt //window -aodphx +dl @Flash | //write -tn Comd.txt //drawfill @Flash %background %background %background %background %background | halt }
//clear @Mode | drawfill @Mode %background %background %background %background %background | //write -c Comd.txt //window -adpoC +dl @Flash | /write -tn Comd.txt //drawfill @Flash $str(%background $+ $chr(32),5)
}
-
اغلاق://window -c @Mode | unset %write
-
كتــابــه: {
if ($dialog(flash6) != $null) { dialog -c flash6 flash6 }
//dialog -mo Flash6 Flash6
}
-
حفظ اللوحه://drawsave @Mode $$?="شنو الاسم اللي تبيه:" $+ .bmp
}
dialog Notice {
title "w7eeed Flash V.2"
size -1 -1 90 127
option dbu
box "طريقه استخدام الامر", 1, 1 11 89 110
edit "أول ماتشغل الدايلوق راح تطلعلك أختيارت عن حجم اللوحه اختار حجم اللوحه اللي تبيه وبعدين حدد لون الخلفيه وبعدين أضغط على زر تصميم راح تطلعلك اللوحه اللي راح تصممها وطق رايت كلك راح تطلعلك اختيارات بخصوص اللوحه اضغط على كتابه واكتب الكلام اللي تبيه وبعدين حدد لون الخط وطريقه الظهور واذا حددت طق أوكي راح تطلعك اللوح طق دبل كلك على المكان اللي تبي الكلام يطلع فيها :-مع تحيات أخوكم وحيد w7eeed ", 2, 2 20 86 99, read multi
}
alias 7rf-7rf {
//set %x 0
//set %i 500
//set %o $len(%oo)
while (%x <= %o) {
inc %x
inc %i 100
if ($lines(Comd.txt) == 2) { //write -tn Comd.txt //.timer -m 1 $calc(%write + %i) //drawtext -o @Flash %clr Arial %F.S $mouse.x $mouse.y $mid(%oo,1,%x) }
if ($lines(Comd.txt) > 2) { //write -tn Comd.txt //.timer -m 1 $calc($gettok($read(Comd.txt,$lines(Comd.txt)),4,3 2) + 100) //drawtext -o @Flash %clr Arial %F.S $mouse.x $mouse.y $mid(%oo,1,%x) }
}
}
menu status {
Flash(2):dialog -m flash5 flash5
}

مع تحياتي: :) FAWAZ :)

[ALMaJeD]

شكرا فوااااااز

بس اعتقد اني كاتب هذا الامر قبلك
وارجوا ان لاتكتب نفس الموضوع مرتين
وشكرا على مجهودك
بهذا الموقع
http://www.na7eees.com/vb/showthread...&threadid=1793

[sub-ziro`]

شكرا لك اخي fawaz

حبيبي انتبه تاني مره ومشكور على الموضوع .......:heart