122 

   122 

   123 // helper functions to create the goal/game mode string

   123 // helper functions to create the goal/game mode string

   124 function AddGoal(s: ansistring; gf: longword; si: TGoalStrId; i: LongInt): ansistring;

   124 function AddGoal(s: ansistring; gf: longword; si: TGoalStrId; i: LongInt): ansistring;

   125 var t: ansistring;

   125 var t: ansistring;

   126 begin

   126 begin

   127     if (GameFlags and gf) <> 0 then

   128     if (GameFlags and gf) <> 0 then

   128         begin

   129         begin

   129         t:= inttostr(i);

   130         t:= inttostr(i);

   130         s:= s + FormatA(trgoal[si], t) + '|'

   131         s:= s + FormatA(trgoal[si], t) + '|'

   131         end;

   132         end;

   132     AddGoal:= s;

   134     AddGoal:= s;

   133 end;

   135 end;

   134 

   136 

   135 function AddGoal(s: ansistring; gf: longword; si: TGoalStrId): ansistring;

   137 function AddGoal(s: ansistring; gf: longword; si: TGoalStrId): ansistring;

   136 begin

   138 begin

   137     if (GameFlags and gf) <> 0 then

   140     if (GameFlags and gf) <> 0 then

   138         s:= s + trgoal[si] + '|';

   141         s:= s + trgoal[si] + '|';

   139     AddGoal:= s;

   143     AddGoal:= s;

   140 end;

   144 end;

   141 

   145 

   142 procedure InitWorld;

   146 procedure InitWorld;

   143 var i, t: LongInt;

   147 var i, t: LongInt;