Import XRogue 8.0 from the Roguelike Restoration Project (r1490)

xrogue/rings.c

@@ -0,0 +1,173 @@
+/*
+    rings.c - Routines dealing specificaly with rings
+    
+    XRogue: Expeditions into the Dungeons of Doom
+    Copyright (C) 1991 Robert Pietkivitch
+    All rights reserved.
+    
+    Based on "Advanced Rogue"
+    Copyright (C) 1984, 1985 Michael Morgan, Ken Dalka and AT&T
+    All rights reserved.
+
+    Based on "Rogue: Exploring the Dungeons of Doom"
+    Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
+    All rights reserved.
+    
+    See the file LICENSE.TXT for full copyright and licensing information.
+*/
+
+#include <curses.h>
+#include "rogue.h"
+
+/*
+ * routines dealing specifically with rings
+ */
+
+/*
+ * how much food does this ring use up?
+ */
+
+ring_eat(hand)
+register int hand;
+{
+    if (cur_ring[hand] == NULL)
+        return 0;
+    switch (cur_ring[hand]->o_which) {
+        case R_VAMPREGEN:
+            return 3;
+        case R_REGEN:
+        case R_SUSABILITY:
+            return 2;
+        case R_HEALTH:
+            return 1;
+        case R_SEARCH:
+        case R_SEEINVIS:
+            return (rnd(100) < 50);  /* 0 or 1 */
+        case R_DIGEST:
+            if (cur_ring[hand]->o_ac >= 0)
+                return (-(cur_ring[hand]->o_ac)-1);
+            else
+                return (-(cur_ring[hand]->o_ac));
+    }
+    return 0;
+}
+
+ring_on(item)
+register struct linked_list *item;
+{
+    register struct object *obj;
+    register int save_max;
+
+    obj = OBJPTR(item);
+
+    /*
+     * Calculate the effect it has on the poor guy.
+     */
+    switch (obj->o_which)
+    {
+        case R_ADDSTR:
+            save_max = max_stats.s_str;
+            chg_str(obj->o_ac);
+            max_stats.s_str = save_max;
+        when R_ADDHIT:
+            pstats.s_dext += obj->o_ac;
+        when R_ADDINTEL:
+            pstats.s_intel += obj->o_ac;
+        when R_ADDWISDOM:
+            pstats.s_wisdom += obj->o_ac;
+        when R_SEEINVIS:
+        if (on(player, CANSEE)) msg("Your eyes sparkle.");
+        else msg("Your eyes begin to tingle.");
+            turn_on(player, CANSEE);
+            light(&hero);
+            mvwaddch(cw, hero.y, hero.x, PLAYER);
+        when R_AGGR:
+            aggravate(TRUE, TRUE);  /* all charactors are affected*/
+        when R_WARMTH:
+        if (on(player, NOCOLD)) msg("You feel warm all over.");
+        else msg("You begin to feel warm.");
+            turn_on(player, NOCOLD);
+        when R_FIRE:
+        if (on(player, NOFIRE)) msg("You feel quite fire proof now.");
+        else msg("You begin to feel fire proof.");
+            turn_on(player, NOFIRE);
+        when R_LIGHT: {
+            if(roomin(&hero) != NULL) {
+                light(&hero);
+                mvwaddch(cw, hero.y, hero.x, PLAYER);
+            }
+    }
+        when R_SEARCH:
+            daemon(ring_search, (VOID *)NULL, AFTER);
+        when R_TELEPORT:
+            daemon(ring_teleport, (VOID *)NULL, AFTER);
+    }
+    status(FALSE);
+    if (r_know[obj->o_which] && r_guess[obj->o_which]) {
+        free(r_guess[obj->o_which]);
+        r_guess[obj->o_which] = NULL;
+    }
+    else if (!r_know[obj->o_which] && 
+             askme && 
+             (obj->o_flags & ISKNOW) == 0 &&
+             r_guess[obj->o_which] == NULL) {
+        nameitem(item, FALSE);
+    }
+}
+
+/*
+ * print ring bonuses
+ */
+
+char *
+ring_num(obj)
+register struct object *obj;
+{
+    static char buf[5];
+
+    if (!(obj->o_flags & ISKNOW))
+        return "";
+    switch (obj->o_which)
+    {
+        case R_PROTECT:
+        case R_ADDSTR:
+        case R_ADDDAM:
+        case R_ADDHIT:
+        case R_ADDINTEL:
+        case R_ADDWISDOM:
+        case R_DIGEST:
+            buf[0] = ' ';
+            strcpy(&buf[1], num(obj->o_ac, 0));
+        when R_AGGR:
+        case R_LIGHT:
+        case R_CARRY:
+        case R_TELEPORT:
+            if (obj->o_flags & ISCURSED)
+                return " cursed";
+            else
+                return "";
+        otherwise:
+            return "";
+    }
+    return buf;
+}
+
+/* 
+ * Return the effect of the specified ring 
+ */
+
+ring_value(type)
+{
+    int result = 0;
+
+    if (ISRING(LEFT_1, type))  result += cur_ring[LEFT_1]->o_ac;
+    if (ISRING(LEFT_2, type))  result += cur_ring[LEFT_2]->o_ac;
+    if (ISRING(LEFT_3, type))  result += cur_ring[LEFT_3]->o_ac;
+    if (ISRING(LEFT_4, type))  result += cur_ring[LEFT_4]->o_ac;
+    if (ISRING(RIGHT_1, type)) result += cur_ring[RIGHT_1]->o_ac;
+    if (ISRING(RIGHT_2, type)) result += cur_ring[RIGHT_2]->o_ac;
+    if (ISRING(RIGHT_3, type)) result += cur_ring[RIGHT_3]->o_ac;
+    if (ISRING(RIGHT_4, type)) result += cur_ring[RIGHT_4]->o_ac;
+    return(result);
+}
+