home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / games / volume5 / omega2 / part10 / ovillage.c < prev   
C/C++ Source or Header  |  1988-07-25  |  6KB  |  274 lines
  1. /* omega copyright (C) by Laurence Raphael Brothers, 1987,1988 */
  2. /* ovillage.c */
  3. /* some functions to make the village levels */
  4.  
  5. #include "oglob.h"
  6.  
  7.  
  8. /* loads the village level into Level*/
  9. void load_village(villagenum)
  10. int villagenum;
  11. {
  12.   int i,j;
  13.   char site;
  14.   
  15.   FILE *fd;
  16.   
  17.  
  18.   TempLevel = Level;
  19.   if (ok_to_free(TempLevel)) {
  20.     free((char *) TempLevel);
  21.     TempLevel = NULL;
  22.   }
  23.  
  24.   assign_village_function(0,0,TRUE);
  25.  
  26.   Level = ((plv) malloc(sizeof(levtype)));
  27.   clear_level(Level);
  28.   Level->environment = E_VILLAGE;
  29.   strcpy(Str3,OMEGALIB);
  30.   switch(villagenum) {
  31.   case 1:strcat(Str3,"ovillage1.dat");break;
  32.   case 2:strcat(Str3,"ovillage2.dat");break;
  33.   case 3:strcat(Str3,"ovillage3.dat");break;
  34.   case 4:strcat(Str3,"ovillage4.dat");break;
  35.   case 5:strcat(Str3,"ovillage5.dat");break;
  36.   case 6:strcat(Str3,"ovillage6.dat");break;
  37.   }
  38.   fd = fopen(Str3,"r");
  39.   for(j=0;j<LENGTH;j++) {
  40.     for(i=0;i<WIDTH;i++) {
  41.       lset(i,j,SEEN);
  42.       site = getc(fd);
  43.       switch(site) {
  44.       case 'f':
  45.     Level->site[i][j].locchar = FLOOR;
  46.     make_food_bin(i,j);
  47.     break;
  48.       case 'g':
  49.     Level->site[i][j].locchar = FLOOR;
  50.     Level->site[i][j].p_locf = L_GRANARY;
  51.     break;
  52.       case 'h':
  53.     Level->site[i][j].locchar = FLOOR;
  54.     make_horse(i,j);
  55.     break;
  56.       case 'S':
  57.     Level->site[i][j].locchar = FLOOR;
  58.     Level->site[i][j].p_locf = L_STABLES;
  59.     break;
  60.       case 'H':
  61.     Level->site[i][j].locchar = FLOOR;
  62.     make_merchant(i,j);
  63.     break;
  64.       case 'C':
  65.     Level->site[i][j].locchar = FLOOR;
  66.     Level->site[i][j].p_locf = L_COMMONS;
  67.     break;
  68.       case 's':
  69.     Level->site[i][j].locchar = FLOOR;
  70.     make_sheep(i,j);
  71.     break;
  72.       case 'x':
  73.     assign_village_function(i,j,FALSE);
  74.     break;
  75.       case 'X':
  76.     Level->site[i][j].locchar = FLOOR;
  77.     Level->site[i][j].p_locf = L_COUNTRYSIDE;
  78.     break;
  79.       case 'G':
  80.     Level->site[i][j].locchar = FLOOR;
  81.     make_guard(i,j);
  82.     break;
  83.       case '^':
  84.     Level->site[i][j].locchar = FLOOR;
  85.     Level->site[i][j].p_locf = L_TRAP_SIREN;
  86.     break;
  87.       case '"':
  88.     Level->site[i][j].locchar = HEDGE;
  89.     Level->site[i][j].p_locf = L_HEDGE;
  90.     break;
  91.       case '~':
  92.     Level->site[i][j].locchar = WATER;
  93.     Level->site[i][j].p_locf = L_WATER;
  94.     break;
  95.       case '+':
  96.     Level->site[i][j].locchar = WATER;
  97.     Level->site[i][j].p_locf = L_CHAOS;
  98.     break;
  99.       case '\'':
  100.     Level->site[i][j].locchar = HEDGE;
  101.     Level->site[i][j].p_locf = L_TRIFID;
  102.     break;
  103.       case '!':
  104.     special_village_site(i,j,villagenum);
  105.     break;
  106.       case '#':
  107.     Level->site[i][j].locchar = WALL;
  108.     Level->site[i][j].aux = 100;
  109.     break;
  110.       default:
  111.     Level->site[i][j].p_locf = L_NO_OP;
  112.     Level->site[i][j].locchar = site;
  113.     break;
  114.       }
  115.       if (loc_statusp(i,j,SECRET))
  116.     Level->site[i][j].showchar = '#';
  117.       else Level->site[i][j].showchar = Level->site[i][j].locchar;
  118.     }
  119.     fscanf(fd,"\n");
  120.   }
  121.   fclose(fd);
  122. }
  123.  
  124. void make_guard(i,j)
  125. int i,j;
  126. {
  127.   pml tml = ((pml) (malloc(sizeof(mltype))));
  128.   tml->m = (Level->site[i][j].creature = make_creature(ML0+3));
  129.   tml->m->x = i;
  130.   tml->m->y = j;
  131.   tml->next = Level->mlist;
  132.   Level->mlist = tml;
  133. }
  134.  
  135. void make_sheep(i,j)
  136. int i,j;
  137. {
  138.   pml tml = ((pml) (malloc(sizeof(mltype))));
  139.   tml->m = (Level->site[i][j].creature = make_creature(SHEEP));
  140.   tml->m->x = i;
  141.   tml->m->y = j;
  142.   tml->next = Level->mlist;
  143.   Level->mlist = tml;
  144. }
  145.  
  146. void make_food_bin(i,j)
  147. int i,j;
  148. { 
  149.   pol tol;
  150.   int k;
  151.  
  152.   for(k=0;k<10;k++) {
  153.     tol = ((pol) malloc(sizeof(oltype)));
  154.     tol->thing = ((pob) malloc(sizeof(objtype)));
  155.     make_food(tol->thing,15); /* grain */
  156.     tol->next = Level->site[i][j].things;
  157.     Level->site[i][j].things = tol;
  158.   }
  159. }
  160.  
  161. void make_horse(i,j)
  162. int i,j;
  163. {
  164.   pml tml = ((pml) (malloc(sizeof(mltype))));
  165.   tml->m = (Level->site[i][j].creature = make_creature(HORSE));
  166.   tml->m->x = i;
  167.   tml->m->y = j;
  168.   tml->next = Level->mlist;
  169.   Level->mlist = tml;
  170. }
  171.  
  172.  
  173. void make_merchant(i,j)
  174. int i,j;
  175. {
  176.   pml tml = ((pml) (malloc(sizeof(mltype))));
  177.   tml->m = (Level->site[i][j].creature = make_creature(ML0+6));
  178.   tml->m->x = i;
  179.   tml->m->y = j;
  180.   tml->next = Level->mlist;
  181.   Level->mlist = tml;
  182. }
  183.  
  184.  
  185. void assign_village_function(x,y,setup)
  186. int x,y,setup;
  187. {
  188.   static int next=0;
  189.   static int permutation[24]; /* number of x's in village map */
  190.   int i,j,k;
  191.  
  192.  
  193.   if (setup) {
  194.     next = 0;
  195.     for(i=0;i<24;i++)
  196.       permutation[i] = i;
  197.     for(i=0;i<24;i++) {
  198.       j = permutation[i];
  199.       k = random_range(24);
  200.       permutation[i] = permutation[k];
  201.       permutation[k] = j;
  202.     }
  203.   }
  204.   else {
  205.  
  206.     lset(x,y+1,STOPS);
  207.     lset(x+1,y,STOPS);
  208.     lset(x-1,y,STOPS);
  209.     lset(x,y-1,STOPS);
  210.     
  211.     
  212.     switch(permutation[next++]) {
  213.     case 0:
  214.       Level->site[x][y].locchar = OPEN_DOOR;
  215.       Level->site[x][y].p_locf = L_ARMORER;
  216.       break;
  217.     case 1:
  218.       Level->site[x][y].locchar = OPEN_DOOR;
  219.       Level->site[x][y].p_locf = L_HEALER;
  220.       break;
  221.     case 2: 
  222.       Level->site[x][y].locchar = OPEN_DOOR;
  223.       Level->site[x][y].p_locf = L_TAVERN;
  224.       break;
  225.     case 3:
  226.       Level->site[x][y].locchar = OPEN_DOOR;
  227.       Level->site[x][y].p_locf = L_COMMANDANT;
  228.       break;
  229.     case 4:
  230.       Level->site[x][y].locchar = OPEN_DOOR;
  231.       Level->site[x][y].p_locf = L_CARTOGRAPHER;
  232.       break;
  233.     default:
  234.       Level->site[x][y].locchar = CLOSED_DOOR;
  235.       if (random_range(2))
  236.     Level->site[x][y].p_locf = L_HOVEL;
  237.       if (random_range(2)) 
  238.     Level->site[x][y].aux = LOCKED;
  239.       else Level->site[x][y].p_locf = L_HOUSE;
  240.       break;
  241.     }
  242.   }
  243. }  
  244.   
  245.  
  246. void special_village_site(i,j,villagenum)
  247. int i,j,villagenum;
  248. {
  249.   if (villagenum == 1) {
  250.     Level->site[i][j].locchar = ALTAR;
  251.     Level->site[i][j].p_locf = L_LAWSTONE;
  252.   }
  253.   if (villagenum == 2) {
  254.     Level->site[i][j].locchar = ALTAR;
  255.     Level->site[i][j].p_locf = L_BALANCESTONE;
  256.   }
  257.   else if (villagenum == 3) {
  258.     Level->site[i][j].locchar = ALTAR; 
  259.     Level->site[i][j].p_locf = L_CHAOSTONE; 
  260.   }
  261.   else if (villagenum == 4) {
  262.     Level->site[i][j].locchar = ALTAR; 
  263.     Level->site[i][j].p_locf = L_VOIDSTONE; 
  264.   }
  265.   else if (villagenum == 5) {
  266.     Level->site[i][j].locchar = ALTAR; 
  267.     Level->site[i][j].p_locf = L_SACRIFICESTONE; 
  268.   }
  269.   else if (villagenum == 6) {
  270.     Level->site[i][j].locchar = ALTAR; 
  271.     Level->site[i][j].p_locf = L_MINDSTONE; 
  272.   }
  273. }
  274.