51 lines
940 B
Plaintext
51 lines
940 B
Plaintext
#include "rd_questinc"
|
|
|
|
void main()
|
|
{
|
|
object oPC;
|
|
object oBoss;
|
|
string sZone;
|
|
int iCamp;
|
|
int iCamps;
|
|
int iLevel;
|
|
int iLeader;
|
|
int iDifficulty;
|
|
string sCamp;
|
|
|
|
oPC=GetPCSpeaker();
|
|
iLevel = GetHitDice(oPC);
|
|
SetPartyInt(oPC,"EvilQuest",1);
|
|
SetPartyInt(oPC,"QuestStep",1);
|
|
|
|
iLevel = GetHitDice(oPC);
|
|
|
|
sZone = GetZone(oPC);
|
|
|
|
iCamps = GetMaxQuestCampSpots(sZone);
|
|
iCamp = Random(iCamps)+1;
|
|
|
|
iLevel = iLevel + Random(5)-2;
|
|
|
|
if (iLevel<7)
|
|
sCamp = "dragon0";
|
|
else if (iLevel<13)
|
|
sCamp = "angel";
|
|
else if (iLevel<17)
|
|
sCamp = "dragon1";
|
|
else if (iLevel<22)
|
|
sCamp = "dragon2";
|
|
else if (iLevel<29)
|
|
sCamp = "dragon3";
|
|
else
|
|
sCamp = "dragon4";
|
|
|
|
oBoss = SpawnQuestCamp(sZone,iCamp,iLevel,0,sCamp);
|
|
|
|
SetPartyInt(oPC,"QuestType",1);
|
|
SetPartyInt(oPC,"QuestCamp",iCamp);
|
|
SetPartyString(oPC,"QuestCampzone",sZone);
|
|
SetPartyString(oPC,"QuestTargetNPC",GetTag(OBJECT_SELF));
|
|
iDifficulty =1;
|
|
SetPartyInt(oPC,"QuestDifficulty",iDifficulty);
|
|
}
|