hedgewars/GSHandlers.inc
changeset 979 edb8f208c1d9
parent 974 fc16141a0128
child 980 20128e98988b
equal deleted inserted replaced
978:4d4f290d05c5 979:edb8f208c1d9
  1087 HHGear^.X:= int2hwFloat(hwRound(HHGear^.X)) - _0_5;
  1087 HHGear^.X:= int2hwFloat(hwRound(HHGear^.X)) - _0_5;
  1088 SetLittle(HHGear^.dX);
  1088 SetLittle(HHGear^.dX);
  1089 HHGear^.dY:= - _0_3;
  1089 HHGear^.dY:= - _0_3;
  1090 
  1090 
  1091 Gear^.X:= HHGear^.X;
  1091 Gear^.X:= HHGear^.X;
  1092 Gear^.dX:= SignAs(_0_45, HHGear^.dX);
  1092 Gear^.dX:= SignAs(_0_45, Gear^.dX);
  1093 Gear^.dY:= - _0_9;
  1093 Gear^.dY:= - _0_9;
  1094 Gear^.doStep:= @doStepFirePunchWork;
  1094 Gear^.doStep:= @doStepFirePunchWork;
  1095 DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y + _1, _0_5, _0, cHHRadius * 4, 5);
  1095 DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y + _1, _0_5, _0, cHHRadius * 4, 5);
  1096 end;
  1096 end;
  1097 
  1097