home · contact · privacy
e6f0df1c3dac7b3de7ebda8fe3cf54923ab94112
[plomrogue] / src / misc.c
1 /* misc.c */
2
3 #include "misc.h"
4 #include <errno.h> /* for errno */
5 #include <unistd.h> /* for unlink(), acess() */
6 #include <stdlib.h> /* for size_t, calloc(), free() */
7 #include <string.h> /* for strlen(), strcmp(), memcpy() */
8 #include <stdint.h> /* for uint8_t, uint16_t */
9 #include "readwrite.h" /* for try_fopen(), try_fclose(), textfile_sizes(),
10                         * try_fputc(), try_fgetc()
11                         */
12 #include "map_objects.h" /* for struct MapObj, get_player(), read_map_objects(),
13                           * write_map_objects()
14                           */
15 #include "map_object_actions.h" /* for struct MapObjAct */
16 #include "ai.h" /* for pretty_dumb_ai() */
17 #include "map.h" /* for Map struct, is_passable() */
18 #include "main.h" /* for world global */
19 #include "yx_uint16.h" /* for yx_uint16 struct */
20 #include "rexit.h" /* for exit_err(), exit_trouble() */
21 #include "wincontrol.h" /* for init_winconfs(), init_wins(), free_winconfs(),
22                          * sorted_wintoggle_and_activate()
23                          */
24 #include "windows.h" /* for suspend_win() */
25 #include "command_db.h" /* for is_command_id_shortdsc() */
26
27
28
29 extern uint16_t rrand()
30 {   /* Constants as recommended by POSIX.1-2001 (see man page rand(3)). */
31     world.seed = ((world.seed * 1103515245) + 12345) % 4294967296;
32     return (world.seed >> 16); /* Ignore less random least significant bits. */
33 }
34
35
36
37 extern void * try_malloc(size_t size, char * f)
38 {
39     void * p = malloc(size);
40     exit_trouble(NULL == p, f, "malloc()");
41     return p;
42 }
43
44
45
46 extern void * try_calloc(size_t size1, size_t size2, char * f)
47 {
48     void * p = calloc(size1, size2);
49     exit_trouble(NULL == p, f, "calloc()");
50     return p;
51 }
52
53
54
55 extern void check_files_xor(char * p1, char * p2)
56 {
57     char * msg1 = "A file '";
58     char * msg2 = "' exists, but no file '";
59     char * msg3 = "'. If everything was in order, both or noe would exist. "
60                   "The game won't start until this is corrected.";
61     uint16_t size = strlen(msg1) + strlen(p1) + strlen(msg2) + strlen(p2)
62                     + strlen(msg3);
63     char msg[size];
64     if      (!access(p1, F_OK) && access(p2, F_OK))
65     {
66         sprintf(msg, "%s%s%s%s%s", msg1, p1, msg2, p2, msg3);
67         errno = 0;
68         exit_err(1, msg);
69     }
70     else if (access(p1, F_OK) && !access(p2, F_OK))
71     {
72         sprintf(msg, "%s%s%s%s%s", msg1, p2, msg2, p1, msg3);
73         errno = 0;
74         exit_err(1, msg);
75     }
76 }
77
78
79
80 extern void check_tempfile(char * path)
81 {
82     char * msg1 = "A file '";
83     char * msg2 = "' exists, probably from a corrupted previous file saving "
84                   "process. To avoid corruption of game files, the game won't "
85                   "start until it is removed or renamed.";
86     uint16_t size = strlen(msg1) + strlen(path) + strlen(msg2);
87     char msg[size];
88     sprintf(msg, "%s%s%s", msg1, path, msg2);
89     exit_err(!access(path, F_OK), msg);
90 }
91
92
93
94 extern void save_interface_conf()
95 {
96     save_keybindings("config/keybindings_global", &world.kb_global);
97     save_keybindings("config/keybindings_wingeom", &world.kb_wingeom);
98     save_keybindings("config/keybindings_winkeys", &world.kb_winkeys);
99     save_win_configs();
100 }
101
102
103
104 extern void load_interface_conf()
105 {
106     init_keybindings("config/keybindings_global",  &world.kb_global);
107     init_keybindings("config/keybindings_wingeom", &world.kb_wingeom);
108     init_keybindings("config/keybindings_winkeys", &world.kb_winkeys);
109     init_winconfs();
110     init_wins();
111     sorted_wintoggle_and_activate();
112 }
113
114
115
116 extern void unload_interface_conf()
117 {
118     free_keybindings(world.kb_global.kbs);
119     free_keybindings(world.kb_wingeom.kbs);
120     free_keybindings(world.kb_winkeys.kbs);
121     while (0 != world.wmeta->active)
122     {
123         suspend_win(world.wmeta->active);
124     }
125     free_winconfs();
126 }
127
128
129
130 extern void reload_interface_conf()
131 {
132     unload_interface_conf();
133     load_interface_conf();
134 }
135
136
137
138 extern void update_log(char * text)
139 {
140     char * f_name = "update_log()";
141     static char * last_msg;                 /* TODO: valgrind is dissatisfied */
142     if (0 == last_msg)                      /* with this calloc'd pointer not */
143     {                                       /* being freed. Rectify this?     */
144         last_msg = try_calloc(1, sizeof(char), f_name);
145     }
146     char * new_text;
147     uint16_t len_old = strlen(world.log);
148     if (0 == strcmp(last_msg, text))
149     {
150         uint16_t len_whole = len_old + 1;
151         new_text = try_calloc(len_whole + 1, sizeof(char), f_name);
152         memcpy(new_text, world.log, len_old);
153         memcpy(new_text + len_old, ".", 1);
154     }
155     else
156     {
157         uint16_t len_new = strlen(text);
158         uint16_t len_whole = len_old + len_new + 1;
159         new_text = try_calloc(len_whole, sizeof(char), f_name);
160         memcpy(new_text, world.log, len_old);
161         memcpy(new_text + len_old, text, len_new);
162         last_msg = try_calloc(len_new + 1, sizeof(char), f_name);
163         memcpy(last_msg, text, len_new);
164     }
165     free(world.log);
166     world.log = new_text;
167 }
168
169
170
171 extern uint16_t center_offset(uint16_t position, uint16_t mapsize,
172                               uint16_t framesize)
173 {
174     uint16_t offset = 0;
175     if (mapsize > framesize)
176     {
177         if (position > framesize / 2)
178         {
179             if (position < mapsize - (framesize / 2))
180             {
181                 offset = position - (framesize / 2);
182             }
183             else
184             {
185                 offset = mapsize - framesize;
186             }
187         }
188     }
189     return offset;
190 }
191
192
193
194 extern void turn_over(char action)
195 {
196     char * f_name = "turn_over()";
197
198     char * recordfile_tmp = "record_tmp";
199     char * recordfile     = "record";
200     if (1 == world.interactive)
201     {
202         FILE * file_old = try_fopen(recordfile,     "r", f_name);
203         FILE * file_new = try_fopen(recordfile_tmp, "w", f_name);
204         int c = try_fgetc(file_old, f_name);
205         while (EOF != c)
206         {
207             try_fputc((uint8_t) c, file_new, f_name);
208             c = try_fgetc(file_old, f_name);
209         }
210         try_fclose(file_old, f_name);
211         try_fputc(action, file_new, f_name);
212         if (   is_command_id_shortdsc(action, "drop")
213             || is_command_id_shortdsc(action, "use"))
214         {
215             try_fputc(world.inventory_sel, file_new, f_name);
216         }
217         try_fclose_unlink_rename(file_new, recordfile_tmp, recordfile, f_name);
218     }
219
220     struct MapObj * player = get_player();
221     struct MapObj * map_object = player;
222     uint8_t first_round = 1;
223     while (0 < player->lifepoints)
224     {
225         if (NULL == map_object)
226         {
227             world.turn++;
228             map_object = world.map_objs;
229         }
230         if (0 < map_object->lifepoints)             /* map_object is animate. */
231         {
232             if (0 == first_round && 0 == map_object->progress)
233             {
234                 if (map_object == player)
235                 {
236                     break;
237                 }
238                 pretty_dumb_ai(map_object);
239             }
240             first_round = 0;
241             map_object->progress++;
242             struct MapObjAct * moa = world.map_obj_acts;
243             while (moa->id != map_object->command)
244             {
245                 moa = moa->next;
246             }
247             if (map_object->progress == moa->effort)
248             {
249                 moa->func(map_object);
250                 map_object->progress = 0;
251             }
252         }
253         map_object = map_object->next;
254     }
255 }
256
257
258
259 extern void save_game()
260 {
261     char * f_name = "save_game()";
262     char * savefile_tmp = "savefile_tmp";
263     char * savefile     = "savefile";
264     FILE * file = try_fopen(savefile_tmp, "w", f_name);
265     char line[12];
266     sprintf(line, "%u\n", world.mapseed);
267     try_fwrite(line, strlen(line), 1, file, f_name);
268     sprintf(line, "%u\n", world.seed);
269     try_fwrite(line, strlen(line), 1, file, f_name);
270     sprintf(line, "%u\n", world.map_obj_count);
271     try_fwrite(line, strlen(line), 1, file, f_name);
272     sprintf(line, "%u\n", world.turn);
273     try_fwrite(line, strlen(line), 1, file, f_name);
274     sprintf(line, "%u\n", world.score);
275     try_fwrite(line, strlen(line), 1, file, f_name);
276     write_map_objects(file);
277     try_fclose_unlink_rename(file, savefile_tmp, savefile, f_name);
278 }
279
280
281
282 extern void load_game()
283 {
284     char * f_name = "load_game2()";
285     char * filename = "savefile";
286     FILE * file = try_fopen(filename, "r", f_name);
287     uint16_t linemax = textfile_sizes(file, NULL);
288     char line[linemax + 1];
289     try_fgets(line, linemax + 1, file, f_name);
290     world.mapseed = atoi(line);
291     try_fgets(line, linemax + 1, file, f_name);
292     world.seed = atoi(line);
293     try_fgets(line, linemax + 1, file, f_name);
294     world.map_obj_count = atoi(line);
295     try_fgets(line, linemax + 1, file, f_name);
296     world.turn = atoi(line);
297     try_fgets(line, linemax + 1, file, f_name);
298     world.score = atoi(line);
299     read_map_objects(file, line, linemax);
300     try_fclose(file, f_name);
301 }
302
303
304
305 extern struct yx_uint16 find_passable_pos(struct Map * map)
306 {
307     struct yx_uint16 pos;
308     for (pos.y = pos.x = 0; 0 == is_passable(map, pos);)
309     {
310         pos.y = rrand() % map->size.y;
311         pos.x = rrand() % map->size.x;
312     }
313     return pos;
314 }
315
316
317
318 extern void nav_inventory(char dir)
319 {
320     if ('u' == dir)
321     {
322         world.inventory_sel = world.inventory_sel - (world.inventory_sel > 0);
323         return;
324     }
325     struct MapObj * player = get_player();
326     struct MapObj * owned = player->owns;
327     if (NULL == owned)
328     {
329         return;
330     }
331     uint8_t n_owned = 0;
332     for (; NULL != owned->next; owned = owned->next, n_owned++);
333     world.inventory_sel = world.inventory_sel + (world.inventory_sel < n_owned);
334 }