home · contact · privacy
Moved pseudo-random generator into its own library, simplified its interface and...
[plomrogue] / src / map_object_actions.c
1 /* map_object_actions.c */
2
3 #include "map_object_actions.h"
4 #include <stdlib.h> /* for malloc(), calloc(), free() */
5 #include "yx_uint16.h" /* for yx_uint16 struct, mv_yx_in_dir(), yx_uint16_cmp */
6 #include "misc.h" /* for update_log(), turn_over()*/
7 #include "map.h" /* for Map struct */
8 #include "main.h" /* for World struct */
9 #include "map_objects.h" /* for map object (definition) structs */
10 #include "rrand.h" /* for rrand() */
11
12
13
14 extern void move_monster(struct World * world, struct Monster * monster)
15 {
16     char d = rrand() % 5;
17     struct yx_uint16 t = mv_yx_in_dir(d, monster->map_obj.pos);
18     char * msg = malloc(100);
19     struct MapObjDef * mod = get_map_obj_def(world, monster->map_obj.type);
20     char * desc = mod->desc;
21     char * desc_other;
22     if (yx_uint16_cmp(t, world->player->pos))
23     {
24         sprintf(msg, "\nThe %s hits you.", desc);
25         update_log(world, msg);
26         world->player->hitpoints--;
27         if (0 == world->player->hitpoints)
28         {
29             update_log(world, "\nYou are dead.");
30         }
31         return;
32     }
33     struct Monster * other_monster;
34     for (other_monster = world->monster;
35          other_monster != 0;
36          other_monster = other_monster->map_obj.next)
37     {
38         if (other_monster == monster)
39         {
40             continue;
41         }
42         if (yx_uint16_cmp(t, other_monster->map_obj.pos))
43         {
44             mod = get_map_obj_def(world, other_monster->map_obj.type);
45             desc_other = mod->desc;
46             sprintf(msg, "\n%s bumps into %s.", desc, desc_other);
47             update_log(world, msg);
48             return;
49         }
50     }
51     free(msg);
52     if (is_passable(world->map, t))
53     {
54         monster->map_obj.pos = t;
55     }
56 }
57
58
59
60 extern void move_player (struct World * world, enum dir d)
61 {
62     struct yx_uint16 t = mv_yx_in_dir(d, world->player->pos);
63     struct Monster * monster;
64     struct MapObjDef * mod;
65     char * msg = calloc(100, sizeof(char));
66     char * desc;
67     for (monster = world->monster;
68          monster != 0;
69          monster = monster->map_obj.next)
70     {
71         if (yx_uint16_cmp(t, monster->map_obj.pos))
72         {
73             mod = get_map_obj_def(world, monster->map_obj.type);
74             desc = mod->desc;
75             sprintf(msg, "\nYou hit the %s.", desc);
76             update_log(world, msg);
77             monster->hitpoints--;
78             if (0 == monster->hitpoints)
79             {
80                 sprintf(msg, "\nYou kill the %s.", desc);
81                 update_log(world, msg);
82                 if (world->monster == monster)
83                 {
84                     world->monster = world->monster->map_obj.next;
85                 }
86                 else
87                 {
88                     struct Monster * m_prev;
89                     for (m_prev = world->monster;
90                          m_prev->map_obj.next != monster;
91                          m_prev = m_prev->map_obj.next);
92                     m_prev->map_obj.next = monster->map_obj.next;
93                 }
94                 free(monster);
95             }
96             turn_over(world, d);
97             return;
98           }
99       }
100       char * msg_content = "You fail to move";
101       char * dir;
102       if      (NORTH == d)
103       {
104           dir = "north";
105       }
106       else if (EAST  == d)
107       {
108           dir = "east" ;
109       }
110       else if (SOUTH == d)
111       {
112           dir = "south";
113       }
114       else if (WEST  == d)
115       {
116           dir = "west" ;
117       }
118       if (is_passable(world->map, t))
119       {
120           msg_content = "You move";
121           world->player->pos = t;
122       }
123       sprintf(msg, "\n%s %s.", msg_content, dir);
124       update_log(world, msg);
125       free(msg);
126       turn_over(world, d);
127 }
128
129
130
131 extern void player_wait (struct World * world)
132 {
133     update_log(world, "\nYou wait.");
134     turn_over(world, 0);
135 }
136
137
138
139 extern char is_passable (struct Map * map, struct yx_uint16 pos)
140 {
141     char passable = 0;
142     if (0 <= pos.x && pos.x < map->size.x && 0 <= pos.y && pos.y < map->size.y)
143     {
144         if ('.' == map->cells[pos.y * map->size.x + pos.x])
145         {
146             passable = 1;
147         }
148     }
149     return passable;
150 }
151