hedgewars/uGearsHedgehog.pas
changeset 12194 ac9cf0cf40ee
parent 12193 71c47122fbc0
child 12204 0a7d7256d3d8
equal deleted inserted replaced
12193:71c47122fbc0 12194:ac9cf0cf40ee
   324                                  PlaySound(sndSniperReload);
   324                                  PlaySound(sndSniperReload);
   325                                  newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtSniperRifleShot, 0, xx * _0_5, yy * _0_5, 0);
   325                                  newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtSniperRifleShot, 0, xx * _0_5, yy * _0_5, 0);
   326                                  end;
   326                                  end;
   327                      amDynamite: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtDynamite, 0, SignAs(_0_03, dX), _0, 5000);
   327                      amDynamite: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtDynamite, 0, SignAs(_0_03, dX), _0, 5000);
   328                          amDuck: begin
   328                          amDuck: begin
       
   329                                  PlaySound(sndDuckDrop);
   329                                  newGear:= AddGear(hwRound(lx), hwRound(ly), gtDuck, 0, _0, _0, 0);
   330                                  newGear:= AddGear(hwRound(lx), hwRound(ly), gtDuck, 0, _0, _0, 0);
   330                                  if not ((not dX.isNegative) xor ((State and gstHHHJump) <> 0)) then
   331                                  if not ((not dX.isNegative) xor ((State and gstHHHJump) <> 0)) then
   331                                      newGear^.Tag:= -1
   332                                      newGear^.Tag:= -1
   332                                  else
   333                                  else
   333                                      newGear^.Tag:= 1;
   334                                      newGear^.Tag:= 1;