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 }