hedgewars/HHHandlers.inc
changeset 928 b9064b48b001
parent 927 2c1675344a6f
child 930 3f61bd3b08fd
equal deleted inserted replaced
927:2c1675344a6f 928:b9064b48b001
    22 begin
    22 begin
    23 slot:= Gear^.MsgParam;
    23 slot:= Gear^.MsgParam;
    24 
    24 
    25 with PHedgehog(Gear^.Hedgehog)^ do
    25 with PHedgehog(Gear^.Hedgehog)^ do
    26 	begin
    26 	begin
    27 	if ((Gear^.State and (gstAttacking or gstAttacked)) <> 0) or (AttacksNum > 0)
    27 	if ((Gear^.State and (gstAttacking or gstAttacked)) <> 0)
       
    28 		or (AttacksNum > 0)
    28 		or ((Gear^.State and gstHHDriven) = 0) then exit;
    29 		or ((Gear^.State and gstHHDriven) = 0) then exit;
    29 
    30 
    30 	Gear^.Message:= Gear^.Message and not (gm_LJump or gm_HJump or gm_Slot);
    31 	Gear^.Message:= Gear^.Message and not (gm_LJump or gm_HJump or gm_Slot);
    31 
    32 
    32 	if CurSlot = slot then
    33 	if CurSlot = slot then