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.
267 lines
6.3 KiB
Plaintext
267 lines
6.3 KiB
Plaintext
void main()
|
|
{
|
|
|
|
// register individual mobs
|
|
|
|
string sMob1="group01"; // RESREF OF MOB 1;
|
|
int MinMob1=1; // minimum number of mobs
|
|
int MaxMob1=3; // Maximum number of mobs
|
|
|
|
string sMob2="group02"; // RESREF OF MOB 2;
|
|
int MinMob2=1; // minimum number of mobs
|
|
int MaxMob2=3; // Maximum number of mobs
|
|
|
|
string sMob3="jw_darkenbeast"; // RESREF OF MOB 3;
|
|
int MinMob3=3; // minimum number of mobs
|
|
int MaxMob3=4; // Maximum number of mobs
|
|
|
|
string sMob4="group01"; // RESREF OF MOB 4;
|
|
int MinMob4=1; // minimum number of mobs
|
|
int MaxMob4=3; // Maximum number of mobs
|
|
|
|
string sMob5="group03"; // RESREF OF MOB 5;
|
|
int MinMob5=1; // minimum number of mobs
|
|
int MaxMob5=3; // Maximum number of mobs
|
|
|
|
string sMob6="jw_slasrath"; // RESREF OF MOB 6;
|
|
int MinMob6=2; // minimum number of mobs
|
|
int MaxMob6=5; // Maximum number of mobs
|
|
|
|
// register groups
|
|
|
|
if (GetLocalInt(OBJECT_SELF,"nDone")!=2)
|
|
{
|
|
|
|
SetLocalString(OBJECT_SELF, "group01_1", "jw_yun1");
|
|
SetLocalString(OBJECT_SELF, "group01_2", "jw_yun2");
|
|
SetLocalString(OBJECT_SELF, "group01_3", "jw_yun3");
|
|
SetLocalString(OBJECT_SELF, "group01_4", "jw_yun4");
|
|
SetLocalString(OBJECT_SELF, "group01_5", "jw_yun5");
|
|
/*
|
|
# Orcs 1
|
|
*/
|
|
SetLocalString(OBJECT_SELF, "group02_1", "jw_earth_nasty");
|
|
SetLocalString(OBJECT_SELF, "group02_2", "jw_elder_wat");
|
|
SetLocalString(OBJECT_SELF, "group02_3", "jw_elder_air");
|
|
|
|
SetLocalString(OBJECT_SELF, "group03_1", "jw_earth_nasty");
|
|
SetLocalString(OBJECT_SELF, "group03_2", "jw_elder_wat");
|
|
SetLocalString(OBJECT_SELF, "group03_3", "jw_elder_air");
|
|
SetLocalString(OBJECT_SELF, "group03_4", "jw_earth_nasty");
|
|
SetLocalString(OBJECT_SELF, "group03_5", "jw_earth_nasty");
|
|
|
|
SetLocalInt(OBJECT_SELF,"nDone",2);
|
|
}
|
|
|
|
|
|
|
|
object oPC=GetEnteringObject();
|
|
|
|
if ((!GetIsPC(oPC))&&(!GetIsPC(GetMaster(oPC))))
|
|
{
|
|
return;
|
|
}
|
|
|
|
int nCurrentMinute = (GetCalendarYear()-1)*12*28*24 +
|
|
(GetCalendarMonth()-1)*28*24 +
|
|
(GetCalendarDay()-1)*24 +
|
|
GetTimeHour();
|
|
int nLastSpawnMinute = GetLocalInt(OBJECT_SELF,"LAST_SPAWN_MINUTE");
|
|
|
|
// spawn delay is in real time minutes for some reason
|
|
|
|
int nSpawnDelay = 0;
|
|
if (nCurrentMinute > (nLastSpawnMinute + nSpawnDelay))
|
|
{
|
|
SetLocalInt(OBJECT_SELF,"NW_DO_ONCE",0);
|
|
}
|
|
|
|
//return if time has not passed yet
|
|
if (GetLocalInt(OBJECT_SELF,"NW_DO_ONCE") != 0)
|
|
{
|
|
//SendMessageToAllDMs("Timer not yet done "+IntToString(nLastSpawnMinute)+" "+IntToString(nCurrentMinute));
|
|
return;
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
string sCounter;
|
|
int nIdx;
|
|
object oMob;
|
|
int nMobsexist=0;
|
|
string sMob="sMob";
|
|
string sCheckstring;
|
|
int nRandom;
|
|
string sMobtype;
|
|
int nMobMax; // maximum number of mobs
|
|
int nMobMin; // minimum number of mobs
|
|
|
|
// every trigger has a spawnpoint which is its own tag plus _SP
|
|
|
|
object oSpawnpoint=GetWaypointByTag(GetTag(OBJECT_SELF)+"_SP");
|
|
location lLoc=GetLocation(oSpawnpoint);
|
|
|
|
int nNumber=GetLocalInt(OBJECT_SELF,"nNumber");
|
|
// nNumber is the number of mobs spawned last time;
|
|
|
|
|
|
// if this is not the first time we have done it, check if any of our mobs are there
|
|
if (nNumber>0)
|
|
|
|
{
|
|
// start counting through the mobs
|
|
for (nIdx=1; nIdx<=nNumber; nIdx++)
|
|
{
|
|
sCheckstring=sMob+IntToString(nIdx);
|
|
|
|
// cycle through the local objects
|
|
if (GetIsObjectValid(GetLocalObject(OBJECT_SELF,sCheckstring)))
|
|
|
|
{
|
|
// if one is valid, set nMobsexist to 1
|
|
nMobsexist=1;
|
|
}
|
|
|
|
}
|
|
|
|
// if any of the old mobs still exist, return
|
|
|
|
if (nMobsexist==1)
|
|
{
|
|
// reset the counter, as players have entered the area while mobs are still present, and return
|
|
SetLocalInt(OBJECT_SELF,"NW_DO_ONCE",1);
|
|
SetLocalInt(OBJECT_SELF,"LAST_SPAWN_MINUTE",nCurrentMinute);
|
|
//SendMessageToAllDMs("I have a mob already");
|
|
return;
|
|
}
|
|
|
|
}
|
|
|
|
// a player has entered, no existing mobs exist and the timer is not yet complete. Therefore, make mobs.
|
|
|
|
// choose what type of mob to create
|
|
|
|
nRandom=Random(6);
|
|
|
|
switch (nRandom)
|
|
{
|
|
case 0: sMobtype=sMob1;
|
|
nMobMax=MaxMob1;
|
|
nMobMin=MinMob1;
|
|
break;
|
|
|
|
case 1: sMobtype=sMob2;
|
|
nMobMax=MaxMob2;
|
|
nMobMin=MinMob2;
|
|
break;
|
|
|
|
case 2: sMobtype=sMob3;
|
|
nMobMax=MaxMob3;
|
|
nMobMin=MinMob3;
|
|
break;
|
|
|
|
case 3: sMobtype=sMob4;
|
|
nMobMax=MaxMob4;
|
|
nMobMin=MinMob4;
|
|
break;
|
|
|
|
case 4: sMobtype=sMob5;
|
|
nMobMax=MaxMob5;
|
|
nMobMin=MinMob5;
|
|
break;
|
|
|
|
case 5: sMobtype=sMob6;
|
|
nMobMax=MaxMob6;
|
|
nMobMin=MinMob6;
|
|
break;
|
|
|
|
|
|
}
|
|
/// set the number of mobs we are making
|
|
if (GetStringLeft(sMobtype,5)=="group")
|
|
{ // this is the section for making groups
|
|
|
|
|
|
int nMobnumber=0;
|
|
int nIdx=1;
|
|
int nValid=TRUE;
|
|
string sGroupname=GetStringLeft(sMobtype,7);
|
|
string sResRef;
|
|
|
|
|
|
|
|
while (nValid==TRUE)
|
|
{
|
|
sMobtype=sGroupname+"_"+IntToString(nIdx);
|
|
sResRef=GetLocalString(OBJECT_SELF,sMobtype);
|
|
|
|
|
|
|
|
if (sResRef=="")
|
|
{
|
|
nValid=FALSE;
|
|
}
|
|
else
|
|
{
|
|
// create the mob
|
|
oMob=CreateObject(OBJECT_TYPE_CREATURE,sResRef,lLoc,FALSE);
|
|
|
|
|
|
// make the mob act like an encounter creature
|
|
SetLocalInt(oMob,"norw",2);
|
|
|
|
// make the mob our new local object
|
|
|
|
sCheckstring=sMob+IntToString(nIdx);
|
|
SetLocalObject(OBJECT_SELF,sCheckstring,oMob);
|
|
nIdx=nIdx+1;
|
|
}
|
|
}
|
|
|
|
//set the time
|
|
SetLocalInt(OBJECT_SELF,"NW_DO_ONCE",1);
|
|
SetLocalInt(OBJECT_SELF,"LAST_SPAWN_MINUTE",nCurrentMinute);
|
|
SetLocalInt(OBJECT_SELF,"nNumber",nIdx);
|
|
|
|
}
|
|
|
|
|
|
else { // this is the section for making individual mobs
|
|
// choose how many mobs to create
|
|
int nRandomnumber=Random((nMobMax-nMobMin)+1);
|
|
int nMobnumber=nMobMin+nRandomnumber;
|
|
|
|
|
|
|
|
SetLocalInt(OBJECT_SELF,"nNumber",nMobnumber);
|
|
|
|
//SendMessageToAllDMs("Making my mobs now");
|
|
|
|
// start making the mobs
|
|
for (nIdx=1; nIdx<=nMobnumber; nIdx++)
|
|
{
|
|
// create the mob
|
|
oMob=CreateObject(OBJECT_TYPE_CREATURE,sMobtype,lLoc,FALSE);
|
|
|
|
|
|
// make the mob act like an encounter creature
|
|
SetLocalInt(oMob,"norw",2);
|
|
|
|
// make the mob our new local object
|
|
|
|
sCheckstring=sMob+IntToString(nIdx);
|
|
SetLocalObject(OBJECT_SELF,sCheckstring,oMob);
|
|
|
|
}
|
|
|
|
//set the time
|
|
SetLocalInt(OBJECT_SELF,"NW_DO_ONCE",1);
|
|
SetLocalInt(OBJECT_SELF,"LAST_SPAWN_MINUTE",nCurrentMinute);
|
|
|
|
// that is it
|
|
}
|
|
|
|
}
|