... ElseProceedPlayerlnput;End;PROCEDURE TGame.ProcessUnits;Var Z : TUnitCount;BeginIf Not PauseGame then BeginIf GameTime-LastGameUnitTime>UnitUpdate then BeginInc(GameFrame);LastGameUnitTime:=GameTime;End ... GamePlay.TYPETGame = ClassĐánh dấu game đã kết thúc.EndGame : Boolean;Đánh dấu game đang trong chế độ tạm dừng.PauseGame : Boolean;Dữ liệu về những người chơi trong game. GamePlayers : Array[TPlayer] ... ,White,EffectNone);XI:=Round(Pos.X)-GameWorld.ViewPos.X;Y1:=Round(Pos.Y)-GameWorld.ViewPos.Y;X2:=Round(Dest.X)-GameWorld.ViewPos.X;Y2:=Round(Dest.Y)-GameWorld.ViewPos.Y;Line(XI,Y1,X2,Y2,White,EffectNone);End;End;RenderBuffer;â...