Réalisation d'un Mod

starting
begin
RandomizeAll;
ResetFog;
fin;
Stanislav_Kovalyov;
Sergey_Alekseeva;
General_Sergeyev;
ComTurnXY(SK,63,37);
ComTurnXY(SA,63,37);
ComTurnXY(GS,64,41);
PlaceUnitXY(SK,63,41,false);
PlaceUnitXY(SA,64,41,false);
PlaceUnitXY(GS,63,37,false);
wait(0$0.1);
CenterOnUnits(SK);
InGameOn;
say(GS,'A1,CC');
say(GS,'A2,CC');
say(GS,'A3,CC');
say(GS,'A4,CC');
if Query('Query1') = 2 then
begin
say(GS,'B6,CC');
ComAttackUnit(GS,SK);
end
else
begin
say(GS,'A6,CC');
music_class=music_victory;
ComMoveXY(SK,76,42);
AddComEnterUnit(SK,eon);
end;

InGameOff;


end;

export SK;
export SA;
export GS;

Export Function Stanislav_Kovalyov;
begin
PrepareNewCharacter('SK');
uc_side = 3;
uc_nation = nation_russian;
hc_basic_skills = [3,0,2,0];
SK = CreateHuman;
end;
Export Function Sergey_Alekseeva;
begin
PrepareNewCharacter('SA');
uc_side = 3;
uc_nation = nation_russian;
hc_basic_skills = [3,2,0,1];
SA = CreateHuman;
end;
Export Function General_Sergeyev;
begin
PrepareNewCharacter('GS');
uc_side = 3;
uc_nation = nation_russian;
hc_basic_skills = [10,3,1,2];
GS = CreateHuman;
end;

Every 0$1 trigger not IsLive(SK) do
YouLost('StanDead');

Export function fin;
On enterbuilding(building,un) do
begin
if building=eon then
if un=SK then
begin
wait(0$1.3);
Changemap('1','%_cont');
end
else
RemoveUnit(SK);
end;