215 lines
7.5 KiB
C
215 lines
7.5 KiB
C
#include <lib.h>
|
|
#include <daemons.h>
|
|
#ifndef REQUIRE_QUESTING
|
|
#define REQUIRE_QUESTING 1
|
|
#endif
|
|
|
|
inherit LIB_SENTIENT;
|
|
|
|
int hint;
|
|
|
|
int AdvanceDude(mixed arg);
|
|
mapping advancement, Levels;
|
|
int TalkFunc(){
|
|
string thing1, thing2, thing3, thing4, thing5;
|
|
|
|
thing1 = "There's no shame in being wimpy. Live to fight another day. Death takes away valuable xp.";
|
|
thing2 = "I wish I could see Princess Daphne again.";
|
|
thing3 = "Don't fight drunk.";
|
|
thing4 = "Learning spells from Herkimer is a good idea.";
|
|
thing5 = "Food, drink, and caffeine help restore health and strength.";
|
|
|
|
switch(hint){
|
|
case 0 : eventForce("say "+thing1);break;
|
|
case 1 : eventForce("say "+thing2);break;
|
|
case 2 : eventForce("say "+thing3);break;
|
|
case 3 : eventForce("say "+thing4);break;
|
|
case 4 : eventForce("say "+thing5);break;
|
|
default : eventForce("smile");
|
|
}
|
|
|
|
if(hint == 4) hint = 0;
|
|
else hint++;
|
|
return 1;
|
|
}
|
|
|
|
static void create() {
|
|
int i;
|
|
sentient::create();
|
|
Levels = PLAYERS_D->GetLevelList();
|
|
advancement = ([]);
|
|
SetKeyName("dirk");
|
|
SetId(({"dirk"}));
|
|
SetShort("Dirk the Tired");
|
|
SetLong("For 20 years, Dirk the Daring has been trying "
|
|
"to defeat the vile dragon Singe, with almost no respite. "
|
|
"Today he just wants to rest and relax, and has accepted "
|
|
"the position of the town's Adventurers' Guild master. "
|
|
"If you feel you deserve it, \"ask dirk to advance\".");
|
|
SetPolyglot(1);
|
|
SetLanguage("common", 100);
|
|
SetDefaultLanguage("common");
|
|
SetInventory(([
|
|
"/domains/town/armor/collar" : "wear collar",
|
|
]));
|
|
SetLevel(15);
|
|
SetRace("human");
|
|
SetGender("male");
|
|
//SetAction(5, (: TalkFunc :));
|
|
AddTalkResponse("hello", "hi! Ask me for a tip!");
|
|
AddTalkResponse("hi", "hi! Ask me for a tip!");
|
|
SetCommandResponses( ([
|
|
"advance": (: AdvanceDude :)
|
|
]) );
|
|
SetRequestResponses( ([
|
|
({ "a hint", "hints", "a clue", "clues", "a tip", "tips" }) :
|
|
(: TalkFunc :),
|
|
]) );
|
|
SetConsultResponses( ([
|
|
({ "level", "levels", "leveling", "advancement", "advancing" }) :
|
|
"To level, get some experience out there and then come back "+
|
|
"and ask me to advance. For some levels you may need "+
|
|
"some quest points to advance, not just experience.",
|
|
({ "xp", "XP", "experience" }) : "You can score experience "+
|
|
"points by killing monsters or completing some quests. "+
|
|
"Sometimes you'll get xp for completing some task you didn't "+
|
|
"even know would give you points. Generally though, it's combat "+
|
|
"that results in XP rewards, if you win.",
|
|
({ "points" }) : "It's how to keep track of your progress. The "+
|
|
"kinds of points I care about are experience points and "+
|
|
"quest points.",
|
|
({ "quests", "quest", "quest points" }) : "Quests are missions "+
|
|
"you can try to complete that will usually reward you with "+
|
|
"quest points if you solve them. "+
|
|
"You'll need quest points to advance past a "+
|
|
"certain level.",
|
|
]) );
|
|
for(i=0;i<21;i++){
|
|
advancement[i] = Levels[i];
|
|
}
|
|
}
|
|
|
|
void init(){
|
|
::init();
|
|
}
|
|
|
|
int AdvanceDude(mixed arg){
|
|
int level,xp,qp;
|
|
int desired_level,required_xp,required_qp;
|
|
mixed *statlist;
|
|
mapping this_stat;
|
|
int statclass, statlevel, i;
|
|
|
|
statlist = this_player()->GetStats();
|
|
|
|
if(this_player()->GetKeyName() == "guest"){
|
|
this_object()->eventForce("say I don't promote temporary players.");
|
|
return 1;
|
|
}
|
|
|
|
if(!level = this_player()->GetLevel()){
|
|
this_object()->eventForce("say You are confusing me.");
|
|
return 1;
|
|
}
|
|
|
|
if(level > 19){
|
|
this_object()->eventForce("say Whoa there, big "
|
|
"stuff. Advancement past level 20 is the "
|
|
"purview of the Trans-Human Elder Guild. "
|
|
"I'm sorry but I can't help you.");
|
|
return 1;
|
|
}
|
|
|
|
xp = this_player()->GetExperiencePoints();
|
|
if(!qp = this_player()->GetQuestPoints()) qp = 0;
|
|
desired_level = level+1;
|
|
required_xp = advancement[desired_level]["xp"];
|
|
if(!required_qp = advancement[desired_level]["qp"]) required_qp = 0;
|
|
if(!REQUIRE_QUESTING) required_qp = 0;
|
|
this_object()->eventForce("say Level "+desired_level+" "
|
|
"with the title of \""+advancement[desired_level]["title"]+"\" "
|
|
"requires "+required_xp+" experience points and "+
|
|
required_qp+" quest points.");
|
|
|
|
if( xp > required_xp-1 && qp > required_qp-1){
|
|
this_object()->eventForce("say Congratulations! "
|
|
"You are promoted to level "+desired_level+" and "
|
|
"have earned the name "+this_player()->GetName()+" "
|
|
+advancement[desired_level]["title"]+".");
|
|
|
|
this_player()->ChangeLevel(desired_level);
|
|
this_player()->AddTrainingPoints(desired_level);
|
|
this_player()->AddTitle(advancement[desired_level]["title"]);
|
|
this_player()->RemoveTitle(advancement[desired_level-1]["title"]);
|
|
|
|
this_player()->save_player(this_player()->GetKeyName());
|
|
|
|
if(level == MAX_NEWBIE_LEVEL){
|
|
write("\nDirk raises his hand and sternly points to you.\n");
|
|
say("\nDirk raises his hand and sternly points to "+
|
|
this_player()->GetName()+".\n");
|
|
this_object()->eventForce("say "+this_player()->GetName()+","+
|
|
" you are no longer a newbie. From now on, you will need"+
|
|
" a light source to see in the dark. From now on, you will"+
|
|
" not understand languages you haven't learned. You have"+
|
|
" earned this promotion, and now face the future as a"+
|
|
" real adventurer.");
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
else this_object()->eventForce("say I'm sorry, "+
|
|
this_player()->GetName()+", but you have not "
|
|
"fulfilled all the requirements of level "+
|
|
desired_level+". Please come back and try "
|
|
"again once you have fulfilled them.");
|
|
return 0;
|
|
}
|
|
|
|
string GetLevelTitle(int level){
|
|
if(!level) level = 1;
|
|
return advancement[level]["title"];
|
|
}
|
|
|
|
int DiamondReaction(){
|
|
eventForce("say The Princess Daphne diamond! Good heavens!");
|
|
eventForce("say May I please have it?");
|
|
return 1;
|
|
}
|
|
|
|
varargs int eventPrint(string msg, mixed arg2, mixed arg3){
|
|
if(grepp(msg,"fabled Princess Daphne diamond")){
|
|
call_out( (: DiamondReaction :), 0 );
|
|
}
|
|
return ::eventPrint(msg, arg2, arg3);
|
|
}
|
|
|
|
int CompleteQuest(object ob){
|
|
string *quests;
|
|
object gem = present("diamond", this_object());
|
|
quests = ob->GetQuests();
|
|
if(!ob->GetQuest("Princess Diamond Quest")){
|
|
ob->AddQuest("the Gemfinder","Princess Diamond Quest");
|
|
eventForce("say You have solved the Princess Diamond Quest. "
|
|
"Congratulations!");
|
|
eventForce("say I hereby award you 10 quest points!");
|
|
ob->AddQuestPoints(10);
|
|
if(gem) gem->eventMove("/domains/campus/room/bookstore2");
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
int eventReceiveObject() {
|
|
object ob, player;
|
|
ob = previous_object();
|
|
player = this_player();
|
|
|
|
if( !ob || !::eventReceiveObject() ) return 0;
|
|
if(base_name(ob) == "/domains/campus/obj/diamond"){
|
|
call_out("CompleteQuest", 0, player);
|
|
}
|
|
return 1;
|
|
}
|
|
|