Sufficiently interested monsters will now accept gifts.
[rogue-pphs.git] / romance.c
1 /*
2 * Functions for dealing with problems of the heart
3 *
4 * @(#)romance.c 3.2 (Berkeley) 6/15/81
5 *
6 * Rogue: Exploring the Dungeons of Doom
7 * Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
8 * All rights reserved.
9 *
10 * See the file LICENSE.TXT for full copyright and licensing information.
11 */
12
13 #include "curses.h"
14 #include <ctype.h>
15 #include <string.h>
16 #include "rogue.h"
17
18 count_bits_set(v)
19 unsigned v; // count bits set in this (32-bit value)
20 {
21 unsigned c = v - ((v >> 1) & 0x55555555);
22 c = ((c >> 2) & 0x33333333) + (c & 0x33333333);
23 c = ((c >> 4) + c) & 0x0F0F0F0F;
24 c = ((c >> 8) + c) & 0x00FF00FF;
25 c = ((c >> 16) + c) & 0x0000FFFF;
26 return c;
27 }
28
29 /*
30 * flirt:
31 * Make eyes in the given direction
32 */
33
34 flirt(ydelta, xdelta)
35 int ydelta, xdelta;
36 {
37 register struct linked_list *mob;
38 struct object obj = {};
39
40 obj.o_pos = hero;
41 obj.o_type = '~';
42 do_motion(&obj, ydelta, xdelta);
43 mvwaddch(cw, hero.y, hero.x, PLAYER);
44 if ((mob = find_mons(obj.o_pos.y, obj.o_pos.x)) == NULL)
45 {
46 const char *msgs[] = {
47 "You wink at nothing in particular.",
48 "You smile suggestively at the wall.",
49 "Unprompted, you suddenly blush.",
50 };
51 msg(rndchoice(msgs));
52 }
53 else
54 {
55 register struct thing *tp = (struct thing *) ldata(mob);
56 int attr = count_bits_set(tp->t_stats.s_ont ^ player.t_stats.s_ont);
57 attr += tp->t_stats.s_int - 2;
58 if (rnd(NUM_FEATURES) < attr)
59 {
60 tp->t_stats.s_int++;
61 const char *msgs[] = {
62 "The %s smiles back at you.",
63 "You catch the %s staring at you out of the corner of eir eye.",
64 "The %s blushes and waves cautiously.",
65 };
66 msg(rndchoice(msgs), monsters[tp->t_type - 'A'].m_name);
67 }
68 else if (attr <= 0)
69 {
70 tp->t_stats.s_int--;
71 const char *msgs[] = {
72 "The %s scowls at you.",
73 "The %s tells you to stop it.",
74 "The %s is sick of your crap.",
75 };
76 msg(rndchoice(msgs), monsters[tp->t_type - 'A'].m_name);
77 }
78 else
79 {
80 const char *msgs[] = {
81 "The %s ignores you.",
82 "The %s is completely uninterested in you.",
83 "The %s acts like it can't hear you.",
84 "The %s doesn't care.",
85 };
86 msg(rndchoice(msgs), monsters[tp->t_type - 'A'].m_name);
87 }
88 }
89 }
90
91 gift(ydelta, xdelta)
92 int ydelta, xdelta;
93 {
94 register struct linked_list *obj, *nobj;
95 register struct linked_list *mob;
96 register struct object *op;
97 register struct thing *tp;
98 register int liking;
99
100 if ((mob = find_mons(hero.y + ydelta, hero.x + xdelta)) == NULL)
101 {
102 msg("There's no-one around here.");
103 return(0);
104 }
105 tp = (struct thing *) ldata(mob);
106
107 if ((obj = get_item("give", 0)) == NULL)
108 return;
109 op = (struct object *) ldata(obj);
110 if (!dropcheck(op))
111 return;
112
113 liking = count_bits_set(
114 hash((op->o_type << 4) ^ op->o_which) & tp->t_stats.s_ont) - 1;
115 if (liking == 0 || tp->t_stats.s_int <= 3)
116 {
117 const char *msgs[] = {
118 "The %s ignores %s",
119 "The %s isn't interested in %s",
120 };
121 msg(rndchoice(msgs), monsters[tp->t_type - 'A'].m_name,
122 inv_name(op, TRUE));
123 return;
124 }
125 else if (liking > 0)
126 {
127 const char *msgs[] = {
128 "The %s accepts %s.",
129 "The %s takes %s.",
130 };
131 msg(rndchoice(msgs), monsters[tp->t_type - 'A'].m_name,
132 inv_name(op, TRUE));
133 tp->t_stats.s_int += liking * 10;
134 }
135 else if (liking < 0)
136 {
137 const char *msgs[] = {
138 "The %s throws away %s.",
139 "The %s breaks %s.",
140 "The %s hates %s.",
141 };
142 msg(rndchoice(msgs), monsters[tp->t_type - 'A'].m_name,
143 inv_name(op, TRUE));
144 tp->t_stats.s_int -= liking * 2;
145 }
146
147 /*
148 * Take it out of the pack
149 */
150 if (op->o_count >= 2 && op->o_type != WEAPON)
151 {
152 nobj = new_item(sizeof *op);
153 op->o_count--;
154 op = (struct object *) ldata(nobj);
155 *op = *((struct object *) ldata(obj));
156 op->o_count = 1;
157 obj = nobj;
158 if (op->o_group != 0)
159 inpack++;
160 }
161 else
162 detach(pack, obj);
163 inpack--;
164 }
165
166 embrace()
167 {
168 }