| changeset 11569 | 294ce0fa65d0 |
| parent 11532 | bf86c6cb9341 |
| child 11914 | c9bad8a01185 |
| 11568:e9ee87b28e17 | 11569:294ce0fa65d0 |
|---|---|
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, location: shortstring; value: LongInt); |
38 procedure declareAchievement(id, teamname, location: shortstring; value: LongInt); |
39 procedure startGhostPoints(n: LongInt); |
|
40 procedure dumpPoint(x, y: LongInt); |
|
39 |
41 |
40 implementation |
42 implementation |
41 uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uMisc, uConsole, uScript; |
43 uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uMisc, uConsole, uScript; |
42 |
44 |
43 var DamageClan : Longword = 0; |
45 var DamageClan : Longword = 0; |
321 WriteLnToConsole(teamname); |
323 WriteLnToConsole(teamname); |
322 WriteLnToConsole(location); |
324 WriteLnToConsole(location); |
323 WriteLnToConsole(inttostr(value)); |
325 WriteLnToConsole(inttostr(value)); |
324 end; |
326 end; |
325 |
327 |
328 procedure startGhostPoints(n: LongInt); |
|
329 begin |
|
330 WriteLnToConsole('GHOST_POINTS'); |
|
331 WriteLnToConsole(inttostr(n)); |
|
332 end; |
|
333 |
|
334 procedure dumpPoint(x, y: LongInt); |
|
335 begin |
|
336 WriteLnToConsole(inttostr(x)); |
|
337 WriteLnToConsole(inttostr(y)); |
|
338 end; |
|
339 |
|
326 procedure initModule; |
340 procedure initModule; |
327 begin |
341 begin |
342 DamageClan := 0; |
|
343 DamageTotal := 0; |
|
344 DamageTurn := 0; |
|
345 KillsClan := 0; |
|
346 Kills := 0; |
|
347 KillsTotal := 0; |
|
348 AmmoUsedCount := 0; |
|
349 AmmoDamagingUsed := false; |
|
350 SkippedTurns:= 0; |
|
351 isTurnSkipped:= false; |
|
352 vpHurtSameClan:= nil; |
|
353 vpHurtEnemy:= nil; |
|
328 TotalRounds:= -1; |
354 TotalRounds:= -1; |
329 FinishedTurnsTotal:= -1; |
355 FinishedTurnsTotal:= -1; |
330 end; |
356 end; |
331 |
357 |
332 procedure freeModule; |
358 procedure freeModule; |