Changeset 28 for trunk/UCore.pas

Timestamp:

Oct 3, 2011, 8:17:16 PM (13 years ago)

Author:

george

Message:

 

File:

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

trunk/UCore.pas

@@ -103 +103 @@
     Engine: TEngine;
     Position: TPoint;
+    Score: Integer;
     Direction: Integer;
     ScreenFrame: TRectangle;
@@ -189 +190 @@
     FBitmap: TBitmap;
     FBitmapLock: TCriticalSection;
+    FOnGameEnd: TNotifyEvent;
     FRedrawPending: Boolean;
     FBitmapLower: TBitmapTColor;
@@ -209 +211 @@
     DigMasks: TListObject; // TListObject<TMatrixByte>
     Lock: TCriticalSection;
+    CurrentRound: Integer;
+    MaxRound: Integer;
+    procedure CheckGameEnd;
     constructor Create;
     destructor Destroy; override;
@@ -215 +220 @@
     procedure Draw(Thread: TVirtualThread);
     procedure NewGame;
+    procedure NewRound;
     property Bitmap: TBitmap read FBitmap write SetBitmap;
     property Active: Boolean read FActive write SetActive;
+    property OnGameEnd: TNotifyEvent read FOnGameEnd write FOnGameEnd;
   end;
 
@@ -938 +945 @@
         ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clBlack
         else ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clAqua;
+
+    for I := ScreenFrame.Left to ScreenFrame.Right - 1 do
+      ItemsXY[I, 0] := $010101 * I;
   end;
 end;
@@ -994 +1004 @@
   Energy := 0;
   Shield := 0;
+  //Synchronize(Engine.CheckGameEnd);
 end;
 
@@ -1226 +1237 @@
   BytePerRow: Integer;
   RawImage: TRawImage;
-  Color: Integer;
+  Color: Int64;
   Shift: TPoint;
   XDiv, XMod, XAcc: Integer;
@@ -1237 +1248 @@
   if Assigned(FBitmap) then
   try
+    Lock.Acquire;
     Bitmap.BeginUpdate;
     RawImage := Bitmap.RawImage;
@@ -1283 +1295 @@
           Inc(SubPixelSizeX);
         end;
-
-        Color := SwapBRComponent(FBitmapLower.Pixels[X, Y]);
+        Color := FBitmapLower.Pixels[X, Y] and $ffffff;
+
+        Color := SwapBRComponent(Color);
 
         // Draw large pixel
@@ -1302 +1315 @@
   finally
     FBitmap.EndUpdate;
+    Lock.Release;
   end;
 end;
@@ -1464 +1478 @@
     InitTanks;
     Name := SPlayer + ' ' + IntToStr(I + 1);
-    Enabled := True;
+    if I < 8 then Enabled := True;
+  end;
+end;
+
+procedure TEngine.CheckGameEnd;
+var
+  AliveCount: Integer;
+  I: Integer;
+begin
+  AliveCount := 0;
+  for I := 0 to Players.Count - 1 do
+  with TPlayer(Players[I]) do
+    if not Exploded then Inc(AliveCount);
+  if AliveCount <= 1 then begin
+    for I := 0 to Players.Count - 1 do
+    with TPlayer(Players[I]) do
+      if not Exploded then Inc(Score);
+    if CurrentRound < MaxRound then
+      NewRound else
+      if Assigned(FOnGameEnd) then
+        FOnGameEnd(Self);
   end;
 end;
@@ -1513 +1547 @@
   InitDigMasks;
   Redraw;
+  MaxRound := 3;
 end;
 
@@ -1574 +1609 @@
   for I := 0 to PlayerPool.Count - 1 do
   with TPlayer(PlayerPool[I]) do
-  if Enabled then
+  if Enabled then begin
     Players.Add(PlayerPool[I]);
+    Score := 0;
+  end;
   ResizePlayerFrames;
-
+  CurrentRound := 0;
+  NewRound;
+
+  Active := True;
+end;
+
+procedure TEngine.NewRound;
+var
+  I: Integer;
+begin
+  Active := False;
   World.Generate;
 
   for I := 0 to Players.Count - 1 do
-  with TPlayer(Players[I]) do
+  with TPlayer(Players[I]) do begin
     Init;
+  end;
   ClearBackground := True;
   Redraw;