hedgewars/uGearsHedgehog.pas
changeset 8414 c1ac0b64315e
parent 8161 0b8beacff8a5
child 8444 75db7bb8dce8
child 8492 67d2ad3b3ce9
equal deleted inserted replaced
8413:454191defee6 8414:c1ac0b64315e
   363                         amPiano: begin
   363                         amPiano: begin
   364                                  // Tuck the hedgehog away until the piano attack is completed
   364                                  // Tuck the hedgehog away until the piano attack is completed
   365                                  Unplaced:= true;
   365                                  Unplaced:= true;
   366                                  X:= _0;
   366                                  X:= _0;
   367                                  Y:= _0;
   367                                  Y:= _0;
   368                                  newGear:= AddGear(TargetPoint.X, 0, gtPiano, 0, _0, _0, 0);
   368                                  newGear:= AddGear(TargetPoint.X, -1024, gtPiano, 0, _0, _0, 0);
   369                                  PauseMusic
   369                                  PauseMusic
   370                                  end;
   370                                  end;
   371                  amFlamethrower: newGear:= AddGear(hwRound(X), hwRound(Y), gtFlamethrower,  0, xx * _0_5, yy * _0_5, 0);
   371                  amFlamethrower: newGear:= AddGear(hwRound(X), hwRound(Y), gtFlamethrower,  0, xx * _0_5, yy * _0_5, 0);
   372                       amLandGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtLandGun,  0, xx * _0_5, yy * _0_5, 0);
   372                       amLandGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtLandGun,  0, xx * _0_5, yy * _0_5, 0);
   373                   amResurrector: begin
   373                   amResurrector: begin