119 

   119 

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

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

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

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

   122 var t: ansistring;

   122 var t: ansistring;

   123 begin

   123 begin

   125     if (GameFlags and gf) <> 0 then

   124     if (GameFlags and gf) <> 0 then

   126         begin

   125         begin

   127         t:= inttostr(i);

   126         t:= inttostr(i);

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

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

   129         end;

   128         end;

   131     AddGoal:= s;

   129     AddGoal:= s;

   132 end;

   130 end;

   133 

   131 

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

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

   135 begin

   133 begin

   137     if (GameFlags and gf) <> 0 then

   134     if (GameFlags and gf) <> 0 then

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

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

   140     AddGoal:= s;

   136     AddGoal:= s;

   141 end;

   137 end;

   142 

   138 

   143 procedure InitWorld;

   139 procedure InitWorld;

   144 var i, t: LongInt;

   140 var i, t: LongInt;