LCOV - code coverage report
Current view: top level - omega-rpg-0.90-pa9 - command2.c (source / functions) Hit Total Coverage
Test: lcov.info Lines: 30 743 4.0 %
Date: 2017-09-18 20:02:26 Functions: 2 25 8.0 %
Branches: 18 420 4.3 %

           Branch data     Line data    Source code
       1                 :            : /* omega copyright (C) by Laurence Raphael Brothers, 1987,1988,1989 */
       2                 :            : /* command2.c */
       3                 :            : 
       4                 :            : /* This file contains toplevel commands called from command1.c */
       5                 :            : 
       6                 :            : #ifndef MSDOS_SUPPORTED_ANTIQUE
       7                 :            : #include <unistd.h>
       8                 :            : #include <ctype.h>
       9                 :            : #endif
      10                 :            : 
      11                 :            : #include "glob.h"
      12                 :            : 
      13                 :            : /* no op a turn.... */
      14                 :          0 : void rest(void)
      15                 :            : {
      16         [ #  # ]:          0 :   if (random_range(20) == 1) {
      17   [ #  #  #  #  :          0 :     switch(random_range(10)) {
          #  #  #  #  #  
                   #  # ]
      18                 :          0 :       case 0: print3(" Time passes slowly.... "); break;
      19                 :          0 :       case 1: print3(" Tick. Tock. Tick. Tock. "); break;
      20                 :          0 :       case 2: print3(" Ho Hum. "); break;
      21                 :          0 :       case 3: print3(" Beauty Sleep. Well, in your case, Ugly Sleep. "); break;
      22                 :          0 :       case 4: print3(" And with Strange Aeons, even Death may die. "); break;
      23                 :          0 :       case 5: print3(" La Di Da. "); break;
      24                 :          0 :       case 6: print3(" Time keeps on tickin' tickin' -- into the future.... ");
      25                 :          0 :               break;
      26                 :          0 :       case 7: print3(" Boooring! "); break;
      27                 :          0 :       case 8: print3(" You think I like watching you sleep? "); break;
      28                 :          0 :       case 9: print3(" You sure have an early bedtime! "); break;
      29                 :            :     }
      30                 :          0 :     morewait();
      31                 :            :   }
      32                 :          0 : }
      33                 :            : 
      34                 :            : 
      35                 :            : /* read a scroll, book, tome, etc. */
      36                 :          0 : void peruse(void)
      37                 :            : {
      38                 :            :   int index;
      39                 :            :   struct object *obj;
      40                 :            : 
      41                 :          0 :   clearmsg();
      42                 :            : 
      43         [ #  # ]:          0 :   if (Player.status[BLINDED] > 0)
      44                 :          0 :     print3("You're blind -- you can't read!!!");
      45         [ #  # ]:          0 :   else if (Player.status[AFRAID] > 0)
      46                 :          0 :     print3("You are too afraid to stop to read a scroll!");
      47                 :            :   else {
      48                 :          0 :     index = getitem_prompt("Read -- ", SCROLL);
      49         [ #  # ]:          0 :     if (index == ABORT)
      50                 :          0 :       setgamestatus(SKIP_MONSTERS);
      51                 :            :     else {
      52                 :          0 :       obj = Player.possessions[index];
      53         [ #  # ]:          0 :       if (obj->objchar != SCROLL) {
      54                 :          0 :         print3("There's nothing written on ");
      55                 :          0 :         nprint3(itemid(obj));
      56                 :            :       }
      57                 :            :       else {
      58                 :          0 :         nprint1("You carefully unfurl the scroll....");
      59                 :          0 :         morewait();
      60                 :          0 :         item_use(obj);
      61                 :          0 :         dispose_lost_objects(1,obj);
      62                 :            :       }
      63                 :            :     }
      64                 :            :   }
      65                 :          0 : }
      66                 :            : 
      67                 :          0 : void quaff(void)
      68                 :            : {
      69                 :            :   int index;
      70                 :            :   struct object *obj;
      71                 :          0 :   clearmsg();
      72                 :          0 :   index = getitem_prompt("Quaff -- ", POTION);
      73         [ #  # ]:          0 :   if (index == ABORT)
      74                 :          0 :     setgamestatus(SKIP_MONSTERS);
      75                 :            :   else {
      76                 :          0 :     obj = Player.possessions[index];
      77         [ #  # ]:          0 :     if (obj->objchar != POTION) {
      78                 :          0 :       print3("You can't drink ");
      79                 :          0 :       nprint3(itemid(obj));
      80                 :            :     }
      81                 :            :     else {
      82                 :          0 :       print1("You drink it down.... ");
      83                 :          0 :       item_use(obj);
      84                 :          0 :       morewait();
      85                 :          0 :       dispose_lost_objects(1,obj);
      86                 :            :     }
      87                 :            :   }
      88                 :          0 : }
      89                 :            : 
      90                 :          0 : void activate(void)
      91                 :            : {
      92                 :          0 :   int index = ABORT;
      93                 :            :   char response;
      94                 :            : 
      95                 :          0 :   clearmsg();
      96                 :            : 
      97                 :          0 :   print1("Activate -- item [i] or artifact [a] or quit [ESCAPE]?");
      98                 :          0 :   do response = (char) mcigetc();
      99 [ #  # ][ #  # ]:          0 :   while ((response != 'i') && (response != 'a') && (response != ESCAPE));
                 [ #  # ]
     100         [ #  # ]:          0 :   if (response != ESCAPE) {
     101         [ #  # ]:          0 :     if (response == 'i')
     102                 :          0 :       index = getitem_prompt("Activate -- ", THING);
     103         [ #  # ]:          0 :     else if (response == 'a')
     104                 :          0 :       index = getitem_prompt("Activate -- ", ARTIFACT);
     105         [ #  # ]:          0 :     if (index != ABORT) {
     106                 :          0 :       clearmsg();
     107                 :          0 :       print1("You activate it.... ");
     108                 :          0 :       morewait();
     109                 :          0 :       item_use(Player.possessions[index]);
     110                 :            :     }
     111                 :          0 :     else setgamestatus(SKIP_MONSTERS);
     112                 :            :   }
     113                 :          0 :   else setgamestatus(SKIP_MONSTERS);
     114                 :          0 : }
     115                 :            : 
     116                 :            : 
     117                 :          0 : void eat (void)
     118                 :            : {
     119                 :            :   int index;
     120                 :            :   struct object *obj;
     121                 :            : 
     122                 :          0 :   clearmsg();
     123                 :            : 
     124                 :          0 :   index = getitem_prompt("Eat -- ", FOOD);
     125                 :            : 
     126         [ #  # ]:          0 :   if (index == ABORT)
     127                 :            :     {
     128                 :          0 :       setgamestatus(SKIP_MONSTERS);
     129                 :            :     }
     130                 :            :   else
     131                 :            :     {
     132                 :          0 :       obj = Player.possessions[index];
     133 [ #  # ][ #  # ]:          0 :       if ((obj->objchar != FOOD) && (obj->objchar != CORPSE))
     134                 :            :         {
     135                 :          0 :           print3("You can't eat ");
     136                 :          0 :           nprint3(itemid(obj));
     137                 :            :         }
     138                 :            :       else
     139                 :            :         {
     140         [ #  # ]:          0 :           if (obj->usef == I_FOOD) Player.food = max(0, Player.food+obj->aux);
     141                 :          0 :           item_use(obj);
     142                 :          0 :           dispose_lost_objects(1,obj);
     143         [ #  # ]:          0 :           if (Current_Dungeon == E_COUNTRYSIDE)
     144                 :            :             {
     145                 :          0 :               Time += 100;
     146                 :          0 :               hourly_check();
     147                 :            :             }
     148                 :            :         }
     149                 :            :     }
     150                 :            : 
     151                 :          0 :   foodcheck();
     152                 :          0 : }
     153                 :            : 
     154                 :            : 
     155                 :            : /* search all adjacent spots for secrecy */
     156                 :          0 : void search(int *searchval)
     157                 :            : {
     158                 :            :   int i;
     159         [ #  # ]:          0 :   if (Player.status[AFRAID] > 0)
     160                 :          0 :     print3("You are too terror-stricken to stop to search for anything.");
     161                 :            :   else {
     162         [ #  # ]:          0 :     if (!gamestatusp(FAST_MOVE)) {
     163                 :          0 :       setgamestatus(FAST_MOVE);
     164                 :          0 :       *searchval = Searchnum;
     165                 :            :     }
     166         [ #  # ]:          0 :     for (i=0;i<9;i++) 
     167                 :          0 :       searchat(Player.x+Dirs[0][i],Player.y+Dirs[1][i]);
     168                 :          0 :     drawvision(Player.x,Player.y);
     169                 :            :   }
     170                 :          0 : }
     171                 :            : 
     172                 :            : 
     173                 :            : 
     174                 :            : /* pick up a thing where the player is */
     175                 :          0 :  void pickup(void)
     176                 :            :  {
     177         [ #  # ]:          0 :    if (Level->site[Player.x][Player.y].things == NULL)
     178                 :          0 :      print3("There's nothing there!");
     179         [ #  # ]:          0 :    else if (Player.status[SHADOWFORM])
     180                 :          0 :      print3("You can't really interact with the real world in your shadowy state.");
     181                 :            :    else
     182                 :          0 :      pickup_at(Player.x,Player.y);
     183                 :          0 :  }
     184                 :            : 
     185                 :            : 
     186                 :            : #ifndef MSDOS_SUPPORTED_ANTIQUE
     187                 :            : /* floor inventory */
     188                 :          0 : void floor_inv(void)
     189                 :            : {
     190                 :          0 :   pol ol = Level->site[Player.x][Player.y].things;
     191                 :          0 :   setgamestatus(SKIP_MONSTERS);
     192                 :          0 :   menuclear();
     193         [ #  # ]:          0 :   while (ol != NULL) {
     194         [ #  # ]:          0 :     if (ol->thing == NULL) print3("***Error; null thing on things list***");
     195                 :            :     else {
     196                 :          0 :       menuprint(itemid(ol->thing));
     197                 :          0 :       menuprint("\n");
     198                 :            :     }
     199                 :          0 :     ol = ol->next;
     200                 :            :   }
     201                 :          0 :   showmenu();
     202                 :          0 :   morewait();
     203                 :          0 :   xredraw();
     204                 :          0 : }
     205                 :            : #endif
     206                 :            : 
     207                 :            : 
     208                 :          0 : void drop(void)
     209                 :            : {
     210                 :            :   int index,n;
     211                 :            :   
     212                 :          0 :   clearmsg();
     213                 :            : 
     214                 :          0 :   index = getitem_prompt("Drop -- ", CASH);
     215         [ #  # ]:          0 :   if (index == ABORT)
     216                 :          0 :     setgamestatus(SKIP_MONSTERS);
     217                 :            :   else {
     218         [ #  # ]:          0 :     if (index == CASHVALUE) drop_money();
     219   [ #  #  #  # ]:          0 :     else if ((! Player.possessions[index]->used) ||
     220                 :          0 :              (! cursed(Player.possessions[index]))) {
     221         [ #  # ]:          0 :       if (Player.possessions[index]->number == 1) {
     222                 :          0 :         p_drop_at(Player.x,Player.y,1,Player.possessions[index]);
     223                 :          0 :         conform_lost_objects(1,Player.possessions[index]);
     224                 :            :       }
     225                 :            :       else {
     226                 :          0 :         n = getnumber(Player.possessions[index]->number);
     227                 :          0 :         p_drop_at(Player.x,Player.y,n,Player.possessions[index]);
     228                 :          0 :         conform_lost_objects(n,Player.possessions[index]);
     229                 :            :       }
     230                 :            :     }
     231                 :            :     else {
     232                 :          0 :       print3("You can't seem to get rid of: ");
     233                 :          0 :       nprint3(itemid(Player.possessions[index]));
     234                 :            :     }
     235                 :            :   }
     236                 :          0 :   calc_melee();
     237                 :          0 : }
     238                 :            : 
     239                 :            : 
     240                 :            : /* talk to the animals -- learn their languages.... */
     241                 :          0 : void talk(void)
     242                 :            : {
     243                 :          0 :   int dx,dy,index=0;
     244                 :            :   char response;
     245                 :            :   struct monster *m;
     246                 :            : 
     247                 :          0 :   clearmsg();
     248                 :            : 
     249                 :          0 :   print1("Talk --");
     250                 :          0 :   index = getdir();
     251                 :            : 
     252         [ #  # ]:          0 :   if (index == ABORT)
     253                 :          0 :     setgamestatus(SKIP_MONSTERS);
     254                 :            :   else {
     255                 :          0 :     dx = Dirs[0][index];
     256                 :          0 :     dy = Dirs[1][index];
     257                 :            :     
     258 [ #  # ][ #  # ]:          0 :     if ((! inbounds(Player.x+dx, Player.y+dy)) ||
     259                 :          0 :         (Level->site[Player.x+dx][Player.y+dy].creature == NULL)) {
     260                 :          0 :       print3("There's nothing there to talk to!!!");
     261                 :          0 :       setgamestatus(SKIP_MONSTERS);
     262                 :            :     }
     263                 :            :     else {
     264                 :          0 :       m = Level->site[Player.x+dx][Player.y+dy].creature;
     265                 :          0 :       menuclear();
     266                 :          0 :       strcpy(Str1,"     Talk to ");
     267                 :          0 :       strcat(Str1,m->monstring);
     268                 :          0 :       strcat(Str1,":");
     269                 :          0 :       menuprint(Str1);
     270                 :          0 :       menuprint("\na: Greet.");
     271                 :          0 :       menuprint("\nb: Threaten.");
     272                 :          0 :       menuprint("\nc: Surrender.");
     273                 :          0 :       menuprint("\nESCAPE: Clam up.");
     274                 :          0 :       showmenu();
     275                 :          0 :       do response = menugetc();
     276         [ #  # ]:          0 :       while ((response != 'a') &&
     277         [ #  # ]:          0 :              (response != 'b') &&
     278         [ #  # ]:          0 :              (response != 'c') &&
     279         [ #  # ]:          0 :              (response != ESCAPE));
     280   [ #  #  #  # ]:          0 :       switch(response) {
     281                 :          0 :       case 'a': monster_talk(m); break;
     282                 :          0 :       case 'b': threaten(m); break;
     283                 :          0 :       case 'c': surrender(m); break;
     284                 :          0 :       default: setgamestatus(SKIP_MONSTERS); break;
     285                 :            :       }
     286                 :            :     }
     287                 :            :   }
     288                 :          0 :   xredraw();
     289                 :          0 : }
     290                 :            : 
     291                 :            : /* try to deactivate a trap */
     292                 :          0 : void disarm(void)
     293                 :            : {
     294                 :          0 :   int x,y,index=0;
     295                 :            :   pob o;
     296                 :            : 
     297                 :          0 :   clearmsg();
     298                 :          0 :   print1("Disarm -- ");
     299                 :            : 
     300                 :          0 :   index = getdir();
     301                 :            : 
     302         [ #  # ]:          0 :   if (index == ABORT)
     303                 :          0 :     setgamestatus(SKIP_MONSTERS);
     304                 :            :   else {
     305                 :          0 :     x = Dirs[0][index]+Player.x;
     306                 :          0 :     y = Dirs[1][index]+Player.y;
     307                 :            :     
     308         [ #  # ]:          0 :     if (! inbounds(x,y))
     309                 :          0 :       print3("Whoa, off the map...");
     310         [ #  # ]:          0 :     else if (Level->site[x][y].locchar != TRAP)
     311                 :          0 :       print3("You can't see a trap there!");
     312                 :            :     else {
     313         [ #  # ]:          0 :       if (random_range(50+difficulty()*5) < 
     314                 :          0 :           Player.dex*2+Player.level*3+Player.rank[THIEVES]*10) {
     315                 :          0 :         print1("You disarmed the trap!");
     316         [ #  # ]:          0 :         if (random_range(100) < Player.dex+Player.rank[THIEVES]*10) {
     317                 :          0 :           o = ((pob) checkmalloc(sizeof(objtype)));
     318   [ #  #  #  #  :          0 :           switch(Level->site[x][y].p_locf) {
          #  #  #  #  #  
                      # ]
     319                 :            :           case L_TRAP_DART: 
     320                 :          0 :             *o=Objects[OB_TRAP_DART];
     321                 :          0 :             break;
     322                 :            :           case L_TRAP_DISINTEGRATE:
     323                 :          0 :             *o=Objects[OB_TRAP_DISINTEGRATE];
     324                 :          0 :             break;
     325                 :            :           case L_TRAP_SLEEP_GAS:
     326                 :          0 :             *o=Objects[OB_TRAP_SLEEP];
     327                 :          0 :             break;
     328                 :            :           case L_TRAP_TELEPORT:
     329                 :          0 :             *o=Objects[OB_TRAP_TELEPORT];
     330                 :          0 :             break;
     331                 :            :           case L_TRAP_ABYSS:
     332                 :          0 :             *o=Objects[OB_TRAP_ABYSS];
     333                 :          0 :             break;
     334                 :            :           case L_TRAP_FIRE:
     335                 :          0 :             *o=Objects[OB_TRAP_FIRE];
     336                 :          0 :             break;
     337                 :            :           case L_TRAP_SNARE:
     338                 :          0 :             *o=Objects[OB_TRAP_SNARE];
     339                 :          0 :             break;
     340                 :            :           case L_TRAP_ACID:
     341                 :          0 :             *o=Objects[OB_TRAP_ACID];
     342                 :          0 :             break;
     343                 :            :           case L_TRAP_MANADRAIN:
     344                 :          0 :             *o=Objects[OB_TRAP_MANADRAIN];
     345                 :          0 :             break;
     346                 :            :           default:
     347                 :            :             /* DAG can't use free_obj() as object not initialized */
     348                 :          0 :             free(o); 
     349                 :          0 :             o = NULL;
     350                 :          0 :             break;
     351                 :            :           }
     352         [ #  # ]:          0 :           if (o != NULL) {
     353                 :          0 :             print2("You manage to retrieve the trap components!");
     354                 :          0 :             morewait();
     355                 :          0 :             Objects[o->id].known = 1;
     356                 :          0 :             o->known = 1;
     357                 :          0 :             gain_item(o);
     358                 :          0 :             gain_experience(25);
     359                 :            :           }
     360                 :            :         }
     361                 :          0 :         Level->site[x][y].p_locf = L_NO_OP;
     362                 :          0 :         Level->site[x][y].locchar = FLOOR;
     363                 :          0 :         lset(x, y, CHANGED);
     364                 :          0 :         gain_experience(5);
     365                 :            :       }
     366         [ #  # ]:          0 :       else if (random_range(10+difficulty()*2) > Player.dex) {
     367                 :          0 :         print1("You accidentally set off the trap!");
     368                 :          0 :         Player.x = x; Player.y = y;
     369                 :          0 :         p_movefunction(Level->site[x][y].p_locf);
     370                 :            :       }
     371                 :          0 :       else print1("You failed to disarm the trap.");
     372                 :            :     }
     373                 :            :   }
     374                 :          0 : }
     375                 :            : 
     376                 :            : /* is it more blessed to give, or receive? */
     377                 :          0 : void give(void)
     378                 :            : {
     379                 :            :   int index;
     380                 :          0 :   int dx,dy,dindex=0;
     381                 :            :   struct monster *m;
     382                 :            :   pob obj;
     383                 :            : 
     384                 :          0 :   clearmsg();
     385                 :            : 
     386                 :          0 :   print1("Give to monster --");
     387                 :          0 :   dindex = getdir();
     388         [ #  # ]:          0 :   if (dindex == ABORT) 
     389                 :          0 :     setgamestatus(SKIP_MONSTERS);
     390                 :            :   else {
     391                 :          0 :     dx = Dirs[0][dindex];
     392                 :          0 :     dy = Dirs[1][dindex];
     393         [ #  # ]:          0 :     if (! inbounds(Player.x+dx, Player.y+dy))
     394                 :          0 :       print3("Whoa, off the map...");
     395         [ #  # ]:          0 :     else if (Level->site[Player.x+dx][Player.y+dy].creature == NULL) {
     396                 :          0 :       print3("There's nothing there to give something to!!!");
     397                 :          0 :       setgamestatus(SKIP_MONSTERS);
     398                 :            :     }
     399                 :            :     else {
     400                 :          0 :       m = Level->site[Player.x+dx][Player.y+dy].creature;
     401                 :          0 :       clearmsg();
     402                 :          0 :       index = getitem_prompt("Give what? ", CASH);
     403         [ #  # ]:          0 :       if (index == ABORT)
     404                 :          0 :         setgamestatus(SKIP_MONSTERS);
     405         [ #  # ]:          0 :       else if (index == CASHVALUE) give_money(m);
     406         [ #  # ]:          0 :       else if (! cursed(Player.possessions[index])) {
     407                 :          0 :         obj = copy_obj(  Player.possessions[index] );
     408                 :          0 :         obj->used = FALSE;
     409                 :          0 :         conform_lost_objects(1,Player.possessions[index]);
     410                 :          0 :         obj->number = 1;
     411                 :          0 :         print2("Given: ");
     412                 :          0 :         nprint2(itemid(obj));
     413                 :          0 :         morewait();
     414                 :            :         /* WDT bug fix: I moved the print above the givemonster
     415                 :            :          * call.  If that turns out looking ugly, I should change it to
     416                 :            :          * a sprintf or strcat.  At any rate, it was wrong before because
     417                 :            :          * it was accessing an object which had already been freed as part
     418                 :            :          * of givemonster. */
     419                 :          0 :         givemonster(m,obj);
     420                 :          0 :         calc_melee();
     421                 :            :       }
     422                 :            :       else {
     423                 :          0 :         print3("You can't even give away: ");
     424                 :          0 :         nprint3(itemid(Player.possessions[index]));
     425                 :            :       }
     426                 :            :     }
     427                 :            :   }
     428                 :          0 : }
     429                 :            : 
     430                 :            : 
     431                 :            : /* zap a wand, of course */
     432                 :          0 : void zapwand(void)
     433                 :            : {
     434                 :            :   int index;
     435                 :            :   struct object *obj;
     436                 :            : 
     437                 :          0 :   clearmsg();
     438                 :            : 
     439         [ #  # ]:          0 :   if (Player.status[AFRAID] > 0)
     440                 :          0 :     print3("You are so terror-stricken you can't hold a wand straight!");
     441                 :            :   else {
     442                 :          0 :     index = getitem_prompt("Zap -- ", STICK);
     443         [ #  # ]:          0 :     if (index == ABORT)
     444                 :          0 :       setgamestatus(SKIP_MONSTERS);
     445                 :            :     else {
     446                 :          0 :       obj = Player.possessions[index];
     447         [ #  # ]:          0 :       if (obj->objchar != STICK) {
     448                 :          0 :         print3("You can't zap: ");
     449                 :          0 :         nprint3(itemid(obj));
     450                 :            :       }
     451                 :            :       else 
     452         [ #  # ]:          0 :         if (obj->charge < 1) 
     453                 :          0 :           print3("Fizz.... Pflpt. Out of charges. ");
     454                 :            :         else {
     455                 :          0 :           obj->charge--;
     456                 :          0 :           item_use(obj);
     457                 :            :         }
     458                 :            :     }
     459                 :            :   }
     460                 :          0 : }
     461                 :            : 
     462                 :            : /* cast a spell */
     463                 :          0 : void magic(void)
     464                 :            : {
     465                 :            :   int index,drain;
     466                 :          0 :   clearmsg();
     467         [ #  # ]:          0 :   if (Player.status[AFRAID] > 0)
     468                 :          0 :     print3("You are too afraid to concentrate on a spell!");
     469                 :            :   else {
     470                 :          0 :     index = getspell();
     471                 :          0 :     xredraw();
     472         [ #  # ]:          0 :     if (index == ABORT)
     473                 :          0 :       setgamestatus(SKIP_MONSTERS);
     474                 :            :     else {
     475                 :          0 :       drain = Spells[index].powerdrain;
     476         [ #  # ]:          0 :       if (Lunarity == 1) drain = drain / 2;
     477         [ #  # ]:          0 :       else if (Lunarity == -1) drain = drain *2;
     478         [ #  # ]:          0 :       if (drain > Player.mana)
     479 [ #  # ][ #  # ]:          0 :         if (Lunarity == -1 && Player.mana >= drain/2)
     480                 :          0 :           print3("The contrary moon has made that spell too draining! ");
     481                 :            :         else
     482                 :          0 :           print3("You lack the power for that spell! ");
     483                 :            :       else {
     484                 :          0 :         Player.mana -= drain;
     485                 :          0 :         cast_spell(index);
     486                 :            :       }
     487                 :            :     }
     488                 :            :   }
     489                 :          0 :   dataprint();
     490                 :          0 : }
     491                 :            : 
     492                 :            : 
     493                 :            : /* go upstairs ('<' command) */
     494                 :          0 : void upstairs(void)
     495                 :            : {
     496         [ #  # ]:          0 :   if (Level->site[Player.x][Player.y].locchar != STAIRS_UP)
     497                 :          0 :     print3("Not here!");
     498         [ #  # ]:          0 :   else if (Level->site[Player.x][Player.y].p_locf == L_ESCALATOR)
     499                 :          0 :     p_movefunction(Level->site[Player.x][Player.y].p_locf);
     500                 :            :   else {
     501         [ #  # ]:          0 :     if (gamestatusp(MOUNTED))
     502                 :          0 :       print2("You manage to get your horse upstairs.");
     503                 :          0 :     print1("You ascend a level.");
     504         [ #  # ]:          0 :     if (Level->depth <= 1) {
     505         [ #  # ]:          0 :       if (Level->environment == E_SEWERS)
     506                 :          0 :         change_environment(E_CITY);
     507                 :          0 :       else change_environment(E_COUNTRYSIDE);
     508                 :            :     }
     509                 :          0 :     else change_level(Level->depth,Level->depth-1,FALSE);
     510                 :          0 :     roomcheck();
     511                 :            :   }
     512                 :          0 :   setgamestatus(SKIP_MONSTERS);
     513                 :          0 : }
     514                 :            : 
     515                 :            : 
     516                 :            : 
     517                 :            : /* go downstairs ('>' command) */
     518                 :          0 : void downstairs(void)
     519                 :            : {
     520         [ #  # ]:          0 :   if (Level->site[Player.x][Player.y].locchar != STAIRS_DOWN)
     521                 :          0 :     print3("Not here!");
     522 [ #  # ][ #  # ]:          0 :   else if (Level->site[Player.x][Player.y].p_locf == L_ENTER_CIRCLE ||
     523                 :          0 :     Level->site[Player.x][Player.y].p_locf == L_ENTER_COURT)
     524                 :          0 :     p_movefunction(Level->site[Player.x][Player.y].p_locf);
     525                 :            :   else {
     526         [ #  # ]:          0 :     if (gamestatusp(MOUNTED))
     527                 :          0 :       print2("You manage to get your horse downstairs.");
     528         [ #  # ]:          0 :     if (Current_Environment == Current_Dungeon) {
     529                 :          0 :       print1("You descend a level.");
     530                 :          0 :       change_level(Level->depth,Level->depth+1,FALSE);
     531                 :          0 :       roomcheck();
     532                 :            :     }
     533 [ #  # ][ #  # ]:          0 :     else if ((Current_Environment == E_CITY) ||
     534                 :          0 :              (Last_Environment == E_CITY))
     535                 :          0 :       change_environment(E_SEWERS);
     536         [ #  # ]:          0 :     else if (Current_Environment != Current_Dungeon)
     537                 :          0 :       print3("This stairway is deviant. You can't use it.");
     538                 :            :   }
     539                 :          0 :   setgamestatus(SKIP_MONSTERS);
     540                 :          0 : }
     541                 :            : 
     542                 :            : 
     543                 :            : 
     544                 :            : 
     545                 :            : /* set various player options */
     546                 :            : /* have to redefine in odefs for next full recompile */
     547                 :          0 : void setoptions(void)
     548                 :            : {
     549                 :          0 :   int slot = 1,to,done = FALSE;
     550                 :            :   int response;
     551                 :            : 
     552                 :          0 :   clearmsg();
     553                 :          0 :   menuclear();
     554                 :            : 
     555                 :          0 :   display_options();
     556                 :            : 
     557                 :          0 :   move_slot(1,1,NUMOPTIONS);
     558                 :          0 :   clearmsg();
     559                 :          0 :   print1("Currently selected option is preceded by highlit >>");
     560                 :          0 :   print2("Move selected option with '>' and '<', ESCAPE to quit.");
     561                 :            :   do {
     562                 :          0 :     response = mcigetc();
     563   [ #  #  #  #  :          0 :     switch(response) {
          #  #  #  #  #  
                   #  # ]
     564                 :            :     case 'j':
     565                 :            :     case '>':
     566                 :            : #ifdef KEY_DOWN
     567                 :            :     case KEY_DOWN:
     568                 :            : #endif
     569                 :          0 :       to = slot + 1;
     570                 :            : #ifndef COMPRESS_SAVE_FILES
     571         [ #  # ]:          0 :       if (to == 8)      /* COMPRESS_OPTION */
     572                 :          0 :         to = 9;
     573                 :            : #endif
     574                 :          0 :       slot = move_slot(slot,to,NUMOPTIONS+1);
     575                 :          0 :       break;
     576                 :            :     case 'k':
     577                 :            :     case '<':
     578                 :            : #ifdef KEY_UP
     579                 :            :     case KEY_UP:
     580                 :            : #endif
     581                 :          0 :       to = slot - 1;
     582                 :            : #ifndef COMPRESS_SAVE_FILES
     583         [ #  # ]:          0 :       if (to == 8)      /* COMPRESS_OPTION */
     584                 :          0 :         to = 7;
     585                 :            : #endif
     586         [ #  # ]:          0 :       if (to > 0)
     587                 :          0 :         slot = move_slot(slot,to,NUMOPTIONS+1); 
     588                 :          0 :       break;
     589                 :            : #ifdef KEY_HOME
     590                 :            :     case KEY_HOME:
     591                 :          0 :       slot = move_slot(slot,1,NUMOPTIONS+1);
     592                 :          0 :       break;
     593                 :            : #endif
     594                 :            : #ifdef KEY_LL
     595                 :            :     case KEY_LL:
     596                 :          0 :       slot = move_slot(slot,NUMOPTIONS,NUMOPTIONS+1);
     597                 :          0 :       break;
     598                 :            : #endif
     599                 :            :     case 't':
     600         [ #  # ]:          0 :       if (slot <= NUMTFOPTIONS) 
     601                 :          0 :         optionset(pow2(slot-1));
     602         [ #  # ]:          0 :       else if (slot == VERBOSITY_LEVEL)
     603                 :          0 :         Verbosity = TERSE;
     604                 :          0 :       else print3("'T' is meaningless for this option.");
     605                 :          0 :       break;
     606                 :            :     case 'f':
     607         [ #  # ]:          0 :       if (slot <= NUMTFOPTIONS) 
     608                 :          0 :         optionreset(pow2(slot-1));
     609                 :          0 :       else print3("'F' is meaningless for this option.");
     610                 :          0 :       break;
     611                 :            :     case 'm':
     612         [ #  # ]:          0 :       if (slot == VERBOSITY_LEVEL) 
     613                 :          0 :         Verbosity = MEDIUM;
     614                 :          0 :       else print3("'M' is meaningless for this option.");
     615                 :          0 :       break;
     616                 :            :     case 'v':
     617         [ #  # ]:          0 :       if (slot == VERBOSITY_LEVEL) 
     618                 :          0 :         Verbosity = VERBOSE;
     619                 :          0 :       else print3("'V' is meaningless for this option.");
     620                 :          0 :       break;
     621                 :            :     case '1':case '2':case '3':case '4':case '5':
     622                 :            :     case '6':case '7':case '8':case'9':
     623         [ #  # ]:          0 :       if (slot == SEARCH_DURATION)
     624                 :          0 :         Searchnum = response - '0';
     625                 :          0 :       else print3("A number is meaningless for this option.");
     626                 :          0 :       break;
     627                 :            :     case ESCAPE:
     628                 :          0 :       done = TRUE;
     629                 :          0 :       break;
     630                 :          0 :     default: print3("That response is meaningless for this option."); break;
     631                 :            :     }
     632                 :          0 :     display_option_slot(slot);
     633                 :          0 :     move_slot(slot,slot,NUMOPTIONS+1);
     634         [ #  # ]:          0 :   } while (! done);
     635         [ #  # ]:          0 :   if (optionp(SHOW_COLOUR))
     636                 :          0 :     colour_on();
     637                 :            :   else
     638                 :          0 :     colour_off();
     639                 :            : #if !defined(MSDOS_SUPPORTED_ANTIQUE) && !defined(AMIGA)
     640                 :          0 :   xredraw();
     641                 :            : #endif
     642                 :          0 : }
     643                 :            : 
     644                 :            : 
     645                 :            : 
     646                 :            : /* name an item */
     647                 :          0 : void callitem(void)
     648                 :            : {
     649                 :            :   int index;
     650                 :            :   pob obj;
     651                 :            : 
     652                 :          0 :   clearmsg();
     653                 :          0 :   setgamestatus(SKIP_MONSTERS);
     654                 :          0 :   index = getitem_prompt("Call -- ", NULL_ITEM);
     655         [ #  # ]:          0 :   if (index == CASHVALUE) print3("Can't rename cash!");
     656         [ #  # ]:          0 :   else if (index != ABORT) {
     657                 :          0 :     obj = Player.possessions[index];
     658         [ #  # ]:          0 :     if (obj->known)
     659                 :          0 :       print3("That item is already identified!");
     660                 :            :     else {
     661                 :          0 :       print1("Call it:");
     662                 :          0 :       obj->objstr = salloc(msgscanstring());
     663                 :          0 :       clearmsg();
     664                 :          0 :       print2("Also call all similar items by that name? [yn] ");
     665         [ #  # ]:          0 :       if (ynq2() == 'y') {
     666                 :          0 :         Objects[obj->id].objstr = obj->objstr;
     667                 :            :       }
     668                 :            :     }
     669                 :            :   }
     670                 :          0 : }
     671                 :            : 
     672                 :            : 
     673                 :            : /* open a door */
     674                 :          0 : void opendoor(void)
     675                 :            : {
     676                 :            :   int dir;
     677                 :            :   int ox,oy;
     678                 :            : 
     679                 :          0 :   clearmsg();
     680                 :          0 :   print1("Open --");
     681                 :          0 :   dir = getdir();
     682         [ #  # ]:          0 :   if (dir == ABORT)
     683                 :          0 :     setgamestatus(SKIP_MONSTERS);
     684                 :            :   else {
     685                 :          0 :     ox = Player.x + Dirs[0][dir];
     686                 :          0 :     oy = Player.y + Dirs[1][dir];
     687         [ #  # ]:          0 :     if (Level->site[ox][oy].locchar == OPEN_DOOR) {
     688                 :          0 :       print3("That door is already open!");
     689                 :          0 :       setgamestatus(SKIP_MONSTERS);
     690                 :            :     }
     691         [ #  # ]:          0 :     else if (Level->site[ox][oy].locchar == PORTCULLIS) {
     692                 :          0 :       print1("You try to lift the massive steel portcullis....");
     693         [ #  # ]:          0 :       if (random_range(100) < Player.str) {
     694                 :          0 :         print2("Incredible. You bust a gut and lift the portcullis.");
     695                 :          0 :         Level->site[ox][oy].locchar = FLOOR;
     696                 :          0 :         lset(ox, oy, CHANGED);
     697                 :            :       }
     698                 :            :       else {
     699                 :          0 :         print2("Argh. You ruptured yourself.");
     700                 :          0 :         p_damage(Player.str,UNSTOPPABLE,"a portcullis");
     701                 :            :       }
     702                 :            :     }
     703 [ #  # ][ #  # ]:          0 :     else if ((Level->site[ox][oy].locchar != CLOSED_DOOR) || 
     704                 :          0 :              loc_statusp(ox,oy,SECRET)) {
     705                 :          0 :       print3("You can't open that!");
     706                 :          0 :       setgamestatus(SKIP_MONSTERS);
     707                 :            :     }
     708         [ #  # ]:          0 :     else if (Level->site[ox][oy].aux == LOCKED) 
     709                 :          0 :       print3("That door seems to be locked.");
     710                 :            :     else {
     711                 :          0 :       Level->site[ox][oy].locchar = OPEN_DOOR;
     712                 :          0 :       lset(ox, oy, CHANGED);
     713                 :            :     }
     714                 :            :   }
     715                 :          0 : }
     716                 :            : 
     717                 :            : 
     718                 :            : /* Try to destroy some location */
     719                 :          0 : void bash_location(void)
     720                 :            : {
     721                 :            :   int dir;
     722                 :            :   int ox,oy;
     723                 :            : 
     724                 :          0 :   clearmsg();
     725                 :          0 :   print1("Bashing --");
     726                 :          0 :   dir = getdir();
     727         [ #  # ]:          0 :   if (dir == ABORT)
     728                 :          0 :     setgamestatus(SKIP_MONSTERS);
     729                 :            :   else {
     730                 :          0 :     ox = Player.x + Dirs[0][dir];
     731                 :          0 :     oy = Player.y + Dirs[1][dir];
     732 [ #  # ][ #  # ]:          0 :     if ((Current_Environment == E_CITY) &&
     733         [ #  # ]:          0 :         (ox == 0) &&
     734                 :            :         (oy == 0)) {
     735                 :          0 :       print1("Back Door WIZARD Mode!");
     736                 :          0 :       print2("You will invalidate your score if you proceed.");
     737                 :          0 :       morewait();
     738         [ #  # ]:          0 :       if (cinema_confirm("You are about to enable WIZARD Mode.")=='y') {
     739                 :          0 :         print2("You feel like a cheater.");
     740                 :          0 :         setgamestatus(CHEATED);
     741                 :            :       }
     742                 :          0 :       else print2("A sudden tension goes out of the air....");
     743                 :            :     }
     744                 :            :     else {
     745         [ #  # ]:          0 :       if (Level->site[ox][oy].locchar == WALL) {
     746                 :          0 :         print1("You hurl yourself at the wall!");
     747                 :          0 :         p_damage(Player.str,NORMAL_DAMAGE,"a suicidal urge");
     748                 :            :       }
     749         [ #  # ]:          0 :       else if (Level->site[ox][oy].locchar == OPEN_DOOR) {
     750                 :          0 :         print1("You hurl yourself through the open door!");
     751                 :          0 :         print2("Yaaaaah! ... thud.");
     752                 :          0 :         morewait();
     753                 :          0 :         Player.x = ox;
     754                 :          0 :         Player.y = oy;
     755                 :          0 :         p_damage(3,UNSTOPPABLE,"silliness");
     756                 :          0 :         p_movefunction(Level->site[Player.x][Player.y].p_locf);
     757                 :          0 :         setgamestatus(SKIP_MONSTERS); /* monsters are surprised... */
     758                 :            :       }
     759         [ #  # ]:          0 :       else if (Level->site[ox][oy].locchar == CLOSED_DOOR) {
     760         [ #  # ]:          0 :         if (loc_statusp(ox,oy,SECRET)) {
     761                 :          0 :           print1("You found a secret door!");
     762                 :          0 :           lreset(ox,oy,SECRET);
     763                 :          0 :           lset(ox, oy, CHANGED);
     764                 :            :         }
     765         [ #  # ]:          0 :         if (Level->site[ox][oy].aux == LOCKED) {
     766         [ #  # ]:          0 :           if (random_range(50+difficulty()*10) < Player.str) {
     767                 :          0 :             Player.x = ox;
     768                 :          0 :             Player.y = oy;
     769                 :          0 :             print2("You blast the door off its hinges!");
     770                 :          0 :             Level->site[ox][oy].locchar = FLOOR;
     771                 :          0 :             lset(ox, oy, CHANGED);
     772                 :          0 :             p_movefunction(Level->site[Player.x][Player.y].p_locf);
     773                 :          0 :             setgamestatus(SKIP_MONSTERS); /* monsters are surprised... */
     774                 :            :           }
     775                 :            :           else {
     776                 :          0 :             print1("Crash! The door holds.");
     777         [ #  # ]:          0 :             if (random_range(30) > Player.str)
     778         [ #  # ]:          0 :               p_damage(max(1,statmod(Player.str)),UNSTOPPABLE,"a door");
     779                 :            :           }
     780                 :            :         }
     781                 :            :         else {
     782                 :          0 :           Player.x = ox;
     783                 :          0 :           Player.y = oy;
     784                 :          0 :           print2("You bash open the door!");
     785         [ #  # ]:          0 :           if (random_range(30) > Player.str)
     786                 :          0 :             p_damage(1,UNSTOPPABLE,"a door");
     787                 :          0 :           Level->site[ox][oy].locchar = OPEN_DOOR;
     788                 :          0 :           lset(ox, oy, CHANGED);
     789                 :          0 :           p_movefunction(Level->site[Player.x][Player.y].p_locf);
     790                 :          0 :           setgamestatus(SKIP_MONSTERS); /* monsters are surprised... */
     791                 :            :         }
     792                 :            :       }
     793         [ #  # ]:          0 :       else if (Level->site[ox][oy].locchar == STATUE) {
     794                 :          0 :         statue_random(ox,oy);
     795                 :            :       }
     796         [ #  # ]:          0 :       else if (Level->site[ox][oy].locchar == PORTCULLIS) {
     797                 :          0 :         print1("Really, you don't have a prayer.");
     798         [ #  # ]:          0 :         if (random_range(1000) < Player.str) {
     799                 :          0 :           print2("The portcullis flies backwards into a thousand fragments.");
     800                 :          0 :           print3("Wow. What a stud.");
     801                 :          0 :           gain_experience(100);
     802                 :          0 :           Level->site[ox][oy].locchar = FLOOR;
     803                 :          0 :           Level->site[ox][oy].p_locf = L_NO_OP;
     804                 :          0 :           lset(ox, oy, CHANGED);
     805                 :            :         }
     806                 :            :         else {
     807                 :          0 :           print2("You only hurt yourself on the 3'' thick steel bars.");
     808                 :          0 :           p_damage(Player.str,UNSTOPPABLE,"a portcullis");
     809                 :            :         }
     810                 :            :       }
     811         [ #  # ]:          0 :       else if (Level->site[ox][oy].locchar == ALTAR) {
     812 [ #  # ][ #  # ]:          0 :         if ((Player.patron > 0)&&(Level->site[ox][oy].aux == Player.patron)) {
     813                 :          0 :           print1("You have a vision! An awesome angel hovers over the altar.");
     814                 :          0 :           print2("The angel says: 'You twit, don't bash your own altar!'");
     815                 :          0 :           print3("The angel slaps you upside the head for your presumption.");
     816                 :          0 :           p_damage(Player.hp-1,UNSTOPPABLE,"an annoyed angel");
     817                 :            :         }
     818         [ #  # ]:          0 :         else if (Level->site[ox][oy].aux == 0) {
     819                 :          0 :           print1("The feeble powers of the minor godling are not enough to");
     820                 :          0 :           print2("protect his altar! The altar crumbles away to dust.");
     821                 :          0 :           print3("You feel almost unbearably smug.");
     822                 :          0 :           Level->site[ox][oy].locchar = RUBBLE;
     823                 :          0 :           Level->site[ox][oy].p_locf = L_RUBBLE;
     824                 :          0 :           lset(ox, oy, CHANGED);
     825                 :          0 :           gain_experience(5);
     826                 :            :         }
     827                 :            :         else {
     828                 :          0 :           print1("You have successfully annoyed a major deity. Good job.");
     829                 :          0 :           print2("Zzzzap! A bolt of godsfire strikes!");
     830         [ #  # ]:          0 :           if (Player.rank[PRIESTHOOD] > 0) 
     831                 :          0 :             print3("Your own deity's aegis defends you from the bolt!");
     832                 :          0 :           p_damage(max(0,random_range(100)-Player.rank[PRIESTHOOD]*20),
     833                 :            :                    UNSTOPPABLE,
     834                 :            :                    "a bolt of godsfire");
     835         [ #  # ]:          0 :           if (Player.rank[PRIESTHOOD]*20+Player.pow+Player.level >
     836                 :          0 :               random_range(200)) {
     837                 :          0 :             morewait();
     838                 :          0 :             print1("The altar crumbles...");
     839                 :          0 :             Level->site[ox][oy].locchar = RUBBLE;
     840                 :          0 :             Level->site[ox][oy].p_locf = L_RUBBLE;
     841                 :          0 :             lset(ox, oy, CHANGED);
     842                 :          0 :             morewait();
     843         [ #  # ]:          0 :             if (Player.rank[PRIESTHOOD]) {
     844                 :          0 :               print2("You sense your deity's pleasure with you.");
     845                 :          0 :               morewait();
     846                 :          0 :               print3("You are surrounded by a golden glow.");
     847                 :          0 :               cleanse(1);
     848                 :          0 :               heal(10);
     849                 :            :             }
     850                 :          0 :             gain_experience(500);
     851                 :            :           }
     852                 :            :         }
     853                 :            :       }
     854                 :            :       else {
     855                 :          0 :         print3("You restrain yourself from total silliness.");
     856                 :          0 :         setgamestatus(SKIP_MONSTERS);
     857                 :            :       }
     858                 :            :     }
     859                 :            :   }
     860                 :          0 : }
     861                 :            : 
     862                 :            : 
     863                 :            : /* attempt destroy an item */
     864                 :          0 : void bash_item(void)
     865                 :            : {
     866                 :            :   int item;
     867                 :            :   pob obj;
     868                 :            : 
     869                 :          0 :   clearmsg();
     870                 :          0 :   item = getitem_prompt("Destroy an item -- ", NULL_ITEM);
     871         [ #  # ]:          0 :   if (item == ABORT) 
     872                 :          0 :      setgamestatus(SKIP_MONSTERS);
     873         [ #  # ]:          0 :   else if (item == CASHVALUE) 
     874                 :            :   {
     875                 :          0 :      print3("You can't destroy cash!");
     876                 :          0 :      setgamestatus(SKIP_MONSTERS);
     877                 :            :   }
     878                 :            :   else
     879                 :            :   {
     880                 :          0 :     obj = Player.possessions[item];
     881         [ #  # ]:          0 :     if (Player.str+random_range(20) > obj->fragility+random_range(20)) {
     882                 :            :       /* damage_item() can free object, but need these after... */ 
     883                 :            :       int oid;
     884                 :            :       unsigned char olevel;
     885                 :          0 :       olevel = obj->level;
     886                 :          0 :       oid = obj->id;
     887         [ #  # ]:          0 :       if ( damage_item(obj) )
     888                 :            :       {
     889         [ #  # ]:          0 :         if ( OB_POTION_CHAOS == oid )
     890                 :            :         {
     891                 :          0 :           Player.alignment += random_range(10);
     892         [ #  # ]:          0 :           if ( Player.alignment < 0 )
     893                 :            :           {
     894                 :          0 :             print2("You feel a sense of inner constraint!");
     895                 :          0 :             gain_experience(olevel * olevel * 5);
     896                 :            :           } 
     897                 :            :           else
     898                 :          0 :             print2("You feel wonderfully lawful!");
     899                 :            :           
     900                 :            :           /* In either case, chaotic or lawful, destroying a PoCh is
     901                 :            :            * lawful. */
     902                 :          0 :           Player.alignment += random_range(10);
     903                 :            :         } 
     904         [ #  # ]:          0 :         else if ( OB_SCROLL_LAW == oid )
     905                 :            :         {
     906                 :          0 :           Player.alignment -= random_range(10);
     907         [ #  # ]:          0 :           if ( Player.alignment < 0 )
     908                 :            :           {
     909                 :          0 :             print2("You feel deliciously chaotic!");
     910                 :          0 :             gain_experience(olevel * olevel * 5);
     911                 :            :           } 
     912                 :            :           else
     913                 :          0 :             print2("You feel a sense of inner turmoil!");
     914                 :          0 :           Player.alignment -= random_range(10);
     915                 :            :         }
     916         [ #  # ]:          0 :         else if (Player.alignment < 0) 
     917                 :            :         {
     918                 :          0 :           print2("That was fun....");
     919                 :          0 :           gain_experience(olevel * olevel * 5);
     920                 :            :         }
     921                 :            :       } 
     922                 :            :     }
     923                 :            :     else {
     924         [ #  # ]:          0 :       if (obj->objchar == WEAPON) {
     925                 :          0 :         print2("The weapon turned in your hand -- you hit yourself!");
     926                 :          0 :         p_damage(random_range(obj->dmg+abs(obj->plus)),
     927                 :            :                  NORMAL_DAMAGE,
     928                 :            :                  "a failure at vandalism");
     929                 :            :       }
     930         [ #  # ]:          0 :       else if (obj->objchar == ARTIFACT) {
     931                 :          0 :         print2("Uh Oh -- Now you've gotten it angry....");
     932                 :          0 :         p_damage(obj->level*10,
     933                 :            :                  UNSTOPPABLE,
     934                 :            :                  "an enraged artifact");
     935                 :            :       }
     936                 :            :       else {
     937                 :          0 :         print2("Ouch! Damn thing refuses to break...");
     938                 :          0 :         p_damage(1,UNSTOPPABLE,"a failure at vandalism");
     939                 :            :       }
     940                 :            :     }
     941                 :            :   }
     942                 :          0 : }
     943                 :            : 
     944                 :            : 
     945                 :            : /* guess what this does */
     946                 :            : /* if force is true, exiting due to some problem - don't bomb out */
     947                 :          0 : void save(int compress, int force)
     948                 :            : {
     949                 :            :   char fname[100];
     950                 :          0 :   int pos, ok = TRUE;
     951                 :            : 
     952                 :          0 :   clearmsg();
     953         [ #  # ]:          0 :   if (gamestatusp(ARENA_MODE)) {
     954         [ #  # ]:          0 :     if (force) {
     955                 :          0 :       resetgamestatus(ARENA_MODE);
     956                 :          0 :       change_environment(E_CITY);
     957                 :            :     }
     958                 :            :     else {
     959                 :          0 :       print3("Can't save the game in the arena!");
     960                 :          0 :       setgamestatus(SKIP_MONSTERS);
     961                 :          0 :       ok = FALSE;
     962                 :            :     }
     963                 :            :   }
     964         [ #  # ]:          0 :   else if (Current_Environment == E_ABYSS) {
     965         [ #  # ]:          0 :     if (force)
     966                 :          0 :       change_environment(E_COUNTRYSIDE);
     967                 :            :     else {
     968                 :          0 :       print3("Can't save the game in the Adept's Challenge!");
     969                 :          0 :       setgamestatus(SKIP_MONSTERS);
     970                 :          0 :       ok = FALSE;
     971                 :            :     }
     972                 :            :   }
     973         [ #  # ]:          0 :   else if (Current_Environment == E_TACTICAL_MAP) {
     974         [ #  # ]:          0 :     if (force)
     975                 :          0 :       change_environment(E_COUNTRYSIDE);
     976                 :            :     else {
     977                 :            :       /* WDT MARK!  I understand this, but it's wrong. */
     978                 :          0 :       print3("Can't save the game in the tactical map!");
     979                 :          0 :       setgamestatus(SKIP_MONSTERS);
     980                 :          0 :       ok = FALSE;
     981                 :            :     }
     982                 :            :   }
     983 [ #  # ][ #  # ]:          0 :   if (!force && ok) {
     984                 :          0 :     ok = (cinema_confirm("You're about to save and exit.") == 'y');
     985                 :            :   }
     986 [ #  # ][ #  # ]:          0 :   if (force || ok) {
     987                 :          0 :     sprintf(Str1, "Enter savefile name [default %s]: ", SaveFileName );
     988                 :          0 :     print1(Str1);
     989                 :          0 :     strcpy(fname,msgscanstring());
     990         [ #  # ]:          0 :     if (fname[0] == '\0') {
     991                 :            :       /* no file name entered, use default.  DAG */
     992                 :          0 :       strcpy( fname, SaveFileName );
     993                 :            :     }
     994                 :            : #ifdef MSDOS
     995                 :            :     for (pos = 0; fname[pos] && isalnum(fname[pos]); pos++)
     996                 :            :       ;
     997                 :            : #else
     998 [ #  # ][ #  # ]:          0 :     for (pos = 0; fname[pos] && isprint(fname[pos]) && !isspace(fname[pos]);
                 [ #  # ]
     999                 :          0 :       pos++)
    1000                 :            :       ;
    1001                 :            : #endif
    1002         [ #  # ]:          0 :     if (fname[pos]) {
    1003                 :          0 :       sprintf(Str1, "Illegal character '%c' in filename - Save aborted.", fname[pos]);
    1004                 :          0 :       print1(Str1);
    1005                 :          0 :       ok = FALSE;
    1006                 :            :     }
    1007                 :            : #ifdef MSDOS
    1008                 :            :     if (strlen(fname) > FNAME_MAX_LEN)
    1009                 :            :     {
    1010                 :            :       /* WDT -- copied from SYSV block below. */
    1011                 :            :       sprintf(Str1, "Save name longer than %d characters - Save aborted.",
    1012                 :            :         FNAME_MAX_LEN);
    1013                 :            :       print1(Str1);
    1014                 :            :       ok = FALSE;
    1015                 :            :     }
    1016                 :            : #else
    1017                 :            : # ifdef SYSV
    1018                 :            :     if (strlen(fname) > FNAME_MAX_LEN - EXT_LENGTH - 1)
    1019                 :            :     {
    1020                 :            :       sprintf(Str1, "Save name longer than %d characters - Save aborted.",
    1021                 :            :         FNAME_MAX_LEN - EXT_LENGTH - 1);
    1022                 :            :       print1(Str1);
    1023                 :            :       ok = FALSE;
    1024                 :            :     }
    1025                 :            : # endif
    1026                 :            : #endif
    1027         [ #  # ]:          0 :     if (ok) {
    1028         [ #  # ]:          0 :       if (save_game(compress,fname)) {
    1029                 :          0 :         endgraf();
    1030                 :          0 :         printf("Bye!\n");
    1031                 :          0 :         exit(0);
    1032                 :            :       }
    1033                 :            :       else
    1034                 :          0 :         print1("Internal error -- unable to save.");
    1035                 :            :     }
    1036                 :            :   }
    1037         [ #  # ]:          0 :   if (force) {
    1038                 :          0 :     morewait();
    1039                 :          0 :     clearmsg();
    1040                 :          0 :     print1("The game is quitting - you will lose your character.");
    1041                 :          0 :     print2("Try to save again? ");
    1042         [ #  # ]:          0 :     if (ynq2() == 'y')
    1043                 :          0 :       save(compress, force);
    1044                 :            :   }
    1045                 :          0 :   setgamestatus(SKIP_MONSTERS); /* if we get here, we failed to save */
    1046                 :          0 : }
    1047                 :            : 
    1048                 :            : /* close a door */
    1049                 :          0 : void closedoor(void)
    1050                 :            : {
    1051                 :            :   int dir;
    1052                 :            :   int ox,oy;
    1053                 :            : 
    1054                 :          0 :   clearmsg();
    1055                 :            : 
    1056                 :          0 :   print1("Close --");
    1057                 :          0 :   dir = getdir();
    1058         [ #  # ]:          0 :   if (dir == ABORT)
    1059                 :          0 :     setgamestatus(SKIP_MONSTERS);
    1060                 :            :   else {
    1061                 :          0 :     ox = Player.x + Dirs[0][dir];
    1062                 :          0 :     oy = Player.y + Dirs[1][dir];
    1063         [ #  # ]:          0 :     if (Level->site[ox][oy].locchar == CLOSED_DOOR) {
    1064                 :          0 :       print3("That door is already closed!");
    1065                 :          0 :       setgamestatus(SKIP_MONSTERS);
    1066                 :            :     }
    1067         [ #  # ]:          0 :     else if (Level->site[ox][oy].locchar != OPEN_DOOR) {
    1068                 :          0 :       print3("You can't close that!");
    1069                 :          0 :       setgamestatus(SKIP_MONSTERS);
    1070                 :            :     }
    1071                 :          0 :     else Level->site[ox][oy].locchar = CLOSED_DOOR;
    1072                 :          0 :     lset(ox, oy, CHANGED);
    1073                 :            :   }
    1074                 :          0 : }
    1075                 :            : 
    1076                 :            : /* handle a h,j,k,l, etc. */
    1077                 :         19 : void moveplayer(int dx, int dy)
    1078                 :            : {
    1079         [ +  + ]:         19 :   if (p_moveable(Player.x+dx,Player.y+dy)) {
    1080                 :            :       
    1081         [ -  + ]:          5 :     if (Player.status[IMMOBILE] > 0) {
    1082                 :          0 :       resetgamestatus(FAST_MOVE);
    1083                 :          0 :       print3("You are unable to move");
    1084                 :            :     }
    1085   [ -  +  #  # ]:          5 :     else if ((Player.maxweight < Player.itemweight) && 
    1086         [ #  # ]:          0 :              random_range(2) &&
    1087                 :          0 :              (! Player.status[LEVITATING])) {
    1088         [ #  # ]:          0 :       if (gamestatusp(MOUNTED)) {
    1089                 :          0 :         print1("Your horse refuses to carry you and your pack another step!");
    1090                 :          0 :         print2("Your steed bucks wildly and throws you off!");
    1091                 :          0 :         p_damage(10,UNSTOPPABLE,"a cruelly abused horse");
    1092                 :          0 :         resetgamestatus(MOUNTED);
    1093                 :          0 :         summon(-1,HORSE);
    1094                 :            :       }
    1095                 :            :       else {
    1096                 :          0 :         p_damage(1,UNSTOPPABLE,"a rupture");
    1097                 :          0 :         print3("The weight of your pack drags you down. You can't move.");
    1098                 :            :       }
    1099                 :            :     }
    1100                 :            :     else {
    1101                 :          5 :       Player.x += dx;
    1102                 :          5 :       Player.y += dy;
    1103                 :          5 :       p_movefunction(Level->site[Player.x][Player.y].p_locf);
    1104                 :            :       
    1105                 :            :       /* causes moves to take effectively 30 seconds in town without
    1106                 :            :          monsters being sped up compared to player */
    1107 [ +  - ][ -  + ]:          5 :       if ((Current_Environment == E_CITY) ||
    1108                 :          5 :           (Current_Environment == E_VILLAGE)) {
    1109                 :          0 :         twiddle = ! twiddle;
    1110         [ #  # ]:          0 :         if (twiddle) {
    1111                 :          0 :           Time++;
    1112         [ #  # ]:          0 :           if (Time % 10 == 0) tenminute_check();
    1113                 :          0 :           else minute_status_check();
    1114                 :            :         }
    1115                 :            :       }
    1116                 :            : 
    1117                 :            :       /* this test protects against player entering countryside and still
    1118                 :            :       having effects from being on the Level, a kluge, but hey,... */
    1119                 :            : 
    1120         [ +  - ]:          5 :       if (Current_Environment != E_COUNTRYSIDE) {
    1121         [ -  + ]:          5 :         if (gamestatusp(FAST_MOVE))
    1122 [ #  # ][ #  # ]:          0 :           if ((Level->site[Player.x][Player.y].things != NULL) ||
    1123         [ #  # ]:          0 :               (optionp(RUNSTOP) && 
    1124                 :          0 :                loc_statusp(Player.x,Player.y,STOPS)))
    1125                 :          0 :             resetgamestatus(FAST_MOVE);
    1126 [ -  + ][ #  # ]:          5 :         if ((Level->site[Player.x][Player.y].things != NULL) &&
    1127                 :          0 :             (optionp(PICKUP)))
    1128                 :          5 :           pickup();
    1129                 :            :       }
    1130                 :            :     }
    1131                 :            :   }
    1132         [ -  + ]:         14 :   else if (gamestatusp(FAST_MOVE)) {
    1133                 :          0 :     drawvision(Player.x,Player.y);
    1134                 :          0 :     resetgamestatus(FAST_MOVE);
    1135                 :            :   }
    1136                 :         19 : }
    1137                 :            : 
    1138                 :            : 
    1139                 :            : /* handle a h,j,k,l, etc. */
    1140                 :          3 : void movepincountry(int dx, int dy)
    1141                 :            : {
    1142                 :          3 :   int i,takestime = TRUE;
    1143   [ -  +  #  # ]:          3 :   if ((Player.maxweight < Player.itemweight) && 
    1144         [ #  # ]:          0 :       random_range(2) &&
    1145                 :          0 :       (! Player.status[LEVITATING])) {
    1146         [ #  # ]:          0 :     if (gamestatusp(MOUNTED)) {
    1147                 :          0 :       print1("Your horse refuses to carry you and your pack another step!");
    1148                 :          0 :       print2("Your steed bucks wildly and throws you off!");
    1149                 :          0 :       p_damage(10,UNSTOPPABLE,"a cruelly abused horse");
    1150                 :          0 :       resetgamestatus(MOUNTED);
    1151                 :          0 :       morewait();
    1152                 :          0 :       print1("With a shrill neigh of defiance, your former steed gallops");
    1153                 :          0 :       print2("off into the middle distance....");
    1154         [ #  # ]:          0 :       if (Player.packptr != 0) {
    1155                 :          0 :         morewait();
    1156                 :          0 :         print1("You remember (too late) that the contents of your pack");
    1157                 :          0 :         print2("were kept in your steed's saddlebags!");
    1158         [ #  # ]:          0 :         for(i=0;i<MAXPACK;i++) {
    1159         [ #  # ]:          0 :           if (Player.pack[i] != NULL)
    1160                 :          0 :             free_obj( Player.pack[i], TRUE );
    1161                 :          0 :           Player.pack[i] = NULL;
    1162                 :            :         }
    1163                 :          0 :         Player.packptr = 0;
    1164                 :          0 :         calc_melee();
    1165                 :            :       }
    1166                 :            :     }
    1167                 :            :     else {
    1168                 :          0 :       p_damage(1,UNSTOPPABLE,"a rupture");
    1169                 :          0 :       print3("The weight of your pack drags you down. You can't move.");
    1170                 :            :     }
    1171                 :            :   }
    1172                 :            :   else {
    1173         [ -  + ]:          3 :     if (gamestatusp(LOST)) {
    1174                 :          0 :       print3("Being lost, you strike out randomly....");
    1175                 :          0 :       morewait();
    1176                 :          0 :       dx = random_range(3)-1;
    1177                 :          0 :       dy = random_range(3)-1;
    1178                 :            :     }
    1179         [ +  - ]:          3 :     if (p_country_moveable(Player.x+dx,Player.y+dy)) {
    1180         [ -  + ]:          3 :       if (Player.status[IMMOBILE] > 0) 
    1181                 :          0 :         print3("You are unable to move");
    1182                 :            :       else {
    1183                 :          3 :         Player.x += dx;
    1184                 :          3 :         Player.y += dy;
    1185 [ -  + ][ #  # ]:          3 :         if ((! gamestatusp(MOUNTED))&&(Player.possessions[O_BOOTS] != NULL)) {
    1186         [ #  # ]:          0 :           if (Player.possessions[O_BOOTS]->usef == I_BOOTS_7LEAGUE) {
    1187                 :          0 :             takestime = FALSE;
    1188         [ #  # ]:          0 :             if (Player.possessions[O_BOOTS]->blessing < 0) {
    1189                 :          0 :               print1("Whooah! -- Your boots launch you into the sky....");
    1190                 :          0 :               print2("You come down in a strange location....");
    1191                 :          0 :               setPlayerXY( random_range(COUNTRY_WIDTH), random_range(COUNTRY_LENGTH));      
    1192                 :          0 :               morewait();
    1193                 :          0 :               clearmsg();
    1194                 :          0 :               print1("Your boots disintegrate with a malicious giggle...");
    1195                 :          0 :               dispose_lost_objects(1,Player.possessions[O_BOOTS]);
    1196                 :            :             }
    1197         [ #  # ]:          0 :             else if (Player.possessions[O_BOOTS]->known != 2) {
    1198                 :          0 :               print1("Wow! Your boots take you 7 leagues in a single stride!");
    1199                 :          0 :               Player.possessions[O_BOOTS]->known = 2;
    1200                 :            :             }
    1201                 :            :           }
    1202                 :            :         }
    1203 [ -  + ][ #  # ]:          3 :         if (gamestatusp(LOST) && (Precipitation < 1) &&
                 [ #  # ]
    1204                 :          0 :           c_statusp(Player.x, Player.y, SEEN)) {
    1205                 :          0 :           print3("Ah! Now you know where you are!");
    1206                 :          0 :           morewait();
    1207                 :          0 :           resetgamestatus(LOST);
    1208                 :            :         }
    1209         [ -  + ]:          3 :         else if (gamestatusp(LOST)) {
    1210                 :          0 :           print3("You're still lost.");
    1211                 :          0 :           morewait();
    1212                 :            :         }
    1213         [ -  + ]:          3 :         if (Precipitation > 0) Precipitation--;
    1214                 :          3 :         c_set(Player.x, Player.y, SEEN);
    1215                 :          3 :         terrain_check(takestime);
    1216                 :            :       }
    1217                 :            :     }
    1218                 :            :   }
    1219                 :          3 : }

Generated by: LCOV version 1.11