60 lines
1.4 KiB
Plaintext
60 lines
1.4 KiB
Plaintext
#include "rd_questinc"
|
|
#include "rd_advzones"
|
|
|
|
void main()
|
|
{
|
|
object oPC;
|
|
object oBoss;
|
|
int iLevel;
|
|
int iAdjustedLevel;
|
|
int iQuestType;
|
|
int iZones;
|
|
int iDifficulty;
|
|
string sTokenLine;
|
|
|
|
oPC = GetPCSpeaker();
|
|
|
|
iLevel = GetHitDice(oPC);
|
|
iAdjustedLevel = GetAdjustedLevel(oPC);
|
|
iAdjustedLevel = ZoneLevel(GetArea(oPC),iAdjustedLevel);
|
|
|
|
SetPartyInt(oPC,"QuestStep",1);
|
|
SetPartyString(oPC,"QuestGiver",GetTag(OBJECT_SELF));
|
|
SetPartyString(oPC,"QuestItemTag","en4_qrod");
|
|
SetPartyInt(oPC,"Quest",1);
|
|
SetPartyInt(oPC,"QuestType",3);
|
|
SetPartyInt(oPC,"QuestAdventureZone",1);
|
|
SetPartyString(oPC,"AZRespawn",GetTag(OBJECT_SELF));
|
|
|
|
oBoss = SetupAdventureZones(iAdjustedLevel);
|
|
CreateItemOnObject("en4_qrod",oBoss);
|
|
SetCustomToken(105, GetName(oBoss));
|
|
|
|
iZones = GetLocalInt(GetModule(),"AdvZones");
|
|
if (iZones < 3)
|
|
iDifficulty = 2;
|
|
else if (iZones < 5)
|
|
iDifficulty = 3;
|
|
else
|
|
iDifficulty = 4;
|
|
SetPartyInt(oPC,"QuestDifficulty",iDifficulty);
|
|
|
|
SetCustomToken(111, "");
|
|
SetCustomToken(112, "");
|
|
SetCustomToken(113, "");
|
|
|
|
SetToken(oPC,OBJECT_SELF,103,GetName(OBJECT_SELF));
|
|
|
|
|
|
sTokenLine = GetName(OBJECT_SELF) + " has sent me in search of a rod which she indicates may be guarded by a " + GetName(oBoss) + ".";
|
|
sTokenLine = FixTokenLine(sTokenLine,"REPEAT");
|
|
SetToken(oPC,OBJECT_SELF,111,sTokenLine);
|
|
|
|
|
|
RemoveJournalQuestEntry("jDelivery",oPC);
|
|
RemoveJournalQuestEntry("jCamp",oPC);
|
|
AddJournalQuestEntry("jSpecial",1,oPC);
|
|
|
|
}
|
|
|