src/miscc.c

   1 /*
   2    Copyright (C) Prikol Software 1996-1997
   3    Copyright (C) Aleksey Volynskov 1996-1997
   4    Copyright (C) <ARembo@gmail.com> 2011
   5
   6    This file is part of the Doom2D:Rembo project.
   7
   8    Doom2D:Rembo is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License version 2 as
  10    published by the Free Software Foundation.
  11
  12    Doom2D:Rembo is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, see <http://www.gnu.org/licenses/> or
  19    write to the Free Software Foundation, Inc.,
  20    51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
  21 */
  22
  23 #include "glob.h"
  24 #include <stdio.h>
  25 #include <stdarg.h>
  26 #include <string.h>
  27 #include <stdlib.h>
  28 #include "files.h"
  29 #include "memory.h"
  30 #include "sound.h"
  31 #include "view.h"
  32 #include "bmap.h"
  33 #include "dots.h"
  34 #include "monster.h"
  35 #include "misc.h"
  36 #include "render.h"
  37
  38 //#define WD 200
  39 //#define HT 98
  40
  41 #define MAX_YV 30
  42
  43 extern dword walf[256];
  44
  45 byte z_dot=0;
  46
  47 extern void *walp[256];
  48
  49 static void *bulsnd[2];
  50
  51 int Z_sign(int a) {
  52   if(a>0) return 1;
  53   if(a<0) return -1;
  54   return 0;
  55 }
  56
  57 int Z_dec(int a,int b) {
  58   if(abs(a)<=b) return 0;
  59   if(a>0) return a-b;
  60   if(a<0) return a+b;
  61   return 0;
  62 }
  63
  64 void *Z_getsnd(char n[6]) {
  65   char s[8];
  66
  67   //if(snd_type==-1) return NULL;
  68   strncpy(s+2,n,6);s[0]='D';
  69   s[1]='S';
  70
  71   int id = F_getresid(s);
  72   int loaded = M_was_locked(id);
  73   snd_t *snd = M_lock(id);
  74   if (snd != NULL && !loaded) {
  75     snd->len = int2host(snd->len);
  76     snd->rate = int2host(snd->rate);
  77     snd->lstart = int2host(snd->lstart);
  78     snd->llen = int2host(snd->llen);
  79   }
  80   return snd;
  81 }
  82
  83 int Z_sound(void *s,int v) {
  84   //if(snd_type==-1) return 0;
  85   if(!s) return 0;
  86   S_play(s,-1,1024,v);
  87   return F_getreslen(((int*)s)[-1])/605;
  88 }
  89
  90 #define GAS_START (MN__LAST-MN_DEMON+5)
  91 #define GAS_TOTAL (MN__LAST-MN_DEMON+16+10)
  92
  93 void Z_initst(void) {
  94   bulsnd[0]=Z_getsnd("BUL1");
  95   bulsnd[1]=Z_getsnd("BUL2");
  96 }
  97
  98 int Z_canstand(int x,int y,int r) {
  99   int i;
 100
 101   i=(x-r)/CELW;
 102   x=(x+r)/CELW;
 103   y=(y+1)/CELH;
 104   if(y>=FLDH || y<0) return 0;
 105   if(i<0) i=0;
 106   if(x>=FLDW) x=FLDW-1;
 107   for(;i<=x;++i)
 108     if(fld[y][i]==1 || fld[y][i]==2 || fld[y][i]==4)
 109       if(!z_dot) return 1;
 110       else if(!((walf[fldf[y][i]]|walf[fldb[y][i]])&2)) return 1;
 111   return 0;
 112 }
 113
 114 int Z_hitceil(int x,int y,int r,int h) {
 115   int i;
 116
 117   i=(x-r)/CELW;
 118   x=(x+r)/CELW;
 119   y=(y-h+1)/CELH;
 120   if(y>=FLDH || y<0) return 0;
 121   if(i<0) i=0;
 122   if(x>=FLDW) x=FLDW-1;
 123   for(;i<=x;++i)
 124     if(fld[y][i]==1 || fld[y][i]==2)
 125       if(!z_dot) return 1;
 126       else if(!((walf[fldf[y][i]]|walf[fldb[y][i]])&2)) return 1;
 127   return 0;
 128 }
 129
 130 int Z_canfit(int x,int y,int r,int h) {
 131   int i,j,sx,sy;
 132
 133   sx=(x-r)/CELW;
 134   sy=(y-h+1)/CELH;
 135   if(sx<0) sx=0;
 136   if(sy<0) sy=0;
 137   x=(x+r)/CELW;
 138   y=(y-0)/CELH;
 139   if(x>=FLDW) x=FLDW-1;
 140   if(y>=FLDH) y=FLDH-1;
 141   for(i=sx;i<=x;++i)
 142     for(j=sy;j<=y;++j)
 143       if(fld[j][i]==1 || fld[j][i]==2)
 144         if(!z_dot) return 0;
 145         else if(!((walf[fldf[j][i]]|walf[fldb[j][i]])&2)) return 0;
 146   return 1;
 147 }
 148
 149 int Z_inlift(int x,int y,int r,int h) {
 150   int i,j,sx,sy;
 151
 152   sx=(x-r)/CELW;
 153   sy=(y-h+1)/CELH;
 154   if(sx<0) sx=0;
 155   if(sy<0) sy=0;
 156   x=(x+r)/CELW;
 157   y=(y-1)/CELH;
 158   if(x>=FLDW) x=FLDW-1;
 159   if(y>=FLDH) y=FLDH-1;
 160   for(i=sx;i<=x;++i)
 161         for(j=sy;j<=y;++j)
 162           if(fld[j][i]==9 || fld[j][i]==10) return fld[j][i]-8;
 163   return 0;
 164 }
 165
 166 int Z_isblocked(int x,int y,int r,int h,int xv) {
 167   int i,j,sx,sy;
 168
 169   sx=(x-r)/CELW;
 170   sy=(y-h+1)/CELH;
 171   if(sx<0) sx=0;
 172   if(sy<0) sy=0;
 173   x=(x+r)/CELW;
 174   y=(y-1)/CELH;
 175   if(xv<0) x=sx;
 176   else if(xv>0) sx=x;
 177   if(x>=FLDW) x=FLDW-1;
 178   if(y>=FLDH) y=FLDH-1;
 179   for(i=sx;i<=x;++i)
 180         for(j=sy;j<=y;++j)
 181           if(fld[j][i]==8) return 1;
 182   return 0;
 183 }
 184
 185 int Z_istrapped(int x,int y,int r,int h) {
 186   int i,j,sx,sy;
 187
 188   sx=(x-r)/CELW;
 189   sy=(y-h+1)/CELH;
 190   if(sx<0) sx=0;
 191   if(sy<0) sy=0;
 192   x=(x+r)/CELW;
 193   y=(y-1)/CELH;
 194   if(x>=FLDW) x=FLDW-1;
 195   if(y>=FLDH) y=FLDH-1;
 196   for(i=sx;i<=x;++i)
 197     for(j=sy;j<=y;++j)
 198           if(fld[j][i]==255) return 1;
 199   return 0;
 200 }
 201
 202 void Z_set_speed(obj_t *o,int s) {
 203   int m;
 204
 205   if(!(m=max(abs(o->xv),abs(o->yv)))) m=1;
 206   o->xv=o->xv*s/m;o->yv=o->yv*s/m;
 207 }
 208
 209 static byte wfront;
 210
 211 int Z_inwater(int x,int y,int r,int h) {
 212   int i,j,sx,sy;
 213
 214   sx=(x-r)/CELW;
 215   sy=(y-h+1)/CELH;
 216   if(sx<0) sx=0;
 217   if(sy<0) sy=0;
 218   x=(x+r)/CELW;
 219   y=(y-h/2)/CELH;
 220   if(x>=FLDW) x=FLDW-1;
 221   if(y>=FLDH) y=FLDH-1;
 222   for(i=sx;i<=x;++i)
 223         for(j=sy;j<=y;++j)
 224           if(fld[j][i]>=5 && fld[j][i]<=7) {wfront=fldf[j][i];return 1;}
 225   return 0;
 226 }
 227
 228 int Z_getacid(int x,int y,int r,int h) {
 229   int i,j,sx,sy,a;
 230   static byte tab[4]={0,5,10,20};
 231
 232   a=0;
 233   sx=(x-r)/CELW;
 234   sy=(y-h+1)/CELH;
 235   if(sx<0) sx=0;
 236   if(sy<0) sy=0;
 237   x=(x+r)/CELW;
 238   y=y/CELH;
 239   if(x>=FLDW) x=FLDW-1;
 240   if(y>=FLDH) y=FLDH-1;
 241   for(i=sx;i<=x;++i)
 242         for(j=sy;j<=y;++j)
 243           if(fld[j][i]==6) a|=1;
 244           else if(fld[j][i]==7) a|=2;
 245   return tab[a];
 246 }
 247
 248 int Z_canbreathe(int x,int y,int r,int h) {
 249   int i,j,sx,sy;
 250
 251   sx=(x-r)/CELW;
 252   sy=(y-h+1)/CELH;
 253   if(sx<0) sx=0;
 254   if(sy<0) sy=0;
 255   x=(x+r)/CELW;
 256   y=(y-h/2)/CELH;
 257   if(x>=FLDW) x=FLDW-1;
 258   if(y>=FLDH) y=FLDH-1;
 259   if(sx>x || sy>y) return 1;
 260   for(i=sx;i<=x;++i)
 261     for(j=sy;j<=y;++j)
 262       if(fld[j][i]==0 || fld[j][i]==3 || fld[j][i]==9 || fld[j][i]==10) return 1;
 263   return 0;
 264 }
 265
 266 int Z_overlap(obj_t *a,obj_t *b) {
 267   if(a->x - a->r > b->x + b->r) return 0;
 268   if(a->x + a->r < b->x - b->r) return 0;
 269   if(a->y <= b->y - b->h) return 0;
 270   if(a->y - a->h >= b->y) return 0;
 271   return 1;
 272 }
 273
 274 void Z_kickobj(obj_t *o,int x,int y,int pwr) {
 275   int dx,dy,m;
 276
 277   dx=o->x-x;dy=o->y-o->h/2-y;
 278   if(!(m=max(abs(dx),abs(dy)))) m=1;
 279   o->vx+=(long)dx*pwr/m;
 280   o->vy+=(long)dy*pwr/m;
 281 }
 282
 283 int Z_cansee(int x,int y,int xd,int yd) {
 284   register dword d,m;
 285   int sx,sy;
 286   dword xe,ye,s,i;
 287
 288   if((xd-=x)>0) sx=1;
 289   else if(xd<0) sx=-1;
 290   else sx=0;
 291   if((yd-=y)>0) sy=1;
 292   else if(yd<0) sy=-1;
 293   else sy=0;
 294   if(!xd && !yd) return 1;
 295   if((xd=abs(xd)) > (yd=abs(yd))) d=xd; else d=yd;
 296   xe=ye=0;
 297   for(i=0;i<=d;) {
 298         if(x<0 || x>=FLDW*8 || y<0 || y>=FLDH*8) return 0;
 299         if((bmap[y>>5][x>>5]&BM_WALL)) {
 300           if(fld[y>>3][x>>3]==1 || fld[y>>3][x>>3]==2) return 0;
 301           if((xe+=(xd<<3))>=d) {
 302                 x+=xe/d*sx;xe=xe%d;
 303           }
 304           if((ye+=(yd<<3))>=d) {
 305                 y+=ye/d*sy;ye=ye%d;
 306           }
 307           i+=8;
 308         }else{
 309           if(sx==0) m=0;
 310           else{m=x&31;if(sx>0) m^=31; ++m;}
 311           if(sy==0) s=0;
 312           else{s=y&31;if(sy>0) s^=31; ++s;}
 313           if((s<m && s!=0) || m==0) m=s;
 314           i+=m;
 315                 x+=(xd*m+xe)/d*sx;xe=(xd*m+xe)%d;
 316                 y+=(yd*m+ye)/d*sy;ye=(yd*m+ye)%d;
 317         }
 318   }
 319   return 1;
 320 }
 321
 322 int Z_look(obj_t *a,obj_t *b,int d) {
 323   if(Z_sign(b->x-a->x)!=d*2-1) return 0;
 324   return Z_cansee(a->x,a->y-a->h/2,b->x,b->y-b->h/2);
 325 }
 326
 327 #define wvel(v) if((xv=abs(v)+1)>5) v=Z_dec(v,xv/2-2)
 328
 329 byte z_mon=0;
 330
 331 int Z_moveobj(obj_t *p) {
 332   static int x,y,xv,yv,r,h,lx,ly,st;
 333   static byte inw;
 334
 335   st=0;
 336   switch(Z_inlift(x=p->x,y=p->y,r=p->r,h=p->h)) {
 337     case 0:
 338       if(++p->yv>MAX_YV) --p->yv;
 339       break;
 340     case 1:
 341       if(--p->yv < -5) ++p->yv;
 342       break;
 343     case 2:
 344       if(p->yv > 5) {--p->yv;break;}
 345       ++p->yv;break;
 346   }
 347   if((inw=Z_inwater(x,y,r,h))!=0) {
 348         st|=Z_INWATER;
 349         wvel(p->xv);
 350         wvel(p->yv);
 351         wvel(p->vx);
 352         wvel(p->vy);
 353   }
 354   p->vx=Z_dec(p->vx,1);
 355   p->vy=Z_dec(p->vy,1);
 356   xv=p->xv+p->vx;yv=p->yv+p->vy;
 357   while(xv || yv) {
 358         if(x<-100 || x>=FLDW*8+100 || y<-100 || y>=FLDH*8+100)
 359           {st|=Z_FALLOUT;}
 360
 361         lx=x;
 362         x+=(abs(xv)<=7)?xv:((xv>0)?7:-7);
 363         if(z_mon) if(Z_isblocked(x,y,r,h,xv)) st|=Z_BLOCK;
 364         if(!Z_canfit(x,y,r,h)) {
 365           if(xv==0) x=lx;
 366           else if(xv<0) x=((lx-r)&0xFFF8)+r;
 367           else x=((lx+r)&0xFFF8)-r+7;
 368           xv=p->xv=p->vx=0;st|=Z_HITWALL;
 369         }
 370         xv-=(abs(xv)<=7)?xv:((xv>0)?7:-7);
 371
 372         ly=y;
 373         y+=(abs(yv)<=7)?yv:((yv>0)?7:-7);
 374         if(yv>=8) --y;
 375         if(yv<0 && Z_hitceil(x,y,r,h)) {
 376           y=((ly-h+1)&0xFFF8)+h-1;
 377           yv=p->vy=1;p->yv=0;st|=Z_HITCEIL;
 378         }
 379         if(yv>0 && Z_canstand(x,y,r)) {
 380           y=((y+1)&0xFFF8)-1;
 381           yv=p->yv=p->vy=0;st|=Z_HITLAND;
 382         }
 383         yv-=(abs(yv)<=7)?yv:((yv>0)?7:-7);
 384   }
 385   p->x=x;p->y=y;
 386   if(Z_inwater(x,y,r,h)) {
 387         st|=Z_INWATER;
 388         if(!inw) st|=Z_HITWATER;
 389   }else if(inw) st|=Z_HITAIR;
 390   return st;
 391 }
 392
 393 void Z_splash (obj_t *p, int n) {
 394   Z_sound(bulsnd[0], 128);
 395   DOT_water(p->x, p->y-p->h / 2, p->xv + p->vx, p->yv + p->vy, n, R_get_special_id(wfront));
 396 }
 397
 398 void Z_calc_time(dword t,word *h,word *m,word *s)
 399 {
 400     t = t * DELAY;
 401     t = t / 1000;
 402     *s = t % 60;
 403     t = t - *s;
 404     t = t / 60;
 405     *m = t % 60;
 406     t = t - *m;
 407     t = t / 60;
 408     *h = t;
 409 }
 410
 411 #define SWAP_VAR(a, b) do { unsigned char t = a; a = b; b = t; } while(0)
 412
 413 int16_t short2swap (int16_t x) {
 414   union {
 415     uint8_t a[2];
 416     int16_t x;
 417   } y;
 418   y.x = x;
 419   SWAP_VAR(y.a[0], y.a[1]);
 420   return y.x;
 421 }
 422
 423 int32_t int2swap (int32_t x) {
 424   union {
 425     uint8_t a[4];
 426     int32_t x;
 427   } y;
 428   y.x = x;
 429   SWAP_VAR(y.a[0], y.a[3]);
 430   SWAP_VAR(y.a[1], y.a[2]);
 431   return y.x;
 432 }
 433
 434 #undef SWAP_VAR
 435
 436 int16_t short2host (int16_t x) {
 437 #if __BIG_ENDIAN__
 438   return short2swap(x);
 439 #else
 440   return x;
 441 #endif
 442 }
 443
 444 int32_t int2host (int32_t x) {
 445 #if __BIG_ENDIAN__
 446   return int2swap(x);
 447 #else
 448   return x;
 449 #endif
 450 }