Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
UFO Sound
authorunc0rr
Sun, 15 Jul 2007 14:02:26 +0000
changeset 560 7bf2b554de0c
parent 559 6083fffc9e2f
child 561 19d2d422ff84
UFO Sound
hedgewars/GSHandlers.inc file | annotate | diff | comparison | revisions
hedgewars/uConsts.pas file | annotate | diff | comparison | revisions
share/hedgewars/Data/Sounds/CMakeLists.txt file | annotate | diff | comparison | revisions
share/hedgewars/Data/Sounds/ufo.ogg file | annotate | diff | comparison | revisions 
--- a/hedgewars/GSHandlers.inc	Sun Jul 15 13:35:32 2007 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Jul 15 14:02:26 2007 +0000
@@ -266,6 +266,7 @@
 dec(Gear^.Timer);
 if ((Gear^.State and gstCollision) <> 0) or (Gear^.Timer = 0) then
    begin
+   StopSound(sndUFO);
    doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
    DeleteGear(Gear);
    end;
@@ -287,6 +288,7 @@
 dec(Gear^.Timer);
 if Gear^.Timer = 0 then
    begin
+   PlaySound(sndUFO, true);
    Gear^.Timer:= 5000;
    Gear^.doStep:= @doStepUFOWork
    end;
--- a/hedgewars/uConsts.pas	Sun Jul 15 13:35:32 2007 +0000
+++ b/hedgewars/uConsts.pas	Sun Jul 15 14:02:26 2007 +0000
@@ -54,7 +54,7 @@
 
      TSound     = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease,
                    sndSplash, sndShotgunReload, sndShotgunFire, sndGraveImpact,
-                   sndMineTick, sndPickhammer, sndGun);
+                   sndMineTick, sndPickhammer, sndGun, sndUFO);
 
      TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
                    amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch,
@@ -346,7 +346,8 @@
                                        (FileName:   'graveimpact.ogg'; Path: ptSounds; id: nil; lastChan: 0),// sndGraveImpact
                                        (FileName:      'minetick.ogg'; Path: ptSounds; id: nil; lastChan: 0),// sndMineTicks
                                        (FileName:    'pickhammer.ogg'; Path: ptSounds; id: nil; lastChan: 0),// sndPickhammer
-                                       (FileName:           'gun.ogg'; Path: ptSounds; id: nil; lastChan: 0) // sndGun
+                                       (FileName:           'gun.ogg'; Path: ptSounds; id: nil; lastChan: 0),// sndGun
+                                       (FileName:           'ufo.ogg'; Path: ptSounds; id: nil; lastChan: 0) // sndUFO
                                        );
 
       Ammoz: array [TAmmoType] of record
--- a/share/hedgewars/Data/Sounds/CMakeLists.txt	Sun Jul 15 13:35:32 2007 +0000
+++ b/share/hedgewars/Data/Sounds/CMakeLists.txt	Sun Jul 15 14:02:26 2007 +0000
@@ -10,4 +10,5 @@
 	splash.ogg
 	throwpowerup.ogg
 	throwrelease.ogg
+	ufo.ogg
 	DESTINATION ${SHAREPATH}Data/Sounds)
\ No newline at end of file
Binary file share/hedgewars/Data/Sounds/ufo.ogg has changed
hedgewars