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