Changeset 12 for trunk/UCore.pas

Timestamp:

Mar 21, 2011, 10:13:45 PM (13 years ago)

Author:

george

Message:

• Added: Tank explosion on energy exhaustion.

File:

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

trunk/UCore.pas

@@ -11 +11 @@
 const
   MaxBulletCount = 10;
-  EnergySteps = 4000;
+  EnergySteps = 40;
   ShieldSteps = 40;
+  ExplosionBulletCount = 200;
+  ExplosionRange = 15;
 
 type
@@ -21 +23 @@
     smPlayer1H, smPlayer1L, smPlayer2H, smPlayer2L,
     smPlayer3H, smPlayer3L, smPlayer4H, smPlayer4L);
+
+  TRealPoint = record
+    X, Y: Real;
+  end;
 
   TPlayerKeys = record
@@ -32 +38 @@
   TBullet = class
     Player: TPlayer;
-    Position: TPoint;
-    Direction: Integer;
+    Position: TRealPoint;
+    Direction: TRealPoint;
+    MaxDistance: Integer;
+    Distance: Real;
+    StopByDirt: Boolean;
   end;
 
@@ -68 +77 @@
     Shield: Real;
     House: TRectangle;
-    procedure BlowUp;
+    Exploded: Boolean;
+    procedure Init;
+    procedure Explosion;
     procedure Control;
+    procedure Tick;
     procedure Paint;
     procedure PlaceHouse;
@@ -287 +299 @@
   NewBullet: TBullet;
   I: Integer;
-begin
+  Pos: TPoint;
+begin
+  if Exploded then Exit;
+
   Delta.X := 0;
   Delta.Y := 0;
@@ -324 +339 @@
       NewBullet := TBullet.Create;
       NewBullet.Player := Self;
-      NewBullet.Position := Point(Position.X + DirectionToDelta[Direction].X * 4,
-        Position.Y + DirectionToDelta[Direction].Y * 4);
-      NewBullet.Direction := Direction;
+      NewBullet.Position.X := Position.X + DirectionToDelta[Direction].X * 4;
+      NewBullet.Position.Y := Position.Y + DirectionToDelta[Direction].Y * 4;
+      NewBullet.Direction.X := DirectionToDelta[Direction].X;
+      NewBullet.Direction.Y := DirectionToDelta[Direction].Y;
+      NewBullet.StopByDirt := True;
       Bullets.Add(NewBullet);
     end;
-
+end;
+
+procedure TPlayer.Tick;
+var
+  I: Integer;
+  Pos: TPoint;
+begin
   for I := Bullets.Count - 1 downto 0 do
   with TBullet(Bullets[I]) do begin
-    Engine.World.Surface.ItemsXY[Position.X, Position.Y] := Byte(smNothing);
-
-    Position.X := Position.X + DirectionToDelta[Direction].X;
-    Position.Y := Position.Y + DirectionToDelta[Direction].Y;
-
-    if Engine.World.Surface.ItemsXY[Position.X, Position.Y] <> Byte(smNothing) then begin
-      if (Engine.World.Surface.ItemsXY[Position.X, Position.Y] = Byte(smDirt1)) or
-        (Engine.World.Surface.ItemsXY[Position.X, Position.Y] = Byte(smDirt2)) then
-          Engine.World.Surface.ItemsXY[Position.X, Position.Y] := Byte(smNothing);
+    Pos := Point(Trunc(Position.X), Trunc(Position.Y));
+    Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] := Byte(smNothing);
+
+    Position.X := Position.X + Direction.X;
+    Position.Y := Position.Y + Direction.Y;
+    Distance := Distance + Sqrt(Sqr(Direction.X) + Sqr(Direction.Y));
+    //ShowMessage(FloatToStr(Distance));
+    if (Distance > MaxDistance) and (MaxDistance > 0) then begin
       Bullets.Delete(I);
