اضرب عدوك بالمقتل الكرتوني ......!

مرحبا يا شباب

هادا كود للعبة بسيطة جدا وسهلة

1. نزل عالفورم timer ------(interval=500) حسب سرعة الحركة كل ما قل الزمن زادت الحركة

2. نزل صورة واحد ما بتحبو من أصحابك أو لو أنت مسالم نزل صورة بطة مثلا يعني

3. ضع panel في الفورم ------(Caption=' You Won……!')و(Visible=false)

implementation

{$R *.dfm}

// هذا كود onclick للصورة

procedure TForm1.Image1Click(Sender: TObject);

begin

image1.Visible :=not(Image1 .Visible );

//PlaySound('d:\game\Success',0,SND_ASYNC);

form1.Panel1 .Visible :=true;

if messagedlg('Play Again .....?',mtInformation ,[mbyes]+[mbno],0)=mryes then

begin

image1.Visible :=not(Image1 .Visible );

form1.Panel1 .Visible :=not(Panel1 .Visible );

end

else

close;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var sin:integer;

begin

sin:=random(2);

case sin of

0:sin:=1;

1:sin:=-1;

end;

Image1 .Left:=abs(form1.Image1 .Left +sin)*random(15)mod Form1 .ClientWidth ;

Image1 .top :=abs(form1.Image1 .top +sin*random(15))mod Form1 .ClientHeight ;

Image1 .Refresh ;

//Image1 .Left:=abs(form1.Image1 .Left +sin*random(15))mod Form1 .ClientWidth ;

end;

procedure TForm1.FormClick(Sender: TObject);

begin

beep;

end;

ملاحظة يمكن أضافة تايمر تاني اذا نزلت اكتر من صورة حتى يعطيك نتيجة اصابة كل الأهداف أو لزمن انهاء اللعبة

كما يمكن مثلا تخزين نتيجة سابقة لمقارنتها مع الزمن الحالي وتخزين الزمن ... الخ

يعني وتعديلات كثيرة كل واحد ورغبتو وسلامتكم