hedgewars/uStats.pas
changeset 14968 2d5f1dc637da
parent 14891 3054b85963ef
child 15225 ceb289e8a582
--- a/hedgewars/uStats.pas	Wed May 15 19:43:53 2019 +0200
+++ b/hedgewars/uStats.pas	Wed May 15 20:40:37 2019 +0200
@@ -42,6 +42,7 @@
 procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog; Damage: Longword; killed: boolean);
 procedure TargetHit;
 procedure Skipped;
+function  getIsTurnSkipped: boolean;
 procedure TurnStats;
 procedure TurnReaction;
 procedure TurnStatsReset;
@@ -191,6 +192,11 @@
 isTurnSkipped:= true
 end;
 
+function getIsTurnSkipped: boolean;
+begin
+getIsTurnSkipped:= isTurnSkipped;
+end;
+
 procedure TurnStats;
 var i, t: LongInt;
     c: Longword;