-    end else
+      Continue;
+    end;
+
+    Pos := Point(Trunc(Position.X), Trunc(Position.Y));
+
+    if Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] <> Byte(smNothing) 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 StopByDirt then begin
+            Bullets.Delete(I);
+            Engine.Redraw;
+            Continue;
+          end;
+        end else begin
+          Bullets.Delete(I);
+          Engine.Redraw;
+          Continue;
+        end;
+    end;
+
     with Engine.World.Surface do
-    if (Position.X >= Count.X) or (Position.X < 0) or
-      (Position.Y >= Count.Y) or (Position.Y < 0) then
-      Bullets.Delete(I) else
-      Engine.World.Surface.ItemsXY[Position.X, Position.Y] := Byte(smBullet);
+    if (Pos.X >= Count.X) or (Pos.X < 0) or
+      (Pos.Y >= Count.Y) or (Pos.Y < 0) then begin
+        Bullets.Delete(I);
+        Engine.Redraw;
+        Continue;
+      end;
+    Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] := Byte(smBullet);
     Engine.Redraw;
   end;
@@ -355 +400 @@
     if Energy <= 0 then begin
       Energy := 0;
-      BlowUp;
+      Explosion;
     end;
   end else begin
@@ -460 +505 @@
 end;
 
-procedure TPlayer.BlowUp;
-begin
-
+procedure TPlayer.Init;
+begin
+  with Engine do
+    Position := Point(Round(World.Surface.Count.X * 0.2) + Random(Round(World.Surface.Count.X * 0.6)),
+      Round(World.Surface.Count.Y * 0.2) + Random(Round(World.Surface.Count.Y * 0.6)));
+  Exploded := False;
+  Bullets.Clear;
+  Energy := 1;
+  Shield := 1;
+  PlaceHouse;
+end;
+
+procedure TPlayer.Explosion;
+var
+  NewBullet: TBullet;
+  I: Integer;
+const
+  BulletMaxSpeed = 1;
+  BulletMinSpeed = 0.5;
+begin
+  if not Exploded then begin
+    Exploded := True;
+    HideTank;
+    for I := 0 to ExplosionBulletCount - 1 do begin
+      NewBullet := TBullet.Create;
+      NewBullet.Player := Self;
+      NewBullet.Direction.X := (BulletMaxSpeed - BulletMinSpeed) * (Random - 0.5);
+      NewBullet.Direction.Y := (BulletMaxSpeed - BulletMinSpeed) * (Random - 0.5);
+      //NewBullet.Direction.X := NewBullet.Direction.X + BulletMinSpeed * Sign(NewBullet.Direction.X);
+      //NewBullet.Direction.Y := NewBullet.Direction.Y + BulletMinSpeed * Sign(NewBullet.Direction.Y);
+      NewBullet.Position.X := Position.X + NewBullet.Direction.X * 2;
+      NewBullet.Position.Y := Position.Y + NewBullet.Direction.Y * 2;
+(*      if NewBullet.Direction.X < (Speed / 10) then
+        NewBullet.Direction.X := Speed / 10;
+      if NewBullet.Direction.Y < (Speed / 10) then
+        NewBullet.Direction.Y := Speed / 10;*)
+      NewBullet.MaxDistance := Random(ExplosionRange);
+      Bullets.Add(NewBullet);
+    end;
+  end;
 end;
 
@@ -681 +763 @@
   for I := 0 to Players.Count - 1 do begin
     TPlayer(Players[I]).Control;
+    TPlayer(Players[I]).Tick;
   end;
 end;
@@ -788 +871 @@
   for I := 0 to Players.Count - 1 do
   with TPlayer(Players[I]) do
-  begin
-    // Reset position
-    Position := Point(Round(World.Surface.Count.X * 0.2) + Random(Round(World.Surface.Count.X * 0.6)),
-      Round(World.Surface.Count.Y * 0.2) + Random(Round(World.Surface.Count.Y * 0.6)));
-
-    Energy := 1;
-    Shield := 1;
-    PlaceHouse;
-  end;
+    Init;
   Redraw;
 end;