Changeset 15 for trunk/UCore.pas

Timestamp:

Mar 22, 2011, 7:22:46 PM (14 years ago)

Author:

george

Message:

• Added: Shield and tank destruction.

File:

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

trunk/UCore.pas

@@ -11 +11 @@
 const
   MaxBulletCount = 10;
-  EnergySteps = 400;
-  ShieldSteps = 400;
+  EnergySteps = 4000;
+  ShieldSteps = 40;
   ExplosionBulletCount = 100;
   ExplosionRange = 20;
   ExplosionBulletMaxSpeed = 0.5;
   ExplosionBulletMinSpeed = 0.2;
+  BulletExplosionRange = 3;
 
 type
@@ -22 +23 @@
   TPlayer = class;
 
-  TSurfaceMatter = (smNothing, smDirt1, smDirt2, smRock, smCannon, smBullet,
+  TSurfaceMatter = (smNothing, smDirt1, smDirt2, smRock, smCannon,
+    smBullet1, smBullet2,
     smPlayer1H, smPlayer1L, smPlayer2H, smPlayer2L,
     smPlayer3H, smPlayer3L, smPlayer4H, smPlayer4L);
@@ -63 +65 @@
   TPlayer = class
   private
+    FExploded: Boolean;
     NewDirection: Integer;
     NewPosition: TPoint;
     Dig: Boolean;
+    LastPos: TPoint;
+    procedure SetExploded(const AValue: Boolean);
     function ShowTankProc(Item1, Item2: Byte): Byte;
     function HideTankProc(Item1, Item2: Byte): Byte;
@@ -77 +82 @@
     Keys: TPlayerKeys;
     Tanks: TListObject;
-    Bullets: TListObject;
+    Bullets: TListObject; // TList<TBullet>
     Energy: Real;
     LastEnergy: Real;
     Shield: Real;
+    LastShield: Real;
     House: TRectangle;
-    Exploded: Boolean;
     procedure Init;
-    procedure Explosion;
+    procedure Explosion(Position: TPoint; Distance: Integer);
     procedure Control;
     procedure Tick;
@@ -95 +100 @@
     constructor Create;
     destructor Destroy; override;
+    property Exploded: Boolean read FExploded write SetExploded;
   end;
 
@@ -153 +159 @@
 const
   SurfaceMatterColors: array[TSurfaceMatter] of TColor = (clBlack, $0756b0,
-    $2170c3, TColor($9a9a9a), clYellow, clRed,
+    $2170c3, TColor($9a9a9a), clYellow, clRed, clRed,
     TColor($00ff00), TColor($00a000), TColor($ff2c2c), TColor($b60000),
     TColor($0000ff), TColor($0000a0), TColor($ff2cff), TColor($b600b6));
@@ -389 +395 @@
     if Energy <= 0 then begin
       Energy := 0;
-      Explosion;
+      Explosion(Position, ExplosionRange);
+      Exploded := True;
     end;
   end else begin
@@ -400 +407 @@
   end;
 
+  // Check shield
+  if House.IsInside(Position) then begin
+    Shield := Shield + 1 / ShieldSteps;
+    if Shield > 1 then Shield := 1;
+  end;
+  if LastShield <> Shield then begin
+    LastShield := Shield;
+    Engine.Redraw;
+  end;
+  if Shield <= 0 then begin
+    Shield := 0;
+    Explosion(Position, ExplosionRange);
+    Exploded := True;
+  end;
+
   // Bullet movement
   for I := Bullets.Count - 1 downto 0 do
-  with TBullet(Bullets[I]) do begin
+  with TBullet(Bullets[I]), Engine.World.Surface do begin
     Pos := Point(Trunc(Position.X), Trunc(Position.Y));
-    Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] := Byte(smNothing);
+    if (ItemsXY[LastPos.X, LastPos.Y] = Byte(smBullet1)) or
+      (ItemsXY[LastPos.X, LastPos.Y] = Byte(smBullet2)) then
+      ItemsXY[LastPos.X, LastPos.Y] := Byte(smNothing);
+    LastPos := Pos;
 
     Position.X := Position.X + Direction.X;
@@ -418 +443 @@
     Pos := Point(Trunc(Position.X), Trunc(Position.Y));
 
