/* * CrossFire, A Multiplayer game for X-windows * * Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team * Copyright (C) 2002 Mark Wedel & Crossfire Development Team * Copyright (C) 1992 Frank Tore Johansen * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * The authors can be reached via e-mail at */ #include #include #include /* Handles misc. input request - things like hash table, malloc, maps, etc */ int command_motd (object *op, char *params) { display_motd (op); return 1; } #ifdef DEBUG_MALLOC_LEVEL int command_malloc_verify (object *op, char *parms) { extern int malloc_verify (void); if (!malloc_verify ()) new_draw_info (NDI_UNIQUE, 0, op, "Heap is corrupted."); else new_draw_info (NDI_UNIQUE, 0, op, "Heap checks out OK."); return 1; } #endif int command_whereabouts (object *op, char *params) { //TODO: should obviously not waste space in struct region for this. /* * reset the counter on the region, then use it to store the number of * players there. * I don't know how thread-safe this would be, I suspect not very.... */ for_all_regions (rgn) rgn->counter = 0; for_all_players (pl) if (pl->ob->map) ++pl->ob->region ()->counter; /* we only want to print out by places with a 'longname' field... */ for_all_regions (rgn) { if (!rgn->longname && rgn->counter > 0) { if (rgn->parent) { rgn->parent->counter += rgn->counter; rgn->counter = 0; } else /*uh oh, we shouldn't be here. */ LOG (llevError, "command_whereabouts() Region %s with no longname has no parent", &rgn->name); } } new_draw_info_format (NDI_UNIQUE, 0, op, "In the world currently there are:"); for_all_regions (rgn) if (rgn->counter) new_draw_info_format (NDI_UNIQUE, 0, op, "%u players %s", rgn->counter, &rgn->longname); return 1; } typedef struct { char namebuf[MAX_BUF]; int login_order; } chars_names; int command_time (object *op, char *params) { print_tod (op); return 1; } int command_weather (object *op, char *params) { #if 0 int wx, wy, temp, sky; char buf[MAX_BUF]; if (settings.dynamiclevel < 1) return 1; if (op->map == NULL) return 1; if (worldmap_to_weathermap (op->x, op->y, &wx, &wy, op->map) != 0) return 1; if (QUERY_FLAG (op, FLAG_WIZ)) { /* dump the weather, Dm style! Yo! */ new_draw_info_format (NDI_UNIQUE, 0, op, "Real temp: %d", real_world_temperature (op->x, op->y, op->map)); new_draw_info_format (NDI_UNIQUE, 0, op, "Base temp: %d", weathermap[wx][wy].temp); new_draw_info_format (NDI_UNIQUE, 0, op, "Humid: %d", weathermap[wx][wy].humid); new_draw_info_format (NDI_UNIQUE, 0, op, "Wind: dir=%d speed=%d", weathermap[wx][wy].winddir, weathermap[wx][wy].windspeed); new_draw_info_format (NDI_UNIQUE, 0, op, "Pressure: %d", weathermap[wx][wy].pressure); new_draw_info_format (NDI_UNIQUE, 0, op, "Avg Elevation: %d", weathermap[wx][wy].avgelev); new_draw_info_format (NDI_UNIQUE, 0, op, "Rainfall: %d Water: %d", weathermap[wx][wy].rainfall, weathermap[wx][wy].water); } temp = real_world_temperature (op->x, op->y, op->map); new_draw_info_format (NDI_UNIQUE, 0, op, "It's currently %d degrees " "Centigrade out.", temp); /* humid */ if (weathermap[wx][wy].humid < 20) new_draw_info (NDI_UNIQUE, 0, op, "It is very dry."); else if (weathermap[wx][wy].humid < 40) new_draw_info (NDI_UNIQUE, 0, op, "It is very comfortable today."); else if (weathermap[wx][wy].humid < 60) new_draw_info (NDI_UNIQUE, 0, op, "It is a bit muggy."); else if (weathermap[wx][wy].humid < 80) new_draw_info (NDI_UNIQUE, 0, op, "It is muggy."); else new_draw_info (NDI_UNIQUE, 0, op, "It is uncomfortably muggy."); /* wind */ switch (weathermap[wx][wy].winddir) { case 1: sprintf (buf, "north"); break; case 2: sprintf (buf, "northeast"); break; case 3: sprintf (buf, "east"); break; case 4: sprintf (buf, "southeast"); break; case 5: sprintf (buf, "south"); break; case 6: sprintf (buf, "southwest"); break; case 7: sprintf (buf, "west"); break; case 8: sprintf (buf, "northwest"); break; } if (weathermap[wx][wy].windspeed < 5) new_draw_info_format (NDI_UNIQUE, 0, op, "There is a mild breeze " "coming from the %s.", buf); else if (weathermap[wx][wy].windspeed < 10) new_draw_info_format (NDI_UNIQUE, 0, op, "There is a strong breeze " "coming from the %s.", buf); else if (weathermap[wx][wy].windspeed < 15) new_draw_info_format (NDI_UNIQUE, 0, op, "There is a light wind " "coming from the %s.", buf); else if (weathermap[wx][wy].windspeed < 25) new_draw_info_format (NDI_UNIQUE, 0, op, "There is a strong wind " "coming from the %s.", buf); else if (weathermap[wx][wy].windspeed < 35) new_draw_info_format (NDI_UNIQUE, 0, op, "There is a heavy wind " "coming from the %s.", buf); else new_draw_info_format (NDI_UNIQUE, 0, op, "The wind from the %s is " "incredibly strong!", buf); sky = weathermap[wx][wy].sky; if (temp <= 0 && sky > SKY_OVERCAST && sky < SKY_FOG) sky += 10; /*let it snow */ switch (sky) { case SKY_CLEAR: new_draw_info (NDI_UNIQUE, 0, op, "There isn''t a cloud in the sky."); break; case SKY_LIGHTCLOUD: new_draw_info (NDI_UNIQUE, 0, op, "There are a few light clouds in the sky."); break; case SKY_OVERCAST: new_draw_info (NDI_UNIQUE, 0, op, "The sky is cloudy and dreary."); break; case SKY_LIGHT_RAIN: new_draw_info (NDI_UNIQUE, 0, op, "It is raining softly."); break; case SKY_RAIN: new_draw_info (NDI_UNIQUE, 0, op, "It is raining."); break; case SKY_HEAVY_RAIN: new_draw_info (NDI_UNIQUE, 0, op, "It is raining heavily."); break; case SKY_HURRICANE: new_draw_info (NDI_UNIQUE, 0, op, "There is a heavy storm! You should go inside!"); break; case SKY_FOG: new_draw_info (NDI_UNIQUE, 0, op, "It''s foggy and miserable."); break; case SKY_HAIL: new_draw_info (NDI_UNIQUE, 0, op, "It''s hailing out! Take cover!"); break; case SKY_LIGHT_SNOW: new_draw_info (NDI_UNIQUE, 0, op, "Snow is gently falling from the sky."); break; case SKY_SNOW: new_draw_info (NDI_UNIQUE, 0, op, "It''s snowing out."); break; case SKY_HEAVY_SNOW: new_draw_info (NDI_UNIQUE, 0, op, "The snow is falling very heavily now."); break; case SKY_BLIZZARD: new_draw_info (NDI_UNIQUE, 0, op, "A full blown blizzard is in effect. You might want to take cover!"); break; } #endif return 1; } int command_hiscore (object *op, char *params) { display_high_score (op, op == NULL ? 9999 : 50, params); return 1; } int command_debug (object *op, char *params) { int i; char buf[MAX_BUF]; if (params == NULL || !sscanf (params, "%d", &i)) { sprintf (buf, "Global debug level is %d.", settings.debug); new_draw_info (NDI_UNIQUE, 0, op, buf); return 1; } settings.debug = i; sprintf (buf, "Set debug level to %d.", i); new_draw_info (NDI_UNIQUE, 0, op, buf); return 1; } /* * Those dumps should be just one dump with good parser */ int command_dumpbelow (object *op, char *params) { if (op && op->below) { char *dump = dump_object (op->below); new_draw_info (NDI_UNIQUE, 0, op, dump); free (dump); /* Let's push that item on the dm's stack */ dm_stack_push (op->contr, op->below->count); } return 0; } int command_dumpfriendlyobjects (object *op, char *params) { dump_friendly_objects (); return 0; } int command_printlos (object *op, char *params) { if (op) print_los (op); return 0; } int command_version (object *op, char *params) { version (op); return 0; } #ifndef BUG_LOG # define BUG_LOG "bug_log" #endif void bug_report (const char *reportstring) { FILE *fp; if ((fp = fopen (BUG_LOG, "a")) != NULL) { fprintf (fp, "%s\n", reportstring); fclose (fp); } else { LOG (llevError, "Cannot write bugs file %s: %s\n", BUG_LOG, strerror (errno)); } } /* Prints out some useful information for the character. Everything we print * out can be determined by the docs, so we aren't revealing anything extra - * rather, we are making it convenient to find the values. params have * no meaning here. */ int command_statistics (object *pl, char *params) { if (!pl->contr) return 1; new_draw_info_format (NDI_UNIQUE, 0, pl, " Experience: %" PRId64, pl->stats.exp); new_draw_info_format (NDI_UNIQUE, 0, pl, " Next Level: %" PRId64, level_exp (pl->level + 1, pl->expmul)); new_draw_info (NDI_UNIQUE, 0, pl, "\nStat Nat/Real/Max"); new_draw_info_format (NDI_UNIQUE, 0, pl, "Str %2d/ %3d/%3d", pl->contr->orig_stats.Str, pl->stats.Str, 20 + pl->arch->clone.stats.Str); new_draw_info_format (NDI_UNIQUE, 0, pl, "Dex %2d/ %3d/%3d", pl->contr->orig_stats.Dex, pl->stats.Dex, 20 + pl->arch->clone.stats.Dex); new_draw_info_format (NDI_UNIQUE, 0, pl, "Con %2d/ %3d/%3d", pl->contr->orig_stats.Con, pl->stats.Con, 20 + pl->arch->clone.stats.Con); new_draw_info_format (NDI_UNIQUE, 0, pl, "Int %2d/ %3d/%3d", pl->contr->orig_stats.Int, pl->stats.Int, 20 + pl->arch->clone.stats.Int); new_draw_info_format (NDI_UNIQUE, 0, pl, "Wis %2d/ %3d/%3d", pl->contr->orig_stats.Wis, pl->stats.Wis, 20 + pl->arch->clone.stats.Wis); new_draw_info_format (NDI_UNIQUE, 0, pl, "Pow %2d/ %3d/%3d", pl->contr->orig_stats.Pow, pl->stats.Pow, 20 + pl->arch->clone.stats.Pow); new_draw_info_format (NDI_UNIQUE, 0, pl, "Cha %2d/ %3d/%3d", pl->contr->orig_stats.Cha, pl->stats.Cha, 20 + pl->arch->clone.stats.Cha); new_draw_info_format (NDI_UNIQUE, 0, pl, "\nAttack Mode: %s", pl->contr->peaceful ? "Peaceful" : "Hostile"); /* Can't think of anything else to print right now */ return 0; } int command_fix_me (object *op, char *params) { sum_weight (op); op->update_stats (); new_draw_info (NDI_UNIQUE, 0, op, "Your character was fixed."); return 1; } int command_logs (object *op, char *params) { new_draw_info (NDI_UNIQUE, 0, op, "Nobody is currently logging kills."); return 1; } int command_bowmode (object *op, char *params) { bowtype_t oldtype = op->contr->bowtype; static const char *const types[] = { "normal", "threewide", "spreadshot", "firenorth", "firene", "fireeast", "firese", "firesouth", "firesw", "firewest", "firenw", "bestarrow" }; char buf[MAX_BUF]; int i, found; if (!params) { new_draw_info_format (NDI_UNIQUE, 0, op, "bowmode is set to %s", types[op->contr->bowtype]); return 1; } for (i = 0, found = 0; i <= bow_bestarrow; i++) { if (!strcmp (params, types[i])) { found++; op->contr->bowtype = (bowtype_t) i; break; } } if (!found) { sprintf (buf, "bowmode: Unknown options %s, valid options are:", params); for (i = 0; i <= bow_bestarrow; i++) { strcat (buf, " "); strcat (buf, types[i]); if (i < bow_nw) strcat (buf, ","); else strcat (buf, "."); } new_draw_info_format (NDI_UNIQUE, 0, op, buf); return 0; } new_draw_info_format (NDI_UNIQUE, 0, op, "bowmode %s set to %s", (oldtype == op->contr->bowtype ? "" : "now"), types[op->contr->bowtype]); return 1; } int command_showpets (object *op, char *params) { objectlink *obl, *next; int counter = 0, target = 0; int have_shown_pet = 0; if (params != NULL) target = atoi (params); for (obl = first_friendly_object; obl != NULL; obl = next) { object *ob = obl->ob; next = obl->next; if (ob->owner == op) { if (target == 0) { if (counter == 0) new_draw_info (NDI_UNIQUE, 0, op, "Pets:"); new_draw_info_format (NDI_UNIQUE, 0, op, "%d %s - level %d", ++counter, &ob->name, ob->level); } else if (!have_shown_pet && ++counter == target) { new_draw_info_format (NDI_UNIQUE, 0, op, "level %d %s", ob->level, &ob->name); new_draw_info_format (NDI_UNIQUE, 0, op, "%d/%d HP, %d/%d SP", ob->stats.hp, ob->stats.maxhp, ob->stats.sp, ob->stats.maxsp); /* this is not a nice way to do this, it should be made to be more like the statistics command */ new_draw_info_format (NDI_UNIQUE, 0, op, "Str %d", ob->stats.Str); new_draw_info_format (NDI_UNIQUE, 0, op, "Dex %d", ob->stats.Dex); new_draw_info_format (NDI_UNIQUE, 0, op, "Con %d", ob->stats.Con); new_draw_info_format (NDI_UNIQUE, 0, op, "Int %d", ob->stats.Int); new_draw_info_format (NDI_UNIQUE, 0, op, "Wis %d", ob->stats.Wis); new_draw_info_format (NDI_UNIQUE, 0, op, "Cha %d", ob->stats.Cha); new_draw_info_format (NDI_UNIQUE, 0, op, "Pow %d", ob->stats.Pow); new_draw_info_format (NDI_UNIQUE, 0, op, "wc %d damage %d ac %d ", ob->stats.wc, ob->stats.dam, ob->stats.ac); have_shown_pet = 1; } } } if (counter == 0) new_draw_info (NDI_UNIQUE, 0, op, "you have no pets."); else if (target != 0 && have_shown_pet == 0) new_draw_info (NDI_UNIQUE, 0, op, "no such pet."); return 0; } int command_resistances (object *op, char *params) { int i; if (!op) return 0; for (i = 0; i < NROFATTACKS; i++) { if (i == ATNR_INTERNAL) continue; new_draw_info_format (NDI_UNIQUE, 0, op, "%-20s %+5d", attacktype_desc[i], op->resist[i]); } /* If dragon player, let's display natural resistances */ if (is_dragon_pl (op)) { int attack; object *tmp; for (tmp = op->inv; tmp != NULL; tmp = tmp->below) { if ((tmp->type == FORCE) && (strcmp (tmp->arch->name, "dragon_skin_force") == 0)) { new_draw_info (NDI_UNIQUE, 0, op, "\nNatural skin resistances:"); for (attack = 0; attack < NROFATTACKS; attack++) { if (atnr_is_dragon_enabled (attack)) { new_draw_info_format (NDI_UNIQUE, 0, op, "%s: %d", change_resist_msg[attack], tmp->resist[attack]); } } break; } } } return 0; } /* * Actual commands. * Those should be in small separate files (c_object.c, c_wiz.c, cmove.c,...) */ int onoff_value (const char *line) { int i; if (sscanf (line, "%d", &i)) return (i != 0); switch (line[0]) { case 'o': switch (line[1]) { case 'n': return 1; /* on */ default: return 0; /* o[ff] */ } case 'y': /* y[es] */ case 'k': /* k[ylla] */ case 's': case 'd': return 1; case 'n': /* n[o] */ case 'e': /* e[i] */ case 'u': default: return 0; } } int command_title (object *op, char *params) { char buf[MAX_BUF]; if (settings.set_title == FALSE) { new_draw_info (NDI_UNIQUE, 0, op, "You cannot change your title."); return 1; } /* dragon players cannot change titles */ if (is_dragon_pl (op)) { new_draw_info (NDI_UNIQUE, 0, op, "Dragons cannot change titles."); return 1; } if (params == NULL) { if (op->contr->own_title[0] == '\0') sprintf (buf, "Your title is '%s'.", op->contr->title); else sprintf (buf, "Your title is '%s'.", op->contr->own_title); new_draw_info (NDI_UNIQUE, 0, op, buf); return 1; } if (strcmp (params, "clear") == 0 || strcmp (params, "default") == 0) { if (op->contr->own_title[0] == '\0') new_draw_info (NDI_UNIQUE, 0, op, "Your title is the default title."); else new_draw_info (NDI_UNIQUE, 0, op, "Title set to default."); op->contr->own_title[0] = '\0'; return 1; } if ((int) strlen (params) >= MAX_NAME) { new_draw_info (NDI_UNIQUE, 0, op, "Title too long."); return 1; } strcpy (op->contr->own_title, params); return 1; } int command_kill_pets (object *op, char *params) { objectlink *obl, *next; int counter = 0, removecount = 0; if (!params) { terminate_all_pets (op); new_draw_info (NDI_UNIQUE, 0, op, "Your pets have been killed."); } else { int target = atoi (params); for (obl = first_friendly_object; obl; obl = next) { object *ob = obl->ob; next = obl->next; if (ob->owner == op) if (++counter == target || (target == 0 && !strcasecmp (ob->name, params))) { ob->destroy (); removecount++; } } if (removecount != 0) new_draw_info_format (NDI_UNIQUE, 0, op, "killed %d pets.\n", removecount); else new_draw_info (NDI_UNIQUE, 0, op, "Couldn't find any suitable pets to kill.\n"); } return 0; }