{$I HKS_SaveCData.script}

{.$DEFINE FEED}
{.$DEFINE RES_HOUSES}
{.$DEFINE PATROL}
{.$DEFINE DIFFICULTY}
{.$DEFINE REBUILD}
{.$DEFINE ANIMATION}
{.$DEFINE HERO}

{$I HKS_Functions.script}
procedure GiveSupport;
var GG : Integer;
begin
	GG := A.GiveGroup(PLAYER, 22, 11, 112, 3, 12, 4);	
	A.GroupOrderWalk(GG, 53, 114, 2);
	
	GG := A.GiveGroup(PLAYER, 17, 8, 110, 3, 15, 5);	
	A.GroupOrderWalk(GG, 49, 114, 2);
	
	GG := A.GiveGroup(PLAYER, 20, 13, 105, 3, 9, 3);	
	A.GroupOrderWalk(GG, 45, 114, 2);
	
	GG := A.GiveGroup(PLAYER, 15, 4, 103, 3, 12, 4);	
	A.GroupOrderWalk(GG, 41, 114, 2);
	
end;
Procedure OnTick;
begin
	If GT = 59500 then 
		GiveSupport;
		
  if States.GameTime = 10 then
	Actions.ShowMsg(0, '<$1>');
  if States.GameTime = 59500 then
	Actions.ShowMsg(0, '<$2>');
  if States.GameTime = 60000 then
	Actions.ShowMsg(0, '<$3>');
end;