7b9e44ebbb
Initial upload. PRC8 has been added. Module compiles, PRC's default AI & treasure scripts have been integrated. Started work on top hak for SLA / Ability / Scripting modifications.
39 lines
1.4 KiB
Plaintext
39 lines
1.4 KiB
Plaintext
void ActionCreate(string sCreature, location lLoc, object oCreature)
|
|
{
|
|
|
|
object oGibber = CreateObject(1, sCreature, lLoc);
|
|
effect eVis= EffectVisualEffect(13);
|
|
eVis=ExtraordinaryEffect(eVis);
|
|
ApplyEffectToObject(2, eVis, oGibber);
|
|
eVis= EffectVisualEffect(7);
|
|
eVis=ExtraordinaryEffect(eVis);
|
|
ApplyEffectToObject(2, eVis, oGibber);
|
|
eVis= EffectVisualEffect(244);
|
|
eVis=ExtraordinaryEffect(eVis);
|
|
ApplyEffectToObject(2, eVis, oGibber);
|
|
eVis= EffectVisualEffect(4);
|
|
eVis=ExtraordinaryEffect(eVis);
|
|
ApplyEffectToObject(2, eVis, oGibber);
|
|
eVis= EffectVisualEffect(245);
|
|
eVis=ExtraordinaryEffect(eVis);
|
|
ApplyEffectToObject(2, eVis, oGibber);
|
|
AssignCommand(oGibber, ActionAttack(oCreature));
|
|
}
|
|
void main()
|
|
{
|
|
object oBoulder=GetObjectByTag("jw_lumperth");
|
|
object oCreature = GetEnteringObject();
|
|
if (GetIsObjectValid(oCreature) == TRUE && GetIsPC(oCreature) && GetIsObjectValid(oBoulder))
|
|
{
|
|
effect eMind = EffectVisualEffect(39);
|
|
string sCreature = "gibberingmouther";
|
|
|
|
location lLoc = GetLocation(oBoulder);
|
|
AssignCommand(oBoulder,SpeakString("The boulder's surface erupts, covered with hundreds of eyes and mouths...", TALKVOLUME_TALK));
|
|
ApplyEffectAtLocation(0, eMind, GetLocation(oBoulder));
|
|
ActionCreate(sCreature, lLoc, oCreature);
|
|
SetPlotFlag(oBoulder, FALSE);
|
|
DestroyObject(oBoulder);
|
|
}
|
|
}
|