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 - 1;
  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 bool did_hit = TRUE;
  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      * Take it out of the pack
 114      */
 115     if (op->o_count >= 2 && op->o_type != WEAPON)
 116     {
 117         nobj = new_item(sizeof *op);
 118         op->o_count--;
 119         op = (struct object *) ldata(nobj);
 120         *op = *((struct object *) ldata(obj));
 121         op->o_count = 1;
 122         obj = nobj;
 123         if (op->o_group != 0)
 124                 inpack++;
 125     }
 126     else
 127         detach(pack, obj);
 128     inpack--;
 129 }
 130
 131 embrace()
 132 {
 133 }