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

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

    33 procedure Skipped;

    33 procedure Skipped;

    34 procedure TurnReaction;

    34 procedure TurnReaction;

    35 procedure SendStats;

    35 procedure SendStats;

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

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

    38 

    38 

    39 implementation

    39 implementation

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

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

    41 

    41 

    42 var DamageClan  : Longword = 0;

    42 var DamageClan  : Longword = 0;

   309 +end;

   309 +end;

   310 

   310 

   311 WriteLnToConsole('');

   311 WriteLnToConsole('');

   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  

   324  

   324 procedure initModule;

   325 procedure initModule;