Tweak liking thresholds. Required interest rate is higher to discourage flirt grinding.

[rogue-pphs.git] / fight.c

diff --git a/fight.c b/fight.c
index 516d8b7..3b604bf 100644 (file)
--- a/fight.c
+++ b/fight.c
@@ -3,7 +3,7 @@
  *\r
  * @(#)fight.c 3.28 (Berkeley) 6/15/81\r
  *\r
- * Rogue: Exploring the Dungeons of Doom\r
+ * Rogue: Exploring the Cavern of Cuties\r
  * Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman\r
  * All rights reserved.\r
  *\r
@@ -61,7 +61,7 @@ bool thrown;
     if (did_hit)\r
     {\r
        register char *mname;\r
-\r
+        tp->t_stats.s_int = 0;\r
        did_hit = FALSE;\r
        if (on(player, ISBLIND))\r
            mname = "it";\r
@@ -104,6 +104,32 @@ register struct thing *mp;
 {\r
     register char *mname;\r
 \r
+    // I'm not going to wait for you forever.\r
+    if (rnd(5) == 0)\r
+        mp->t_stats.s_int--;\r
+\r
+    if (mp->t_stats.s_int > READY)\r
+    {\r
+        const char *msgs[] = {\r
+            "The %s smiles at you.",\r
+            "The %s moves in a little closer.",\r
+            "The %s bites eir lip.",\r
+            "The %s looks at you expectantly.",\r
+        };\r
+        msg(rndchoice(msgs), monsters[mp->t_type-'A'].m_name);\r
+        return;\r
+    }\r
+    else if (mp->t_stats.s_int > rnd(INTERESTED))\r
+    {\r
+        const char *msgs[] = {\r
+            "The %s stares at you.",\r
+            "The %s hesitates.",\r
+            "The %s takes a step towards you, then back.",\r
+        };\r
+        msg(rndchoice(msgs), monsters[mp->t_type-'A'].m_name);\r
+        return;\r
+    }\r
+\r
     /*\r
      * Since this is an attack, stop running and any healing that was\r
      * going on at the time.\r