hedgewars/GSHandlers.inc
changeset 5638 e35ba2a400d8
parent 5628 a9a0c67f9656
child 5684 bc3d2a58921c
equal deleted inserted replaced
5636:c18aed7ad618 5638:e35ba2a400d8
  2298     Gear^.dX := SignAs(_0_45, Gear^.dX);
  2298     Gear^.dX := SignAs(_0_45, Gear^.dX);
  2299     Gear^.dY := - _0_9;
  2299     Gear^.dY := - _0_9;
  2300     Gear^.doStep := @doStepFirePunchWork;
  2300     Gear^.doStep := @doStepFirePunchWork;
  2301     DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y + _1, _0_5, _0, cHHRadius * 4, 5);
  2301     DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y + _1, _0_5, _0, cHHRadius * 4, 5);
  2302 
  2302 
  2303     PlaySound(TSound(ord(sndFirePunch1) + GetRandom(6)), HHGear^.Hedgehog^.Team^.
  2303     AddVoice(TSound(ord(sndFirePunch1) + GetRandom(6)), HHGear^.Hedgehog^.Team^.voicepack)
  2304     voicepack)
       
  2305 end;
  2304 end;
  2306 
  2305 
  2307 ////////////////////////////////////////////////////////////////////////////////
  2306 ////////////////////////////////////////////////////////////////////////////////
  2308 
  2307 
  2309 procedure doStepParachuteWork(Gear: PGear);
  2308 procedure doStepParachuteWork(Gear: PGear);