hedgewars/GSHandlers.inc
changeset 1545 76b90ff9739a
parent 1528 3fee15104c1d
child 1547 4251f9598d54
equal deleted inserted replaced
1544:56c0c5025136 1545:76b90ff9739a
   569 
   569 
   570 if Gear^.Timer mod cHHStepTicks = 0 then
   570 if Gear^.Timer mod cHHStepTicks = 0 then
   571 	begin
   571 	begin
   572 	b:= true;
   572 	b:= true;
   573 	if Gear^.dX.isNegative then
   573 	if Gear^.dX.isNegative then
   574 		HHGear^.Message:= (HHGear^.Message or gm_Left) and not gm_Right
   574 		HHGear^.Message:= (HHGear^.Message and gm_Attack) or gm_Left
   575 	else
   575 	else
   576 		HHGear^.Message:= (HHGear^.Message or gm_Right) and not gm_Left;
   576 		HHGear^.Message:= (HHGear^.Message and gm_Attack) or gm_Right;
   577 
   577 
   578 	if ((HHGear^.State and gstMoving) = 0) then
   578 	if ((HHGear^.State and gstMoving) = 0) then
   579 		begin
   579 		begin
   580 		HHGear^.State:= HHGear^.State and not gstAttacking;
   580 		HHGear^.State:= HHGear^.State and not gstAttacking;
   581 		prevX:= hwRound(HHGear^.X);
   581 		prevX:= hwRound(HHGear^.X);