-    if (Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] <> Byte(smNothing)) and
-    (Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] <> Byte(smBullet)) then begin
-      if (Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] = Byte(smDirt1)) or
-        (Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] = Byte(smDirt2)) then begin
-          Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] := Byte(smNothing);
+    if (ItemsXY[Pos.X, Pos.Y] <> Byte(smNothing)) and
+    (ItemsXY[Pos.X, Pos.Y] <> Byte(smBullet1)) and
+    (ItemsXY[Pos.X, Pos.Y] <> Byte(smBullet2)) then begin
+      if (ItemsXY[Pos.X, Pos.Y] = Byte(smDirt1)) or
+        (ItemsXY[Pos.X, Pos.Y] = Byte(smDirt2)) then begin
+          ItemsXY[Pos.X, Pos.Y] := Byte(smNothing);
           if StopByDirt then begin
+            Explosion(LastPos, BulletExplosionRange);
             Bullets.Delete(I);
             Engine.Redraw;
@@ -429 +456 @@
           end;
         end else begin
+          if (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer1L)) or (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer1H)) then
+            with TPlayer(Engine.Players[0]) do begin
+              Shield := Shield - 1 / ShieldSteps;
+            end;
+          if (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer2L)) or (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer2H)) then
+            with TPlayer(Engine.Players[1]) do begin
+              Shield := Shield - 1 / ShieldSteps;
+            end;
+          if (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer3L)) or (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer3H)) then
+            with TPlayer(Engine.Players[2]) do begin
+              Shield := Shield - 1 / ShieldSteps;
+            end;
+          if (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer4L)) or (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer4H)) then
+            with TPlayer(Engine.Players[3]) do begin
+              Shield := Shield - 1 / ShieldSteps;
+            end;
+          if StopByDirt then Explosion(LastPos, BulletExplosionRange);
           Bullets.Delete(I);
           Engine.Redraw;
@@ -442 +486 @@
         Continue;
       end;
-    Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] := Byte(smBullet);
+    ItemsXY[Pos.X, Pos.Y] := Byte(smBullet1);
+    //Engine.World.Surface.ItemsXY[LastPos.X, LastPos.Y] := Byte(smBullet2);
     Engine.Redraw;
   end;
+
+  if not Exploded then ShowTank;
 end;
 
@@ -468 +515 @@
       end;
 
+    // Energy bar
     for I := 1 to ScreenFrame.Width - 2 do
       if Energy < I / (ScreenFrame.Width - 2) then
+        ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 2] := clBlack
+        else ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 2] := clYellow;
+
+    // Shield bar
+    for I := 1 to ScreenFrame.Width - 2 do
+      if Shield < I / (ScreenFrame.Width - 2) then
         ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clBlack
-        else ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clYellow;
+        else ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clAqua;
   end;
 end;
@@ -527 +581 @@
 end;
 
+procedure TPlayer.SetExploded(const AValue: Boolean);
+begin
+  if FExploded = AValue then Exit;
+  FExploded := AValue;
+  if FExploded then HideTank else ShowTank;
+end;
+
 procedure TPlayer.ShowTank;
 begin
@@ -553 +614 @@
 end;
 
-procedure TPlayer.Explosion;
+procedure TPlayer.Explosion(Position: TPoint; Distance: Integer);
 var
   NewBullet: TBullet;
@@ -561 +622 @@
 begin
   if not Exploded then begin
-    Exploded := True;
-    HideTank;
-    for I := 0 to ExplosionBulletCount - 1 do begin
+    for I := 0 to Distance - 1 do begin
       NewBullet := TBullet.Create;
       NewBullet.Player := Self;
@@ -570 +629 @@
       NewBullet.Direction.X := Sin(Angle) * Speed;
       NewBullet.Direction.Y := Cos(Angle) * Speed;
-      NewBullet.Position.X := Position.X + NewBullet.Direction.X * 3;
-      NewBullet.Position.Y := Position.Y + NewBullet.Direction.Y * 3;
-      NewBullet.MaxDistance := Random(ExplosionRange);
+      NewBullet.Position.X := Position.X; // + NewBullet.Direction.X * 3;
+      NewBullet.Position.Y := Position.Y; // + NewBullet.Direction.Y * 3;
+      NewBullet.MaxDistance := Random(Distance);
       Bullets.Add(NewBullet);
     end;