Changeset 17


Ignore:
Timestamp:
Apr 24, 2011, 9:41:54 AM (14 years ago)
Author:
george
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/UCore.pas

    r16 r17  
    399399    end;
    400400  end else begin
    401     Energy := Energy + 5 * 1 / EnergySteps;
     401    if not Exploded then
     402      Energy := Energy + 5 * 1 / EnergySteps;
    402403    if Energy > 1 then Energy := 1;
    403404  end;
     
    409410  // Check shield
    410411  if House.IsInside(Position) then begin
    411     Shield := Shield + 1 / ShieldSteps;
     412    if not Exploded then
     413      Shield := Shield + 0.2 * 1 / ShieldSteps;
    412414    if Shield > 1 then Shield := 1;
    413415  end;
     
    586588  FExploded := AValue;
    587589  if FExploded then HideTank else ShowTank;
     590  Energy := 0;
     591  Shield := 0;
    588592end;
    589593
     
    622626begin
    623627  if not Exploded then begin
    624     for I := 0 to Distance - 1 do begin
     628    for I := 0 to Distance * 2- 1 do begin
    625629      NewBullet := TBullet.Create;
    626630      NewBullet.Player := Self;
     
    895899      BytePerPixel := RawImage.Description.BitsPerPixel div 8;
    896900      BytePerRow := RawImage.Description.BytesPerLine;
    897       FillChar(RawImage.Data^, Bitmap.Height * BytePerRow, 0);
     901      //FillChar(RawImage.Data^, Bitmap.Height * BytePerRow, 0);
    898902
    899903      if (FBitmap.Width / FBitmapLower.Width) < (FBitmap.Height / FBitmapLower.Height) then
Note: See TracChangeset for help on using the changeset viewer.