Import UltraRogue from the Roguelike Restoration Project (r1490)
This commit is contained in:
John "Elwin" Edwards
parent
c346921c68
commit
11c74c273d
59 changed files with 42044 additions and 0 deletions
327
urogue/daemon.c
Normal file
327
urogue/daemon.c
Normal file
|
|
@ -0,0 +1,327 @@
|
|||
/*
|
||||
daemon.c - functions for dealing with things that happen in the future
|
||||
|
||||
UltraRogue: The Ultimate Adventure in the Dungeons of Doom
|
||||
Copyright (C) 1985, 1986, 1992, 1993, 1995 Herb Chong
|
||||
All rights reserved.
|
||||
|
||||
Based on "Advanced Rogue"
|
||||
Copyright (C) 1984, 1985 Michael Morgan, Ken Dalka
|
||||
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.
|
||||
*/
|
||||
|
||||
/*
|
||||
Needs to be rewritten again to work on a per creature basis.
|
||||
Either each monster will have a list of effect, or each
|
||||
fuse will take a creature pointer and multiple entries
|
||||
for each fuse will be allowed. I tend to want to attach
|
||||
the effects to the creature.
|
||||
*/
|
||||
|
||||
#include "rogue.h"
|
||||
|
||||
int demoncnt;
|
||||
|
||||
struct daemon daemons[DAEMON_MAX] =
|
||||
{
|
||||
{ DAEMON_NULL, NULL },
|
||||
{ DAEMON_DOCTOR, doctor },
|
||||
{ DAEMON_ROLLWAND, rollwand },
|
||||
{ DAEMON_STOMACH, stomach },
|
||||
{ DAEMON_RUNNERS, runners }
|
||||
};
|
||||
|
||||
struct fuse fuses[FUSE_MAX] =
|
||||
{
|
||||
{ FUSE_NULL, NULL },
|
||||
{ FUSE_SWANDER, swander },
|
||||
{ FUSE_UNCONFUSE, unconfuse },
|
||||
{ FUSE_UNSCENT, unscent },
|
||||
{ FUSE_SCENT, scent },
|
||||
{ FUSE_UNHEAR, unhear },
|
||||
{ FUSE_HEAR, hear },
|
||||
{ FUSE_UNSEE, unsee },
|
||||
{ FUSE_UNSTINK, unstink },
|
||||
{ FUSE_UNCLRHEAD, unclrhead },
|
||||
{ FUSE_UNPHASE, unphase },
|
||||
{ FUSE_SIGHT, sight },
|
||||
{ FUSE_RES_STRENGTH, res_strength },
|
||||
{ FUSE_NOHASTE, nohaste },
|
||||
{ FUSE_NOSLOW, noslow },
|
||||
{ FUSE_SUFFOCATE, suffocate },
|
||||
{ FUSE_CURE_DISEASE, cure_disease },
|
||||
{ FUSE_UNITCH, un_itch },
|
||||
{ FUSE_APPEAR, appear },
|
||||
{ FUSE_UNELECTRIFY, unelectrify },
|
||||
{ FUSE_UNBHERO, unbhero },
|
||||
{ FUSE_UNSHERO, unshero },
|
||||
{ FUSE_UNXRAY, NULL },
|
||||
{ FUSE_UNDISGUISE, undisguise },
|
||||
{ FUSE_SHERO, shero },
|
||||
{ FUSE_WGHTCHK, wghtchk },
|
||||
{ FUSE_UNSUMMON, unsummon },
|
||||
{ FUSE_UNGAZE, ungaze },
|
||||
{ FUSE_UNCOLD, uncold },
|
||||
{ FUSE_UNHOT, unhot },
|
||||
{ FUSE_UNFLY, unfly },
|
||||
{ FUSE_UNBREATHE, unbreathe },
|
||||
{ FUSE_UNREGEN, unregen },
|
||||
{ FUSE_UNSUPEREAT, unsupereat },
|
||||
{ FUSE_UNSHIELD, unshield },
|
||||
{ FUSE_UNMSHIELD, unmshield },
|
||||
{ FUSE_UNTRUESEE, untruesee }
|
||||
};
|
||||
|
||||
/*
|
||||
d_slot()
|
||||
Find an empty slot in the daemon/fuse list
|
||||
*/
|
||||
|
||||
struct delayed_action *
|
||||
d_slot(void)
|
||||
{
|
||||
int i;
|
||||
struct delayed_action *dev;
|
||||
|
||||
for (i = 0, dev = d_list; i < MAXDAEMONS; i++, dev++)
|
||||
if (dev->d_type == EMPTY)
|
||||
return(dev);
|
||||
|
||||
return(NULL);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
find_slot()
|
||||
Find a particular slot in the table
|
||||
*/
|
||||
|
||||
struct delayed_action *
|
||||
find_slot(int type, int id)
|
||||
{
|
||||
int i;
|
||||
struct delayed_action *dev;
|
||||
|
||||
for (i = 0, dev = d_list; i < MAXDAEMONS; i++, dev++)
|
||||
if ( (dev->d_type == type) && (id == dev->d_id) )
|
||||
return(dev);
|
||||
|
||||
return(NULL);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
daemon()
|
||||
Start a daemon, takes a function.
|
||||
*/
|
||||
|
||||
void
|
||||
start_daemon(int id, void *arg, int whendo)
|
||||
{
|
||||
struct delayed_action *dev;
|
||||
|
||||
dev = d_slot();
|
||||
|
||||
if (dev != NULL)
|
||||
{
|
||||
dev->d_type = DAEMON;
|
||||
dev->d_when = whendo;
|
||||
dev->d_id = id;
|
||||
dev->d_arg = arg;
|
||||
dev->d_time = 1;
|
||||
demoncnt += 1; /* update count */
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
kill_daemon()
|
||||
Remove a daemon from the list
|
||||
*/
|
||||
|
||||
void
|
||||
kill_daemon(int id)
|
||||
{
|
||||
struct delayed_action *dev;
|
||||
|
||||
if ((dev = find_slot(DAEMON, id)) == NULL)
|
||||
return;
|
||||
|
||||
/* Take it out of the list */
|
||||
|
||||
dev->d_type = EMPTY;
|
||||
demoncnt -= 1; /* update count */
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
do_daemons()
|
||||
Run all the daemons that are active with the current flag,
|
||||
passing the argument to the function.
|
||||
*/
|
||||
|
||||
void
|
||||
do_daemons(int now)
|
||||
{
|
||||
struct delayed_action *dev;
|
||||
|
||||
/* Loop through the devil list */
|
||||
|
||||
for (dev = d_list; dev < &d_list[MAXDAEMONS]; dev++)
|
||||
/* Executing each one, giving it the proper arguments */
|
||||
if ( (dev->d_when == now) && (dev->d_type == DAEMON))
|
||||
{
|
||||
if ((dev->d_id < 1) || (dev->d_id >= DAEMON_MAX))
|
||||
printf("Bad daemon id %d\n", dev->d_id);
|
||||
else if (daemons[dev->d_id].func == NULL)
|
||||
printf("No action for daemon %d!!!\n", dev->d_id);
|
||||
else
|
||||
{
|
||||
daemon_arg arg;
|
||||
|
||||
arg.varg = dev->d_arg;
|
||||
daemons[dev->d_id].func(&arg);
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
fuse()
|
||||
Start a fuse to go off in a certain number of turns
|
||||
*/
|
||||
|
||||
void
|
||||
light_fuse(int id, void *arg, int time, int whendo)
|
||||
{
|
||||
struct delayed_action *wire;
|
||||
|
||||
wire = d_slot();
|
||||
|
||||
if (wire != NULL)
|
||||
{
|
||||
wire->d_type = FUSE;
|
||||
wire->d_when = whendo;
|
||||
wire->d_id = id;
|
||||
wire->d_arg = arg;
|
||||
wire->d_time = time;
|
||||
demoncnt += 1; /* update count */
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
lengthen()
|
||||
Increase the time until a fuse goes off
|
||||
*/
|
||||
|
||||
void
|
||||
lengthen_fuse(int id, int xtime)
|
||||
{
|
||||
struct delayed_action *wire;
|
||||
|
||||
if ((wire = find_slot(FUSE,id)) == NULL)
|
||||
return;
|
||||
|
||||
wire->d_time += xtime;
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
extinguish()
|
||||
Put out a fuse
|
||||
*/
|
||||
|
||||
void
|
||||
extinguish_fuse(int id)
|
||||
{
|
||||
struct delayed_action *wire;
|
||||
|
||||
if ((wire = find_slot(FUSE,id)) == NULL)
|
||||
return;
|
||||
|
||||
wire->d_type = EMPTY;
|
||||
demoncnt -= 1;
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
do_fuses()
|
||||
Decrement counters and start needed fuses
|
||||
*/
|
||||
|
||||
void
|
||||
do_fuses(int now)
|
||||
{
|
||||
struct delayed_action *wire;
|
||||
|
||||
/* Step though the list */
|
||||
|
||||
for (wire = d_list; wire < &d_list[MAXDAEMONS]; wire++)
|
||||
{
|
||||
/*
|
||||
* Decrementing counters and starting things we want. We
|
||||
* also need to remove the fuse from the list once it has
|
||||
* gone off.
|
||||
*/
|
||||
|
||||
if( (wire->d_type == FUSE) && (wire->d_when == now) )
|
||||
{
|
||||
if (--wire->d_time <= 0)
|
||||
{
|
||||
fuse_arg arg;
|
||||
|
||||
arg.varg = wire->d_arg;
|
||||
wire->d_type = EMPTY;
|
||||
fuses[wire->d_id].func(&arg);
|
||||
demoncnt -= 1;
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
activity()
|
||||
Show wizard number of demaons and memory blocks used
|
||||
*/
|
||||
|
||||
void
|
||||
activity(void)
|
||||
{
|
||||
msg("Daemons = %d : Memory Items = %d ", demoncnt, total);
|
||||
return;
|
||||
}
|
||||
|
||||
/*
|
||||
waste_time()
|
||||
Do nothing but let other things happen
|
||||
*/
|
||||
|
||||
void
|
||||
waste_time(void)
|
||||
{
|
||||
if (inwhgt) /* if from wghtchk then done */
|
||||
return;
|
||||
|
||||
do_daemons(BEFORE);
|
||||
do_fuses(BEFORE);
|
||||
do_daemons(AFTER);
|
||||
do_fuses(AFTER);
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue