equal
deleted
inserted
replaced
235 if CheckNoTeamOrHH then exit; |
235 if CheckNoTeamOrHH then exit; |
236 bShowFinger:= false; |
236 bShowFinger:= false; |
237 with CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear^ do |
237 with CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear^ do |
238 begin |
238 begin |
239 {$IFDEF DEBUGFILE}AddFileLog('/+attack: Gear^.State = '+inttostr(State));{$ENDIF} |
239 {$IFDEF DEBUGFILE}AddFileLog('/+attack: Gear^.State = '+inttostr(State));{$ENDIF} |
240 if ((State and gstHHDriven)<>0)and((State and (gstAttacked or gstHHChooseTarget or gstMoving)) = 0) then |
240 if ((State and gstHHDriven) <> 0) and |
|
241 ((State and (gstAttacked or gstHHChooseTarget)) = 0) then |
241 begin |
242 begin |
242 FollowGear:= CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear; |
243 FollowGear:= CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear; |
243 if not CurrentTeam^.ExtDriven then SendIPC('A'); |
244 if not CurrentTeam^.ExtDriven then SendIPC('A'); |
244 Message:= Message or gm_Attack |
245 Message:= Message or gm_Attack |
245 end |
246 end |