// /bin/dev/_acheck.c // from the Nightmare Mudlib // a tool for the balancing and checking of armour // created by Cygnus@Nightmare 93???? #include <std.h> #include <balance.h> inherit DAEMON; string path; int is_armour; string name; string *id; string short; string long; string type; int ac, value, weight; string *limbs; string wear_string; object wear_func_ob; int decay_rate; string read_msg; status check_armour(object ob) { status error; int i; error = 0; if (member_array("std/armour.c", deep_inherit_list(ob)) == -1) if (path != "/std/armour") { write("Warning: " + path + " is not a subclass of /std/armour.\n"); error = 1; } is_armour = (int)ob->is_armour(); if (!intp(is_armour)) { write("Warning: is_armour() did not return an int.\n"); error = 1; } else if (!is_armour) { write("Warning: is_armour() did not return true.\n"); error = 1; } name = (string)ob->query_name(); if (!stringp(name)) { write("Warning: query_name() did not return a string.\n"); error = 1; } id = (string *)ob->query_id(); if (!pointerp(id)) { write("Warning: query_id() did not return an array.\n"); error = 1; } else for (i = 0; i < sizeof(id); i++) if (!stringp(id[i])) { write("Warning: query_id() array member " + i + " is not a string.\n"); error = 1; } short = (string)ob->query_short(); if (!stringp(short)) { write("Warning: query_short() did not return a string.\n"); error = 1; } long = (string)ob->query_long(); if (!stringp(long)) { write("Warning: query_long() did not return a string.\n"); error = 1; } type = (string)ob->query_type(); if (!stringp(type)) { write("Warning: query_type() did not return a string.\n"); error = 1; } else if (member_array(type, ARMOUR_TYPES) == -1) { write("Warning: query_type() returned unknown armour " + "type: " + type + ".\n"); error = 1; } ac = (int)ob->query_ac(); if (!intp(ac)) { write("Warning: query_ac() did not return an int.\n"); error = 1; } else if (ac < ARMOUR_MIN_AC[type] || ac > ARMOUR_MAX_AC[type]) { write("Warning: query_ac() is not balanced.\n"); error = 1; } value = (int)ob->query_value(); if (!intp(value)) { write("Warning: query_value() did not return an int.\n"); error = 1; } else if (value < ARMOUR_MIN_VALUE[type] || value > ARMOUR_MAX_VALUE[type]) { write("Warning: query_value() is not balanced.\n"); error = 1; } weight = (int)ob->query_weight(); if (!intp(weight)) { write("Warning: query_weight() did not return an int.\n"); error = 1; } else if (weight < ARMOUR_MIN_WEIGHT[type]) { write("Warning: query_weight() is not balanced.\n"); error = 1; } limbs = (string *)ob->query_limbs(); if (!pointerp(limbs)) { write("Warning: query_limbs() did not return an array.\n"); error = 1; } else for (i = 0; i < sizeof(limbs); i++) if (!stringp(limbs[i])) { write("Warning: query_limbs() array member " + i + " is not a string.\n"); error = 1; } wear_string = (string)ob->query_wear_string(); wear_func_ob = (object)ob->query_wear_func(); if (objectp(wear_func_ob)) if (!stringp(function_exists("extra_wear", wear_func_ob))) { write("Warning: function \"extra_wear\" does not exist in " + " object " + file_name(wear_func_ob)); error = 1; } read_msg = (string)ob->query_read_msg(); return !error; } void print_armour(object ob) { int i; write("User IDs: " + getuid(ob) + "/" + geteuid(ob) + "\n"); write("Name: " + name + "\n"); write("IDs:"); for (i = 0; i < sizeof(id); i++) write(" \"" + id[i] + "\""); write("\n"); write("Short:\n" + short + "\n"); write("Long:\n" + long + "\n"); write("Type: " + type + "\n"); write("Armour Class: " + ac + " "); write("Value: " + value + ((int)ob->query_destroy() ? "*" : "") + " "); write("Weight: " + weight); write("\n"); write("Limbs:"); for (i = 0; i < sizeof(limbs); i++) write(" \"" + limbs[i] + "\""); write("\n"); if (stringp(wear_string)) write("Wear String:\n" + wear_string); if (objectp(wear_func_ob)) write("Wear Function: \"" + file_name(wear_func_ob) + "\"->extra_wear()\n"); if (stringp(read_msg)) write("Read Message:\n" + read_msg); } int cmd_acheck(string armour) { object ob; if (!stringp(armour)) { notify_fail("usage: " + query_verb() + " <armour-id>\n"); return 0; } ob = present(armour, this_player()); if (!objectp(ob)) { notify_fail(query_verb() + ": \"" + armour + "\" not present.\n"); return 0; } path = base_name(ob); write("Armour Check for: " + path + "\n"); if (check_armour(ob)) print_armour(ob); return 1; } int help() { write( @EndText Syntax: acheck <name> Effect: Balance command to check armor. Checks the armor called <name> in your inventory for weight, wc, etc See doc: /doc/QC/check.doc See also: rcheck, wcheck EndText ); return 1; }