--- 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;