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 Cavern of Cuties
   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), killname(tp->t_type));
  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), killname(tp->t_type));
  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), killname(tp->t_type));
  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 * op->o_which) & tp->t_stats.s_ont) - 1;
 115     if ((liking == 0 || liking == -1)
 116         || liking > 0 && tp->t_stats.s_int <= MAYBE_INTERESTED)
 117     {
 118         const char *msgs[] = {
 119             "The %s ignores %s",
 120             "The %s doesn't care for %s",
 121             "The %s isn't interested in %s",
 122         };
 123         msg(rndchoice(msgs), killname(tp->t_type), inv_name(op, TRUE));
 124         return;
 125     }
 126     else if (liking > 0)
 127     {
 128         const char *msgs[] = {
 129             "The %s accepts %s.",
 130             "The %s smiles and takes %s.",
 131         };
 132         msg(rndchoice(msgs), killname(tp->t_type), inv_name(op, TRUE));
 133         tp->t_stats.s_int += liking * 10;
 134     }
 135     else
 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), killname(tp->t_type), inv_name(op, TRUE));
 143         tp->t_stats.s_int -= liking * 2;
 144     }
 145
 146     /*
 147      * Take it out of the pack
 148      */
 149     if (op->o_count >= 2 && op->o_type != WEAPON)
 150     {
 151         nobj = new_item(sizeof *op);
 152         op->o_count--;
 153         op = (struct object *) ldata(nobj);
 154         *op = *((struct object *) ldata(obj));
 155         op->o_count = 1;
 156         obj = nobj;
 157         if (op->o_group != 0)
 158                 inpack++;
 159     }
 160     else
 161         detach(pack, obj);
 162     inpack--;
 163 }
 164
 165 embrace()
 166 {
 167     register struct thing *tp = NULL;
 168     register int liking;
 169     register int dx, dy;
 170
 171     for (dx = -1; dx <= 1; ++dx)
 172     {
 173         for (dy = -1; dy <= 1; ++dy)
 174         {
 175             register struct linked_list *mob;
 176             if ((mob = find_mons(hero.y + dy, hero.x + dx)))
 177             {
 178                 register struct thing *atp = (struct thing *)ldata(mob);
 179                 if (!tp || atp->t_stats.s_int > tp->t_stats.s_int)
 180                     tp = atp;
 181             }
 182         }
 183     }
 184
 185
 186     if (tp == NULL)
 187     {
 188         msg("You wrap your arms around yourself.");
 189         return;
 190     }
 191     else if (tp->t_stats.s_int < READY)
 192     {
 193         if (tp->t_stats.s_int > 0)
 194             tp->t_stats.s_int /= 2;
 195         else
 196             tp->t_stats.s_int--;
 197         msg("The %s dodges out of the way.", killname(tp->t_type));
 198         return;
 199     }
 200
 201     if (amulet)
 202     {
 203         total_winner(tp->t_type);
 204     }
 205     else
 206     {
 207         mostly_winner(tp->t_type);
 208     }
 209 }