laser.c

/* laser.c - a mining laser device for the moon-buggy
 *
 * Copyright 1999  Jochen Voss.  */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include "moon-buggy.h"
#include "darray.h"


enum beam_state { bs_START, bs_RUN, bs_CLOUD };

struct beam {
  enum beam_state  state;
  int  left, right, y;
  int  count;
};

static  struct {
  struct beam **data;
  int  slots, used;
} beam_table;


static void
beam_handler (game_time t, void *client_data)
{
  struct beam *b = client_data;
  int  i, x;

  switch (b->state) {
  case bs_START:
    if (b->y == 5 && (x = meteor_laser_hit (b->left, b->right))) {
      b->count = 0;
      b->left = x;
      if (b->left > car_x - 2)  b->left = car_x - 2;
    }
    wmove (moon, LINES-b->y, b->left);
    for (i=0; i<b->right-b->left; ++i)  waddch (moon, '-');
    b->state = bs_RUN;
    add_event (t+TICK(0.25), beam_handler, client_data);
    break;
  case bs_RUN:
    if (b->count > 0) {
      b->left -= 1;
      b->right -= 1;
      mvwaddch (moon, LINES-b->y, b->left, '-');
      mvwaddch (moon, LINES-b->y, b->right, ' ');
      if (b->y == 5 && meteor_laser_hit (b->left, b->right)) {
        b->count = 0;
      } else {
        b->count -= 1;
      }
      add_event (t+TICK(0.25), beam_handler, client_data);
    } else {
      wmove (moon, LINES-b->y, b->left);
      for (i=0; i<2; ++i)  waddch (moon, '*');
      for (i=2; i<b->right-b->left; ++i)  waddch (moon, ' ');
      b->right = b->left+2;
      b->state = bs_CLOUD;
      b->count = 3;
      if (b->right + b->count >= car_x)  b->count = car_x - b->right - 1;
      add_event (t+TICK(1), beam_handler, client_data);
    }
    break;
  case bs_CLOUD:
    if (b->count > 1) {
      mvwaddch (moon, LINES-b->y, b->left, ' ');
      mvwaddch (moon, LINES-b->y, b->right, '*');
      b->left += 1;
      b->right += 1;
      b->count -= 1;
      add_event (t+TICK(1), beam_handler, client_data);
    } else if (b->count > 0) {
      mvwaddch (moon, LINES-b->y, b->left, ' ');
      b->left += 1;
      b->right += 1;
      for (i=b->left; i<b->right; ++i)  mvwaddch (moon, LINES-b->y, i, '.');
      b->count -= 1;
      add_event (t+TICK(1), beam_handler, client_data);
    } else {
      wmove (moon, LINES-b->y, b->left);
      for (i=0; i<2; ++i)  waddch (moon, ' ');
      DA_REMOVE_VALUE (beam_table, struct beam *, b);
      free (b);
    }
    break;
  }
  wnoutrefresh (moon);
}

void
fire_laser (double t)
{
  struct beam *b;

  if (! beam_table.data)  DA_INIT (beam_table, struct beam *);
  b = xmalloc (sizeof (struct beam));
  b->state = bs_START;
  b->count = 40;
  b->left = car_x-8;
  b->right = car_x;
  b->y = car_y;
  DA_ADD (beam_table, struct beam *, b);
  add_event (t+TICK(0.25), beam_handler, b);
  adjust_score (-1);
}

void
extinguish_laser (void)
/* Clear all laser beams from the screen.  */
{
  int  j;

  remove_event (beam_handler);
  for (j=0; j<beam_table.used; ++j) {
    struct beam *b = beam_table.data[j];
    int  i;

    for (i=b->left; i<b->right; ++i)  mvwaddch (moon, LINES-b->y, i, ' ');
    free (b);
  }
  DA_CLEAR (beam_table);
  wnoutrefresh (moon);
}

int
laser_hit (int x)
/* Return true, if a beam covers location X of the baseline.
 * These beams hit a meteor and stop immediately.  */
{
  int  j;
  int  res = 0;

  for (j=0; j<beam_table.used; ++j) {
    struct beam *b = beam_table.data[j];
    if (b->y == 5 && b->left >= x && b->right < x) {
      if (b->state < bs_CLOUD)  b->count = 0;
      res = 1;
    }
  }
  return  res;
}

void
resize_laser (void)
/* Clear all laser beams from the screen.  */
{
  int  j;

  remove_event (beam_handler);
  for (j=0; j<beam_table.used; ++j)  free (beam_table.data[j]);
  DA_CLEAR (beam_table);
}