Changeset 17
- Timestamp:
- Apr 24, 2011, 9:41:54 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UCore.pas
r16 r17 399 399 end; 400 400 end else begin 401 Energy := Energy + 5 * 1 / EnergySteps; 401 if not Exploded then 402 Energy := Energy + 5 * 1 / EnergySteps; 402 403 if Energy > 1 then Energy := 1; 403 404 end; … … 409 410 // Check shield 410 411 if House.IsInside(Position) then begin 411 Shield := Shield + 1 / ShieldSteps; 412 if not Exploded then 413 Shield := Shield + 0.2 * 1 / ShieldSteps; 412 414 if Shield > 1 then Shield := 1; 413 415 end; … … 586 588 FExploded := AValue; 587 589 if FExploded then HideTank else ShowTank; 590 Energy := 0; 591 Shield := 0; 588 592 end; 589 593 … … 622 626 begin 623 627 if not Exploded then begin 624 for I := 0 to Distance - 1 do begin628 for I := 0 to Distance * 2- 1 do begin 625 629 NewBullet := TBullet.Create; 626 630 NewBullet.Player := Self; … … 895 899 BytePerPixel := RawImage.Description.BitsPerPixel div 8; 896 900 BytePerRow := RawImage.Description.BytesPerLine; 897 FillChar(RawImage.Data^, Bitmap.Height * BytePerRow, 0);901 //FillChar(RawImage.Data^, Bitmap.Height * BytePerRow, 0); 898 902 899 903 if (FBitmap.Width / FBitmapLower.Width) < (FBitmap.Height / FBitmapLower.Height) then
Note:
See TracChangeset
for help on using the changeset viewer.