33 procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog; Damage: Longword; killed: boolean);

    33 procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog; Damage: Longword; killed: boolean);

    34 procedure Skipped;

    34 procedure Skipped;

    35 procedure TurnReaction;

    35 procedure TurnReaction;

    36 procedure SendStats;

    36 procedure SendStats;

    37 procedure hedgehogFlight(Gear: PGear; time: Longword);

    37 procedure hedgehogFlight(Gear: PGear; time: Longword);

    39 

    39 

    40 implementation

    40 implementation

    41 uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uDebug, uMisc, uConsole, uScript;

    41 uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uDebug, uMisc, uConsole, uScript;

    42 

    42 

    43 var DamageClan  : Longword = 0;

    43 var DamageClan  : Longword = 0;

   309         WriteLnToConsole('DRAW');

   309         WriteLnToConsole('DRAW');

   310         

   310         

   311     ScriptCall('onAchievementsDeclaration');

   311     ScriptCall('onAchievementsDeclaration');

   312 end;

   312 end;

   313 

   313 

   315 begin

   315 begin

   316     if (length(id) = 0) or (length(teamname) = 0) then exit;

   316     if (length(id) = 0) or (length(teamname) = 0) then exit;

   317     WriteLnToConsole('ACHIEVEMENT');

   317     WriteLnToConsole('ACHIEVEMENT');

   318     WriteLnToConsole(id);

   318     WriteLnToConsole(id);

   319     WriteLnToConsole(teamname);

   319     WriteLnToConsole(teamname);

   320     WriteLnToConsole(inttostr(value));

   321     WriteLnToConsole(inttostr(value));

   321 end;

   322 end;

   322 

   323 

   323 procedure initModule;

   324 procedure initModule;

   324 begin

   325 begin