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.
32 lines
863 B
Plaintext
32 lines
863 B
Plaintext
void main()
|
|
{
|
|
object oPC = GetEnteringObject();
|
|
object oRand = GetObjectByTag("by_rand_inv");
|
|
|
|
location lLocation = GetLocation(GetObjectByTag("fr_random_people_wp"));
|
|
location lLocation2 = GetLocation(GetObjectByTag("fr_random_people_wp2"));
|
|
location lLocation3 = GetLocation(GetObjectByTag("fr_random_people_wp3"));
|
|
|
|
if((GetIsPC(oPC) == TRUE) && (GetLocalInt(oRand, "Rangers") != 1))
|
|
{
|
|
SetLocalInt(oRand, "Rangers", 1);
|
|
|
|
if(Random(100) <= 20)
|
|
{
|
|
CreateObject(OBJECT_TYPE_CREATURE, "by_rand_mildred", lLocation, FALSE);
|
|
}
|
|
|
|
if(Random(100) <= 20)
|
|
{
|
|
CreateObject(OBJECT_TYPE_CREATURE, "by_rand_wolf", lLocation2, FALSE);
|
|
}
|
|
|
|
if(Random(100) <= 20)
|
|
{
|
|
CreateObject(OBJECT_TYPE_CREATURE, "by_rand_robidox", lLocation3, FALSE);
|
|
}
|
|
|
|
|
|
}
|
|
}
|