equal
deleted
inserted
replaced
229 end; |
229 end; |
230 Closefile(f); |
230 Closefile(f); |
231 {$I+} |
231 {$I+} |
232 TryDo(IOResult = 0, msgFailed, true); |
232 TryDo(IOResult = 0, msgFailed, true); |
233 WriteLnToConsole(msgOK); |
233 WriteLnToConsole(msgOK); |
234 TryDo(Count < cnt, 'Fort doesn''t contain needed spawn points', true); |
234 TryDo(Count < cnt, 'Fort doesn''t contain needed amount of spawn points', true); |
235 for i:= 0 to Pred(cnt) do |
235 for i:= 0 to Pred(cnt) do |
236 begin |
236 begin |
237 t:= GetRandom(cnt); |
237 t:= GetRandom(cnt); |
238 if i <> t then |
238 if i <> t then |
239 begin |
239 begin |