37 lines
696 B
Plaintext
37 lines
696 B
Plaintext
|
#include "rd_questinc"
|
||
|
|
|
||
|
|
void main()
|
||
|
|
{
|
||
|
|
object oPC;
|
||
|
|
object oBoss;
|
||
|
|
string sZone;
|
||
|
|
int iCamp;
|
||
|
|
int iCamps;
|
||
|
|
int iLevel;
|
||
|
|
int iLeader;
|
||
|
|
int iDifficulty;
|
||
|
|
location lHostage;
|
||
|
|
string sHostage;
|
||
|
|
|
||
|
|
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;
|
||
|
|
|
||
|
|
oBoss = SpawnQuestCamp(sZone,iCamp,iLevel,0,"dwarf");
|
||
|
|
|
||
|
|
SetPartyInt(oPC,"QuestType",1);
|
||
|
|
SetPartyInt(oPC,"QuestCamp",iCamp);
|
||
|
|
SetPartyString(oPC,"QuestCampzone",sZone);
|
||
|
|
SetPartyString(oPC,"QuestTargetNPC",GetTag(OBJECT_SELF));
|
||
|
|
iDifficulty =1;
|
||
|
|
SetPartyInt(oPC,"QuestDifficulty",iDifficulty);
|
||
|
|
}
|