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.
37 lines
683 B
Plaintext
37 lines
683 B
Plaintext
void main()
|
|
{
|
|
if (GetLocalInt(OBJECT_SELF,"nDone")==2)
|
|
{
|
|
return;
|
|
}
|
|
|
|
location lLocation;
|
|
int nIdx=0;
|
|
string sString="lStoneLoc";
|
|
|
|
object oStone=GetObjectByTag("jw_blowsup");
|
|
|
|
while (GetIsObjectValid(oStone))
|
|
{
|
|
SetLocalLocation(OBJECT_SELF,"sString"+IntToString(nIdx),GetLocation(oStone));
|
|
SetPlotFlag(oStone,0);
|
|
DestroyObject(oStone);
|
|
nIdx++;
|
|
|
|
oStone=GetObjectByTag("jw_blowsup",nIdx);
|
|
}
|
|
SetLocalInt(OBJECT_SELF,"nStoneNumber",nIdx);
|
|
|
|
|
|
|
|
|
|
for (nIdx=0;nIdx<=GetLocalInt(OBJECT_SELF,"nStoneNumber");nIdx++)
|
|
{
|
|
lLocation=GetLocalLocation(OBJECT_SELF,"sString"+IntToString(nIdx));
|
|
oStone=CreateObject(OBJECT_TYPE_PLACEABLE,"jw_blowsup",lLocation);
|
|
}
|
|
|
|
|
|
SetLocalInt(OBJECT_SELF,"nDone",2);
|
|
}
|