+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : متتديات باسكال Pascal (https://delphi4arab.net/forum/forumdisplay.php?fid=7)
+--- قسم : Lazarus - Free Pascal - CrossKylix - Kylix - CrossVCL (https://delphi4arab.net/forum/forumdisplay.php?fid=34)
+--- الموضوع : محاولة لصناعة لعبة (/showthread.php?tid=4735)
محاولة لصناعة لعبة - piratewar - 21-11-2012
السلام عليكم ورحمة الله
هذه محاولة لصناعة لعبة باستخدام الأدوات القياسية بلازاراس
و أتمنى إني أطورها لكن ليس كمجهود فردي
المحاولة هذه أخذت مني حوالي نصف ساعة بعد طعام الإفطار
استخدم لأعلى و أسفل لتحريك المربع
و المسطرة لإطلاق القذيفة
الملف المصدري في المرفقات
محاولة لصناعة لعبة - anis2505 - 21-11-2012
مشكور.
لكن أظن أنه في عالم الألعاب وجب استخدام مكتبات أقوى كال OpenGL , ZENGL , SDL
عمل جيد
محاولة لصناعة لعبة - piratewar - 21-11-2012
بالتأكيد و يوجد لدي بعد الدروس و المقالات حول استخدام open Gl
سأحاول ترجمتها إن شاء الله إن توفر لي الوقت
محاولة لصناعة لعبة - kachwahed - 21-11-2012
تلميح: ابحث عن Game Engine مناسب
كود :
http://code.google.com/p/nxpascal/
http://www.saschawillems.de/?page_id=83
http://www.newtondynamics.com/forum/viewtopic.php?f=9&t=5927شيء آخر: حاول كتابة Objects حاول بناء شكل غرضي موجه
ثلاثة أصناف: TTarget, TPlayer, TShoot لا تغير شيئا في اللعبة.
محاولة لصناعة لعبة - piratewar - 22-11-2012
شكراً أستاذي
سأحاول تطبيق ما نصحتني به وسأوافيك به
محاولة لصناعة لعبة - piratewar - 25-11-2012
أستاذي Kashwahed
السلام عليكم وعذراً للتأخير
هذه محاولة بسيطة أخرى استخدم فيها فقط مبدأ الوراثة لحين تعلم Game Engine مناسب
و لكن يوجد خطأ لا أعلم هل هو تسرع مني أم في ترتيب منطقي للإجراءات
محاولة لصناعة لعبة - mobile - 25-11-2012
السلام عليكم ورحم الله
بداية موفقة ان شاء الله اخي piratewar
احببت لو اني اتقن شيئ من هذا فاشارككم فيه . لكن لا املك الا الدعاء لك بالتوفيق
اتمنى لك التوفيق
محاولة لصناعة لعبة - kachwahed - 25-11-2012
وعليكم السلام ورحمة الله
@mobile تملك أيضا مواضيع وشروحات بالتفصيل، يمكنك البدء من هنا:
البرمجة بالمنحنى للكائن OOP خطوة، خطوة
http://www.delphi4arab.net/forum/showthread.php?tid=4202
سلسلة دروس دورة برمجة العناصر
http://delphi4arab.net/forum/showthread.php?tid=3546
الأمر ليس صعبا، كل ما عليك أن تفكر بطريقة مختلفة
لا تحاول الوصول إلى الحل الأمثل، فقط حاول
@piratewar محاولة جيدة...
ألا تظن أن هذه الأحداث تابعة لكائناتها؟
كود :
type
tshooter= class(tshape)
end;
var shooter : tshooter;
[COLOR=Blue]
procedure shooterInitiate;
procedure shootermoveup;
procedure shootermovedown;[/COLOR]
...
type
Ttarget= class(tshape)
end;
var target :ttarget;
[COLOR=Blue]
procedure targetInitiate;
function targetmovedup:boolean;
function targetmoveddown:boolean;
procedure targetmoveup;
procedure targetmovedown; [/COLOR]
...
type
tshoot= class(tshape)
end;
var shoot : tshoot;[COLOR=Blue]
procedure shootInitiate;
procedure shootFire;
function shootfired:boolean; [/COLOR]مثال:
PHP كود :
TShooter= class(TShape)
constructor Create(AOwner: TComponent);
destructor Destroy; override;
procedure ShooterInitiate;
procedure ShooterMoveUp;
procedure ShooterMoveDown;
end;
شيء آخر إحذف:
PHP كود :
//RequireDerivedFormResource := True;
إقتباس :RequireDerivedFormResource
When True every form must have a resource
بعض التعديلات على TShooter في المرفق، عليك ببقية الكائنات...
بالتوفيق.
محاولة لصناعة لعبة - piratewar - 26-11-2012
استفسار بسيط للفهم ؟ أثناء حلي للواجب
PHP كود :
TShooter= class(TShape)
constructor Create(AOwner: TComponent);
destructor Destroy; override;
procedure ShooterInitiate;
procedure ShooterMoveUp;
procedure ShooterMoveDown;
end;
ماذا إن استخدمنا create بدون Aowner
ولماذا override مع destroy
ما أعلمه (تستخدم override في حالة استخدام رأس إجراء أو دالة أكثر من مرة بمعطيات مختلفة للحصول على نتائج مختلفة)
في حين أن destroy لم نعطه أي عمليات إضافية ليقوم بها
محاولة لصناعة لعبة - piratewar - 26-11-2012
حل الواجب
أستاذي Kashwahedو جزاك الله خيراً