Changeset 11 for trunk/UCore.pas

Timestamp:

Mar 20, 2011, 11:25:50 PM (13 years ago)

Author:

george

Message:

• Added: Decreasing and increasing tank energy.

File:

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

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Dialogs, Classes, SysUtils, Contnrs, Graphics, SpecializedMatrix, SpecializedList,
-  IntfGraphics, FPImage, LCLType, SpecializedBitmap, GraphType, Math;
+  IntfGraphics, FPImage, LCLType, SpecializedBitmap, GraphType, Math, URectangle;
 
 const
   MaxBulletCount = 10;
+  EnergySteps = 4000;
+  ShieldSteps = 40;
 
 type
@@ -57 +59 @@
     Position: TPoint;
     Direction: Integer;
-    ScreenFrame: TRect;
+    ScreenFrame: TRectangle;
     Name: string;
     Keys: TPlayerKeys;
     Tanks: TListObject;
     Bullets: TListObject;
+    Energy: Real;
+    LastEnergy: Real;
+    Shield: Real;
+    House: TRectangle;
+    procedure BlowUp;
     procedure Control;
     procedure Paint;
@@ -101 +108 @@
     procedure SetPlayerCount(const AValue: Integer);
     procedure Redraw;
+    function IsInsideHouses(Pos: TPoint): Boolean;
   public
     KeyState: array[0..High(Word)] of Boolean;
@@ -261 +269 @@
           Surface.ItemsXY[Trunc(X / Bitmap.Width * Surface.Count.X),
             Trunc(Y / Bitmap.Height * Surface.Count.Y)])];
-        PixelPtr^ := ((P and $ff) shl 16) or (P and $00ff00) or ((P shr 16) and $ff);
+        PixelPtr^ := SwapBRComponent(P);
         Inc(PByte(PixelPtr), BytePerPixel);
       end;
@@ -342 +350 @@
     Engine.Redraw;
   end;
+
+  if not Engine.IsInsideHouses(Position) then begin
+    Energy := Energy - 1 / EnergySteps;
+    if Energy <= 0 then begin
+      Energy := 0;
+      BlowUp;
+    end;
+  end else begin
+    Energy := Energy + 5 * 1 / EnergySteps;
+    if Energy > 1 then Energy := 1;
+  end;
+  if LastEnergy <> Energy then begin
+    LastEnergy := Energy;
+    Engine.Redraw;
+  end;
 end;
 
@@ -348 +371 @@
   X, Y: Integer;
   XX, YY: Integer;
+  I: Integer;
 begin
   with Engine.FBitmapLower do begin
@@ -363 +387 @@
           ItemsXY[X, Y] := SurfaceMatterColors[TSurfaceMatter(Surface.ItemsXY[XX, YY])];
       end;
-    //Pen.Color := clBlack;
-    //Frame(ScreenFrame);
-
-    (*CopyRect(ScreenFrame, Engine.World.Surface.Canvas,
-    Rect(
-      Position.X - (ScreenFrame.Right - ScreenFrame.Left) div 2,
-      Position.Y - (ScreenFrame.Bottom - ScreenFrame.Top) div 2,
-      Position.X + (ScreenFrame.Right - ScreenFrame.Left) div 2,
-      Position.Y + (ScreenFrame.Bottom - ScreenFrame.Top) div 2));*)
-    //TextOut(ScreenFrame.Left, ScreenFrame.Top, Name);
-    //ShowMessage(IntToStr(ScreenFrame.Right - ScreenFrame.Left) + ' ' +
-    //IntToStr(ScreenFrame.Bottom - ScreenFrame.Top));
+
+    for I := 1 to ScreenFrame.Width - 2 do
+      if Energy < I / (ScreenFrame.Width - 2) then
+        ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clBlack
+        else ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clYellow;
   end;
 end;
@@ -386 +403 @@
   Matter: Byte;
 begin
+  House.AsTRect := Rect(Position.X - HouseSize div 2, Position.Y - HouseSize div 2,
+    Position.X + HouseSize div 2, Position.Y + HouseSize div 2);
   for Y := 0 to HouseSize - 1 do
     for X := 0 to HouseSize - 1 do begin
@@ -393 +412 @@
       then Matter := Byte(smPlayer1H) + Id * 2
         else Matter := Byte(smNothing);
-      Engine.World.Surface.ItemsXY[Position.X - HouseSize div 2 + X,
-        Position.Y - HouseSize div 2 + Y] := Matter;
+      Engine.World.Surface.ItemsXY[House.Left + X,
+        House.Top + Y] := Matter;
     end;
 end;
@@ -441 +460 @@
 end;
 
+procedure TPlayer.BlowUp;
+begin
+
+end;
+
 procedure TPlayer.HideTank;
 begin
@@ -541 +565 @@
   Tanks := TListObject.Create;
   Bullets := TListObject.Create;
+  House := TRectangle.Create;
+  ScreenFrame := TRectangle.Create;
 end;
 
 destructor TPlayer.Destroy;
 begin
+  ScreenFrame.Free;
+  House.Free;
   Bullets.Free;
   Tanks.Free;
@@ -590 +618 @@
 end;
 
+function TEngine.IsInsideHouses(Pos: TPoint): Boolean;
+var
+  I: Integer;
+begin
+  Result := False;
+  for I := 0 to Players.Count - 1 do
+    if TPlayer(Players[I]).House.IsInside(Pos) then begin
+      Result := True;
+    end;
+end;
+
 procedure TEngine.ResizePlayerFrames;
 var
@@ -607 +646 @@
     FBitmapLower.Count := FBitmapLower.CreateIndex(80 * HorizFrameCount, 60 * VertFrameCount);
     for I := 0 to Players.Count - 1 do begin
-      TPlayer(Players[I]).ScreenFrame := Rect(
+      TPlayer(Players[I]).ScreenFrame.AsTRect := Rect(
         (I mod HorizFrameCount) * (FBitmapLower.Count.X div HorizFrameCount),
         (I div HorizFrameCount) * (FBitmapLower.Count.Y div VertFrameCount),
@@ -754 +793 @@
       Round(World.Surface.Count.Y * 0.2) + Random(Round(World.Surface.Count.Y * 0.6)));
 
+    Energy := 1;
+    Shield := 1;
     PlaceHouse;
   end;