hedgewars/uGearsHedgehog.pas
changeset 12193 71c47122fbc0
parent 12184 50856782cdc4
child 12194 ac9cf0cf40ee
equal deleted inserted replaced
12192:de9144250c37 12193:71c47122fbc0
   323                   amSniperRifle: begin
   323                   amSniperRifle: begin
   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
       
   329                                  newGear:= AddGear(hwRound(lx), hwRound(ly), gtDuck, 0, _0, _0, 0);
       
   330                                  if not ((not dX.isNegative) xor ((State and gstHHHJump) <> 0)) then
       
   331                                      newGear^.Tag:= -1
       
   332                                  else
       
   333                                      newGear^.Tag:= 1;
       
   334                                  end;
   328                     amFirePunch: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtFirePunch, 0, xx, _0, 0);
   335                     amFirePunch: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtFirePunch, 0, xx, _0, 0);
   329                          amWhip: begin
   336                          amWhip: begin
   330                                  newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtWhip, 0, SignAs(_1, dX), - _0_8, 0);
   337                                  newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtWhip, 0, SignAs(_1, dX), - _0_8, 0);
   331                                  PlaySound(sndWhipCrack)
   338                                  PlaySound(sndWhipCrack)
   332                                  end;
   339                                  end;