equal
deleted
inserted
replaced
356 for t:= 0 to Pred(TeamsCount) do |
356 for t:= 0 to Pred(TeamsCount) do |
357 TeamsArray[t]^.ExtDriven:= false |
357 TeamsArray[t]^.ExtDriven:= false |
358 end; |
358 end; |
359 |
359 |
360 procedure TeamGone(s: shortstring); |
360 procedure TeamGone(s: shortstring); |
361 var i: integer; |
361 var i, t: LongInt; |
362 begin |
362 begin |
363 i:= 0; |
363 i:= 0; |
364 |
364 |
365 while (i < cMaxTeams) |
365 while (t < cMaxTeams) |
366 and (TeamsArray[i] <> nil) |
366 and (TeamsArray[t] <> nil) |
367 and (TeamsArray[i]^.TeamName <> s) do inc(i); |
367 and (TeamsArray[t]^.TeamName <> s) do inc(t); |
368 if (i = cMaxTeams) or (TeamsArray[i] = nil) then exit; |
368 if (t = cMaxTeams) or (TeamsArray[t] = nil) then exit; |
369 |
369 |
370 with TeamsArray[i]^ do |
370 with TeamsArray[t]^ do |
371 begin |
371 begin |
372 AddChatString('* '+ TeamName + ' is gone'); |
372 AddChatString('* '+ TeamName + ' is gone'); |
373 for i:= 0 to cMaxHHIndex do |
373 for i:= 0 to cMaxHHIndex do |
374 with Hedgehogs[i] do |
374 with Hedgehogs[i] do |
375 if Gear <> nil then |
375 if Gear <> nil then |