hedgewars/HHHandlers.inc
changeset 5024 1e332947147c
parent 5016 9347d82a26cc
child 5026 e83d4552625f
equal deleted inserted replaced
5023:8c16c0534b3c 5024:1e332947147c
   306                                Y:= _0;
   306                                Y:= _0;
   307                                FollowGear:= AddGear(TargetPoint.X, 0, gtPiano, 0, _0, _0, 0);
   307                                FollowGear:= AddGear(TargetPoint.X, 0, gtPiano, 0, _0, _0, 0);
   308                                PauseMusic
   308                                PauseMusic
   309                                end;
   309                                end;
   310                       amFlamethrower: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtFlamethrower,  0, xx * _0_5, yy * _0_5, 0);
   310                       amFlamethrower: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtFlamethrower,  0, xx * _0_5, yy * _0_5, 0);
       
   311                       amLandGun: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtLandGun,  0, xx * _0_5, yy * _0_5, 0);
   311                     amResurrector: begin
   312                     amResurrector: begin
   312                         CurAmmoGear:= AddGear(hwRound(lx), hwRound(ly),
   313                         CurAmmoGear:= AddGear(hwRound(lx), hwRound(ly),
   313                                 gtResurrector, 0, _0, _0, 0);
   314                                 gtResurrector, 0, _0, _0, 0);
   314                         CurAmmoGear^.SoundChannel := LoopSound(sndResurrector);
   315                         CurAmmoGear^.SoundChannel := LoopSound(sndResurrector);
   315                     end;
   316                     end;