hedgewars/GSHandlers.inc
branch0.9.17
changeset 6368 cd819d9df6f6
parent 6325 cdd3d8c723ec
child 6380 1ff5ad1d771b
equal deleted inserted replaced
6366:1a49a8fcca56 6368:cd819d9df6f6
  2473     Gear^.dX := SignAs(_0_45, Gear^.dX);
  2473     Gear^.dX := SignAs(_0_45, Gear^.dX);
  2474     Gear^.dY := - _0_9;
  2474     Gear^.dY := - _0_9;
  2475     Gear^.doStep := @doStepFirePunchWork;
  2475     Gear^.doStep := @doStepFirePunchWork;
  2476     DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y + _1, _0_5, _0, cHHRadius * 4, 5);
  2476     DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y + _1, _0_5, _0, cHHRadius * 4, 5);
  2477 
  2477 
  2478     AddVoice(TSound(ord(sndFirePunch1) + GetRandom(6)), HHGear^.Hedgehog^.Team^.voicepack)
  2478     PlaySound(TSound(ord(sndFirePunch1) + GetRandom(6)), HHGear^.Hedgehog^.Team^.voicepack)
  2479 end;
  2479 end;
  2480 
  2480 
  2481 ////////////////////////////////////////////////////////////////////////////////
  2481 ////////////////////////////////////////////////////////////////////////////////
  2482 
  2482 
  2483 procedure doStepParachuteWork(Gear: PGear);
  2483 procedure doStepParachuteWork(Gear: PGear);