75 lines
1.6 KiB
Plaintext
75 lines
1.6 KiB
Plaintext
#include "rd_questinc"
|
|
|
|
void ClearArea(string sArea);
|
|
|
|
void main()
|
|
{
|
|
object oPC;
|
|
object oBoss;
|
|
int iVariance;
|
|
int iLevel;
|
|
int iAdjustedLevel;
|
|
int iRandom;
|
|
string sTokenLine;
|
|
string sTag;
|
|
|
|
oPC = GetPCSpeaker();
|
|
iLevel = GetHitDice(oPC);
|
|
iAdjustedLevel = GetAdjustedLevel(oPC);
|
|
iAdjustedLevel = ZoneLevel(GetArea(oPC),iAdjustedLevel);
|
|
|
|
SetPartyInt(oPC,"QuestStep",1);
|
|
SetPartyString(oPC,"QuestGiver",GetTag(OBJECT_SELF));
|
|
SetPartyInt(oPC,"Quest",1);
|
|
SetCustomToken(111, "");
|
|
SetCustomToken(112, "");
|
|
SetCustomToken(113, "");
|
|
|
|
SetToken(oPC,OBJECT_SELF,103,GetName(OBJECT_SELF));
|
|
|
|
if (iAdjustedLevel < 11)
|
|
{
|
|
iRandom = Random(3)+1;
|
|
switch (iRandom)
|
|
{
|
|
case 1: sTag = "bandit"; break;
|
|
case 2: sTag = "goblin"; break;
|
|
case 3: sTag = "orc"; break;
|
|
}
|
|
}
|
|
else if (iAdjustedLevel < 21)
|
|
{
|
|
iRandom = Random(2)+1;
|
|
switch (iRandom)
|
|
{
|
|
case 1: sTag = "merc"; break;
|
|
case 2: sTag = "ogre"; break;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
iRandom = Random(2)+1;
|
|
switch (iRandom)
|
|
{
|
|
case 1: sTag = "drow"; break;
|
|
case 2: sTag = "duergar"; break;
|
|
}
|
|
}
|
|
if (iAdjustedLevel < 12)
|
|
oBoss = GetSpecificCamp(oPC,OBJECT_SELF,"P1",1,sTag);
|
|
else
|
|
oBoss = GetSpecificCamp(oPC,OBJECT_SELF,"P1",2,sTag);
|
|
|
|
CreateObject(OBJECT_TYPE_CREATURE,"en4_p1_militia2",GetLocation(GetObjectByTag("P1_1")));
|
|
sTokenLine = "I need to eliminate some " + GetToken(101) + ".";
|
|
sTokenLine = FixTokenLine(sTokenLine,"REPEAT");
|
|
SetToken(oPC,OBJECT_SELF,111,sTokenLine);
|
|
|
|
|
|
RemoveJournalQuestEntry("jDelivery",oPC);
|
|
RemoveJournalQuestEntry("jCamp",oPC);
|
|
AddJournalQuestEntry("jCamp",1,oPC);
|
|
|
|
}
|
|
|