equal
deleted
inserted
replaced
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 {$IFNDEF PAS2C} |
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; |
|
133 {$ENDIF} |
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 |
|
139 {$IFNDEF PAS2C} |
137 if (GameFlags and gf) <> 0 then |
140 if (GameFlags and gf) <> 0 then |
138 s:= s + trgoal[si] + '|'; |
141 s:= s + trgoal[si] + '|'; |
|
142 {$ENDIF} |
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; |