equal
deleted
inserted
replaced
368 if (i = cMaxTeams) or (TeamsArray[i] = nil) then exit; |
368 if (i = cMaxTeams) or (TeamsArray[i] = nil) then exit; |
369 |
369 |
370 with TeamsArray[i]^ do |
370 with TeamsArray[i]^ do |
371 begin |
371 begin |
372 AddChatString('* '+ TeamName + ' is gone'); |
372 AddChatString('* '+ TeamName + ' is gone'); |
373 //for i:= 0 to cMaxHHIndex do Hedgehogs[i].Gear:= nil; |
373 for i:= 0 to cMaxHHIndex do |
|
374 with Hedgehogs[i] do |
|
375 Gear^.State:= Gear^.State and not gstHHDriven; |
374 hasGone:= true |
376 hasGone:= true |
375 end |
377 end |
376 end; |
378 end; |
377 |
379 |
378 initialization |
380 initialization |