LCOV - code coverage report
Current view: top level - omega-rpg-0.90-pa9 - abyss.c (source / functions) Hit Total Coverage
Test: lcov.info Lines: 0 49 0.0 %
Date: 2017-08-31 19:31:11 Functions: 0 1 0.0 %
Branches: 0 18 0.0 %

           Branch data     Line data    Source code
       1                 :            : /* omega copyright (C) by Laurence Raphael Brothers, 1987,1988,1989 */
       2                 :            : /* abyss.c */
       3                 :            : /* some functions to make the abyss level and run the final challenge */
       4                 :            : 
       5                 :            : #ifdef MSDOS_SUPPORTED_ANTIQUE
       6                 :            : #include <sys/types.h>
       7                 :            : #include <malloc.h>
       8                 :            : #ifdef SAVE_LEVELS
       9                 :            : #include <sys/timeb.h>
      10                 :            : #include <dos.h>
      11                 :            : #endif
      12                 :            : #endif
      13                 :            : 
      14                 :            : #include "glob.h"
      15                 :            : 
      16                 :            : /* loads the abyss level into Level*/
      17                 :          0 : void load_abyss(void)
      18                 :            : {
      19                 :            :   int i,j;
      20                 :            :   char site;
      21                 :            :   map *abyss;
      22                 :            :   
      23                 :          0 :   TempLevel = Level;
      24         [ #  # ]:          0 :   if (ok_to_free(TempLevel)) {
      25                 :            : #ifndef SAVE_LEVELS
      26                 :          0 :     free_level(TempLevel);
      27                 :            : #endif
      28                 :          0 :     TempLevel = NULL;
      29                 :            :   }
      30                 :            : #ifndef SAVE_LEVELS
      31                 :          0 :   Level = ((plv) checkmalloc(sizeof(levtype)));
      32                 :            : #else
      33                 :            :   msdos_changelevel(TempLevel,0,-1);
      34                 :            :   Level = &TheLevel;
      35                 :            : #endif
      36                 :            :   
      37                 :          0 :   clear_level(Level);
      38                 :            :   
      39                 :          0 :   abyss = map_open(MAP_abyss);
      40                 :          0 :   map_setLevel(abyss,0);
      41                 :          0 :   Level->level_width = map_getWidth(abyss);
      42                 :          0 :   Level->level_length = map_getLength(abyss);
      43                 :            :   
      44         [ #  # ]:          0 :   for(j=0;j<Level->level_length;j++) {
      45         [ #  # ]:          0 :     for(i=0;i<Level->level_width;i++) {
      46                 :          0 :       site = map_getSiteChar(abyss,i,j);
      47                 :          0 :       Level->site[i][j].roomnumber = RS_ADEPT;
      48   [ #  #  #  #  :          0 :       switch(site) {
          #  #  #  #  #  
                #  #  # ]
      49                 :            :       case '0':
      50                 :          0 :         Level->site[i][j].locchar = VOID_CHAR;
      51                 :          0 :         Level->site[i][j].p_locf = L_VOID;
      52                 :          0 :         break;
      53                 :            :       case 'V':
      54                 :          0 :         Level->site[i][j].locchar = VOID_CHAR;
      55                 :          0 :         Level->site[i][j].p_locf = L_VOID_STATION;
      56                 :          0 :         break;
      57                 :            :       case '1':
      58                 :          0 :         Level->site[i][j].locchar = FLOOR;
      59                 :          0 :         Level->site[i][j].p_locf = L_VOICE1;
      60                 :          0 :         break;
      61                 :            :       case '2':
      62                 :          0 :         Level->site[i][j].locchar = FLOOR;
      63                 :          0 :         Level->site[i][j].p_locf = L_VOICE2;
      64                 :          0 :         break;
      65                 :            :       case '3':
      66                 :          0 :         Level->site[i][j].locchar = FLOOR;
      67                 :          0 :         Level->site[i][j].p_locf = L_VOICE3;
      68                 :          0 :         break;
      69                 :            :       case '~':
      70                 :          0 :         Level->site[i][j].locchar = WATER;
      71                 :          0 :         Level->site[i][j].p_locf = L_WATER_STATION;
      72                 :          0 :         break;
      73                 :            :       case ';':
      74                 :          0 :         Level->site[i][j].locchar = FIRE;
      75                 :          0 :         Level->site[i][j].p_locf = L_FIRE_STATION;
      76                 :          0 :         break;
      77                 :            :       case '"':
      78                 :          0 :         Level->site[i][j].locchar = HEDGE;
      79                 :          0 :         Level->site[i][j].p_locf = L_EARTH_STATION;
      80                 :          0 :         break;
      81                 :            :       case '6':
      82                 :          0 :         Level->site[i][j].locchar = WHIRLWIND;
      83                 :          0 :         Level->site[i][j].p_locf = L_AIR_STATION;
      84                 :          0 :         break;
      85                 :            :       case '#':
      86                 :          0 :         Level->site[i][j].locchar = WALL;
      87                 :          0 :         break;
      88                 :            :       case '.':
      89                 :          0 :         Level->site[i][j].locchar = FLOOR;
      90                 :          0 :         break;
      91                 :            :       }
      92                 :            :     }
      93                 :            :   }
      94                 :          0 :   map_close(abyss);
      95                 :          0 : }
      96                 :            : 
      97                 :            : 
      98                 :            : #ifdef SAVE_LEVELS
      99                 :            : /* This stuff is in this file because the file was really small. */
     100                 :            : 
     101                 :            : void msdos_init(void)
     102                 :            : {
     103                 :            :     int i;
     104                 :            : 
     105                 :            :     /* Allocate the inner level of pointers for TheLevel */
     106                 :            :     for (i = 0; i < MAXWIDTH; i++)
     107                 :            :         TheLevel.site[i] = (plc)checkmalloc(MAXLENGTH * sizeof(loctype));
     108                 :            : 
     109                 :            :     /* Remove old level files */
     110                 :            :     kill_all_levels();
     111                 :            : }
     112                 :            : 
     113                 :            : void kill_all_levels(void)
     114                 :            : {
     115                 :            :     kill_levels("om*.lev");
     116                 :            : }
     117                 :            : 
     118                 :            : void kill_levels(char *str)
     119                 :            : {
     120                 :            :     int i;
     121                 :            :     struct find_t buf;
     122                 :            : 
     123                 :            :     /* Remove old level files laying around */
     124                 :            :     sprintf(Str1,"%s%s",Omegalib,str);
     125                 :            :     for (i = _dos_findfirst(Str1,_A_NORMAL,&buf); !i; i = _dos_findnext(&buf))
     126                 :            :     {
     127                 :            :         sprintf(Str2,"%s%s",Omegalib,buf.name);
     128                 :            :         remove(Str2);
     129                 :            :     }
     130                 :            : }
     131                 :            : 
     132                 :            : #define MEM_CHECK_AMOUNT 0xf000
     133                 :            : void check_memory(void)
     134                 :            : {
     135                 :            :     char *mems[50];
     136                 :            :     long amount = 0;
     137                 :            :     int num_mems = 0;
     138                 :            :     unsigned try;
     139                 :            : 
     140                 :            :     sprintf(Str1,"Heapchk returned %d.",_heapchk());
     141                 :            :     mprint(Str1);
     142                 :            : 
     143                 :            :     try = MEM_CHECK_AMOUNT;
     144                 :            :     while (try > 10000)
     145                 :            :     {
     146                 :            :         while (try > 0 && (mems[num_mems] = checkmalloc(try)) == NULL)
     147                 :            :             try -= 0x400;
     148                 :            :         amount += try;
     149                 :            :         num_mems++;
     150                 :            :     }
     151                 :            :     while (--num_mems >= 0)
     152                 :            :         if (mems[num_mems] != NULL)
     153                 :            :             free(mems[num_mems]);
     154                 :            : 
     155                 :            :     sprintf(Str1,"Free mem approx %dK",(int)(amount / 0x400));
     156                 :            :     mprint(Str1);
     157                 :            : }
     158                 :            : 
     159                 :            : static FILE *open_levfile(int env, int depth, int rw)
     160                 :            : {
     161                 :            :     sprintf(Str1,"%som%03d%03d.lev",Omegalib,env,depth);
     162                 :            :     return(fopen(Str1,(rw) ? "wb" : "rb"));
     163                 :            : }
     164                 :            : 
     165                 :            : /* Saves oldlevel (unless NULL), and reads in the new level,
     166                 :            :    unless depth is < 0. */
     167                 :            : plv msdos_changelevel(plv oldlevel, int newenv, int newdepth)
     168                 :            : {
     169                 :            :     FILE *fp;
     170                 :            : 
     171                 :            :     if (oldlevel != NULL)
     172                 :            :     {
     173                 :            :         if (oldlevel->environment == newenv &&
     174                 :            :           oldlevel->depth == newdepth)
     175                 :            :             return(oldlevel);
     176                 :            :         if ((fp = open_levfile(oldlevel->environment,oldlevel->depth,1)) != NULL)
     177                 :            :         {
     178                 :            :             save_level(fp,oldlevel);
     179                 :            :             fclose(fp);
     180                 :            :         }
     181                 :            :         else
     182                 :            :             mprint("Cannot save level!!!");
     183                 :            :         /* Free up monsters and items */
     184                 :            :         free_level(oldlevel);
     185                 :            :     }
     186                 :            :     if (newdepth >= 0)
     187                 :            :     {
     188                 :            :         if ((fp = open_levfile(newenv,newdepth,0)) == NULL)
     189                 :            :             return(NULL);
     190                 :            :         restore_level(fp);
     191                 :            :         fclose(fp);
     192                 :            :         return(Level);
     193                 :            :     }
     194                 :            :     return(NULL);
     195                 :            : }
     196                 :            : 
     197                 :            : #endif
     198                 :            : 
     199                 :            : #ifdef DJGPP
     200                 :            : 
     201                 :            : void check_memory(void)
     202                 :            : {
     203                 :            :   clear_screen();
     204                 :            :   print1("There should be over 300 K free on the drive.");  
     205                 :            :   print2("Save _before_ the free space gets below 300 K.");
     206                 :            :   morewait();
     207                 :            :   system("dir");
     208                 :            :   morewait();
     209                 :            :   clear_screen();
     210                 :            :   xredraw();
     211                 :            : }
     212                 :            : #endif

Generated by: LCOV version 1.11