DataMuseum.dk

top - metrics - download

    Length: 2389 (0x955)
    Types: TextFile
    Names: »otime.c«

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Omega/otime.c« 

TextFile

/* omega copyright (c) 1987,1988 by Laurence Raphael Brothers */
/* otime.c */

/* this file deals with the passage of time in omega */

#include "oglob.h"

/* This function coordinates monsters and player actions, as well as
random events. Each tick is a second. There are therefore 60 ticks to
the minute and 60 minutes to the hour.
*/

void time_clock(reset)
int reset;
{
  pml ml;

  if (++Tick > 60) {
    Tick = 0;
    minute_status_check(); /* see about some player statuses each minute */
    if (++Time % 10 == 0) tenminute_check();
  }
  
  if (reset) Tick = (Player.click = 0);

  while ((Tick == Player.click) && (Current_Environment != E_COUNTRYSIDE)) {
    if (! gamestatusp(SKIP_PLAYER))
      do {
	resetgamestatus(SKIP_MONSTERS);
	if ((! Player.status[SLEPT])  && 
	    (Current_Environment != E_COUNTRYSIDE)) p_process(); 
      } while (gamestatusp(SKIP_MONSTERS) && 
	       (Current_Environment != E_COUNTRYSIDE));
    else resetgamestatus(SKIP_PLAYER);
    Player.click = (Player.click + Command_Duration) % 60;
  }

  /* klugy but what the heck. w/o this line, if the player caused
  a change-environment to the country, the monsters on the old Level
  will still act, causing all kinds of anomalies and core dumps,
  intermittently. However, any other environment change will reset
  Level appropriately, so only have to check for countryside */

  if (Current_Environment != E_COUNTRYSIDE) {

    /* no longer search for dead monsters every round -- waste of time.
     Instead, just skip dead monsters. Eventually, the whole level
     will be freed, getting rid of the dead 'uns */

    for(ml=Level->mlist;ml!=NULL;ml=ml->next) 
      if (ml->m->hp > 0) {

	/* following is a hack until I discover source of phantom monsters */
	if (Level->site[ml->m->x][ml->m->y].creature != ml->m)
	  fix_phantom(ml->m); 

	if (Tick == ml->m->click) {
	  ml->m->click += ml->m->speed;
	  while (ml->m->click > 60) ml->m->click -= 60;
	  m_pulse(ml->m);
	}
      }
  }
}





/* remedies occasional defective monsters */
void fix_phantom(m)
struct monster *m;
{
  if (Level->site[m->x][m->y].creature == NULL) {
    mprint("You hear a sound like a sigh of relief....");
    Level->site[m->x][m->y].creature = m;
  }
  else {
    mprint("You hear a puff of displaced air....");
    findspace(&(m->x),&(m->y),-1);
    Level->site[m->x][m->y].creature = m;
    m_death(m);
  }
}