hedgewars/CCHandlers.inc
changeset 929 9456e1e77369
parent 927 2c1675344a6f
child 946 42c5cc87cbd1
equal deleted inserted replaced
928:b9064b48b001 929:9456e1e77369
   230 if CheckNoTeamOrHH then exit;
   230 if CheckNoTeamOrHH then exit;
   231 bShowFinger:= false;
   231 bShowFinger:= false;
   232 with CurrentHedgehog^.Gear^ do
   232 with CurrentHedgehog^.Gear^ do
   233      begin
   233      begin
   234      {$IFDEF DEBUGFILE}AddFileLog('/+attack: Gear^.State = '+inttostr(State));{$ENDIF}
   234      {$IFDEF DEBUGFILE}AddFileLog('/+attack: Gear^.State = '+inttostr(State));{$ENDIF}
   235      if ((State and gstHHDriven) <> 0) and
   235      if ((State and gstHHDriven) <> 0) then
   236         ((State and (gstAttacked or gstHHChooseTarget)) = 0) then
       
   237         begin
   236         begin
   238         FollowGear:= CurrentHedgehog^.Gear;
   237         FollowGear:= CurrentHedgehog^.Gear;
   239         if not CurrentTeam^.ExtDriven then SendIPC('A');
   238         if not CurrentTeam^.ExtDriven then SendIPC('A');
   240         Message:= Message or gm_Attack
   239         Message:= Message or gm_Attack
   241         end
   240         end