/* Copyright (C) 1996-1997 Aleksey Volynskov
 * Copyright (C) 2011 Rambo
 * Copyright (C) 2020 SovietPony
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, version 3 of the License ONLY.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

#include "glob.h"
#include <stdlib.h>
#include "view.h"
#include "smoke.h"
#include "game.h"
#include "fx.h"
#include "misc.h"
#include "my.h"
#include "monster.h"

#define MAXSR 20

smoke_t sm[MAXSMOK];

static int sr_r,sxr[MAXSR],syr[MAXSR];
static int lsm;

static void *burnsnd;
static int burntm=0;

void SMK_init (void) {
  int i;

  for(i=0;i<MAXSMOK;++i) {sm[i].t=0;}
  lsm=0;
  burntm=0;
}

void SMK_alloc (void) {
  int i;
  burnsnd=Z_getsnd("BURN");
  for(i=0;i<MAXSR;++i) {
    sxr[i]=myrand(256*2+1)-256;
    syr[i]=myrand(256*2+1)-256;
  }
  sr_r=0;
}

static void inclast(void) {
  if(++lsm>=MAXSMOK) lsm=0;
}

void SMK_act (void) {
  int i,ox,oy;
  static obj_t o;

  if(burntm) --burntm;
  for(i=0;i<MAXSMOK;++i) if(sm[i].t) {
    if(sm[i].s) {
      ox=sm[i].x;oy=sm[i].y;
      sm[i].xv=Z_dec(sm[i].xv,20);
      sm[i].yv=Z_dec(sm[i].yv,20);
      sm[i].x+=sm[i].xv/2;sm[i].y+=sm[i].yv/2;
      if(!Z_canfit(sm[i].x>>8,(sm[i].y>>8)+3,3,7)) {
        sm[i].x=ox;sm[i].y=oy;
      }else if(Z_inwater(sm[i].x>>8,(sm[i].y>>8)+3,3,7)) {
        sm[i].x=ox;sm[i].y=oy;
      }
      ox=sm[i].x;oy=sm[i].y;
      sm[i].x+=sm[i].xv/2;sm[i].y+=sm[i].yv/2;
      if(!Z_canfit(sm[i].x>>8,(sm[i].y>>8)+3,3,7)) {
        sm[i].x=ox;sm[i].y=oy;
      }else if(Z_inwater(sm[i].x>>8,(sm[i].y>>8)+3,3,7)) {
        sm[i].x=ox;sm[i].y=oy;
      }
      if(sm[i].o!=-3) {
        o.x=sm[i].x>>8;o.y=sm[i].y>>8;
        o.xv=sm[i].xv>>10;o.yv=sm[i].yv>>10;
        o.vx=o.vy=0;
        if(!(g_time&3)) Z_hit(&o,1,sm[i].o,HIT_FLAME);
      }
    }else{
      ox=sm[i].x;oy=sm[i].y;
      sm[i].xv=Z_dec(sm[i].xv,20);
      sm[i].yv=Z_dec(sm[i].yv,20);
      sm[i].x+=sm[i].xv;sm[i].y+=sm[i].yv;
      if(!Z_canfit(sm[i].x>>8,(sm[i].y>>8)+3,3,7)) {
        sm[i].x=ox;sm[i].y=oy;
      }else if(Z_inwater(sm[i].x>>8,(sm[i].y>>8)+3,3,7)) {
        sm[i].x=ox;sm[i].y=oy;
      }
    }
    --sm[i].t;
  }
}

static void SMK_add (int x, int y, int xv, int yv, byte t, byte s, short o) {
  int i;

  if(!Z_canfit(x>>8,(y>>8)+3,3,7)) return;
  if(Z_inwater(x>>8,(y>>8)+3,3,7)) {FX_bubble(x>>8,y>>8,xv,yv,1);return;}
  i=lsm;
  sm[i].x=x;sm[i].y=y;
  sm[i].xv=xv;sm[i].yv=yv;
  sm[i].t=t;sm[i].s=s;
  sm[i].o=o;
  inclast();
}

void SMK_gas (int x0, int y0, int xr, int yr, int xv, int yv, int k) {
  int i,x,y;
  static int sxv,syv;

  xv=-xv;yv=-yv;
  sxv=xv*k;syv=yv*k;
  k=max(abs(xv),abs(yv));
  if(!k) return;
  for(i=0;i<=k;i+=3) {
    x=((xv*i/k+x0)<<8)+sxr[sr_r]*xr;
    y=((yv*i/k+y0)<<8)+syr[sr_r]*yr;
    if(++sr_r>=MAXSR) sr_r=0;
    SMK_add(x,y,sxv,syv,SMSN*3,0,-3);
  }
}

void SMK_flame (int x0, int y0, int ox, int oy, int xr, int yr, int xv, int yv, int k, int o) {
  int i,x,y;
  static int sxv,syv;

  sxv=xv*k;syv=yv*k;
  xv=xv-(ox<<8);yv=yv-(oy<<8);
  k=max(abs(xv),abs(yv));
  if(!k) return;
  if(!burntm) burntm=Z_sound(burnsnd,128);
  for(i=0;i<=k;i+=200) {
    x=xv*i/k+(x0<<8)+sxr[sr_r]*xr;
    y=yv*i/k+(y0<<8)+syr[sr_r]*yr;
    if(++sr_r>=MAXSR) sr_r=0;
    SMK_add(x,y,sxv,syv,FLSN,1,o);
  }
}