equal
deleted
inserted
replaced
663 for i:= 0 to Pred(TeamsCount) do |
663 for i:= 0 to Pred(TeamsCount) do |
664 with TeamsArray[i]^ do |
664 with TeamsArray[i]^ do |
665 begin |
665 begin |
666 if (not hasGone) and isGoneFlagPendingToBeSet then |
666 if (not hasGone) and isGoneFlagPendingToBeSet then |
667 begin |
667 begin |
668 AddChatString('** '+ TeamName + ' is gone'); // TODO: localize |
668 AddChatString(#7 + '* '+ TeamName + ' is gone'); // TODO: localize |
669 if not CurrentTeam^.ExtDriven then SendIPC(_S'f' + s); |
669 if not CurrentTeam^.ExtDriven then SendIPC(_S'f' + s); |
670 hasGone:= true; |
670 hasGone:= true; |
671 skippedTurns:= 0; |
671 skippedTurns:= 0; |
672 isGoneFlagPendingToBeSet:= false; |
672 isGoneFlagPendingToBeSet:= false; |
673 RecountTeamHealth(TeamsArray[i]) |
673 RecountTeamHealth(TeamsArray[i]) |
702 if isSynced then |
702 if isSynced then |
703 begin |
703 begin |
704 with TeamsArray[t]^ do |
704 with TeamsArray[t]^ do |
705 if hasGone then |
705 if hasGone then |
706 begin |
706 begin |
707 AddChatString('** '+ TeamName + ' is back'); |
707 AddChatString(#8 + '* '+ TeamName + ' is back'); |
708 if not CurrentTeam^.ExtDriven then SendIPC(_S'g' + s); |
708 if not CurrentTeam^.ExtDriven then SendIPC(_S'g' + s); |
709 hasGone:= false; |
709 hasGone:= false; |
710 |
710 |
711 RecountTeamHealth(TeamsArray[t]); |
711 RecountTeamHealth(TeamsArray[t]); |
712 |
712 |
739 begin |
739 begin |
740 TeamsArray[t]^.hasGone:= true; |
740 TeamsArray[t]^.hasGone:= true; |
741 inc(t) |
741 inc(t) |
742 end; |
742 end; |
743 |
743 |
744 AddChatString('** Good-bye!'); |
744 AddChatString(#7 + '* Good-bye!'); |
745 RecountAllTeamsHealth(); |
745 RecountAllTeamsHealth(); |
746 end; |
746 end; |
747 |
747 |
748 procedure SwitchCurrentHedgehog(newHog: PHedgehog); |
748 procedure SwitchCurrentHedgehog(newHog: PHedgehog); |
749 var oldCI, newCI: boolean; |
749 var oldCI, newCI: boolean; |