omega-rpg/trap.c

303 lines
8.4 KiB
C
Raw Normal View History

/* omega copyright (C) by Laurence Raphael Brothers, 1987,1988,1989 */
/* trap.c */
/* trap movement functions */
#include "glob.h"
/* various traps */
/* note special function on different levels */
void l_trap_siren(void)
{
pml ml;
Level->site[Player.x][Player.y].locchar = TRAP;
lset(Player.x, Player.y, CHANGED);
print1("A klaxon goes off!");
print2("'Intruder Alert -- Intruder Alert -- Intruder Alert'");
print3("You have the feeling you have been discovered....");
morewait();
clearmsg();
if ((Current_Environment == E_HOUSE) ||
(Current_Environment == E_MANSION)) {
if (! gamestatusp(DESTROYED_ORDER)) {
print1("The city guard arrives!");
print2("You are apprehended....");
morewait();
send_to_jail();
}
else print1("Nobody answers the alarm.");
}
else if (Current_Environment == E_HOVEL)
print1("Nobody answers the alarm.");
else {
if (Current_Environment == E_CIRCLE) {
summon(-1,DEMON_PRINCE); /* prime circle demon */
summon(-1,DEMON_PRINCE);
summon(-1,DEMON_PRINCE);
}
for(ml=Level->mlist;ml!=NULL;ml=ml->next) {
m_status_set(ml->m,AWAKE);
ml->m->sense *= 2;
if ((Current_Environment == E_CIRCLE) ||
((Current_Environment == E_VILLAGE) && (ml->m->id == GUARD)) ||
((Current_Environment == E_CITY) && (ml->m->id == GUARD)))
m_status_set(ml->m,HOSTILE);
}
}
}
void l_trap_dart(void)
{
Level->site[Player.x][Player.y].locchar = TRAP;
lset(Player.x, Player.y, CHANGED);
if (gamestatusp(MOUNTED)) {
mprint("A dart annoys your horse....");
}
else if (random_range(100) < Player.absorption)
mprint("A dart plinks off your armor");
else {
mprint("You were hit by a dart!");
p_damage(difficulty(),NORMAL_DAMAGE,"a dart trap");
if (random_range(3)==1) {
mprint("It was poisoned!");
morewait();
p_poison(difficulty());
}
}
}
void l_trap_pit(void)
{
Level->site[Player.x][Player.y].locchar = TRAP;
lset(Player.x, Player.y, CHANGED);
if (gamestatusp(MOUNTED)) {
mprint("Your horse stumbles into a pit and breaks a leg!");
morewait();
mprint("You are forced to put it out of its misery.");
morewait();
resetgamestatus(MOUNTED);
showflags();
}
else if (Player.itemweight < ((int) (Player.maxweight / 2)))
mprint("You nimbly dodge a pit trap.");
else {
mprint("You fell into a pit!");
if (random_range(3) == 1) {
mprint("And were impaled by spikes!");
morewait();
p_damage(difficulty()*5,NORMAL_DAMAGE,"a spiked pit");
}
else p_damage(difficulty()*2,NORMAL_DAMAGE,"a pit");
Player.status[IMMOBILE] ++;
}
}
void l_trap_door(void)
{
if (Current_Environment != Current_Dungeon)
mprint("You feel oddly lucky.");
else {
Level->site[Player.x][Player.y].locchar = TRAP;
lset(Player.x, Player.y, CHANGED);
if (gamestatusp(MOUNTED)) {
mprint("You and your horse fall through a trap door!");
morewait();
mprint("Your horse breaks its back. Snif.");
morewait();
if (Level->site[Player.x][Player.y].aux != S_DISINTEGRATE) {
mprint("You're hit by a rockslide!");
morewait();
p_damage(Level->depth*difficulty(),UNSTOPPABLE,"a rockslide");
}
change_level(Level->depth,Level->depth+1,FALSE);
resetgamestatus(MOUNTED);
showflags();
roomcheck();
}
else if (random_range(100) < Player.agi)
mprint("You leap over a trap door.");
else {
mprint("You fell through a trap door!");
morewait();
p_damage(difficulty(),NORMAL_DAMAGE,"a trap door");
if (Level->site[Player.x][Player.y].aux != S_DISINTEGRATE) {
mprint("You're hit by a rockslide!");
morewait();
p_damage(Level->depth*difficulty(),UNSTOPPABLE,"a rockslide");
}
change_level(Level->depth,Level->depth+1,FALSE);
roomcheck();
}
}
}
void l_trap_snare(void)
{
Level->site[Player.x][Player.y].locchar = TRAP;
lset(Player.x, Player.y, CHANGED);
if (gamestatusp(MOUNTED))
mprint("Your horse steps out of a snare trap.");
else if (random_range(100) < Player.agi)
mprint("You agilely avoid a snare.");
else {
mprint("You were caught in a snare!");
Player.status[IMMOBILE]+=difficulty();
}
}
void l_trap_blade(void)
{
Level->site[Player.x][Player.y].locchar = TRAP;
lset(Player.x, Player.y, CHANGED);
if (random_range(30) < Player.agi+Player.level)
mprint("You duck under a scything blade!");
else {
if (gamestatusp(MOUNTED)) {
mprint("Your horse is struck by a scything blade and killed instantly.");
morewait();
resetgamestatus(MOUNTED);
showflags();
}
else {
mprint("A heavy blade scythes across the room and hits you!");
morewait();
p_damage(random_range(difficulty()*3)+difficulty()-Player.absorption,
NORMAL_DAMAGE,
"a blade trap");
}
}
}
void l_trap_fire(void)
{
if (gamestatusp(MOUNTED)) {
mprint("Your horse is struck by a blast of fire and is charbroiled!");
morewait();
resetgamestatus(MOUNTED);
showflags();
}
else if (random_range(50) < Player.agi+Player.level)
mprint("You dodge a pillar of fire!");
else {
mprint("You were blasted by a fire trap!");
morewait();
p_damage(random_range((difficulty()+1)*5),FLAME,"a fire trap");
}
Level->site[Player.x][Player.y].locchar = FIRE;
Level->site[Player.x][Player.y].p_locf = L_FIRE;
lset(Player.x, Player.y, CHANGED);
}
void l_trap_teleport(void)
{
Level->site[Player.x][Player.y].locchar = TRAP;
lset(Player.x, Player.y, CHANGED);
mprint("You experience a momentary disorientation....");
morewait();
if (random_range(10000) > difficulty()*difficulty()) p_teleport(0);
else p_teleport(-1);
}
void l_trap_disintegrate(void)
{
Level->site[Player.x][Player.y].locchar = TRAP;
lset(Player.x, Player.y, CHANGED);
mprint("Oh, no! A disintegration trap!");
morewait();
if (gamestatusp(MOUNTED)) {
mprint("Your horse falls apart into its component atoms...");
morewait();
resetgamestatus(MOUNTED);
showflags();
}
disintegrate(Player.x,Player.y);
}
void l_trap_sleepgas(void)
{
Level->site[Player.x][Player.y].locchar = TRAP;
lset(Player.x, Player.y, CHANGED);
mprint("Hsssssssss....");
morewait();
mprint("You detect a strange odor....");
morewait();
sleep_player((difficulty()/5)+1);
}
void l_trap_acid(void)
{
int i,k,itemdamage;
Level->site[Player.x][Player.y].locchar = TRAP;
lset(Player.x, Player.y, CHANGED);
if (Player.agi+Player.level < random_range(100)) {
mprint("You are drenched by a spray of acid!");
morewait();
if (gamestatusp(MOUNTED)) {
mprint("Your horse dies unpleasantly.");
morewait();
resetgamestatus(MOUNTED);
showflags();
}
p_damage(random_range(difficulty()*5),ACID,"an acid trap");
if (! p_immune(ACID)) {
mprint("The acid seeps over your possessions...");
morewait();
itemdamage = random_range(5);
for(i=k=0;((i<MAXITEMS) && (k<itemdamage));i++)
if (Player.possessions[i]!=NULL) {
k++;
(void) damage_item(Player.possessions[i]);
}
}
}
else mprint("You somehow dodge a shower of hydroflouric acid!");
}
void l_trap_abyss(void)
{
Level->site[Player.x][Player.y].locchar = ABYSS;
lset(Player.x, Player.y, CHANGED);
if (gamestatusp(MOUNTED)) {
mprint("You and your horse fall into the infinite abyss!");
morewait();
l_abyss();
}
if (Player.dex + Player.level < random_range(100)) {
mprint("You stumble over a concealed entrance to the abyss!");
morewait();
l_abyss();
}
else mprint("You gingerly step around a concealed entrance to the abyss!");
}
void l_trap_manadrain(void)
{
Level->site[Player.x][Player.y].locchar = TRAP;
lset(Player.x, Player.y, CHANGED);
if (Player.mana==0) {
if (random_range(10)==3) {
mprint("The manadrain trap overloads -- positive feedback....");
mprint("That's strange.... You feel repowered!");
morewait();
Level->site[Player.x][Player.y].locchar = FLOOR;
Level->site[Player.x][Player.y].p_locf = L_NO_OP;
lset(Player.x, Player.y, CHANGED);
Player.mana = calcmana();
}
else mprint("You feel strangely unaffected by the manadrain trap.");
}
else {
mprint("A weird rainbow light seems to play over you....");
mprint("You feel drained.");
morewait();
while (Player.mana > 1) {
Player.mana /= 2;
dataprint();
}
Player.mana = 0;
dispel(-1);
}
}