/************************************************************************** * Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, * * Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. * * * * Merc Diku Mud improvements 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 * * benefiting. We hope that you share your changes too. What goes * * around, comes around. * *************************************************************************** * ROM 2.4 is copyright 1993-1998 Russ Taylor * * ROM has been brought to you by the ROM consortium * * Russ Taylor (rtaylor@hypercube.org) * * Gabrielle Taylor (gtaylor@hypercube.org) * * Brian Moore (zump@rom.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 * * address. Quest Code v2.03. Please do not remove this notice from this * * file. * *************************************************************************** * 1stMud ROM Derivative (c) 2001-2004 by Markanth * * http://www.firstmud.com/ <markanth@firstmud.com> * * By using this code you have agreed to follow the term of * * the 1stMud license in ../doc/1stMud/LICENSE * ***************************************************************************/ #include "merc.h" #include "magic.h" #include "interp.h" #include "recycle.h" #include "vnums.h" #include "special.h" Proto (bool quest_complete, (CharData *, CharData *)); struct quest_type { char *name; char *descr; int vnum; int cost; }; const struct quest_type quest_table[] = { {"nohunger", "No Hunger/Thirst (quest buy nohunger)", 0, 3000}, {"aura", NULL, OBJ_VNUM_QUEST_AURA, 2600}, {"sword", NULL, OBJ_VNUM_QUEST_SWORD, 2500}, {"breastplate", NULL, OBJ_VNUM_QUEST_BPLATE, 2500}, {"boots", NULL, OBJ_VNUM_QUEST_BOOTS, 2500}, {"gloves", NULL, OBJ_VNUM_QUEST_GLOVES, 2500}, {"flame", NULL, OBJ_VNUM_QUEST_FLAME, 2500}, {"helm", NULL, OBJ_VNUM_QUEST_HELM, 2300}, {"bag", NULL, OBJ_VNUM_QUEST_BAG, 1000}, {"shield", NULL, OBJ_VNUM_QUEST_SHIELD, 750}, {"regeneration", NULL, OBJ_VNUM_QUEST_REGEN, 700}, {"invisibility", NULL, OBJ_VNUM_QUEST_INVIS, 500}, {"trivia", NULL, OBJ_VNUM_QUEST_TRIVIA, 100}, {NULL, NULL, 0, 0} }; bool chance (int num) { return number_range (1, 100) <= num; } int add_qp (CharData * ch, int qp) { if (!ch || IsNPC (ch)) return qp; if (mud_info.bonus.status == BONUS_QP) { qp *= mud_info.bonus.mod; } ch->pcdata->quest.points += qp; return qp; } int qobj_lookup (ObjData * obj) { int i; if (!obj || !obj->pIndexData) return -1; for (i = 0; quest_table[i].name != NULL; i++) { if (obj->pIndexData->vnum == quest_table[i].vnum) return i; } return -1; } Lookup_Fun (quest_lookup) { int i; if (NullStr (name)) return -1; for (i = 0; quest_table[i].name != NULL; i++) { if (is_name (name, quest_table[i].name)) return i; } return -1; } money_t obj_cost (ObjData * obj) { int i; if (!obj || !obj->pIndexData) return 0; for (i = 0; quest_table[i].name != NULL; i++) { if (obj->pIndexData->vnum == quest_table[i].vnum) return quest_table[i].cost; } return obj->cost; } void affect_join_obj (ObjData * obj, AffectData * paf) { AffectData *paf_old; bool found; found = false; for (paf_old = obj->affect_first; paf_old != NULL; paf_old = paf_old->next) { if (paf_old->location == paf->location && paf_old->type == paf->type && paf_old->bitvector == paf->bitvector && paf_old->where == paf->where) { paf_old->level = paf->level; paf_old->modifier = paf->modifier; found = true; } } if (!found) affect_to_obj (obj, paf); return; } void add_apply (ObjData * obj, apply_t loc, int mod, where_t where, int type, int dur, flag_t bit, int level) { AffectData pAf; if (obj == NULL) return; pAf.location = loc; pAf.modifier = mod; pAf.where = where; pAf.type = type; pAf.duration = dur; pAf.bitvector = bit; pAf.level = level; affect_join_obj (obj, &pAf); return; } void update_questobj (CharData * ch, ObjData * obj) { int bonus, pbonus; money_t cost; if (obj == NULL) { bug ("update_questobj: NULL obj"); return; } if (ch == NULL) { bug ("update_questobj: NULL ch"); return; } if (!IsObjStat (obj, ITEM_QUEST)) return; bonus = Max (5, ch->level / 10); pbonus = Max (5, ch->level / 5); cost = obj_cost (obj); if (obj->level != ch->level) obj->level = ch->level; if (obj->condition != -1) obj->condition = -1; if (obj->cost != cost) obj->cost = cost; if (!CanWear (obj, ITEM_NO_SAC)) SetBit (obj->wear_flags, ITEM_NO_SAC); if (!IsObjStat (obj, ITEM_BURN_PROOF)) SetBit (obj->extra_flags, ITEM_BURN_PROOF); switch (obj->pIndexData->vnum) { case OBJ_VNUM_QUEST_BPLATE: add_apply (obj, APPLY_DAMROLL, pbonus, TO_OBJECT, 0, -1, 0, ch->level); add_apply (obj, APPLY_HITROLL, pbonus, TO_OBJECT, 0, -1, 0, ch->level); break; case OBJ_VNUM_QUEST_SHIELD: add_apply (obj, APPLY_DAMROLL, pbonus, TO_OBJECT, 0, -1, 0, ch->level); add_apply (obj, APPLY_HITROLL, pbonus, TO_OBJECT, 0, -1, 0, ch->level); break; case OBJ_VNUM_QUEST_AURA: add_apply (obj, APPLY_HIT, Max (50, ch->level), TO_OBJECT, 0, -1, 0, ch->level); add_apply (obj, APPLY_MANA, Max (50, ch->level), TO_OBJECT, 0, -1, 0, ch->level); add_apply (obj, APPLY_MOVE, Max (50, ch->level), TO_OBJECT, 0, -1, 0, ch->level); break; } switch (obj->item_type) { case ITEM_CONTAINER: obj->weight = -1 * (50 + (ch->level * 15 / 10)); obj->value[0] = 1000 + (20 * ch->level); obj->value[3] = 1000 + (20 * ch->level); break; case ITEM_WEAPON: obj->value[1] = Max (15, ch->level); obj->value[2] = ch->level < (MAX_LEVEL / (25 / 10)) ? 4 : 5; add_apply (obj, APPLY_DAMROLL, bonus, TO_OBJECT, 0, -1, 0, ch->level); add_apply (obj, APPLY_HITROLL, bonus, TO_OBJECT, 0, -1, 0, ch->level); break; case ITEM_ARMOR: obj->value[0] = Max (20, ch->level); obj->value[1] = Max (20, ch->level); obj->value[2] = Max (20, ch->level); obj->value[3] = (5 * Max (20, ch->level)) / 6; break; case ITEM_STAFF: obj->value[0] = Max (40, ch->level / 3); break; case ITEM_LIGHT: obj->value[2] = -1; break; case ITEM_PORTAL: if (!IsSet (obj->value[2], GATE_NOCURSE)) SetBit (obj->value[2], GATE_NOCURSE); if (!IsSet (obj->value[2], GATE_GOWITH)) SetBit (obj->value[2], GATE_GOWITH); break; default: break; } return; } void update_all_qobjs (CharData * ch) { ObjData *obj; wloc_t iWear; for (obj = ch->carrying_first; obj != NULL; obj = obj->next_content) { if (IsObjStat (obj, ITEM_QUEST)) { update_questobj (ch, obj); if ((iWear = obj->wear_loc) != WEAR_NONE) { unequip_char (ch, obj); equip_char (ch, obj, iWear); } } } } void unfinished_quest (CharData * ch) { if (!ch->pcdata) return; if (ch->pcdata->quest.status == QUEST_NONE || !ch->pcdata->quest.giver || !ch->pcdata->quest.room) { end_quest (ch, ch->pcdata->quest.time); return; } if (ch->pcdata->quest.mob) { ch->pcdata->quest.room = ch->pcdata->quest.mob->in_room; } if (ch->pcdata->quest.obj) { if (ch->pcdata->quest.status == QUEST_DELIVER) obj_to_char (ch->pcdata->quest.obj, ch); else obj_to_room (ch->pcdata->quest.obj, ch->pcdata->quest.room); } do_function (ch, &do_quest, "info"); } char *const qmob_desc[] = { "fiend", "criminal", "monster", "traitor", "outcast" }; char *const qobj_desc[] = { "treasure", "artifact", "item", "keepsake" }; int maxqmobdesc = sizeof (qmob_desc) / sizeof (qmob_desc[0]) - 1; int maxqobjdesc = sizeof (qobj_desc) / sizeof (qobj_desc[0]) - 1; Do_Fun (do_quest) { CharData *questman; ObjData *obj = NULL; char buf[MAX_STRING_LENGTH]; char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; int i = 0; if (IsNPC (ch)) { chprintln (ch, "I'm sorry, you can't quest."); return; } argument = one_argument (argument, arg1); argument = one_argument (argument, arg2); if (NullStr (arg1)) { cmd_syntax (ch, NULL, n_fun, "info", "request", "complate", "list", "buy", "quit", "sell", "identify", NULL); if (IsImmortal (ch)) cmd_syntax (ch, NULL, n_fun, "reset <player>", NULL); chprintln (ch, "For more information, see 'HELP QUEST'."); return; } else if (!str_prefix (arg1, "info")) { chprintln (ch, NULL); switch (ch->pcdata->quest.status) { default: chprintln (ch, "{RYour quest is {5ALMOST{x{R complete!{x"); act ("{RYou have $t to get back to %s{Rbefore your time runs out!{x", ch, intstr (ch->pcdata->quest.time, "minute"), ch->pcdata->quest.giver, TO_CHAR); return; case QUEST_NONE: chprintln (ch, "You aren't currently on a quest."); chprintlnf (ch, "There are %s remaining until you can go on another quest.", intstr (ch->pcdata->quest.time, "minute")); chprintlnf (ch, "You have %s.", intstr (ch->pcdata->quest.points, "quest point")); return; case QUEST_RETRIEVE: if (ch->pcdata->quest.obj != NULL) { act ("You are on a quest to recover the fabled $p!", ch, ch->pcdata->quest.obj, NULL, TO_CHAR); chprintlnf (ch, "Rumor has it this %s was last seen in the area known as %s, near %s.", qobj_desc[number_range (0, maxqobjdesc)], ch->pcdata->quest.room->area->name, ch->pcdata->quest.room->name); return; } break; case QUEST_DELIVER: if (ch->pcdata->quest.obj != NULL && ch->pcdata->quest.mob != NULL) { act ("You are on a quest to deliver $p to $N.", ch, ch->pcdata->quest.obj, ch->pcdata->quest.mob, TO_CHAR); chprintlnf (ch, "Rumor has it %s was last seen in the area known area %s, near %s.", GetName (ch->pcdata->quest.mob), ch->pcdata->quest.room->area->name, ch->pcdata->quest.room->name); return; } break; case QUEST_KILL: if (ch->pcdata->quest.mob != NULL) { act ("You are on a quest to slay $N!", ch, NULL, ch->pcdata->quest.mob, TO_CHAR); chprintlnf (ch, "Rumor has it this %s was last seen in the area known as %s, near %s.", qmob_desc[number_range (0, maxqmobdesc)], ch->pcdata->quest.room->area->name, ch->pcdata->quest.room->name); return; } break; case QUEST_FINDROOM: if (ch->pcdata->quest.room != NULL) { chprintlnf (ch, "You are on a quest to find %s in %s!", ch->pcdata->quest.room->name, ch->pcdata->quest.room->area->name); return; } break; case QUEST_FINDMOB: if (ch->pcdata->quest.room != NULL && ch->pcdata->quest.mob != NULL) { chprintlnf (ch, "You are on a quest to find %s near %s in %s!", GetName (ch->pcdata->quest.mob), ch->pcdata->quest.room->name, ch->pcdata->quest.room->area->name); return; } break; } return; } else if (!str_prefix (arg1, "reset") && IsImmortal (ch)) { CharData *victim; if (NullStr (arg2)) { chprintln (ch, "Reset which player?"); return; } if ((victim = get_char_world (ch, arg2)) == NULL) { chprintln (ch, "They aren't here."); return; } if (IsNPC (victim)) { chprintln (ch, "Mobs dont quest."); return; } end_quest (victim, 0); if (victim == ch) chprintln (ch, "You clear your quest."); else act ("$n has cleared your quest.", ch, NULL, victim, TO_VICT); return; } for (questman = ch->in_room->person_first; questman != NULL; questman = questman->next_in_room) { if (!IsNPC (questman)) continue; if (questman->spec_fun == spec_questmaster) break; } if (questman == NULL) { chprintln (ch, "You can't do that here."); return; } if (questman->fighting != NULL) { chprintln (ch, "Wait until the fighting stops."); return; } if (!str_prefix (arg1, "list")) { ObjIndex *test; act ("$n asks $N for a list of quest items.", ch, NULL, questman, TO_ROOM); chprintln (ch, "\tCurrent Quest Items available for Purchase:"); for (i = 0; quest_table[i].name != NULL; i++) { test = get_obj_index (quest_table[i].vnum); chprintlnf (ch, "\t%-4dqp ........ %s", quest_table[i].cost, test ? test->short_descr : quest_table[i].descr != NULL ? quest_table[i].descr : "Unavailable"); } chprintlnf (ch, "\tTo buy an item, type '%s buy <item>'.", n_fun); return; } else if (!str_prefix (arg1, "buy")) { if (NullStr (arg2)) { chprintlnf (ch, "To buy an item, type '%s buy <item>'.", n_fun); return; } if ((i = quest_lookup (arg2)) == -1) { mob_tell (ch, questman, "I don't have that item, %s.", ch->name); return; } if (ch->pcdata->quest.points < quest_table[i].cost) { mob_tell (ch, questman, "You need %s for that.", intstr (quest_table[i].cost, "questpoint")); return; } if (quest_table[i].vnum == 0) { ch->pcdata->quest.points -= quest_table[i].cost; ch->pcdata->condition[COND_FULL] = -1; ch->pcdata->condition[COND_HUNGER] = -1; ch->pcdata->condition[COND_THIRST] = -1; act ("$N calls upon the power of the gods to relieve your mortal burdens.", ch, NULL, questman, TO_CHAR); act ("$N calls upon the power of the gods to relieve $n's mortal burdens.", ch, NULL, questman, TO_ROOM); return; } else if ((obj = create_object (get_obj_index (quest_table[i].vnum), ch->level)) == NULL) { chprintln (ch, "That object could not be found, contact an immortal."); return; } ch->pcdata->quest.points -= quest_table[i].cost; act ("$N gives $p to $n.", ch, obj, questman, TO_ROOM); act ("$N gives you $p.", ch, obj, questman, TO_CHAR); obj_to_char (obj, ch); save_char_obj (ch); return; } else if (!str_prefix (arg1, "sell")) { if (NullStr (arg2)) { chprintlnf (ch, "To sell an item, type '%s sell <item>'.", n_fun); return; } if ((obj = get_obj_carry (ch, arg2, ch)) == NULL) { chprintln (ch, "Which item is that?"); return; } if (!IsObjStat (obj, ITEM_QUEST)) { mob_tell (ch, questman, "That is not a quest item."); return; } if ((i = qobj_lookup (obj)) == -1) { mob_tell (ch, questman, "I only take items I sell, %s.", ch->name); return; } ch->pcdata->quest.points += quest_table[i].cost / 3; act ("$N takes $p from $n.", ch, obj, questman, TO_ROOM); sprintf (buf, "$N takes $p from you for %s.", intstr (quest_table[i].cost / 3, "questpoint")); act (buf, ch, obj, questman, TO_CHAR); extract_obj (obj); save_char_obj (ch); return; } else if (!str_prefix (arg1, "identify")) { if (NullStr (arg2)) { chprintlnf (ch, "To identify an item, type '%s identify <item>'.", n_fun); return; } if ((i = quest_lookup (arg2)) == -1) { mob_tell (ch, questman, "I don't have that item."); return; } if (quest_table[i].vnum == 0) { chprintln (ch, "That isn't a quest item."); return; } if ((obj = create_object (get_obj_index (quest_table[i].vnum), ch->level)) == NULL) { chprintln (ch, "That object could not be found, contact an immortal."); return; } obj_to_char (obj, ch); act ("$p costs $T.", ch, obj, intstr (quest_table[i].cost, "questpoint"), TO_CHAR); spell_identify (0, ch->level, ch, obj, TAR_OBJ_INV); extract_obj (obj); return; } else if (!str_prefix (arg1, "request")) { quest_t type = QUEST_NONE; if (IsImmortal (ch)) { if (NullStr (arg2)) { chprintlnf (ch, "{W%s{x" NEWLINE " {GAvailable Quests" NEWLINE "{W%s{x" NEWLINE " {Y1{D. {GFind a room in the realm" NEWLINE " {Y2{D. {GFind a person" NEWLINE " {Y3{D. {GRetrieve stolen property" NEWLINE " {Y4{D. {GDeliver priceless artifact" NEWLINE " {Y5{D. {GHunt down heinous criminal" NEWLINE " {Y6{D. {GRandom quest 1-5" NEWLINE "{W%s{x" NEWLINE "{xTo get a quest, type {WQUEST REQUEST {D<{Ynumber{D>" NEWLINE "{W%s{x", draw_line (ch, NULL, 58), draw_line (ch, NULL, 58), draw_line (ch, NULL, 58), draw_line (ch, NULL, 58)); return; } if (!is_number (arg2)) { chprintln (ch, "{xTo get a quest, type {WQUEST REQUEST {D<{Ynumber{D>"); return; } switch (atoi (arg2)) { case 1: type = QUEST_FINDROOM; break; case 2: type = QUEST_FINDMOB; break; case 3: type = QUEST_RETRIEVE; break; case 4: type = QUEST_DELIVER; break; case 5: type = QUEST_KILL; break; case 6: break; default: chprintln (ch, "Invalid quest request."); return; } } act ("$n asks $N for a quest.", ch, NULL, questman, TO_ROOM); act ("You ask $N for a quest.", ch, NULL, questman, TO_CHAR); if (IsQuester (ch)) { act ("$N rejects $n's request.", ch, NULL, questman, TO_ROOM); mob_tell (ch, questman, "But you're already on a quest!"); return; } if (IsImmortal (ch)) end_quest (ch, 0); if (ch->pcdata->quest.time > 0) { mob_tell (ch, questman, "You're very brave, %s, but let someone else have a chance.", ch->name); mob_tell (ch, questman, "Come back later."); return; } mob_tell (ch, questman, "Thank you, brave %s!", ch->name); generate_quest (ch, questman, type); if (IsQuester (ch)) mud_info.stats.quests++; return; } else if (!str_prefix (arg1, "complete")) { if (ch->pcdata->quest.giver != questman) { mob_tell (ch, questman, "I never sent you on a quest! Perhaps you're thinking of someone else."); return; } if (IsQuester (ch)) { if (quest_complete (ch, questman)) return; else if (ch->pcdata->quest.status > QUEST_NONE && ch->pcdata->quest.time > 0) { mob_tell (ch, questman, "You haven't completed the quest yet, but there is still time!"); return; } } else mob_tell (ch, questman, "You have to REQUEST a quest first."); return; } else if (!str_prefix (arg1, "quit") || !str_prefix (arg1, "fail")) { act ("$n informs $N $e wishes to quit $s quest.", ch, NULL, questman, TO_ROOM); act ("You inform $N you wish to quit $s quest.", ch, NULL, questman, TO_CHAR); if (ch->pcdata->quest.giver != questman) { mob_tell (ch, questman, "I never sent you on a quest! Perhaps you're thinking of someone else."); return; } if (IsQuester (ch)) { end_quest (ch, QUEST_TIME * 3 / 2); mob_tell (ch, questman, "Your quest is over, but for your cowardly behavior, you may not quest again for 15 minutes."); return; } else { chprintln (ch, "You aren't on a quest!"); return; } } do_quest (n_fun, ch, ""); return; } #define MAX_QMOB_COUNT mobile_count CharData * random_quest_mob (CharData * ch, CharData * questman) { CharData *victim; CharData **mobs; int mob_count; int mrange; alloc_mem (mobs, CharData *, MAX_QMOB_COUNT); mob_count = 0; for (victim = char_first; victim; victim = victim->next) { if (!IsNPC (victim) || !quest_level_diff (ch, victim) || victim->pIndexData == NULL || victim->in_room == NULL || victim->pIndexData->pShop != NULL || (IsEvil (victim) && IsEvil (ch) && chance (50)) || (IsGood (victim) && IsGood (ch) && chance (50)) || victim->pIndexData->vnum < 100 || victim->in_room->area->clan != NULL || IsSet (victim->imm_flags, IMM_WEAPON | IMM_MAGIC) || IsSet (victim->act, ACT_TRAIN | ACT_PRACTICE | ACT_IS_HEALER | ACT_PET | ACT_PET | ACT_GAIN) || IsSet (victim->affected_by, AFF_CHARM) || IsSet (victim->in_room->room_flags, ROOM_PET_SHOP) || questman->pIndexData == victim->pIndexData || (IsSet (victim->act, ACT_SENTINEL) && IsSet (victim->in_room->room_flags, ROOM_PRIVATE | ROOM_SOLITARY | ROOM_SAFE))) continue; mobs[mob_count++] = victim; if (mob_count >= MAX_QMOB_COUNT) break; } do { mrange = number_range (0, mob_count - 1); } while ((victim = mobs[mrange]) == NULL); free_mem (mobs); return victim; } void generate_quest (CharData * ch, CharData * questman, quest_t type) { CharData *victim; if ((victim = random_quest_mob (ch, questman)) == NULL) { mob_tell (ch, questman, "I'm sorry, but I don't have any quests for you at this time."); mob_tell (ch, questman, "Try again later."); end_quest (ch, QUEST_TIME / 10); return; } ch->pcdata->quest.giver = questman; ch->pcdata->quest.room = victim->in_room; ch->pcdata->quest.time = number_range (15, 30); ch->pcdata->quest.status = type > QUEST_NONE ? type : chance (10) ? (chance (50) ? QUEST_FINDMOB : QUEST_FINDROOM) : chance (20) ? (chance (50) ? QUEST_RETRIEVE : QUEST_DELIVER) : QUEST_KILL; switch (ch->pcdata->quest.status) { case QUEST_RETRIEVE: ch->pcdata->quest.obj = create_quest_obj (ch, -1); obj_to_room (ch->pcdata->quest.obj, ch->pcdata->quest.room); replace_str (&ch->pcdata->quest.obj->owner, ch->name); ch->pcdata->quest.obj->cost = 0; ch->pcdata->quest.obj->timer = (4 * ch->pcdata->quest.time + 10) / 3; ch->pcdata->quest.mob = NULL; switch (number_range (0, 1)) { default: case 0: mob_tell (ch, questman, "Vile pilferers have stolen %s from the royal treasury!", ch->pcdata->quest.obj->short_descr); mob_tell (ch, questman, "My court wizardess, with her magic mirror, has pinpointed its location."); break; case 1: mob_tell (ch, questman, "A powerful wizard has stolen %s for his personal power!", ch->pcdata->quest.obj->short_descr); break; } mob_tell (ch, questman, "This %s was last seen somewhere in the vicinity of %s!", qobj_desc[number_range (0, maxqobjdesc)], victim->in_room->name); break; case QUEST_KILL: ch->pcdata->quest.mob = victim; ch->pcdata->quest.obj = NULL; switch (number_range (0, 3)) { default: case 0: mob_tell (ch, questman, "An enemy of mine, %s, is making vile threats against the crown.", GetName (victim)); mob_tell (ch, questman, "This threat must be eliminated!"); break; case 1: mob_tell (ch, questman, "{n's most heinous criminal, %s, has escaped from the dungeon!", GetName (victim)); mob_tell (ch, questman, "Since the escape, %s has murdered %d civillians!", GetName (victim), number_range (2, 20)); mob_tell (ch, questman, "The penalty for this crime is death, and you are to deliver the sentence!"); break; case 2: mob_tell (ch, questman, "The Mayor of Midgaard has recently been attacked by %s. This is an act of war!", GetName (victim)); mob_tell (ch, questman, "%s must be severly dealt with for this injustice.", GetName (victim)); break; case 3: mob_tell (ch, questman, "%s has been stealing valuables from the citizens of %s.", GetName (victim), victim->in_room->area->name); mob_tell (ch, questman, "Make sure that %s never has the chance to steal again.", GetName (victim)); break; } mob_tell (ch, questman, "Seek this %s out somewhere in the vicinity of %s!", qmob_desc[number_range (0, maxqmobdesc)], victim->in_room->name); break; case QUEST_DELIVER: RemBit (victim->act, ACT_AGGRESSIVE); victim->position = POS_STANDING; victim->spec_fun = NULL; ch->pcdata->quest.obj = create_quest_obj (ch, -1); ch->pcdata->quest.mob = victim; ch->pcdata->quest.room = victim->in_room; obj_to_char (ch->pcdata->quest.obj, ch); mob_tell (ch, questman, "Please deliver this %s to my friend - %s. Time is the essence, please hurry.", ch->pcdata->quest.obj->short_descr, victim->short_descr); mob_tell (ch, questman, "Seek %s out somewhere in the vicinity of {W%s{x!", victim->short_descr, victim->in_room->name); act ("$n gives $p to $N.", questman, ch->pcdata->quest.obj, ch, TO_NOTVICT); act ("$n gives you $p.", questman, ch->pcdata->quest.obj, ch, TO_VICT); act ("You give $p to $N.", questman, ch->pcdata->quest.obj, ch, TO_CHAR); break; case QUEST_FINDROOM: ch->pcdata->quest.mob = NULL; ch->pcdata->quest.obj = NULL; ch->pcdata->quest.room = victim->in_room; mob_tell (ch, questman, "This quest tests your knowledge of {n. Your goal is simple, seek out"); mob_tell (ch, questman, "the location '{W%s{x' and return to me.", victim->in_room->name); mob_tell (ch, questman, "You will be told when you find the right place."); break; case QUEST_FINDMOB: ch->pcdata->quest.mob = victim; ch->pcdata->quest.obj = NULL; ch->pcdata->quest.room = victim->in_room; mob_tell (ch, questman, "This quest tests your knowledge of {n. Your goal is simple, seek out"); mob_tell (ch, questman, "'{W%s{x' in vicinity of {W%s{x, and return to me.", victim->short_descr, victim->in_room->name); mob_tell (ch, questman, "You will be told when you find the right person."); break; default: bug ("generate_quest(): bad quest type"); end_quest (ch, QUEST_TIME / 5); return; } mob_tell (ch, questman, "The location is in the general area of %s.", victim->in_room->area->name); mob_tell (ch, questman, "You have %s to complete this quest.", intstr (ch->pcdata->quest.time, "minute")); mob_tell (ch, questman, "May %s go with you!", ch->deity->name); return; } bool quest_level_diff (CharData * ch, CharData * mob) { int bonus = 10 + lvl_bonus (ch); if (IsImmortal (ch)) return true; else if (ch->level > (mob->level + bonus) || ch->level < (mob->level - bonus)) return false; else return true; } void quest_update (void) { CharData *ch; for (ch = player_first; ch != NULL; ch = ch->next_player) { if (!ch->desc || ch->desc->connected != CON_PLAYING || ch->pcdata->quest.time <= 0) continue; if (ch->pcdata->quest.status != QUEST_NONE) { if (--ch->pcdata->quest.time <= 0) { end_quest (ch, QUEST_TIME - 2); chprintlnf (ch, "{RYou have run out of time for your quest!" " You may quest again in %d minutes.{x", ch->pcdata->quest.time); } else if (ch->pcdata->quest.time < 6) { chprintln (ch, "{pBetter hurry, you're almost out of time for your quest!"); return; } } else { if (--ch->pcdata->quest.time <= 0) { chprintln (ch, "{WYou may now {?quest{W again.{x"); return; } } } return; } void end_quest (CharData * ch, int time) { if (!ch || IsNPC (ch)) return; ch->pcdata->quest.status = QUEST_NONE; ch->pcdata->quest.giver = 0; ch->pcdata->quest.time = time; ch->pcdata->quest.mob = 0; ch->pcdata->quest.obj = 0; ch->pcdata->quest.room = 0; } void quest_reward (CharData * ch, CharData * questman, quest_t type) { money_t reward = 0; int pointreward = 0; int time = 0; switch (type) { case QUEST_RETURN_KILL: pointreward = 50; reward = ch->level * 4; break; case QUEST_RETURN_DELIVER: pointreward = 40; reward = ch->level * 3; break; case QUEST_RETURN_RETRIEVE: pointreward = 30; reward = ch->level * 2; break; case QUEST_RETURN_FINDMOB: pointreward = 25; reward = ch->level * 2; time = -4; break; case QUEST_RETURN_FINDROOM: pointreward = 20; reward = ch->level * 2; time = -5; break; default: pointreward = 20; reward = ch->level; break; } pointreward = number_range (pointreward * 4 / 5, pointreward); reward = number_range (reward * 4 / 5, reward); if (pointreward + ch->pcdata->quest.points > 32000) { unsigned int t = 0; t = (pointreward + ch->pcdata->quest.points) - 32000; pointreward -= t; reward += t; } if (ch->pcdata->quest.obj != NULL) extract_obj (ch->pcdata->quest.obj); if (ch->pcdata->quest.mob != NULL) { if (IsNPC (ch->pcdata->quest.mob)) { ch->pcdata->quest.mob->master = NULL; extract_char (ch->pcdata->quest.mob, true); } } end_quest (ch, QUEST_TIME + time); ch->gold += reward; pointreward = add_qp (ch, pointreward); act ("$N congratulates $n.", ch, NULL, questman, TO_ROOM); mob_tell (ch, questman, "Congratulations on completing your quest! As a reward, I am giving you {W%s{x, and {Y%ld{x gold.", intstr (pointreward, "quest point"), reward); if (chance (pointreward / 5)) { chprintln (ch, "You gain an extra {YTrivia {RPoint{x!"); ch->pcdata->trivia += 1; } mud_info.stats.qcomplete++; save_char_obj (ch); return; } bool quest_complete (CharData * ch, CharData * questman) { ObjData *obj = NULL, *obj_next; if (ch->pcdata->quest.time <= 0) { act ("$N informs $n about returning too late.", ch, NULL, questman, TO_ROOM); chprintln (ch, NEWLINE "But you didn't complete your quest in time!"); end_quest (ch, QUEST_TIME + 5); return true; } switch (ch->pcdata->quest.status) { case QUEST_NONE: act ("$N explains $n how to request quest.", ch, NULL, questman, TO_ROOM); chprintln (ch, NEWLINE "You have to REQUEST a quest first."); return true; break; case QUEST_KILL: case QUEST_RETRIEVE: case QUEST_DELIVER: case QUEST_FINDMOB: case QUEST_FINDROOM: return false; break; case QUEST_RETURN_KILL: case QUEST_RETURN_FINDMOB: case QUEST_RETURN_FINDROOM: case QUEST_RETURN_DELIVER: quest_reward (ch, questman, ch->pcdata->quest.status); return true; break; case QUEST_RETURN_RETRIEVE: { bool obj_found = false; for (obj = ch->carrying_first; obj != NULL; obj = obj_next) { obj_next = obj->next_content; if (obj == ch->pcdata->quest.obj) { if (is_name (ch->name, obj->owner)) { obj_found = true; break; } else { chprintln (ch, "Cheating is not nice, you know?"); act ("$N calls $n cheater!", ch, NULL, questman, TO_ROOM); act ("$N calls You cheater!", ch, NULL, questman, TO_CHAR); obj->timer = 1; } } } if (obj_found == true) { quest_reward (ch, questman, ch->pcdata->quest.status); } else { act ("$N sends $n to complete his quest.", ch, NULL, questman, TO_ROOM); chprintln (ch, NEWLINE "You haven't completed the quest yet, but there is still time!"); } return true; } break; default: return false; } } void quest_room_check (CharData * ch) { CharData *victim; if (!IsQuester (ch) || ch->in_room != ch->pcdata->quest.room) return; switch (ch->pcdata->quest.status) { case QUEST_FINDROOM: chprintln (ch, NEWLINE "{5+RYou have almost completed your QUEST!{x"); act ("{RReturn to $N{R before your time runs out!{x", ch, NULL, ch->pcdata->quest.giver, TO_CHAR); ch->pcdata->quest.status = QUEST_RETURN_FINDROOM; ch->pcdata->quest.room = NULL; break; case QUEST_FINDMOB: for (victim = ch->in_room->person_first; victim != NULL; victim = victim->next_in_room) { if (victim != ch->pcdata->quest.mob) continue; do_function (victim, &do_say, "Excellent! You have found me. Good job!"); chprintln (ch, NEWLINE "{5+RYou have almost completed your QUEST!"); act ("{RReturn to $N{R before your time runs out!{x", ch, NULL, ch->pcdata->quest.giver, TO_CHAR); ch->pcdata->quest.status = QUEST_RETURN_FINDMOB; ch->pcdata->quest.mob = NULL; break; } break; case QUEST_KILL: for (victim = ch->in_room->person_first; victim != NULL; victim = victim->next_in_room) { if (victim != ch->pcdata->quest.mob) continue; act ("$N eye's you warily...", ch, NULL, victim, TO_CHAR); act ("$N eye's $n warily...", ch, NULL, victim, TO_ROOM); break; } break; case QUEST_DELIVER: for (victim = ch->in_room->person_first; victim != NULL; victim = victim->next_in_room) { if (victim != ch->pcdata->quest.mob) continue; act ("$N smiles at you...", ch, NULL, victim, TO_CHAR); act ("$N smiles at $n...", ch, NULL, victim, TO_ROOM); break; } break; default: break; } } void mob_tell (CharData * ch, CharData * victim, const char *argument, ...) { char buf[MSL]; va_list args; if (!victim || NullStr (argument)) return; va_start (args, argument); vsnprintf (buf, sizeof (buf), argument, args); va_end (args); chprintlnf (ch, CTAG (_TELLS1) "%s " CTAG (_TELLS1) "tells you '" CTAG (_TELLS2) "%s" CTAG (_TELLS1) "'{x", GetName (victim), str_rep (buf, "{x", CTAG (_TELLS2))); return; } Do_Fun (do_tpspend) { CharData *triviamob; char buf[MAX_STRING_LENGTH]; char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; int sav_trust; argument = one_argument (argument, arg1); strcpy (arg2, argument); if (!ch || IsNPC (ch)) return; if (NullStr (arg1)) { cmd_syntax (ch, NULL, n_fun, "<item>", "list", NULL); return; } if (is_name (arg1, "list")) { chprintln (ch, "Trivia Point Options"); chprintln (ch, "corpse retrival......1tp"); chprintln (ch, "transfer.............1tp"); chprintln (ch, "restore..............1tp"); chprintln (ch, "5 trains.............1tp"); chprintln (ch, "40 practices.........1tp"); chprintln (ch, "75 questpoints.......1tp"); chprintln (ch, "1 Trivia Pill........1tp"); chprintln (ch, "See HELP TRIVIA for important info before buying."); chprintln (ch, "For transfers and corpses, you do not have to be at a trivia shop."); return; } else if (is_name (arg1, "corpse")) { if (ch->pcdata->trivia >= 1) { ObjData *c; int count = 0; for (c = obj_first; c != NULL; c = c->next) { if (is_name (ch->name, c->owner) && c->item_type == ITEM_CORPSE_PC) { if (c->in_room) obj_from_room (c); else if (c->carried_by) obj_from_char (c); else if (c->in_obj) obj_from_obj (c->in_obj); obj_to_room (c, ch->in_room); count++; } } if (count == 0) chprintln (ch, "You have no corpses in the game."); else { ch->pcdata->trivia -= 1; if (count == 1) { chprintln (ch, "Your corpse appears in the room."); act ("$n's corpse appears in the room.", ch, NULL, NULL, TO_ROOM); } else { chprintln (ch, "All your corpses appear in the room."); act ("All of $n's corpses appear in the room.", ch, NULL, NULL, TO_ROOM); } } return; } else { chprintln (ch, "You don't have enough trivia points for that."); return; } } else if (is_name (arg1, "transfer")) { if (ch->pcdata->trivia >= 1) { RoomIndex *oldroom; if (NullStr (arg2)) { chprintln (ch, "Transfer you where? [recall/room name/character name]"); return; } else if (!str_prefix (arg2, "recall")) sprintf (arg2, "%d", ROOM_VNUM_TEMPLE); oldroom = ch->in_room; sprintf (buf, "self '%s'", arg2); sav_trust = ch->trust; ch->trust = MAX_LEVEL; do_function (ch, &do_transfer, buf); ch->trust = sav_trust; if (oldroom != ch->in_room) ch->pcdata->trivia -= 1; else chprintln (ch, "Whoops! You were not charged for that transfer."); return; } else { chprintln (ch, "You don't have enough trivia points for that."); return; } } for (triviamob = ch->in_room->person_first; triviamob != NULL; triviamob = triviamob->next_in_room) { if (!IsNPC (triviamob)) continue; if (triviamob->spec_fun == spec_triviamob) break; } if (triviamob == NULL) { chprintln (ch, "You can't do that here."); return; } if (triviamob->fighting != NULL) { chprintln (ch, "Wait until the fighting stops."); return; } if (is_name (arg1, "practices pracs practice")) { if (ch->pcdata->trivia >= 1) { ch->pcdata->trivia -= 1; ch->practice += 40; act ("$N gives 40 practices to $n.", ch, NULL, triviamob, TO_ROOM); act ("$N gives you 40 practices.", ch, NULL, triviamob, TO_CHAR); return; } else { mob_tell (ch, triviamob, "You don't have enough trivia points for that."); return; } } else if (is_name (arg1, "trains train")) { if (ch->pcdata->trivia >= 1) { ch->pcdata->trivia -= 1; ch->train += 5; act ("$N gives 5 training sessions to $n.", ch, NULL, triviamob, TO_ROOM); act ("$N gives you 5 training sessions.", ch, NULL, triviamob, TO_CHAR); return; } else { mob_tell (ch, triviamob, "You don't have enough trivia points for that."); return; } } else if (is_name (arg1, "questpoints points")) { if (ch->pcdata->trivia >= 1) { ch->pcdata->trivia -= 1; ch->pcdata->quest.points += 75; act ("$N gives 75 questpoints to $n.", ch, NULL, triviamob, TO_ROOM); act ("$N gives you 75 questpoints.", ch, NULL, triviamob, TO_CHAR); return; } else { mob_tell (ch, triviamob, "You don't have enough trivia points for that."); return; } } else if (is_name (arg1, "pill")) { ObjData *obj = NULL; if (ch->pcdata->trivia >= 1) { obj = create_object (get_obj_index (OBJ_VNUM_TRIVIA_PILL), 1); if (obj != NULL) { act ("$N gives $p to $n.", ch, obj, triviamob, TO_ROOM); act ("$N gives you $p.", ch, obj, triviamob, TO_CHAR); obj_to_char (obj, ch); ch->pcdata->trivia -= 1; return; } else { mob_tell (ch, triviamob, "I don't any more trivia pills to give."); } return; } else { mob_tell (ch, triviamob, "You don't have enough trivia points for that."); return; } } else if (is_name (arg1, "restore")) { if (ch->pcdata->trivia >= 1) { sav_trust = ch->trust; ch->trust = MAX_LEVEL; do_function (ch, &do_restore, "all"); ch->trust = sav_trust; ch->pcdata->trivia -= 1; return; } else { mob_tell (ch, triviamob, "You don't have enough trivia points for that."); return; } } else do_tpspend (n_fun, ch, "list"); } Do_Fun (do_qpgive) { CharData *victim; char arg[MAX_INPUT_LENGTH], buf[MAX_INPUT_LENGTH]; int amount; if (!ch || IsNPC (ch)) return; argument = one_argument (argument, arg); if (NullStr (argument) || !is_number (arg)) { cmd_syntax (ch, NULL, n_fun, "<amount> <person>", NULL); return; } if ((amount = atoi (arg)) <= 0) { chprintln (ch, "Give how many questpoints?"); return; } if (amount > ch->pcdata->quest.points) { chprintln (ch, "You don't have that many questpoints to give."); return; } if ((victim = get_char_room (ch, NULL, argument)) == NULL) { chprintln (ch, "That person is not here."); return; } if (IsNPC (victim)) { chprintln (ch, "NPC's don't need quest points."); return; } if (victim == ch) { chprintlnf (ch, "You give yourself %s..... don't you feel better?", intstr (amount, "questpoint")); return; } ch->pcdata->quest.points -= amount; victim->pcdata->quest.points += amount; sprintf (buf, "%d", amount); act ("$n gives you $t questpoints.", ch, buf, victim, TO_VICT); act ("You give $N $t questpoints.", ch, buf, victim, TO_CHAR); act ("$n gives $N $t questpoints.", ch, buf, victim, TO_ROOM); return; } Do_Fun (do_tpgive) { CharData *victim; char arg[MAX_INPUT_LENGTH], buf[MAX_INPUT_LENGTH]; int amount; if (!ch || IsNPC (ch)) return; argument = one_argument (argument, arg); if (NullStr (argument) || !is_number (arg)) { cmd_syntax (ch, NULL, n_fun, "<amount> <person>", NULL); return; } if ((amount = atoi (arg)) <= 0) { chprintln (ch, "Give how many trivia points?"); return; } if (amount > ch->pcdata->trivia) { chprintln (ch, "You don't have that many trivia points to give!!"); return; } if ((victim = get_char_room (ch, NULL, argument)) == NULL) { chprintln (ch, "That person is not here."); return; } if (IsNPC (victim)) { chprintln (ch, "NPC's don't need trivia points."); return; } if (victim == ch) { chprintlnf (ch, "You give yourself %s..... don't you feel better?", intstr (amount, "trivia point")); return; } ch->pcdata->trivia -= amount; victim->pcdata->trivia += amount; sprintf (buf, "%d", amount); act ("$n gives you $t questpoints.", ch, buf, victim, TO_VICT); act ("You give $N $t questpoints.", ch, buf, victim, TO_CHAR); act ("$n gives $N $t questpoints.", ch, buf, victim, TO_ROOM); return; } CharData * find_quest_char (CharData * ch, vnum_t vnum) { CharData *mob, *found = NULL; if (ch->pcdata->quest.mob) return ch->pcdata->quest.mob; for (mob = char_first; mob; mob = mob->next) { if ((IsNPC (mob) ? mob->pIndexData->vnum : mob->id) != vnum) continue; found = mob; if (!IsNPC (mob) || mob->pIndexData->spec_fun == spec_lookup ("spec_questmaster") || mob->in_room == ch->pcdata->quest.room) break; } if (!found) { CharIndex *pMob = get_char_index (vnum); if (!pMob || (found = create_mobile (pMob)) == NULL) { if ((found = random_quest_mob (ch, ch->pcdata->quest.giver)) == NULL) { end_quest (ch, ch->pcdata->quest.time); return NULL; } } } return found; } vnum_t random_quest_piece (void) { vnum_t objvnum = 0; switch (number_range (0, 3)) { case 0: objvnum = OBJ_VNUM_QUEST1; break; case 1: objvnum = OBJ_VNUM_QUEST2; break; case 2: objvnum = OBJ_VNUM_QUEST3; break; case 3: objvnum = OBJ_VNUM_QUEST4; break; } return objvnum; } ObjData * create_quest_obj (CharData * ch, vnum_t vnum) { ObjData *obj; int check = 0; if (ch->pcdata->quest.obj != NULL) return ch->pcdata->quest.obj; if (vnum <= 0) vnum = random_quest_piece (); while ((obj = create_object (get_obj_index (vnum), ch->level)) == NULL) { vnum = random_quest_piece (); if (++check >= 10) { bug ("Bad vnum"); return NULL; } } replace_str (&obj->owner, ch->name); obj->cost = 0; obj->timer = (4 * ch->pcdata->quest.time + 10) / 3; return obj; } void extract_quest (CharData * ch) { if (IsNPC (ch)) return; if (ch->pcdata->quest.obj) extract_obj (ch->pcdata->quest.obj); }