hedgewars/uGearsHedgehog.pas
changeset 14566 85921db6f7c3
parent 14399 352ea82355ae
child 14735 2d859d34e6f6
equal deleted inserted replaced
14565:833ab5b359e5 14566:85921db6f7c3
   485                                  end;
   485                                  end;
   486                      amVampiric: begin
   486                      amVampiric: begin
   487                                  PlaySoundV(sndOw1, Team^.voicepack);
   487                                  PlaySoundV(sndOw1, Team^.voicepack);
   488                                  cVampiric:= true;
   488                                  cVampiric:= true;
   489                                  end;
   489                                  end;
   490                         amPiano: begin
   490                         amPiano: newGear:= AddGear(TargetPoint.X, -1024, gtPiano, 0, _0, _0, 0);
   491                                  // Tuck the hedgehog away until the piano attack is completed
       
   492                                  Unplaced:= true;
       
   493                                  X:= _0;
       
   494                                  Y:= _0;
       
   495                                  newGear:= AddGear(TargetPoint.X, -1024, gtPiano, 0, _0, _0, 0);
       
   496                                  PauseMusic
       
   497                                  end;
       
   498                  amFlamethrower: newGear:= AddGear(hwRound(X), hwRound(Y), gtFlamethrower,  0, xx * _0_5, yy * _0_5, 0);
   491                  amFlamethrower: newGear:= AddGear(hwRound(X), hwRound(Y), gtFlamethrower,  0, xx * _0_5, yy * _0_5, 0);
   499                       amLandGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtLandGun,  0, xx * _0_5, yy * _0_5, 0);
   492                       amLandGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtLandGun,  0, xx * _0_5, yy * _0_5, 0);
   500                   amResurrector: begin
   493                   amResurrector: begin
   501                                  newGear:= AddGear(hwRound(lx), hwRound(ly), gtResurrector, 0, _0, _0, 0);
   494                                  newGear:= AddGear(hwRound(lx), hwRound(ly), gtResurrector, 0, _0, _0, 0);
   502                                  newGear^.SoundChannel := LoopSound(sndResurrector);
   495                                  newGear^.SoundChannel := LoopSound(sndResurrector);