hedgewars/uWorld.pas
changeset 10080 ac51bcb534ef
parent 10040 4ac87acbaed9
child 10108 c68cf030eded
--- a/hedgewars/uWorld.pas	Mon Jan 27 01:07:12 2014 +0400
+++ b/hedgewars/uWorld.pas	Mon Jan 27 22:34:06 2014 +0400
@@ -124,18 +124,22 @@
 function AddGoal(s: ansistring; gf: longword; si: TGoalStrId; i: LongInt): ansistring;
 var t: ansistring;
 begin
+{$IFNDEF PAS2C}
     if (GameFlags and gf) <> 0 then
         begin
         t:= inttostr(i);
         s:= s + FormatA(trgoal[si], t) + '|'
         end;
+{$ENDIF}
     AddGoal:= s;
 end;
 
 function AddGoal(s: ansistring; gf: longword; si: TGoalStrId): ansistring;
 begin
+{$IFNDEF PAS2C}
     if (GameFlags and gf) <> 0 then
         s:= s + trgoal[si] + '|';
+{$ENDIF}
     AddGoal:= s;
 end;