diff --git a/src/game/g_map.pas b/src/game/g_map.pas
index d120dfcd6928f48bf7a3749c0cc5d36219bbfd96..92da4f4b9121206d5dd0d0576735be5ed5746bcf 100644 (file)
--- a/src/game/g_map.pas
+++ b/src/game/g_map.pas
State: Byte;
Count: Integer;
CaptureTime: LongWord;
- Animation: TAnimation;
Direction: TDirection;
NeedSend: Boolean;
end;
procedure CreateArea(Area: TDynRecord);
var
a: Integer;
- id: DWORD = 0;
begin
case Area.AreaType of
AREA_DMPOINT, AREA_PLAYERPOINT1, AREA_PLAYERPOINT2,
with gFlags[a] do
begin
- case a of
- FLAG_RED: g_Frames_Get(id, 'FRAMES_FLAG_RED');
- FLAG_BLUE: g_Frames_Get(id, 'FRAMES_FLAG_BLUE');
- end;
-
- Animation := TAnimation.Create(id, True, 8);
Obj.Rect := FLAGRECT;
-
g_Map_ResetFlag(a);
end;
end;
begin
with gFlags[a] do
begin
- if gFlags[a].Animation <> nil then gFlags[a].Animation.Update();
-
Obj.oldX := Obj.X;
Obj.oldY := Obj.Y;