src/items.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 <stdlib.h>
  25 #include "error.h"
  26 #include "view.h"
  27 #include "items.h"
  28 #include "fx.h"
  29 #include "player.h"
  30 #include "monster.h"
  31 #include "things.h"
  32 #include "misc.h"
  33 #include "map.h"
  34 #include "my.h"
  35
  36 extern map_block_t blk;
  37
  38 item_t it[MAXITEM];
  39
  40 static void *snd[4];
  41 static int tsndtm,rsndtm;
  42
  43 int itm_rtime=1092;
  44
  45 void IT_savegame (FILE *h) {
  46   int i, n;
  47   for (n = MAXITEM - 1; n >= 0 && it[n].t == 0; n--) {
  48     // empty
  49   }
  50   n += 1;
  51   myfwrite32(n, h);
  52   for (i = 0; i < n; i++) {
  53     myfwrite32(it[i].o.x, h);
  54     myfwrite32(it[i].o.y, h);
  55     myfwrite32(it[i].o.xv, h);
  56     myfwrite32(it[i].o.yv, h);
  57     myfwrite32(it[i].o.vx, h);
  58     myfwrite32(it[i].o.vy, h);
  59     myfwrite32(it[i].o.r, h);
  60     myfwrite32(it[i].o.h, h);
  61     myfwrite32(it[i].t, h);
  62     myfwrite32(it[i].s, h);
  63   }
  64   myfwrite32(itm_rtime, h);
  65 }
  66
  67 void IT_loadgame (FILE *h) {
  68   int i, n;
  69   n = myfread32(h);
  70   for (i = 0; i < n; i++) {
  71     it[i].o.x = myfread32(h);
  72     it[i].o.y = myfread32(h);
  73     it[i].o.xv = myfread32(h);
  74     it[i].o.yv = myfread32(h);
  75     it[i].o.vx = myfread32(h);
  76     it[i].o.vy = myfread32(h);
  77     it[i].o.r = myfread32(h);
  78     it[i].o.h = myfread32(h);
  79     it[i].t = myfread32(h);
  80     it[i].s = myfread32(h);
  81   }
  82   itm_rtime = myfread32(h);
  83 }
  84
  85 void IT_alloc (void) {
  86   int i, j, n;
  87   static char nm[][6] = {
  88     "ITEMUP", "WPNUP", "GETPOW", "ITMBK"
  89   };
  90   for (i = 0; i < 4; ++i) {
  91     snd[i] = Z_getsnd(nm[i]);
  92   }
  93   for (i = 0; i < MAXITEM; ++i) {
  94     it[i].o.r = 10;
  95     it[i].o.h = 8;
  96   }
  97 }
  98
  99 void IT_init(void) {
 100   int i;
 101
 102   for(i=0;i<MAXITEM;++i) {
 103         it[i].t=I_NONE;
 104         it[i].o.xv=it[i].o.yv=it[i].o.vx=it[i].o.vy=0;
 105   }
 106   tsndtm=rsndtm=0;
 107 }
 108
 109 int IT_load (FILE *h) {
 110   int m, i, j;
 111   old_thing_t t;
 112   switch (blk.t) {
 113         case MB_THING:
 114           for (i = 0; blk.sz > 0; ++i, blk.sz -= 8) {
 115       t.x = myfread16(h);
 116       t.y = myfread16(h);
 117       t.t = myfread16(h);
 118       t.f = myfread16(h);
 119       it[i].o.x = t.x;
 120       it[i].o.y = t.y;
 121       it[i].t = t.t;
 122       it[i].s = t.f;
 123       if (it[i].t && (it[i].s & THF_DM) && !g_dm) {
 124         it[i].t=0;
 125       }
 126           }
 127     m = i;
 128           for (i = 0, j = -1; i < m; ++i) {
 129       if (it[i].t == TH_PLR1) {
 130         j = i;
 131         it[i].t = 0;
 132       }
 133     }
 134           if (!g_dm) {
 135       if (j == -1) {
 136         ERR_fatal("Предмет игрок_1 не найден");
 137       }
 138       dm_pos[0].x = it[j].o.x;
 139       dm_pos[0].y = it[j].o.y;
 140       dm_pos[0].d = it[j].s & THF_DIR;
 141           }
 142           for (i = 0, j = -1; i < m; ++i) {
 143       if (it[i].t == TH_PLR2) {
 144         j = i;
 145         it[i].t = 0;
 146       }
 147     }
 148           if (!g_dm && _2pl) {
 149       if (j == -1) {
 150         ERR_fatal("Предмет игрок_2 не найден");
 151       }
 152       dm_pos[1].x = it[j].o.x;
 153       dm_pos[1].y = it[j].o.y;
 154       dm_pos[1].d = it[j].s & THF_DIR;
 155           }
 156           for (i = 0, j = 0; i < m; ++i) {
 157       if (it[i].t == TH_DMSTART) {
 158         if (g_dm) {
 159           dm_pos[j].x = it[i].o.x;
 160           dm_pos[j].y = it[i].o.y;
 161           dm_pos[j].d = it[i].s & THF_DIR;
 162         }
 163         it[i].t = 0;
 164         ++j;
 165       }
 166     }
 167           if (g_dm && j < 2) {
 168       ERR_fatal("Меньше 2-ух точек DM");
 169     }
 170           if (g_dm) {
 171             dm_pnum = j;
 172             dm_pl1p = myrand(dm_pnum);
 173             do {
 174         dm_pl2p = myrand(dm_pnum);
 175       } while (dm_pl2p == dm_pl1p);
 176           } else {
 177       dm_pl1p = 0;
 178       dm_pl2p = 1;
 179       dm_pnum = 2;
 180     }
 181           PL_spawn(&pl1, dm_pos[dm_pl1p].x, dm_pos[dm_pl1p].y, dm_pos[dm_pl1p].d);
 182           if (_2pl) {
 183       PL_spawn(&pl2, dm_pos[dm_pl2p].x, dm_pos[dm_pl2p].y, dm_pos[dm_pl2p].d);
 184     }
 185           for (i = 0; i < m; ++i) {
 186       if (it[i].t >= TH_CLIP && it[i].t < TH_DEMON) {
 187         it[i].s = 0;
 188         it[i].t = it[i].t - TH_CLIP + I_CLIP;
 189         if (it[i].t >= I_KEYR && it[i].t <= I_KEYB) {
 190           it[i].t |= 0x8000;
 191         }
 192       } else if (it[i].t >= TH_DEMON) {
 193         MN_spawn(it[i].o.x, it[i].o.y, it[i].s & THF_DIR, it[i].t - TH_DEMON + MN_DEMON);
 194         it[i].t = 0;
 195       }
 196     }
 197           return 1;
 198   }
 199   return 0;
 200 }
 201
 202 static void takesnd(int t) {
 203   if(tsndtm) return;
 204   t&=0x7FFF;
 205   if(t<=I_CELP || (t>=I_BPACK && t<=I_BFG) || t==I_GUN2)
 206     {tsndtm=Z_sound(snd[1],128);return;}
 207   if(t==I_MEGA || t==I_INVL || t==I_SUPER)
 208     {tsndtm=Z_sound(snd[2],192);return;}
 209   tsndtm=Z_sound(snd[0],256);
 210 }
 211
 212 void IT_act(void) {
 213   int i,j;
 214
 215   if(tsndtm) --tsndtm;
 216   if(rsndtm) --rsndtm;
 217   for(i=0;i<MAXITEM;++i) if(it[i].t)
 218     if(it[i].s<0) {
 219       if(++it[i].s==-8) {
 220                 FX_ifog(it[i].o.x,it[i].o.y);
 221                 if(!rsndtm) rsndtm=Z_sound(snd[3],128);
 222           }
 223         }else{
 224           switch(it[i].t) {
 225                 case I_ARM1: case I_ARM2:
 226                   if(++it[i].s>=18) it[i].s=0; break;
 227                 case I_MEGA: case I_INVL:
 228                 case I_SUPER: case I_RTORCH: case I_GTORCH: case I_BTORCH:
 229                   if(++it[i].s>=8) it[i].s=0; break;
 230                 case I_GOR1: case I_FCAN:
 231                   if(++it[i].s>=6) it[i].s=0; break;
 232       }
 233           if(it[i].t&0x8000) {
 234                 if((j=Z_moveobj(&it[i].o))&Z_FALLOUT) {it[i].t=0;continue;}
 235                 else if(j&Z_HITWATER) Z_splash(&it[i].o,it[i].o.r+it[i].o.h);
 236           }
 237       if(Z_overlap(&it[i].o,&pl1.o))
 238                 if(PL_give(&pl1,it[i].t&0x7FFF)) {
 239                   takesnd(it[i].t);
 240                   if(_2pl) if((it[i].t&0x7FFF)>=I_KEYR && (it[i].t&0x7FFF)<=I_KEYB) continue;
 241                   if(!(it[i].s=-itm_rtime) || (it[i].t&0x8000)) it[i].t=0;
 242                   continue;
 243                 }
 244           if(_2pl) if(Z_overlap(&it[i].o,&pl2.o))
 245                 if(PL_give(&pl2,it[i].t&0x7FFF)) {
 246                   takesnd(it[i].t);
 247                   if((it[i].t&0x7FFF)>=I_KEYR && (it[i].t&0x7FFF)<=I_KEYB) continue;
 248                   if(!(it[i].s=-itm_rtime) || (it[i].t&0x8000)) it[i].t=0;
 249                   continue;
 250                 }
 251         }
 252 }
 253
 254 void IT_spawn(int x,int y,int t) {
 255   int i;
 256
 257   for(i=0;i<MAXITEM;++i) if(!it[i].t) {
 258         it[i].t=t|0x8000;it[i].s=0;
 259     it[i].o.x=x;it[i].o.y=y;
 260     it[i].o.xv=it[i].o.yv=it[i].o.vx=it[i].o.vy=0;
 261     it[i].o.r=10;it[i].o.h=8;
 262     return;
 263   }
 264 }
 265
 266 void IT_drop_ammo(int t,int n,int x,int y) {
 267   static int an[8]={10,4,1,40,50,25,5,100};
 268   int a;
 269
 270 again:;
 271   for(a=an[t-I_CLIP];n>=a;n-=a)
 272         IT_spawn(x+myrand(3*2+1)-3,y-myrand(7),t);
 273   if(t>=I_AMMO) {t-=4;goto again;}
 274 }