13-04-2009, 06:11 PM
ال label موجود ليعطيك اربع محاولات ويتم عرض رسالة Game Over اذا كان اكبر تماما من السفر
تمعن في الكود
عدد المحاولات الافتراظي
كود :
Life:Integer = 4;انقاص محاولة عند الخسارة
كود :
Life:= Life -1;عرض الرسالة اذا كان عدد المحاولات اقل تماما من 0
كود :
if Life < 0 then
begin
Timer1.Enabled:= False;
MessageBox(Form1.Handle,PChar('Game Over'),PChar('Try Again'),MB_OK);
لا إله إلا الله محمد رسول الله

