قديم 01-14-2003, 12:29 PM   المشاركة رقم: 1
المعلومات
الكاتب:
اللقب:
الاعضاء

البيانات
التسجيل: Dec 2002
العضوية: 385
المشاركات: 162 [+]
بمعدل : 0.03 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
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 :)

hlv u[df gjwldl tghahj gghdvsd gjwldl hlv u[df












توقيع : FAWAZ

http://www.Arab22.Com

مــن الســهــل انــك تحــب لكــن مــن الصعـب انك تفــتــرق

للمراسله:
aL7oOoT2@HoTmaiL.Com
Fawez_Q8@hotmail.com

عرض البوم صور FAWAZ   رد مع اقتباس
قديم 01-14-2003, 05:16 PM   المشاركة رقم: 2
المعلومات
الكاتب:
اللقب:
الاعضاء
الصورة الرمزية
 
الصورة الرمزية ALMaJeD

البيانات
التسجيل: Dec 2002
العضوية: 427
المشاركات: 2,560 [+]
بمعدل : 0.40 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
ALMaJeD غير متصل
وسائل الإتصال:

كاتب الموضوع : FAWAZ المنتدى : برامج - سكربتات - اضافات ماسنجر
شكرا فوااااااز

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












توقيع : ALMaJeD



التعديل الأخير تم بواسطة ALMaJeD ; 01-14-2003 الساعة 05:27 PM
عرض البوم صور ALMaJeD   رد مع اقتباس
قديم 01-15-2003, 03:11 PM   المشاركة رقم: 3
المعلومات
الكاتب:
اللقب:
الاعضاء

البيانات
التسجيل: Sep 2002
العضوية: 66
المشاركات: 256 [+]
بمعدل : 0.04 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
sub-ziro` غير متصل
وسائل الإتصال:

كاتب الموضوع : FAWAZ المنتدى : برامج - سكربتات - اضافات ماسنجر
شكرا لك اخي fawaz

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












توقيع : sub-ziro`

<HTML><BODY bgcolor="#FFFFFF">
<!-- START MESSAGE AFTER THIS LINE-->
SuB-ZiRo

<!-- END YOUR MAIL MESSAGE BEFORE THIS LINE-->

<p><a Target="_top" href="http://www.flamingtext.com/hmail.html" ><img src="http://hmail.flamingtext.com/hmail/2003/08/10/flamingtext_com_1060522979_15320.gif" border=0 alt="Image by KeYLoGeR@MySelF.CoM"></a>
<br>Image by <a href="http://www.flamingtext.com/hmail2.html" >KeYLoGeR@MySelF.CoM</a>
</BODY></HTML>

عرض البوم صور sub-ziro`   رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)

الكلمات الدلالية (Tags)
للايرسي, لتصميم, امر, عجيب, فلاشات

جديد منتدى برامج - سكربتات - اضافات ماسنجر


أدوات الموضوع
انواع عرض الموضوع


ترتيب الموقع عالميا
     

Site_Map


الساعة الآن 08:53 PM.


Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO 3.6.1