changeset 9409 | 6564baf7dedf |
parent 9405 | efc5409a141d |
child 9411 | d95ac9992529 |
9407:860f959f92c9 | 9409:6564baf7dedf |
---|---|
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); |
38 procedure declareAchievement(id, teamname: shortstring; value: LongInt); |
38 procedure declareAchievement(id, teamname, location: shortstring; value: LongInt); |
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 |
314 procedure declareAchievement(id, teamname: shortstring; value: LongInt); |
314 procedure declareAchievement(id, teamname, location: shortstring; value: LongInt); |
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(location); |
|
320 WriteLnToConsole(inttostr(value)); |
321 WriteLnToConsole(inttostr(value)); |
321 end; |
322 end; |
322 |
323 |
323 procedure initModule; |
324 procedure initModule; |
324 begin |
325 begin |