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.
66 lines
1.2 KiB
Plaintext
66 lines
1.2 KiB
Plaintext
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
#include "JW_ASHEEBALIFE"
|
|
|
|
void jw_tree_spawn();
|
|
|
|
void main()
|
|
{
|
|
object oCreature;
|
|
int nCounter=0;
|
|
|
|
oCreature=GetObjectByTag("mristar");
|
|
if (GetArea(oCreature)==OBJECT_SELF)
|
|
{
|
|
AssignCommand(oCreature,Asheebalife());
|
|
}
|
|
|
|
|
|
|
|
oCreature=GetObjectByTag("mristar",1);
|
|
if (GetArea(oCreature)==OBJECT_SELF)
|
|
{
|
|
AssignCommand(oCreature,Asheebalife());
|
|
}
|
|
|
|
oCreature=GetObjectByTag("calaudra");
|
|
if (GetArea(oCreature)==OBJECT_SELF)
|
|
{
|
|
AssignCommand(oCreature,Asheebalife());
|
|
}
|
|
|
|
|
|
|
|
if (GetTag(OBJECT_SELF)=="jw_asheeba_area")
|
|
{
|
|
|
|
oCreature=GetObjectByTag("jw_tree_spawn",nCounter);
|
|
|
|
while (GetIsObjectValid(oCreature))
|
|
{
|
|
|
|
AssignCommand(oCreature,jw_tree_spawn());
|
|
nCounter++;
|
|
oCreature=GetObjectByTag("jw_tree_spawn",nCounter);
|
|
}
|
|
}
|
|
}
|
|
|
|
void jw_tree_spawn()
|
|
|
|
{
|
|
object oObject;
|
|
int nRandom;
|
|
|
|
if (!GetIsObjectValid(GetLocalObject(OBJECT_SELF,"storedtree")))
|
|
|
|
{
|
|
nRandom=Random(100);
|
|
|
|
if (nRandom==1)
|
|
{
|
|
oObject=CreateObject(OBJECT_TYPE_PLACEABLE,"jw_tree",GetLocation(OBJECT_SELF));
|
|
SetLocalObject(OBJECT_SELF,"storedtree",oObject);
|
|
}
|
|
}
|
|
}
|