equal
deleted
inserted
replaced
124 var tteam: PTeam; |
124 var tteam: PTeam; |
125 th: integer; |
125 th: integer; |
126 begin |
126 begin |
127 FreeActionsList; |
127 FreeActionsList; |
128 TargetPoint.X:= NoPointX; |
128 TargetPoint.X:= NoPointX; |
129 if CurrentTeam = nil then OutError('nil Team', true); |
129 TryDo(CurrentTeam <> nil, 'nil Team', true); |
130 tteam:= CurrentTeam; |
130 tteam:= CurrentTeam; |
131 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog] do |
131 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog] do |
132 if Gear <> nil then Gear.Message:= 0; |
132 if Gear <> nil then Gear.Message:= 0; |
133 |
133 |
134 repeat |
134 repeat |