hedgewars/uGearsHedgehog.pas
changeset 13161 aa7915ceb69f
parent 13156 26f0c3669b4e
child 13214 9c81e34f1933
equal deleted inserted replaced
13160:2e9221a9a9b3 13161:aa7915ceb69f
   321                                  newGear:= AddGear(hwRound(lx), hwRound(ly), gtKnife,    0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0);
   321                                  newGear:= AddGear(hwRound(lx), hwRound(ly), gtKnife,    0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0);
   322                                  newGear^.State:= newGear^.State or gstMoving;
   322                                  newGear^.State:= newGear^.State or gstMoving;
   323                                  newGear^.Radius:= 4 // temporarily shrink so it doesn't instantly embed in the ground
   323                                  newGear^.Radius:= 4 // temporarily shrink so it doesn't instantly embed in the ground
   324                                  end;
   324                                  end;
   325                        amDEagle: newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtDEagleShot, 0, xx * _0_5, yy * _0_5, 0);
   325                        amDEagle: newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtDEagleShot, 0, xx * _0_5, yy * _0_5, 0);
   326                       amMinigun: newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtMinigun, 0, xx * _0_5, yy * _0_5, 0);
   326                       amMinigun: begin
       
   327                                  PlaySound(sndMinigun);
       
   328                                  newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtMinigun, 0, xx * _0_5, yy * _0_5, 0);
       
   329                                  end;
   327                       amSineGun: newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtSineGunShot, 0, xx * _0_5, yy * _0_5, 0);
   330                       amSineGun: newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtSineGunShot, 0, xx * _0_5, yy * _0_5, 0);
   328                     amPortalGun: begin
   331                     amPortalGun: begin
   329                                  newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtPortal, 0, xx * _0_6, yy * _0_6,
   332                                  newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtPortal, 0, xx * _0_6, yy * _0_6,
   330                                  // set selected color
   333                                  // set selected color
   331                                  CurWeapon^.Pos);
   334                                  CurWeapon^.Pos);