دانلود سورس بازی بارش توپ در دایرکتور Director

در این پروژه که توسط Macromedia Director MX 2004 پیاده سازی شده است ، چند اسپرایت توپ مانند وجود دارند که از سمت بالا به پایین حرکت می کنند و کاربر با استفاده از ظرفی که در اختیار دارد باید توپ ها را جمع کند و به ازای هر توپ یک امتیاز بگیرد.
روند کار برنامه :
کار این برنامه به این صورت است که :
در فریم اول به اسپرایت های مربوط به توپ ها یک مکان در بالای صفحه به صورت random تعلق می گیرد.
در فریم دوم امتیاز کاربر 0 می شود.
در فریم 29 توپ ها به سمت پایین حرکت می کنند و بعد از برخورد به ظرف و یا زمین مجددا کار خود را از بالا ادامه می دهند.ظرف نیز منتظر فشار دادن کلید های سمت چپ و راست از سوی کاربر است تا حرکت کند.
اصل برنامه را می توانید در پایین صفحه دانلود کنید
اینم سورس کد برنامه که می توانید در Macromedia Director MX 2004 از آن بهره بگیرید:
on exitFrame me
repeat with i=2 to 6
sprite(i).loch=random(298)+11
sprite(i).locv=random(120)+11
end repeat
end
global score
on exitFrame me
score=0
member ("l1").text=string (0)
end
global score
on exitFrame me
go the frame
repeat with i=2 to 6
if sprite(i).locv<230 then
sprite(i).locv=sprite(i).locv+3
else
sprite(i).locv=random(10)
sprite(i).loch=random(298)+11
sprite(i).visible=true
end if
if (sprite(i).locv>sprite(1).locv-10)and (sprite(i).locv<sprite(1).locv+10) and(sprite(i).loch>sprite(1).loch-80)and (sprite(i).loch<sprite(1).loch+80)and(sprite(i).visible=true) then
score=score+1
sprite(i).visible=false
put score
member("l1").text=string (score)
end if
end repeat
end
on keydown me
if (the keycode=124)and(sprite(1).loch<270) then
sprite(1).loch=sprite(1).loch+9
end if
if (the keycode=123)and(sprite(1).loch>50) then
sprite(1).loch=sprite(1).loch-9
end if
end
هم اکنون می توانید سورس این پروژه را به صورت رایگان دانلود کنید
حجم فایل :26 KB
عالی بودمرسی..