Changeset 17

Timestamp:

Apr 24, 2011, 9:41:54 AM (13 years ago)

Author:

george

Message:

 

File:

• trunk/UCore.pas (modified) (5 diffs)

trunk/UCore.pas

@@ -399 +399 @@
     end;
   end else begin
-    Energy := Energy + 5 * 1 / EnergySteps;
+    if not Exploded then
+      Energy := Energy + 5 * 1 / EnergySteps;
     if Energy > 1 then Energy := 1;
   end;
@@ -409 +410 @@
   // Check shield
   if House.IsInside(Position) then begin
-    Shield := Shield + 1 / ShieldSteps;
+    if not Exploded then
+      Shield := Shield + 0.2 * 1 / ShieldSteps;
     if Shield > 1 then Shield := 1;
   end;
@@ -586 +588 @@
   FExploded := AValue;
   if FExploded then HideTank else ShowTank;
+  Energy := 0;
+  Shield := 0;
 end;
 
@@ -622 +626 @@
 begin
   if not Exploded then begin
-    for I := 0 to Distance - 1 do begin
+    for I := 0 to Distance * 2- 1 do begin
       NewBullet := TBullet.Create;
       NewBullet.Player := Self;
@@ -895 +899 @@
       BytePerPixel := RawImage.Description.BitsPerPixel div 8;
       BytePerRow := RawImage.Description.BytesPerLine;
-      FillChar(RawImage.Data^, Bitmap.Height * BytePerRow, 0);
+      //FillChar(RawImage.Data^, Bitmap.Height * BytePerRow, 0);
 
       if (FBitmap.Width / FBitmapLower.Width) < (FBitmap.Height / FBitmapLower.Height) then