|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T s
Length: 11936 (0x2ea0)
Types: TextFile
Names: »scrolls.c.orig«
└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
└─⟦this⟧ »EUUGD18/General/Umoria/scrolls.c.orig«
#include <stdio.h>
#include "constants.h"
#include "config.h"
#include "types.h"
#include "externs.h"
#ifdef sun /* correct SUN stupidity in the stdio.h file */
char *sprintf();
#endif
extern int moria_flag;
/* Scrolls for the reading -RAK- */
read_scroll()
{
unsigned int i;
int j, k, l, item_val;
int y, x;
int tmp[6];
vtype out_val, tmp_str;
int redraw, ident, first, flag;
register treasure_type *i_ptr;
register struct misc *m_ptr;
first = TRUE;
reset_flag = TRUE;
if (inven_ctr > 0)
{
if (find_range(70, 71, &j, &k))
if (py.flags.blind > 0)
msg_print("You can't see to read the scroll.");
else if (no_light())
msg_print("You have no light to read by.");
else if (py.flags.confused > 0)
{
msg_print("The text seems to swim about the page!");
msg_print("You are too confused to read...");
}
else
{
redraw = FALSE;
if (get_item(&item_val, "Read which scroll?", &redraw, j, k))
{
i_ptr = &inventory[item_val];
if (redraw) draw_cave();
reset_flag = FALSE;
i = i_ptr->flags;
ident = FALSE;
while (i != 0)
{
j = bit_pos(&i) + 1;
if (i_ptr->tval == 71)
j += 31;
if (first)
if ((j != 4) && (j != 25))
{
msg_print("As you read the scroll it vanishes.");
first = FALSE;
}
/* Scrolls... */
switch(j)
{
case 1:
i_ptr = &inventory[INVEN_WIELD];
if (i_ptr->tval != 0)
{
objdes(tmp_str, INVEN_WIELD, FALSE);
(void) sprintf(out_val, "Your %s glows faintly!",
tmp_str);
msg_print(out_val);
if (enchant(&i_ptr->tohit))
{
i_ptr->flags &= 0x7FFFFFFF;
py_bonuses(blank_treasure, 0);
}
else
msg_print("The enchantment fails...");
}
ident = TRUE;
break;
case 2:
i_ptr = &inventory[INVEN_WIELD];
if (i_ptr->tval != 0)
{
objdes(tmp_str, INVEN_WIELD, FALSE);
(void) sprintf(out_val, "Your %s glows faintly!",
tmp_str);
msg_print(out_val);
if (enchant(&i_ptr->todam))
{
i_ptr->flags &= 0x7FFFFFFF;
py_bonuses(blank_treasure, 0);
}
else
msg_print("The enchantment fails...");
}
ident = TRUE;
break;
case 3:
k = 0;
l = 0;
if (inventory[INVEN_BODY].tval != 0)
tmp[k++] = INVEN_BODY;
if (inventory[INVEN_ARM].tval != 0)
tmp[k++] = INVEN_ARM;
if (inventory[INVEN_OUTER].tval != 0)
tmp[k++] = INVEN_OUTER;
if (inventory[INVEN_HANDS].tval != 0)
tmp[k++] = INVEN_HANDS;
if (inventory[INVEN_HEAD].tval != 0)
tmp[k++] = INVEN_HEAD;
/* also enchant boots */
if (inventory[INVEN_FEET].tval != 0)
tmp[k++] = INVEN_FEET;
if (k > 0) l = tmp[randint(k)-1];
if (0x80000000 & inventory[INVEN_BODY].flags)
l = INVEN_BODY;
else if (0x80000000 & inventory[INVEN_ARM].flags)
l = INVEN_ARM;
else if (0x80000000 & inventory[INVEN_OUTER].flags)
l = INVEN_OUTER;
else if (0x80000000 & inventory[INVEN_HEAD].flags)
l = INVEN_HEAD;
else if (0x80000000 & inventory[INVEN_HANDS].flags)
l = INVEN_HANDS;
else if (0x80000000 & inventory[INVEN_FEET].flags)
l = INVEN_FEET;
if (l > 0)
{
i_ptr = &inventory[l];
objdes(tmp_str, l, FALSE);
(void) sprintf(out_val, "Your %s glows faintly!",
tmp_str);
msg_print(out_val);
if (enchant(&i_ptr->toac))
{
i_ptr->flags &= 0x7FFFFFFF;
py_bonuses(blank_treasure, 0);
}
else
msg_print("The enchantment fails...");
ident = TRUE;
}
break;
case 4:
identify(inventory[item_val]);
msg_print("This is an identify scroll");
/* make sure player sees message before ident_spell */
msg_print(" ");
if (ident_spell()) first = FALSE;
break;
case 5:
if (remove_curse())
{
msg_print("You feel as if someone is watching over you.");
ident = TRUE;
}
break;
case 6:
ident = light_area(char_row, char_col);
break;
case 7:
ident = FALSE;
for (k = 0; k < randint(3); k++)
{
y = char_row;
x = char_col;
ident |= summon_monster(&y, &x, FALSE);
}
break;
case 8:
teleport(10);
ident = TRUE;
break;
case 9:
teleport(100);
ident = TRUE;
break;
case 10:
dun_level += (-3) + 2*randint(2);
if (dun_level < 1)
dun_level = 1;
moria_flag = TRUE;
ident = TRUE;
break;
case 11:
msg_print("Your hands begin to glow.");
py.flags.confuse_monster = TRUE;
ident = TRUE;
break;
case 12:
ident = map_area();
break;
case 13:
ident = sleep_monsters1(char_row, char_col);
break;
case 14:
ident = warding_glyph();
break;
case 15:
ident = detect_treasure();
break;
case 16:
ident = detect_object();
break;
case 17:
ident = detect_trap();
break;
case 18:
ident = detect_sdoor();
break;
case 19:
msg_print("This is a mass genocide scroll.");
ident = mass_genocide();
break;
case 20:
ident = detect_invisible();
break;
case 21:
ident = aggravate_monster(20);
msg_print("There is a high pitched humming noise");
break;
case 22:
ident = trap_creation();
break;
case 23:
ident = td_destroy();
break;
case 24:
ident = door_creation();
break;
case 25:
identify(inventory[item_val]);
msg_print("This is a Recharge-Item scroll.");
/* make sure player see message before recharge */
msg_print(" ");
if (recharge(60)) first = FALSE;
break;
case 26:
msg_print("This is a genocide scroll.");
/* make sure player sees message before genocide() */
msg_print(" ");
ident = genocide();
break;
case 27:
ident = unlight_area(char_row, char_col);
break;
case 28:
ident = protect_evil();
break;
case 29:
ident = create_food();
break;
case 30:
ident = dispell_creature(0x0008, 60);
break;
case 31:
msg_print("That scroll appeared to be blank.");
ident = TRUE;
break;
case 32:
i_ptr = &inventory[INVEN_WIELD];
if (i_ptr->tval != 0)
{
objdes(tmp_str, INVEN_WIELD, FALSE);
(void) sprintf(out_val, "Your %s glows brightly!",
tmp_str);
msg_print(out_val);
flag = FALSE;
for (k = 0; k < randint(2); k++)
if (enchant(&i_ptr->tohit))
flag = TRUE;
for (k = 0; k < randint(2); k++)
if (enchant(&i_ptr->todam))
flag = TRUE;
if (flag)
{
i_ptr->flags &= 0x7FFFFFFF;
py_bonuses(blank_treasure, 0);
}
else
msg_print("The enchantment fails...");
ident = TRUE;
}
break;
case 33:
i_ptr = &inventory[INVEN_WIELD];
if (i_ptr->tval != 0)
{
inventory[INVEN_MAX] = inventory[INVEN_WIELD];
objdes(tmp_str, INVEN_WIELD, FALSE);
(void)sprintf(out_val,"Your %s glows black, fades",
tmp_str);
msg_print(out_val);
i_ptr->tohit = -randint(5) - randint(5);
i_ptr->todam = -randint(5) - randint(5);
i_ptr->flags = 0x80000000;
py_bonuses(inventory[INVEN_MAX], -1);
ident = TRUE;
}
break;
case 34:
k = 0;
l = 0;
if (inventory[INVEN_BODY].tval != 0)
tmp[k++] = INVEN_BODY;
if (inventory[INVEN_ARM].tval != 0)
tmp[k++] = INVEN_ARM;
if (inventory[INVEN_OUTER].tval != 0)
tmp[k++] = INVEN_OUTER;
if (inventory[INVEN_HANDS].tval != 0)
tmp[k++] = INVEN_HANDS;
if (inventory[INVEN_HEAD].tval != 0)
tmp[k++] = INVEN_HEAD;
/* also enchant boots */
if (inventory[INVEN_FEET].tval != 0)
tmp[k++] = INVEN_FEET;
if (k > 0) l = tmp[randint(k)-1];
if (0x80000000 & inventory[INVEN_BODY].flags)
l = INVEN_BODY;
else if (0x80000000 & inventory[INVEN_ARM].flags)
l = INVEN_ARM;
else if (0x80000000 & inventory[INVEN_OUTER].flags)
l = INVEN_OUTER;
else if (0x80000000 & inventory[INVEN_HEAD].flags)
l = INVEN_HEAD;
else if (0x80000000 & inventory[INVEN_HANDS].flags)
l = INVEN_HANDS;
else if (0x80000000 & inventory[INVEN_FEET].flags)
l = INVEN_FEET;
if (l > 0)
{
i_ptr = &inventory[l];
objdes(tmp_str, l, FALSE);
(void) sprintf(out_val,"Your %s glows brightly!",
tmp_str);
msg_print(out_val);
flag = FALSE;
for (k = 0; k < randint(2) + 1; k++)
if (enchant(&i_ptr->toac))
flag = TRUE;
if (flag)
{
i_ptr->flags &= 0x7FFFFFFF;
py_bonuses(blank_treasure, 0);
}
else
msg_print("The enchantment fails...");
ident = TRUE;
}
break;
case 35:
if ((inventory[INVEN_BODY].tval != 0) && (randint(4) == 1))
k = INVEN_BODY;
else if ((inventory[INVEN_ARM].tval != 0) && (randint(3) ==1))
k = INVEN_ARM;
else if ((inventory[INVEN_OUTER].tval != 0) && (randint(3) ==1))
k = INVEN_OUTER;
else if ((inventory[INVEN_HEAD].tval != 0) && (randint(3) ==1))
k = INVEN_HEAD;
else if ((inventory[INVEN_HANDS].tval != 0) && (randint(3) ==1))
k = INVEN_HANDS;
else if ((inventory[INVEN_FEET].tval != 0) && (randint(3) ==1))
k = INVEN_FEET;
else if (inventory[INVEN_BODY].tval != 0)
k = INVEN_BODY;
else if (inventory[INVEN_ARM].tval != 0)
k = INVEN_ARM;
else if (inventory[INVEN_OUTER].tval != 0)
k = INVEN_OUTER;
else if (inventory[INVEN_HEAD].tval != 0)
k = INVEN_HEAD;
else if (inventory[INVEN_HANDS].tval != 0)
k = INVEN_HANDS;
else if (inventory[INVEN_FEET].tval != 0)
k = INVEN_FEET;
else
k = 0;
if (k > 0)
{
i_ptr = &inventory[k];
inventory[INVEN_MAX] = inventory[k];
objdes(tmp_str, k, FALSE);
(void)sprintf(out_val,"Your %s glows black, fades.",
tmp_str);
msg_print(out_val);
i_ptr->flags = 0x80000000;
i_ptr->toac = -randint(5) - randint(5);
py_bonuses(inventory[INVEN_MAX], -1);
ident = TRUE;
}
break;
case 36:
ident = FALSE;
for (k = 0; k < randint(3); k++)
{
y = char_row;
x = char_col;
ident |= summon_undead(&y, &x);
}
break;
case 37:
ident = bless(randint(12)+6);
break;
case 38:
ident = bless(randint(24)+12);
break;
case 39:
ident = bless(randint(48)+24);
break;
case 40:
ident = TRUE;
py.flags.word_recall = 25 + randint(30);
msg_print("The air about you becomes charged...");
break;
case 41:
ident = destroy_area(char_row, char_col);
break;
case 42:
break;
case 43:
break;
case 44:
break;
case 45:
break;
case 46:
break;
case 47:
break;
case 48:
break;
case 49:
break;
case 50:
break;
case 51:
break;
case 52:
break;
case 53:
break;
case 54:
break;
case 55:
break;
case 56:
break;
case 57:
break;
case 58:
break;
case 59:
break;
case 60:
break;
case 61:
break;
case 62:
break;
default:
break;
}
/* End of Scrolls... */
}
if (!reset_flag)
{
if (ident)
identify(inventory[item_val]);
if (!first)
{
desc_remain(item_val);
inven_destroy(item_val);
if (i_ptr->flags != 0)
{
m_ptr = &py.misc;
m_ptr->exp += (i_ptr->level/m_ptr->lev);
prt_experience();
}
}
}
}
else
if (redraw) draw_cave();
}
else
msg_print("You are not carrying any scrolls.");
}
else
msg_print("But you are not carrying anything.");
}