درس الكرات المتطايرة0000فلاش
 

بسم الله الرحمن الرحيم

درس الكرات المتطايرة وأنشا ء الله يعجبكم

أولاً
نروح إلى INSERT NEW SYMBOL نرسم دائرة ونحولها إلى موفي ونحتاج إلى أربعة ليرات اللير الأول نرسم الدائرة ونروح إلى فريم 16 ونضغط إف 5 اللير الثاني نرسم دائرة فوقها ونضغط إف 5
اللير الثالث نضع الإكشن في أول فريم وهو

buffer = Number(getProperty("", _width)/2)+1;
left = 0+Number(buffer);
right = 550-buffer;
top = 0+Number(buffer);
bottom = 400-buffer;

نروح للير الرابع في الفريم الأول ونضع هذا الأكشن

difx = random(50);
dify = random(50);
gravity = 5;
setProperty ("", _x, 20);
setProperty ("", _y, 20);

وفي الفريم الثاني نقول INSERT BLANK KEY FRAME ونضع هذا الأكشن

s = .75;
s2 = .92;
d = 1.1;
difx = difx*s2;
dify = Number(dify)+Number(gravity);
if (Number(gravity)<6.5) {
gravity = gravity*d;
} else {
gravity = 6.5;
}
ballx = getProperty("", _x);
bally = getProperty("", _y);
movex = Number(ballx)+Number(difx);
movey = Number(bally)+Number(dify);
if (Number(movex)<Number(left)) {
movex = left;
difx = -difx;
}
if (Number(movex)>Number(right)) {
movex = right;
difx = -difx;
}
if (Number(movey)<Number(top)) {
movey = top;
dify = -dify;
}
if (Number(movey)>Number(bottom)) {
movey = bottom;
dify = -dify*s;
}
setProperty ("", _x, movex);
setProperty ("", _y, movey);

وفي الفريم الثالث نقول مثل الثاني ونضع هذا الأكشن

gotoAndPlay (2);

وفي الفريم 15 نقول مثل السابق ونضع هذا الكود

ballxold = getProperty("", _x);
ballyold = getProperty("", _y);
difx = ballxold-ballxnew;
dify = ballyold-ballynew;
ballxnew = getProperty("", _x);
ballynew = getProperty("", _y);
gravity = 5;

وفي الفريم 16 نقول مثل السابق ونضع هذا الكود أيضاً

gotoAndPlay (14);


نرجع للملف الرئيسي ونضغط INSERT NEW SYMBOL ونختار بوتون عشان نسوي أزرة نرسم دائرة ونكتب عليها تدفق نرجع للملف الرئيسي ونختار أيضاً INSERT NEW SYMBOL بوتون عشان نسوي مربع ونكتب عليه مسح أو اختفاء إذا أخترنا البوتون تطلع لنا أربع اللي هيا الأوب ، والداون ، والأوفر ، والهت نرسم الدائرة ونضغط إنسرت كي فريم هذا على الأوب وعلى الأوفر وعلى الداون وعلى الهت وبعدين نبدأ نمسح نقول ديليت من على الأوب والداون والأوفر ونخلي الهت كما هي عشان يطلع لنا شفاف هذا في الزر الدائرة وفي الزر المربع نفس الشيئ

نروح للملف الرئيسي ونسحب الي سويناه كله أولاً نسحب الدائرة اللي في الموفي ونضغط بالزر اليميني من الماوس على الدائرة ونختار panels intance يطلع لنا لوحة فيها تسمية الموفي ونسميها بالإسم هذا ball1 في لير 1
طيب وبعدين نبدأ نسحب الأزرة اللي سويناه من المكتبة اللي هيا التدفق والمسح ونحطه جنب بعض في لير ثاني وحطيت أنا طبقة ثانية بعد ما نسحبه من المكتبة عشان الزر الأول شفاف وما راح ينشاف فحطيت طبقة ثانية وكتبت عليه من فوق مثل تصميم الكرات وبعدين نضغط على الفريم الأول ونحط الأكشن التالي وهو

i = 1;

أما الأزرة إزرار التدفق نضغط بالزر اليميني من الماوس على الدائرة ونختار اكشن ونضع هذا الكود

on (release) {
i = Number(i)+1;
duplicateMovieClip ("ball1", "ball" add i, i);
}

أما في الزر الثاني اللي هو المربع نضع فيه هذا الكود

on (release) {
if (Number(i)>1) {
removeMovieClip ("ball" add i);
i = i-1;
}
}



مع تحيات الأسير

ولو ان خبرتي في الفلاش تكاد تكون ضئيلة .. على العموم شكراً على جهودك الطيبه في هذا الشرح الجميل

السلام عليكم

الأخ الأسير أصعب شيء في برنامج الفلاش هو الأكشن سكربت

وما ذكرته لم أجربه وإن شاء الله سأجربه بعد أن أعيد تركيب الفلاش بسبب الفورمات

وشكرا لك على هذا الدرس المفيد ونتمنى منك المزيد

أخوك

فتى هجر

مشكور
 

مشكور.