hedgewars/uGearsHedgehog.pas
branchwebgl
changeset 8444 75db7bb8dce8
parent 8330 aaefa587e277
parent 8414 c1ac0b64315e
child 8833 c13ebed437cb
equal deleted inserted replaced
8340:46a9fde631f4 8444:75db7bb8dce8
   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