/* * Debug.c * * File for debug of the hardcode routines. * * Serious knifing / new functions by Markus Stenberg <fingon@iki.fi> */ #include "config.h" #include "externs.h" #include "debug.h" #include "glue.h" #include "muxevent.h" #include "mech.h" #include "create.h" #include "mux_tree.h" #include "p.mux_tree.h" #include "p.map.obj.h" #include "p.mech.startup.h" #include "p.mech.partnames.h" void GoThruTree(Tree tree, int (*func) (Node *)); void debug_list(dbref player, void *data, char *buffer) { char *args[3]; int argc; argc = mech_parseattributes(buffer, args, 3); if(argc == 0) return; else if(args[0][0] == 'M' || args[0][0] == 'm') if(args[0][1] == 'E' || args[0][1] == 'e') DumpMechs(player); if(args[0][1] == 'A' || args[0][1] == 'a') DumpMaps(player); } void debug_savedb(dbref player, void *data, char *buffer) { notify(player, "--- Saving ---"); SaveSpecialObjects(DUMP_NORMAL); notify(player, "--- Done ---"); } void debug_loaddb(dbref player, void *data, char *buffer) { notify(player, "--- Loading ---"); LoadSpecialObjects(); notify(player, "--- Done ---"); } static int *number; static int *smallest; static int *largest; static int *total; static dbref cheat_player; extern Tree xcode_tree; extern int global_specials; extern SpecialObjectStruct SpecialObjects[]; static int debug_check_stuff(Node * tmp) { int osize, size, t; MAP *map; t = NodeType(tmp); osize = size = SpecialObjects[t].datasize; switch (t) { case GTYPE_MAP: map = (MAP *) NodeData(tmp); if(map->map) { size += sizeof(map->map[0][0]) * map->map_width * map->map_height; size += bit_size(map); size += obj_size(map); size += mech_size(map); } break; } if(smallest[t] < 0 || size < smallest[t]) smallest[t] = size; if(largest[t] < 0 || size > largest[t]) largest[t] = size; total[t] += size; number[t]++; if(cheat_player > 0 && osize != size) notify_printf(cheat_player, "#%d: %s (%d bytes)", NodeKey(tmp), SpecialObjects[t].type, size); return 1; } void debug_memory(dbref player, void *data, char *buffer) { int i, gtotal = 0; Create(number, int, global_specials); Create(smallest, int, global_specials); Create(largest, int, global_specials); Create(total, int, global_specials); for(i = 0; i < global_specials; i++) { number[i] = 0; smallest[i] = -1; largest[i] = -1; total[i] = 0; } cheat_player = player; skipws(buffer); if(strcmp(buffer, "")) cheat_player = player; else cheat_player = -1; GoThruTree(xcode_tree, debug_check_stuff); for(i = 0; i < global_specials; i++) { if(number[i]) { if(smallest[i] == largest[i]) notify_printf(player, "%4d %-20s: %d bytes total, %d each", number[i], SpecialObjects[i].type, total[i], total[i] / number[i]); else notify_printf(player, "%4d %-20s: %d bytes total, %d avg, %d/%d small/large", number[i], SpecialObjects[i].type, total[i], total[i] / number[i], smallest[i], largest[i]); } gtotal += total[i]; } notify_printf(player, "Grand total: %d bytes.", gtotal); free((void *) number); free((void *) total); free((void *) smallest); free((void *) largest); } void ShutDownMap(dbref player, dbref mapnumber) { MAP *map; MECH *mech; int j; Node *tmp; tmp = FindNode(xcode_tree, mapnumber); if(tmp) { map = (MAP *) NodeData(tmp); for(j = 0; j < map->first_free; j++) if(map->mechsOnMap[j] != -1) { mech = getMech(map->mechsOnMap[j]); if(mech) { notify_printf(player, "Shutting down Mech #%d and restting map index to -1....", map->mechsOnMap[j]); mech_shutdown(GOD, (void *) mech, ""); MechLastX(mech) = 0; MechLastY(mech) = 0; MechX(mech) = 0; MechY(mech) = 0; remove_mech_from_map(map, mech); } } map->first_free = 0; notify(player, "Map Cleared"); return; } } void debug_shutdown(dbref player, void *data, char *buffer) { char *args[3]; int argc; argc = mech_parseattributes(buffer, args, 3); if(argc > 0) ShutDownMap(player, atoi(args[0])); } void debug_setvrt(dbref player, void *data, char *buffer) { char *args[3]; int vrt; int id, brand; DOCHECK(mech_parseattributes(buffer, args, 3) != 2, "Invalid arguments!"); DOCHECK(Readnum(vrt, args[1]), "Invalid value!"); DOCHECK(vrt <= 0, "VRT needs to be >0"); DOCHECK(vrt > 127, "VRT can be at max 127"); DOCHECK(!find_matching_vlong_part(args[0], NULL, &id, &brand), "That is no weapon!"); DOCHECK(!IsWeapon(id), "That is no weapon!"); MechWeapons[Weapon2I(id)].vrt = vrt; notify_printf(player, "VRT for %s set to %d.", MechWeapons[Weapon2I(id)].name, vrt); log_error(LOG_WIZARD, "WIZ", "CHANGE", "VRT for %s set to %d by #%d", MechWeapons[Weapon2I(id)].name, vrt, player); }