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