procedure AssignVariableInitValues();
var iterator : integer;
begin
end;

procedure udt_CoverAll();
begin
for udv_TempPlayer := 0 to 7 do
begin
Actions.FogCoverAll(udv_TempPlayer);
end;
end;

end;
end;
end
else
begin
end;
end;
end;
end;

ConstructedStructure : integer;
DestroyedStructure : integer;
Destroyer : integer;
DefeatedPlayer : integer;
VictoriousPlayer : integer;
DiedUnit : integer;
Killer : integer;
TrainedUnit : integer;
EquippedWarrior : integer;
EquippedWarriorsGroup : integer;
TriggeringUnit : integer;

procedure OnHouseBuilt(aHouseId : integer);
begin
ConstructedStructure := aHouseId;
TriggeringHouse := aHouseId;
end;

procedure OnHouseDestroyed(aHouseId : integer; aDestroyerIndex : integer);
begin
DestroyedStructure := aHouseId;
Destroyer := aDestroyerIndex;
TriggeringHouse := aHouseId;
TriggeringPlayer := aDestroyerIndex;
end;

procedure OnPlayerDefeated(aIndex : integer);
begin
DefeatedPlayer := aIndex;
TriggeringPlayer := aIndex;
end;

procedure OnPlayerVictory(aIndex : integer);
begin
VictoriousPlayer := aIndex;
TriggeringPlayer := aIndex;
end;

procedure OnUnitDied(aUnitId : integer; aKillerIndex : integer);
begin
DiedUnit := aUnitId;
Killer := aKillerIndex;
TriggeringUnit := aUnitId;
triggeringPlayer := aKillerIndex;
end;

procedure OnUnitTrained(aUnitId : integer);
begin
TrainedUnit := aUnitId;
TriggeringUnit := aUnitId;
end;

procedure OnWarriorEquipped(aUnitId : integer; aGroupId : integer);
begin
EquippedWarrior := aUnitId;
EquippedWarriorsGroup := aGroupId;
TriggeringUnit := aUnitId;
end;

procedure OnTick();
begin
udt_CoverAll();
udt_OpenHouses();
udt_OpenUnits();
end;