PWE_PRC8/_module/nss/ats_forge_flames.nss

56 lines
1.5 KiB
Plaintext
Raw Normal View History

2025-04-03 10:29:41 -04:00
/****************************************************
Action Taken Script: Forge - Fan Flames
ats_forge_flames
Last Updated: July 15, 2002
***Ambrosia Tradeskill System***
Created by Mojo(Allen Sun)
This script is responsible for fanning the flames
of the forge and creating the various flame
animations and sound changes.
****************************************************/
void main()
{
object oForgeFlame = GetNearestObjectByTag("ATS_FORGE_FLAME");
object oForgeSound;
string sFlameResRef;
string sFlameSoundTag;
string sFlameName = GetName(oForgeFlame);
if(sFlameName == "Small Flame")
{
sFlameResRef = "ats_flame_med";
oForgeSound = GetNearestObjectByTag("ATS_SOUND_FLAME_SMALL");
sFlameSoundTag = "ATS_SOUND_FLAME_MEDIUM";
}
else if(sFlameName == "Medium Flame")
{
sFlameResRef = "ats_flame_large";
oForgeSound = GetNearestObjectByTag("ATS_SOUND_FLAME_MEDIUM");
sFlameSoundTag = "ATS_SOUND_FLAME_LARGE";
}
else if(sFlameName == "Large Flame")
{
sFlameResRef = "ats_flame_small";
oForgeSound = GetNearestObjectByTag("ATS_SOUND_FLAME_LARGE");
sFlameSoundTag = "ATS_SOUND_FLAME_SMALL";
}
SoundObjectPlay(GetNearestObjectByTag("ATS_SOUND_BELLOWS"));
CreateObject(OBJECT_TYPE_PLACEABLE, sFlameResRef, GetLocation(oForgeFlame));
SetPlaceableIllumination(oForgeFlame, FALSE);
DestroyObject(oForgeFlame);
RecomputeStaticLighting(GetArea(OBJECT_SELF));
SoundObjectPlay(GetNearestObjectByTag(sFlameSoundTag));
SoundObjectStop(oForgeSound);
}