/***************************************************************************
* Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, *
* Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. *
* *
* Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael *
* Chastain, Michael Quan, and Mitchell Tse. *
* *
* In order to use any part of this Merc Diku Mud, you must comply with *
* both the original Diku license in 'license.doc' as well the Merc *
* license in 'license.txt'. In particular, you may not remove either of *
* these copyright notices. *
* *
* Much time and thought has gone into this software and you are *
* benefitting. We hope that you share your changes too. What goes *
* around, comes around. *
***************************************************************************/
/***************************************************************************
* ROM 2.4 is copyright 1993-1995 Russ Taylor *
* ROM has been brought to you by the ROM consortium *
* Russ Taylor (rtaylor@pacinfo.com) *
* Gabrielle Taylor (gtaylor@pacinfo.com) *
* Brian Moore (rom@rom.efn.org) *
* By using this code, you have agreed to follow the terms of the *
* ROM license, in the file Rom24/doc/rom.license *
***************************************************************************/
/***************************************************************************
* Automated Quest code written by Vassago of MOONGATE, moongate.ams.com *
* 4000. Copyright (c) 1996 Ryan Addams, All Rights Reserved. Use of this *
* code is allowed provided you add a credit line to the effect of: *
* "Quest Code (c) 1996 Ryan Addams" to your logon screen with the rest *
* of the standard diku/rom credits. If you use this or a modified version *
* of this code, let me know via email: moongate@moongate.ams.com. Further *
* updates will be posted to the rom mailing list. If you'd like to get *
* the latest version of quest.c, please send a request to the above add- *
* ress. Quest Code v2.00. *
***************************************************************************/
/***************************************************************************
* Ported to SMAUG by Vir of Eternal Struggle (es.mudservices.com 4321) *
* Additional changes to make life easier also by Vir. Quest Code *
* originally (C)opyright 1996 Ryan Addams of MOONGATE. Thanx for the *
* code, Ryan!! For more SMAUG code, e-mail "leckey@rogers.wave.ca" *
***************************************************************************/
/***************************************************************************
* Ported to Smaug 1.4 by LrdElder *
***************************************************************************/
/***************************************************************************
* Ported to SWR 1.01 by Gendi (Unknown Regions) *
***************************************************************************/
#include <sys/types.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "mud.h"
/* Object vnums for Quest Rewards */
#define QUEST_ITEM1 701
#define QUEST_ITEM2 702
#define QUEST_ITEM3 703
#define QUEST_ITEM4 704
#define QUEST_ITEM5 705
#define QUEST_ITEM6 706
#define QUEST_VALUE1 50000
#define QUEST_VALUE2 10000
#define QUEST_VALUE3 7500
#define QUEST_VALUE4 5500
#define QUEST_VALUE5 5500
#define QUEST_VALUE6 4000
#define QUEST_VALUE7 1000
#define QUEST_VALUE8 750
#define QUEST_VALUE9 150
/* Object vnums for object quest 'tokens'. In Moongate, the tokens are
things like 'the Shield of Moongate', 'the Sceptre of Moongate'. These
items are worthless and have the rot-death flag, as they are placed
into the world when a player receives an object quest. */
#define QUEST_OBJQUEST1 66
#define QUEST_OBJQUEST2 67
#define QUEST_OBJQUEST3 68
#define QUEST_OBJQUEST4 69
#define QUEST_OBJQUEST5 70
/* Local functions */
void generate_mob_quest args(( CHAR_DATA *ch, CHAR_DATA *questman ));
void generate_object_quest args(( CHAR_DATA *ch, CHAR_DATA *questman ));
void quest_update args(( void ));
bool qchance args(( int num ));
bool qchance( int num )
{
if (number_range(1,100) <= num) return TRUE;
else return FALSE;
}
/* The main quest function */
void do_aquest(CHAR_DATA *ch, char *argument)
{
CHAR_DATA *questman;
OBJ_DATA *obj=NULL, *obj_next;
OBJ_INDEX_DATA *obj1, *obj2, *obj3, *obj4, *obj5, *obj6;
OBJ_INDEX_DATA *questinfoobj;
MOB_INDEX_DATA *questinfo;
char buf [MAX_STRING_LENGTH];
char arg1 [MAX_INPUT_LENGTH];
char arg2 [MAX_INPUT_LENGTH];
argument = one_argument(argument, arg1);
argument = one_argument(argument, arg2);
/*********************************** Testing for info ***************************/
if (!strcmp(arg1, "info"))
{
if (IS_SET(ch->act, PLR_QUESTOR))
{
if (ch->questmob == -1 && ch->questgiver->short_descr != NULL)
{
sprintf(buf, "Your quest is ALMOST complete!\n\rGet back to %s before your time runs out!\n\r",ch->questgiver->short_descr);
send_to_char(buf, ch);
}
else if (ch->questobj > 0)
{
questinfoobj = get_obj_index(ch->questobj);
if (questinfoobj != NULL)
{
sprintf(buf, "You are on a quest to recover the fabled %s!\n\r",questinfoobj->name);
send_to_char(buf, ch);
}
else send_to_char("You aren't currently on a quest.\n\r",ch);
return;
}
else if (ch->questmob > 0)
{
questinfo = get_mob_index(ch->questmob);
if (questinfo != NULL)
{
sprintf(buf, "You are on a quest to take out the dreaded %s!\n\r",questinfo->short_descr);
send_to_char(buf, ch);
}
else
send_to_char("You aren't currently on a quest.\n\r",ch);
return;
}
}
else
send_to_char("You aren't currently on a quest.\n\r",ch);
return;
}
/*********************************** Testing for points ***************************/
else if (!strcmp(arg1, "points"))
{
sprintf(buf, "You have %d quest points.\n\r",ch->pcdata->quest_curr);
send_to_char(buf, ch);
return;
}
/*********************************** Testing for time ***************************/
else if (!strcmp(arg1, "time"))
{
if (!IS_SET(ch->act, PLR_QUESTOR))
{
send_to_char("You aren't currently on a quest.\n\r",ch);
if (ch->nextquest > 1)
{
sprintf(buf, "There are %d minutes remaining until you can go on another quest.\n\r",ch->nextquest);
send_to_char(buf, ch);
}
else if (ch->nextquest == 1)
{
sprintf(buf, "There is less than a minute remaining until you can go on another quest.\n\r");
send_to_char(buf, ch);
}
}
else if (ch->countdown > 0)
{
sprintf(buf, "Time left for current quest: %d\n\r",ch->countdown);
send_to_char(buf, ch);
}
return;
}
/* Checks for a character in the room with spec_questmaster set. This special
procedure must be defined in special.c. You could instead use an
ACT_QUESTMASTER flag instead of a special procedure. */
for ( questman = ch->in_room->first_person; questman != NULL; questman = questman->next_in_room )
{
if (!IS_NPC(questman))
continue;
if (questman->spec_fun == spec_lookup( "spec_questmaster" ))
break;
}
if (questman == NULL || questman->spec_fun != spec_lookup( "spec_questmaster" ))
{
send_to_char("You can't do that here.\n\r",ch);
return;
}
if ( questman->position == POS_FIGHTING)
{
send_to_char("Wait until the fighting stops.\n\r",ch);
return;
}
ch->questgiver = questman;
/* And, of course, you will need to change the following lines for YOUR
quest item information. Quest items on Moongate are unbalanced, very
very nice items, and no one has one yet, because it takes awhile to
build up quest points :> Make the item worth their while. */
obj1 = get_obj_index(QUEST_ITEM1);
obj2 = get_obj_index(QUEST_ITEM2);
obj3 = get_obj_index(QUEST_ITEM3);
obj4 = get_obj_index(QUEST_ITEM4);
obj5 = get_obj_index(QUEST_ITEM5);
obj6 = get_obj_index(QUEST_ITEM6);
if ( obj1 == NULL || obj2 == NULL || obj3 == NULL || obj4 == NULL || obj5 == NULL || obj6 == NULL )
{
bug("Error loading quest objects. Char: ", ch->name);
return;
}
/*********************************** Testing for list ***************************/
if (!strcmp(arg1, "list"))
{
act(AT_PLAIN,"$n asks $N for a list of quest items.",ch,NULL,questman,TO_ROOM);
act(AT_PLAIN,"You ask $N for a list of quest items.",ch,NULL,questman,TO_CHAR);
sprintf(buf, "Current Quest Items available for Purchase:\n\r"
"[1] %dqp.......%s\n\r" "[2] %dqp.......%s\n\r" "[3] %dqp.......%s\n\r"
"[4] %dqp.......%s\n\r" "[5] %dqp.......%s\n\r" "[6] %dqp.......%s\n\r"
"[7] %dqp.......100,000 credits\n\r" "[8] %dqp.......50,000 credits\n\r",
QUEST_VALUE1, obj1->short_descr,
QUEST_VALUE2, obj2->short_descr,
QUEST_VALUE3, obj3->short_descr,
QUEST_VALUE4, obj4->short_descr,
QUEST_VALUE5, obj5->short_descr,
QUEST_VALUE6, obj6->short_descr,
QUEST_VALUE7, QUEST_VALUE8);
send_to_char(buf, ch);
return;
}
/*********************************** Testing for buy ***************************/
else if (!strcmp(arg1, "buy"))
{
if (arg2[0] == '\0')
{
send_to_char("To buy an item, type 'AQUEST BUY <item>'.\n\r",ch);
return;
}
if (is_name(arg2, "1"))
{
if (ch->pcdata->quest_curr >= QUEST_VALUE1)
{
ch->pcdata->quest_curr -= QUEST_VALUE1;
obj = create_object(get_obj_index(QUEST_ITEM1),ch->top_level);
}
else
{
sprintf(buf, "Sorry, %s, but you don't have enough quest points for that.",ch->name);
do_say(questman,buf);
return;
}
}
else if (is_name(arg2, "2"))
{
if (ch->pcdata->quest_curr >= QUEST_VALUE2)
{
ch->pcdata->quest_curr -= QUEST_VALUE2;
obj = create_object(get_obj_index(QUEST_ITEM2),ch->top_level);
}
else
{
sprintf(buf, "Sorry, %s, but you don't have enough quest points for that.",ch->name);
do_say(questman,buf);
return;
}
}
else if (is_name(arg2, "3"))
{
if (ch->pcdata->quest_curr >= QUEST_VALUE3)
{
ch->pcdata->quest_curr -= QUEST_VALUE3;
obj = create_object(get_obj_index(QUEST_ITEM3),ch->top_level);
}
else
{
sprintf(buf, "Sorry, %s, but you don't have enough quest points for that.",ch->name);
do_say(questman,buf);
return;
}
}
else if (is_name(arg2, "4"))
{
if (ch->pcdata->quest_curr >= QUEST_VALUE4)
{
ch->pcdata->quest_curr -= QUEST_VALUE4;
obj = create_object(get_obj_index(QUEST_ITEM4),ch->top_level);
}
else
{
sprintf(buf, "Sorry, %s, but you don't have enough quest points for that.",ch->name);
do_say(questman,buf);
return;
}
}
else if (is_name(arg2, "5"))
{
if (ch->pcdata->quest_curr >= QUEST_VALUE5)
{
ch->pcdata->quest_curr -= QUEST_VALUE5;
obj = create_object(get_obj_index(QUEST_ITEM5),ch->top_level);
}
else
{
sprintf(buf, "Sorry, %s, but you don't have enough quest points for that.",ch->name);
do_say(questman,buf);
return;
}
}
else if (is_name(arg2, "6"))
{
if (ch->pcdata->quest_curr >= QUEST_VALUE6)
{
ch->pcdata->quest_curr -= QUEST_VALUE6;
obj = create_object(get_obj_index(QUEST_ITEM6),ch->top_level);
}
else
{
sprintf(buf, "Sorry, %s, but you don't have enough quest points for that.",ch->name);
do_say(questman,buf);
return;
}
}
else if (is_name(arg2, "7"))
{
if (ch->pcdata->quest_curr >= QUEST_VALUE7)
{
ch->pcdata->quest_curr -= QUEST_VALUE7;
ch->gold += 100000;
act(AT_MAGIC,"$N gives 100,000 credits to $n.", ch, NULL, questman, TO_ROOM );
act(AT_MAGIC,"$N hands you a cred stick.", ch, NULL, questman, TO_CHAR );
return;
}
else
{
sprintf(buf, "Sorry, %s, but you don't have enough quest points for that.",ch->name);
do_say(questman,buf);
return;
}
}
else if (is_name(arg2, "8"))
{
if (ch->pcdata->quest_curr >= QUEST_VALUE8)
{
ch->pcdata->quest_curr -= QUEST_VALUE8;
ch->gold += 50000;
act(AT_MAGIC,"$N gives 50,000 credits to $n.", ch, NULL, questman, TO_ROOM );
act(AT_MAGIC,"$N hands you a cred stick.", ch, NULL, questman, TO_CHAR );
return;
}
else
{
sprintf(buf, "Sorry, %s, but you don't have enough quest points for that.",ch->name);
do_say(questman,buf);
return;
}
}
else if (is_name(arg2, "9"))
{
if (ch->pcdata->quest_curr >= QUEST_VALUE9)
{
sprintf(buf, "Sorry, %s, but you cant get that item here.", ch->name);
do_say(questman,buf);
return;
}
else
{
sprintf(buf, "Sorry, %s, but you don't have enough quest points for that.",ch->name);
do_say(questman,buf);
return;
}
}
else
{
sprintf(buf, "I don't have that item, %s.",ch->name);
do_say(questman, buf);
}
if (obj != NULL)
{
act(AT_PLAIN,"$N gives something to $n.", ch, obj, questman, TO_ROOM );
act(AT_PLAIN,"$N gives you your reward.", ch, obj, questman, TO_CHAR );
obj_to_char(obj, ch);
}
return;
}
/*********************************** Testing for request ***************************/
else if (!strcmp(arg1, "request"))
{
if (arg2[0] == '\0')
{
send_to_char("To select an object quest, type 'QUEST REQUEST ITEM'.\n\r",ch);
send_to_char("or, to select a mob quest, type 'QUEST REQUEST MOB'.\n\r",ch);
return;
}
act(AT_PLAIN,"$n asks $N for a quest.", ch, NULL, questman, TO_ROOM);
act(AT_PLAIN,"You ask $N for a quest.",ch, NULL, questman, TO_CHAR);
if (IS_SET(ch->act, PLR_QUESTOR))
{
sprintf(buf, "But you're already on a quest!\n\rBetter hurry up and finish it!");
do_say(questman, buf);
return;
}
if (ch->nextquest > 0)
{
sprintf(buf, "You're very brave, %s, but let someone else have a chance.",ch->name);
do_say(questman, buf);
sprintf(buf, "Please come back in about %d minutes.", ch->nextquest);
do_say(questman, buf);
return;
}
if (!strcmp(arg2, "mob"))
{
generate_mob_quest(ch, questman);
sprintf(buf, "Thank you, brave %s!",ch->name);
do_say(questman, buf);
}
else if (!strcmp(arg2, "item"))
{
generate_object_quest(ch, questman);
sprintf(buf, "Thank you, brave %s!",ch->name);
do_say(questman, buf);
}
else
{
send_to_char("To select an object quest, type 'AQUEST REQUEST ITEM'.\n\r",ch);
send_to_char("or, to select a mob quest, type 'AQUEST REQUEST MOB'.\n\r",ch);
return;
}
if (ch->questmob > 0 || ch->questobj > 0)
{
ch->countdown = number_range(15,30);
SET_BIT(ch->act, PLR_QUESTOR);
sprintf(buf, "You have %d minutes to complete this quest.",ch->countdown);
do_say(questman, buf);
sprintf(buf, "May the force be with you!");
do_say(questman, buf);
}
return;
}
/*********************************** Testing for complete ***************************/
else if (!strcmp(arg1, "complete"))
{
act(AT_PLAIN,"$n informs $N $e has completed $s quest.", ch, NULL, questman,
TO_ROOM);
act(AT_PLAIN,"You inform $N you have completed $s quest.",ch, NULL,
questman, TO_CHAR);
if (ch->questgiver != questman)
{
sprintf(buf, "I never sent you on a quest! Perhaps you're thinking of someone else.");
do_say(questman,buf);
return;
}
if (IS_SET(ch->act, PLR_QUESTOR))
{
if (ch->questmob == -1 && ch->countdown > 0)
{
int reward, pointreward, expreward;
reward = number_range(1000,1500);
pointreward = number_range(15,75);
sprintf(buf, "Congratulations on bringing the fugitive to justice.");
do_say(questman,buf);
sprintf(buf,"As a reward, I am giving you %d quest points, and %d credits.",pointreward,reward);
do_say(questman,buf);
expreward = ( ch->skill_level[HUNTING_ABILITY] * 1000 );
sprintf(buf, "You gain %d hunting experience!\n\r",expreward);
send_to_char(buf, ch);
gain_exp(ch, expreward , HUNTING_ABILITY );
REMOVE_BIT(ch->act, PLR_QUESTOR);
ch->questgiver = NULL;
ch->countdown = 0;
ch->questmob = 0;
ch->questobj = 0;
ch->nextquest = 15;
ch->gold += reward;
ch->pcdata->quest_curr += pointreward;
return;
}
else if (ch->questobj > 0 && ch->countdown > 0)
{
bool obj_found = FALSE;
for (obj = ch->first_carrying; obj != NULL; obj=obj_next)
{
obj_next = obj->next_content;
if (obj != NULL && obj->pIndexData->vnum == ch->questobj)
{
obj_found = TRUE;
break;
}
}
if (obj_found == TRUE)
{
int reward, pointreward, dipexpreward;
reward = number_range(5000,10000);
pointreward = number_range(10,50);
act(AT_PLAIN,"You hand $p to $N.",ch, obj, questman, TO_CHAR);
act(AT_PLAIN,"$n hands $p to $N.",ch, obj, questman, TO_ROOM);
sprintf(buf, "Congratulations on completing your quest!");
do_say(questman,buf);
sprintf(buf,"As a reward, I am giving you %d quest points, and %d credits.",pointreward,reward);
do_say(questman,buf);
if (qchance(5))
{
dipexpreward = ( ch->skill_level[DIPLOMACY_ABILITY] * 1000 );
sprintf(buf, "You gain %d diplomactic experience!\n\r",dipexpreward);
send_to_char(buf, ch);
gain_exp(ch, dipexpreward , DIPLOMACY_ABILITY );
}
REMOVE_BIT(ch->act, PLR_QUESTOR);
ch->questgiver = NULL;
ch->countdown = 0;
ch->questmob = 0;
ch->questobj = 0;
ch->nextquest = 15;
ch->gold += reward;
ch->pcdata->quest_curr += pointreward;
extract_obj(obj);
return;
}
else
{
sprintf(buf, "You haven't completed the quest yet, but there is still time!");
do_say(questman, buf);
return;
}
return;
}
else if ((ch->questmob > 0 || ch->questobj > 0) && ch->countdown > 0)
{
sprintf(buf, "You haven't completed the quest yet, but there is still time!");
do_say(questman, buf);
return;
}
}
if (ch->nextquest > 0)
sprintf(buf,"But you didn't complete your quest in time!");
else
sprintf(buf, "You have to REQUEST a quest first, %s.",ch->name);
do_say(questman, buf);
return;
}
/*********************************** Testing for fail ***************************/
else if (!strcmp(arg1, "fail"))
{
act(AT_PLAIN,"$n informs $N $e can no longer continue on $s quest.", ch, NULL, questman,
TO_ROOM);
act(AT_PLAIN,"You inform $N you can no longer continue on $s quest.",ch, NULL,
questman, TO_CHAR);
if (ch->questgiver != questman)
{
sprintf(buf, "I never sent you on a quest! Perhaps you're thinking of someone else.");
do_say(questman,buf);
return;
}
if (IS_SET(ch->act, PLR_QUESTOR))
{
if (ch->questmob != 0)
{
sprintf(buf, "I am very dissapointed that you could not bring the fugitive to justice.");
do_say(questman,buf);
REMOVE_BIT(ch->act, PLR_QUESTOR);
ch->questgiver = NULL;
ch->countdown = 0;
ch->questmob = 0;
ch->questobj = 0;
ch->nextquest = 30;
return;
}
else if (ch->questobj != 0)
{
bool obj_found = FALSE;
for (obj = ch->first_carrying; obj != NULL; obj=obj_next)
{
obj_next = obj->next_content;
if (obj != NULL && obj->pIndexData->vnum == ch->questobj)
{
obj_found = TRUE;
break;
}
}
if (obj_found == FALSE)
{
sprintf(buf, "I am very dissapointed that our treasure could not be recoverd!");
do_say(questman,buf);
REMOVE_BIT(ch->act, PLR_QUESTOR);
ch->questgiver = NULL;
ch->countdown = 0;
ch->questmob = 0;
ch->questobj = 0;
ch->nextquest = 30;
extract_obj(obj);
return;
}
else
{
sprintf(buf, "But you have recovered the object, why would you want to quit?!");
do_say(questman, buf);
return;
}
}
else
sprintf(buf,"I can't remember your quest, perhaps you should try another.");
do_say(questman, buf);
REMOVE_BIT(ch->act, PLR_QUESTOR);
ch->questgiver = NULL;
ch->countdown = 0;
ch->questmob = 0;
ch->questobj = 0;
ch->nextquest = 15;
return;
}
sprintf(buf,"Perhaps you should obtain a quest before you try to fail it.");
do_say(questman, buf);
return;
}
send_to_char("+----------------------------------------------------------------------------+\n\r",ch);
send_to_char("| QUEST commands: |\n\r",ch);
send_to_char("+----------+-----------------------------------------------------------------+\n\r",ch);
send_to_char("| POINTS | This will request a quest from the questmaster. |\n\r",ch);
send_to_char("| INFO | Will give you info on your current Quest. |\n\r",ch);
send_to_char("| TIME | Will tell you how long you have to complete your quest. |\n\r",ch);
send_to_char("| REQUEST | Will tell you how many quest points you have. |\n\r",ch);
send_to_char("| COMPLETE | This will signal the questmaster that you are done your quest. |\n\r",ch);
send_to_char("| LIST | This lists the Items available to buy with your quest points. |\n\r",ch);
send_to_char("| BUY | This buys a item from the List. |\n\r",ch);
send_to_char("| FAIL | This will cancel the current quest. ie, failing it. |\n\r",ch);
send_to_char("+----------+-----------------------------------------------------------------+\n\r",ch);
send_to_char("| For more information, type 'HELP QUEST'. |\n\r",ch);
send_to_char("+----------------------------------------------------------------------------+\n\r",ch);
return;
}
void generate_mob_quest(CHAR_DATA *ch, CHAR_DATA *questman)
{
CHAR_DATA *victim;
MOB_INDEX_DATA *vsearch;
ROOM_INDEX_DATA *room;
char buf[MAX_STRING_LENGTH];
long mcounter;
int level_diff, mob_vnum;
/* Randomly selects a mob from the world mob list. If you don't
want a mob to be selected, make sure it is immune to summon.
Or, you could add a new mob flag called ACT_NOQUEST. The mob
is selected for both mob and obj quests, even tho in the obj
quest the mob is not used. This is done to assure the level
of difficulty for the area isn't too great for the player. */
for (mcounter = 0; mcounter < 99999; mcounter ++)
{
mob_vnum = number_range(50, 32600);
if ( (vsearch = get_mob_index(mob_vnum) ) != NULL )
{
level_diff = vsearch->level - ch->top_level;
/* Level differences to search for. Moongate has 350
levels, so you will want to tweak these greater or
less than statements for yourself. - Vassago */
if ( (level_diff < 10 && level_diff > -5)
/*&& IS_EVIL(vsearch)*/
&& vsearch->pShop == NULL
&& vsearch->rShop == NULL
&& !IS_SET(vsearch->act,ACT_NOQUEST)
&& !IS_SET(vsearch->act,ACT_TRAIN)
&& !IS_SET(vsearch->act,ACT_PRACTICE)
&& !IS_SET(vsearch->act,ACT_IMMORTAL)
&& !IS_SET(vsearch->act,ACT_PROTOTYPE)
&& !( ( victim = get_char_world( ch, vsearch->player_name ) ) == NULL )
&& IS_NPC(victim)
&& !( xIS_SET(victim->in_room->room_flags, ROOM_SAFE ) )
&& !IS_SET(victim->in_room->area->flags, AFLAG_NOQUEST)
) break;
else vsearch = NULL;
}
}
if ( vsearch == NULL )
{
sprintf(buf, "I'm sorry, but I don't have any quests for you at this time.");
do_say(questman, buf);
sprintf(buf, "Try again later.");
do_say(questman, buf);
ch->nextquest = 5;
return;
}
if (( (room = find_location(ch, victim->name))==NULL) || IS_SET(room->area->flags, AFLAG_NOQUEST) )
{
sprintf(buf, "I'm sorry, but I don't have any quests for you at this time.");
do_say(questman, buf);
sprintf(buf, "Try again later.");
do_say(questman, buf);
ch->nextquest = 5;
return;
}
switch(number_range(0,1))
{
case 0:
sprintf(buf, "An enemy of mine, %s, is making vile threats against this system.",victim->short_descr);
do_say(questman, buf);
sprintf(buf, "This threat must be eliminated!");
do_say(questman, buf);
break;
case 1:
sprintf(buf, "The Galaxy's most heinous criminal, %s, has escaped from the maximum security prison!",victim->short_descr);
do_say(questman, buf);
sprintf(buf, "Since the escape, %s has murdered %d civillians!",victim->short_descr, number_range(2,200));
do_say(questman, buf);
do_say(questman,"The penalty for this crime is death, and you are to deliver the sentence!");
break;
}
if (room->name != NULL)
{
sprintf(buf, "Seek %s out somewhere in the vicinity of %s!",victim->short_descr,room->name);
do_say(questman, buf);
/* I changed my area names so that they have just the name of the area
and none of the level stuff. You may want to comment these next two
lines. - Vassago */
sprintf(buf, "That location is in the general area of %s.",room->area->name);
do_say(questman, buf);
}
ch->questmob = victim->pIndexData->vnum;
return;
}
void generate_object_quest(CHAR_DATA *ch, CHAR_DATA *questman)
{
ROOM_INDEX_DATA *room;
OBJ_DATA *questitem;
OBJ_INDEX_DATA *pObjIndex;
CHAR_DATA *victim;
MOB_INDEX_DATA *vsearch;
long mcounter;
int level_diff, mob_vnum;
char buf[MAX_STRING_LENGTH];
int objvnum = 0;
/* This next bit might look strange for the object quest, but it is used as a simple way
to pick a room in the world that contains a mob, and hence is probably accessable by
players */
for (mcounter = 0; mcounter < 99999; mcounter ++)
{
mob_vnum = number_range(50, 32600);
if ( (vsearch = get_mob_index(mob_vnum) ) != NULL )
{
level_diff = vsearch->level - ch->top_level;
if ( (level_diff < 10 && level_diff > -5)
&& !( ( victim = get_char_world( ch, vsearch->player_name ) ) == NULL )
&& IS_NPC(victim) && !IS_SET(vsearch->act,ACT_PROTOTYPE)
&& !IS_SET(victim->in_room->area->flags, AFLAG_NOQUEST) )
break;
else
vsearch = NULL;
}
}
if ( vsearch == NULL )
{
sprintf(buf, "I'm sorry, but I don't have any quests for you at this time.");
do_say(questman, buf);
sprintf(buf, "Try again later.");
do_say(questman, buf);
ch->nextquest = 5;
return;
}
if ( ( room = find_location( ch, victim->name ) ) == NULL )
{
sprintf(buf, "I'm sorry, but I don't have any quests for you at this time.");
do_say(questman, buf);
sprintf(buf, "Try again later.");
do_say(questman, buf);
ch->nextquest = 5;
return;
}
/* End of strange room selection process, maybe I'll bother to write a better one sometime */
switch(number_range(0,4))
{
case 0:
objvnum = QUEST_OBJQUEST1;
break;
case 1:
objvnum = QUEST_OBJQUEST2;
break;
case 2:
objvnum = QUEST_OBJQUEST3;
break;
case 3:
objvnum = QUEST_OBJQUEST4;
break;
case 4:
objvnum = QUEST_OBJQUEST5;
break;
}
if ( ( pObjIndex = get_obj_index( objvnum ) ) == NULL )
{
bug( "(generate_object_quest) The item missing from the database.", 0 );
return;
}
questitem = create_object( get_obj_index(objvnum), ch->top_level );
obj_to_room(questitem, room);
ch->questobj = questitem->pIndexData->vnum;
sprintf(buf, "Vile pilferers have stolen %s from the treasury!",questitem->short_descr);
do_say(questman, buf);
do_say(questman, "The Jedi Council, with their powers, have pinpointed its location.");
/* I changed my area names so that they have just the name of the area
and none of the level stuff. You may want to comment these next two
lines. - Vassago */
sprintf(buf, "Look in the general area of %s for %s!",room->area->name, room->name);
do_say(questman, buf);
return;
}
/* Called from update_handler() by pulse_area */
void quest_update(void)
{
CHAR_DATA *ch, *ch_next;
for ( ch = first_char; ch != NULL; ch = ch_next )
{
ch_next = ch->next;
if (IS_NPC(ch)) continue;
if (ch->nextquest > 0)
{
ch->nextquest--;
if (ch->nextquest == 0)
{
send_to_char("You may now quest again.\n\r",ch);
return;
}
}
else if (IS_SET(ch->act,PLR_QUESTOR))
{
if (--ch->countdown <= 0)
{
char buf [MAX_STRING_LENGTH];
ch->nextquest = 30;
sprintf(buf, "You have run out of time for your quest!\n\rYou may quest again in %d minutes.\n\r",ch->nextquest);
send_to_char(buf, ch);
REMOVE_BIT(ch->act, PLR_QUESTOR);
ch->questgiver = NULL;
ch->countdown = 0;
ch->questmob = 0;
}
if (ch->countdown > 0 && ch->countdown < 6)
{
send_to_char("Better hurry, you're almost out of time for your quest!\n\r",ch);
return;
}
}
}
return;
}