/*************************************************************************** * This snippet was written by Donut for the Khrooon Mud. * * Original Coded by Yago Diaz <yago@cerberus.uab.es> * * (C) June 1997 * * (C) Last Modification October 1997 * * Major enhancement/neatening done by * * Kharas (root@fading.tcimet.net) * * (eg: Made sum_dat table, shortened function, etc) * * Rewrite summoner_data, summoner_table, ... by Yago * * November 1997 * ***************************************************************************/ #include <sys/types.h> #include <stdio.h> #include <stdlib.h> #include <string.h> #include <time.h> #include "merc.h" #include "recycle.h" #include "tables.h" #include "newclan.h" #define MONEY "Gold" struct summoner_data { char *name; int cost; int vnum; }; const struct summoner_data summoner_table[] = { /* Name *//* Cost *//* Vnum */ { "The Mutant Dump", 150, 11800 }, { "City Of Annonymous", 200, 12500 }, { "Hell", 100, 10416 }, { "Troy", 9000, 10983 }, { "Divided Souls", 75, 11600 }, { "Drakyri Isle", 100, 11700 }, { "Sanuba Desert", 900, 42900 }, { "Shadow Grove", 50, 1300 }, { "Mysteria", 850, 1951 }, { "Githyanki Keep", 300, 7750 }, { "Keep of Mahntor", 75, 2361 }, { "Black Water Park", 7500, 17527 }, { "Kingdoms", 10000, 17542 }, // { "Remort Challenge", 1000, 9400 }, { NULL, 0, 0 } }; DECLARE_DO_FUN( do_look ); CHAR_DATA * find_summoner( CHAR_DATA *ch ); CHAR_DATA *find_summoner(CHAR_DATA *ch) { CHAR_DATA * summoner; for (summoner = ch->in_room->people; summoner != NULL; summoner = summoner->next_in_room) { if (!IS_NPC(summoner)) continue; if (summoner->spec_fun == spec_lookup("spec_summoner")) return summoner; } if (summoner == NULL || summoner->spec_fun != spec_lookup("spec_summoner")) { send_to_char("You can't do that here.\n\r", ch); return NULL; } if (summoner->fighting != NULL) { send_to_char("Wait until the fighting stops.\n\r", ch); return NULL; } return NULL; } void do_travel(CHAR_DATA *ch, char *argument) { CHAR_DATA *summoner, *pet; ROOM_INDEX_DATA *room; int i; char buf[MAX_STRING_LENGTH], arg[MAX_STRING_LENGTH]; char arg1[MAX_STRING_LENGTH]; argument = one_argument(argument, arg); argument = one_argument(argument, arg1); summoner = find_summoner(ch); if (!summoner) return; if (ch->fight_timer > 0) { act("$N says 'You cannot travel whilst still that bloody!'", ch, NULL, summoner, TO_CHAR); return; } if (arg[0] == '\0') { sprintf(buf, "You must tell me what travel you want to do:\n\r" "\tTRAVEL list - shows possible locations to travel to.\n\r" "\tTRAVEL buy <name> - Travel to selected location."); act("$N says '$t'", ch, buf, summoner, TO_CHAR); return; } if (!str_cmp(arg, "list")) { sprintf(buf, "%s says you may travel to the following locations:\n\r", PERS(ch,summoner)); send_to_char(buf, ch); for (i = 0; summoner_table[i].name != NULL; i++) { sprintf(buf, "\t%-15s - %-3d %s\n\r", summoner_table[i].name, summoner_table[i].cost, MONEY); send_to_char(buf, ch); } return; } if (!str_cmp(arg, "buy")) { if (arg1[0] == '\0') { sprintf(buf, "You must tell me where you wish to travel"); act("$N says '$t'.", ch, buf, summoner, TO_CHAR); return; } for (i = 0; summoner_table[i].name != NULL; i++) if (is_name(arg1, summoner_table[i].name)) break; if (summoner_table[i].name == NULL) { sprintf(buf, "That location of travel is not on the list"); act("$N says '$t'.", ch, buf, summoner, TO_CHAR); return; } if ((ch->silver / 100 + ch->gold + ch->platinum * 100) >= summoner_table[i].cost) send_to_char("Splendid, you have the required funds.\n\r", ch); else { sprintf(buf, "You don't have enough %s for my services", MONEY); act("$N says '$t'.", ch, buf, summoner, TO_CHAR); return; } room = get_room_index(summoner_table[i].vnum); if (!room) { send_to_char("That location's room doesn't seem to exist," "Please inform your Imp.\n\r", ch); return; } if ((pet = ch->pet) != NULL && pet->in_room == ch->in_room) { char_from_room(pet); char_to_room(pet, get_room_index(summoner_table[i].vnum)); } char_from_room(ch); char_to_room(ch, get_room_index(summoner_table[i].vnum)); deduct_cost(ch, summoner_table[i].cost, VALUE_GOLD); sprintf( buf, "%s utters the words 'hasidsindsad'\n\rYou are surrounded by a violet fog.\n\r", summoner->short_descr); send_to_char(buf, ch); do_look(ch, ""); return; } else do_travel(ch, ""); }