marko10_000
/
openclonk
forked from Mirrors/openclonk
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Experimental BigVolcano: Some gfx+sound effects

scancodes-fix
Sven Eberhardt 2013-02-27 00:21:30 +01:00
parent f5647d05fe
commit 6bd3646a35
3 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
planet/Experimental.ocf/VolcanoEscapeEx.ocs/BigVolcano.ocd/BigVolcanoBubble1.wav 100644
View File

Binary file not shown.

BIN
planet/Experimental.ocf/VolcanoEscapeEx.ocs/BigVolcano.ocd/BigVolcanoBubble2.wav 100644
View File

Binary file not shown.

18
planet/Experimental.ocf/VolcanoEscapeEx.ocs/BigVolcano.ocd/Script.c
View File

@ -105,7 +105,11 @@ func Execute()
if (speed<=10)
{
// Blast away solid
BlastFree(x,y-3,5+Random(5),GetController());
var blast_size = 5+Random(5);
BlastFree(x,y-3,blast_size,GetController());
// gfx
CreateParticle("MagicFire", x,y-3, 0,0, blast_size*5, 0xffffffff);
if (!Random(5)) SoundAt("RockHit*", x,y-3, 100);
}
else if (speed <=50)
{
@ -178,6 +182,7 @@ func FxVolcanoBranchTimer(object q, fx, int time)
if (behaviour == BigVolcanoBehaviour_Fill)
{
CastPXS("DuroLava", 4+Cos(fx.fill_time*40,2), 30+Cos(fx.fill_time*40,25), nx,ny-1, 0,50);
if (!(fx.fill_time%20) && !GBackSemiSolid(nx,ny-6)) SoundAt("BigVolcanoBubble*", nx,ny, 10);
if (fx.fill_time++ > 31) return FX_Execute_Kill; // Done?
}
else if (behaviour != BigVolcanoBehaviour_Stop)
@ -310,5 +315,16 @@ func ExtendVerticalBranch(int x1, int y1, int x2, int y2, int from_half_wdt, int
return true;
}
func SoundAt(string sound_name, int x, int y, int vol)
{
var sound_host = CreateObject(BigVolcano,x,y), r;
if (sound_host)
{
r = sound_host->Sound(sound_name, false, vol);
ScheduleCall(sound_host, Global.RemoveObject, 100);
}
return r;
}
local Name = "BigVolcano";
local Description = "Volcano helper object";