/************************************************************************** * 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 * *************************************************************************** * 1stMUD ROM Derivative (c) 2001-2002 by Ryan Jennings * * http://1stmud.dlmud.com/ <r-jenn@shaw.ca> * ***************************************************************************/ #include <sys/types.h> #include <ctype.h> #include <stdio.h> #include <stdlib.h> #include <string.h> #include <time.h> #include "merc.h" #include "olc.h" #include "lookup.h" #include "interp.h" #include "tables.h" #define CLEDIT(fun) bool fun (CHAR_DATA *ch, const char *argument) CLEDIT(cledit_create) { int j, i = maxClass; int x = 0; CLASS_DATA *pClass; struct class_type *new_table; RACE_DATA *race; char buf[MIL]; if (!IS_NULLSTR(argument) && class_lookup(argument) == -1) sprintf(buf, argument); else sprintf(buf, "New Class%d", maxClass + 1); maxClass++; alloc_mem(new_table, struct class_type, maxClass); if (!new_table) { chprintln(ch, "Memory Allocation Failed!!! Unable to create class."); return FALSE; } for (j = 0; j < i; j++) new_table[j] = class_table[j]; for (x = 0; x < maxSkill; x++) { realloc_mem(skill_table[x].rating, int, maxClass); skill_table[x].rating[i] = 0; realloc_mem(skill_table[x].skill_level, int, maxClass); skill_table[x].skill_level[i] = ANGEL; } for (race = race_first; race; race = race->next) { realloc_mem(race->class_mult, int, maxClass); race->class_mult[i] = 100; } for (x = 0; x < maxGroup; x++) { realloc_mem(group_table[x].rating, int, maxClass); group_table[x].rating[i] = 0; } free_mem(class_table); class_table = new_table; class_table[i].name = str_dup(buf); pClass = &class_table[i]; edit_start(ch, pClass, ED_CLASS); chprintln(ch, "Class created."); return TRUE; } CLEDIT(cledit_delete) { CLASS_DATA *pClass; EDIT_CLASS(ch, pClass); if (str_cmp(argument, "confirm")) { chprintln (ch, "Typing 'delete confirm' will permanetely remove this class!"); return FALSE; } else { int i, j = 0, c; struct class_type *new_table; RACE_DATA *race; CHAR_DATA *pch; int iClass; bool invalid; alloc_mem(new_table, struct class_type, maxClass); if (!new_table) { chprintln(ch, "Memory Allocation error!!! Unable to delete class."); return FALSE; } c = class_lookup(pClass->name); for (pch = player_first; pch != NULL; pch = pch->next_player) { invalid = FALSE; for (iClass = 0; iClass < MAX_MCLASS; iClass++) { if (invalid) { pch->Class[iClass - 1] = pch->Class[iClass]; pch->Class[iClass] = -1; continue; } if (pch->Class[iClass] == c) { pch->Class[iClass] = -1; invalid = TRUE; } } } for (i = 0; i < maxClass; i++) if (i != c) new_table[j++] = class_table[i]; free_mem(class_table); class_table = new_table; maxClass--; for (i = 0; i < maxSkill; i++) { realloc_mem(skill_table[i].rating, int, maxClass); realloc_mem(skill_table[i].skill_level, int, maxClass); } for (i = 0; i < maxGroup; i++) realloc_mem(group_table[i].rating, int, maxClass); for (race = race_first; race; race = race->next) realloc_mem(race->class_mult, int, maxClass); pClass = &class_table[0]; edit_start(ch, pClass, ED_CLASS); chprintln(ch, "Class deleted."); } return TRUE; } char *stat_name(int stat) { switch (stat) { case STAT_STR: return "strength"; case STAT_INT: return "intelligence"; case STAT_WIS: return "wisdom"; case STAT_DEX: return "dexterity"; case STAT_CON: return "consitution"; default: return "unknown"; } } CLEDIT(cledit_show) { CLASS_DATA *pClass; int i; EDIT_CLASS(ch, pClass); chprintln(ch, draw_line(ch, NULL, 0)); chprintlnf(ch, "Name : %s", pClass->name); chprintlnf(ch, "Prime Attribute: %s", stat_name(pClass->attr_prime)); chprintlnf(ch, "Weapon Vnum : %ld", pClass->weapon); chprintlnf(ch, "Skill Adept : %d", pClass->skill_adept); chprint(ch, "Guild : "); for (i = 0; i < MAX_GUILD; i++) chprintf(ch, "%ld ", pClass->guild[i]); chprintln(ch, ""); chprintlnf(ch, "Thac00 : %d", pClass->thac0_00); chprintlnf(ch, "Thac32 : %d", pClass->thac0_32); chprintlnf(ch, "HP Min : %d", pClass->hp_min); chprintlnf(ch, "HP Max : %d", pClass->hp_max); chprintlnf(ch, "Uses spells : %s", pClass->fMana ? "TRUE" : "FALSE"); chprintlnf(ch, "Base Group : %s", pClass->base_group); chprintlnf(ch, "Default Group : %s", pClass->default_group); chprintln(ch, draw_line(ch, NULL, 0)); return TRUE; } CLEDIT(cledit_prime) { CLASS_DATA *pClass; char arg[MIL]; int stat; EDIT_CLASS(ch, pClass); one_argument(argument, arg); if (IS_NULLSTR(arg)) { chprintln(ch, "Syntax: cledit prime [str|int|wiz|dex|con]"); return FALSE; } if (!str_cmp(arg, "str")) stat = STAT_STR; else if (!str_cmp(arg, "int")) stat = STAT_INT; else if (!str_cmp(arg, "wis")) stat = STAT_WIS; else if (!str_cmp(arg, "dex")) stat = STAT_DEX; else if (!str_cmp(arg, "con")) stat = STAT_CON; else { chprintln(ch, "Syntax: cledit prime [str|int|wiz|dex|con]"); return FALSE; } pClass->attr_prime = stat; chprintln(ch, "Prime attribute changed."); return TRUE; } VALIDATE_FUN(validate_weapon) { OBJ_INDEX_DATA *obj; if ((obj = get_obj_index(*(vnum_t *) arg)) == NULL) { chprintln(ch, "Invalid vnum."); return FALSE; } if (obj->item_type != ITEM_WEAPON) { chprintln(ch, "Thats not a vnum of a weapon."); return FALSE; } return TRUE; } VALIDATE_FUN(validate_adept) { int value = *(int *) arg; if (value < 20 || value > 90) { chprintln(ch, "Please choose a value between 20 & 90"); return FALSE; } return TRUE; } VALIDATE_FUN(validate_hmv) { int *value = (int *) arg; if (*value < 1 || *value > 100) { chprintln(ch, "Please choose a value from 1-100."); return FALSE; } return TRUE; } VALIDATE_FUN(validate_group) { int g; g = group_lookup((const char *) arg); if (g < 0 || g >= maxGroup) { chprintln(ch, "That group doesn't exist"); return FALSE; } return TRUE; } CLEDIT(cledit_skill) { int sn; CLASS_DATA *pClass; int Class; int value; bool pLevel; char arg1[MIL], arg2[MIL], arg3[MIL]; EDIT_CLASS(ch, pClass); argument = one_argument(argument, arg1); argument = one_argument(argument, arg2); argument = one_argument(argument, arg3); if (IS_NULLSTR(arg1) || IS_NULLSTR(arg2) || IS_NULLSTR(arg3)) { chprintln(ch, "Syntax: cledit skill <skill> rating|level <value>"); return FALSE; } if ((sn = skill_lookup(arg1)) < 0 || sn >= maxSkill) { chprintln(ch, "Thats not a valid skill."); return FALSE; } if (!str_cmp(arg2, "rating")) pLevel = FALSE; else if (!str_cmp(arg2, "level")) pLevel = TRUE; else { chprintln(ch, "Please choose either a skill 'rating' or 'level'."); return FALSE; } value = atoi(arg3); if (pLevel && (value < 1 || value > MAX_LEVEL)) { chprintlnf(ch, "Please choose a level between 1 and %d.", MAX_LEVEL); return FALSE; } Class = class_lookup(pClass->name); if (pLevel) { skill_table[sn].skill_level[Class] = value; chprintln(ch, "Class skill level set."); } else { skill_table[sn].rating[Class] = value; chprintln(ch, "Class rating set."); } return TRUE; } VALIDATE_FUN(validate_classname) { if (class_lookup((const char *) arg) != -1 && !str_casecmp(((CLASS_DATA *) ch->desc->pEdit)->name, (const char *) arg)) { chprintln(ch, "A class with that name already exits."); return FALSE; } return TRUE; } CLEDIT(cledit_guilds) { int slot; vnum_t guild; CLASS_DATA *pClass; char arg[MIL]; EDIT_CLASS(ch, pClass); argument = one_argument(argument, arg); if (IS_NULLSTR(arg) || IS_NULLSTR(argument)) { chprintln(ch, "Syntax: guild <slot> <room vnum>"); return FALSE; } slot = atoi(arg); if (slot < 1 || slot > MAX_GUILD) { chprintlnf(ch, "Valid slots are 1 - %d.", MAX_GUILD); return FALSE; } guild = atol(argument); if (get_room_index(guild) == NULL) { chprintln(ch, "That is not a valid room vnum."); return FALSE; } pClass->guild[slot] = guild; chprintln(ch, "Guild set."); return TRUE; }