2 Copyright (C) Prikol Software 1996-1997
3 Copyright (C) Aleksey Volynskov 1996-1997
4 Copyright (C) <ARembo@gmail.com> 2011
6 This file is part of the Doom2D:Rembo project.
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.
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.
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
40 extern int hit_xv
,hit_yv
;
48 #define PL_AQUA_AIR 1091
50 byte p_immortal
=0,p_fly
=0;
52 int PL_JUMP
=10,PL_RUN
=8;
54 int wp_it
[11]={0,I_CSAW
,0,I_SGUN
,I_SGUN2
,I_MGUN
,I_LAUN
,I_PLAS
,I_BFG
,I_GUN2
,0};
56 enum{STAND
,GO
,DIE
,SLOP
,DEAD
,MESS
,OUT
,FALL
};
58 typedef void fire_f(int,int,int,int,int);
62 static void *aisnd
[3];
63 static void *pdsnd
[5];
66 byte plr_goanim
[]="BDACDA",
67 plr_dieanim
[]="HHHHIIIIJJJJKKKKLLLLMMMM",
68 plr_slopanim
[]="OOPPQQRRSSTTUUVVWW";
73 int ku
,kd
,kl
,kr
,kf
,kj
,kwl
,kwr
,kp
;
77 void PL_save_player (player_t
*p
, FILE *h
) {
78 myfwrite32(p
->o
.x
, h
);
79 myfwrite32(p
->o
.y
, h
);
80 myfwrite32(p
->o
.xv
, h
);
81 myfwrite32(p
->o
.yv
, h
);
82 myfwrite32(p
->o
.vx
, h
);
83 myfwrite32(p
->o
.vy
, h
);
84 myfwrite32(p
->o
.r
, h
);
85 myfwrite32(p
->o
.h
, h
);
86 myfwrite32(p
->looky
, h
);
89 myfwrite32(p
->life
, h
);
90 myfwrite32(p
->armor
, h
);
91 myfwrite32(p
->hit
, h
);
92 myfwrite32(p
->hito
, h
);
93 myfwrite32(p
->pain
, h
);
94 myfwrite32(p
->air
, h
);
95 myfwrite32(p
->invl
, h
);
96 myfwrite32(p
->suit
, h
);
98 myfwrite32(p
->frag
, h
);
99 myfwrite32(p
->ammo
, h
);
100 myfwrite32(p
->shel
, h
);
101 myfwrite32(p
->rock
, h
);
102 myfwrite32(p
->cell
, h
);
103 myfwrite32(p
->fuel
, h
);
104 myfwrite32(p
->kills
, h
);
105 myfwrite32(p
->secrets
, h
);
106 myfwrite8(p
->fire
, h
);
107 myfwrite8(p
->cwpn
, h
);
108 myfwrite8(p
->csnd
, h
);
109 myfwrite8(p
->amul
, h
);
110 myfwrite16(p
->wpns
, h
);
111 myfwrite8(p
->wpn
, h
);
113 myfwrite8(p
->drawst
, h
);
114 myfwrite8(p
->color
, h
);
115 myfwrite32(p
->id
, h
);
116 myfwrite8(p
->keys
, h
);
117 myfwrite8(p
->lives
, h
);
121 void PL_savegame (FILE *h
) {
122 PL_save_player(&pl1
, h
);
124 PL_save_player(&pl2
, h
);
126 myfwrite32(PL_JUMP
, h
);
127 myfwrite32(PL_RUN
, h
);
128 myfwrite8(p_immortal
, h
);
131 void PL_load_player (player_t
*p
, FILE *h
) {
132 p
->o
.x
= myfread32(h
);
133 p
->o
.y
= myfread32(h
);
134 p
->o
.xv
= myfread32(h
);
135 p
->o
.yv
= myfread32(h
);
136 p
->o
.vx
= myfread32(h
);
137 p
->o
.vy
= myfread32(h
);
138 p
->o
.r
= myfread32(h
);
139 p
->o
.h
= myfread32(h
);
140 p
->looky
= myfread32(h
);
141 p
->st
= myfread32(h
);
143 p
->life
= myfread32(h
);
144 p
->armor
= myfread32(h
);
145 p
->hit
= myfread32(h
);
146 p
->hito
= myfread32(h
);
147 p
->pain
= myfread32(h
);
148 p
->air
= myfread32(h
);
149 p
->invl
= myfread32(h
);
150 p
->suit
= myfread32(h
);
152 p
->frag
= myfread32(h
);
153 p
->ammo
= myfread32(h
);
154 p
->shel
= myfread32(h
);
155 p
->rock
= myfread32(h
);
156 p
->cell
= myfread32(h
);
157 p
->fuel
= myfread32(h
);
158 p
->kills
= myfread32(h
);
159 p
->secrets
= myfread32(h
);
160 p
->fire
= myfread8(h
);
161 p
->cwpn
= myfread8(h
);
162 p
->csnd
= myfread8(h
);
163 p
->amul
= myfread8(h
);
164 p
->wpns
= myfread16(h
);
165 p
->wpn
= myfread8(h
);
167 p
->drawst
= myfread8(h
);
168 p
->color
= myfread8(h
);
169 p
->id
= myfread32(h
);
170 p
->keys
= myfread8(h
);
171 p
->lives
= myfread8(h
);
175 void PL_loadgame (FILE *h
) {
176 PL_load_player(&pl1
, h
);
178 PL_load_player(&pl2
, h
);
180 PL_JUMP
= myfread32(h
);
181 PL_RUN
= myfread32(h
);
182 p_immortal
= myfread8(h
);
185 static int nonz(int a
) {return (a
)?a
:1;}
187 static int firediry(player_t
*p
) {
188 if(p
->f
&PLF_UP
) return -42;
189 if(p
->f
&PLF_DOWN
) return 19;
193 static void fire(player_t
*p
) {
194 static fire_f
*ff
[11]={
195 WP_pistol
,WP_pistol
,WP_pistol
,WP_shotgun
,WP_dshotgun
,
196 WP_mgun
,WP_rocket
,WP_plasma
,WP_bfgshot
,WP_shotgun
,WP_pistol
};
197 static int ft
[11]={5,2,6,18,36,2,12,2,0,2,1};
202 if(keys
[p
->kf
] && p
->cell
>=40)
203 {Z_sound(snd
[5],128);p
->fire
=21;p
->cell
-=40;p
->drawst
|=PL_DRAWWPN
;return;}
205 if(p
->fire
==1) p
->cwpn
=12;
207 }else if(p
->wpn
==1) {
209 if(!keys
[p
->kf
]) {Z_sound(snd
[7],128);p
->csnd
=13;return;}
211 if(keys
[p
->kf
] && !p
->fire
) {
213 WP_chainsaw(p
->o
.x
+((p
->d
)?4:-4),p
->o
.y
,(g_dm
)?9:3,p
->id
);
214 if(!p
->csnd
) {Z_sound(snd
[8],128);p
->csnd
=29;}
216 }else if(p
->fire
) return;
217 if(keys
[p
->kf
] || p
->wpn
==8) {
221 --p
->ammo
;p
->drawst
|=PL_DRAWWPN
;break;
224 --p
->shel
;p
->drawst
|=PL_DRAWWPN
;break;
226 if(p
->shel
<2) return;
227 p
->shel
-=2;p
->drawst
|=PL_DRAWWPN
;break;
230 --p
->rock
;p
->drawst
|=PL_DRAWWPN
;break;
233 --p
->cell
;p
->drawst
|=PL_DRAWWPN
;break;
236 --p
->fuel
;p
->drawst
|=PL_DRAWWPN
;break;
239 WP_ognemet(p
->o
.x
,p
->o
.y
-15,p
->o
.x
+((p
->d
)?30:-30),p
->o
.y
-15+firediry(p
),
240 p
->o
.xv
+p
->o
.vx
,p
->o
.yv
+p
->o
.vy
,p
->id
);
241 else if(p
->wpn
>=1) ff
[p
->wpn
] (p
->o
.x
,p
->o
.y
-15,p
->o
.x
+((p
->d
)?30:-30),
242 p
->o
.y
-15+firediry(p
),p
->id
);
243 else WP_punch(p
->o
.x
+((p
->d
)?4:-4),p
->o
.y
,3,p
->id
);
245 if(p
->wpn
>=2) p
->f
|=PLF_FIRE
;
249 static void chgwpn(player_t
*p
) {
251 if(p
->fire
&& p
->wpn
!=1) return;
253 do{ if(--p
->wpn
<0) p
->wpn
=10; }while(!(p
->wpns
&(1<<p
->wpn
)));
255 }else if(keys
[p
->kwr
]) {
256 do{ if(++p
->wpn
>10) p
->wpn
=0; }while(!(p
->wpns
&(1<<p
->wpn
)));
260 p
->drawst
|=PL_DRAWWPN
;p
->fire
=0;
261 if(p
->wpn
==1) Z_sound(snd
[6],128);
265 static void jump(player_t
*p
,int st
) {
266 if(Z_canbreathe(p
->o
.x
,p
->o
.y
,p
->o
.r
,p
->o
.h
)) {
267 if(p
->air
<PL_AIR
) {p
->air
=PL_AIR
;p
->drawst
|=PL_DRAWAIR
;}
271 PL_hit(p
,10,-3,HIT_WATER
);
272 }else if((p
->air
&31)==0) {
273 FX_bubble(p
->o
.x
,p
->o
.y
-20,0,0,5);
275 p
->drawst
|=PL_DRAWAIR
;
281 if(Z_canstand(p
->o
.x
,p
->o
.y
,p
->o
.r
)) p
->o
.yv
=-PL_JUMP
;
282 else if(st
&Z_INWATER
) p
->o
.yv
=-PL_SWUP
;
287 int PL_isdead(player_t
*p
) {
289 case DEAD
: case MESS
:
302 void PL_alloc(void) {
304 static char nm
[][6]={
318 for(i
=0;i
<11;++i
) snd
[i
]=Z_getsnd(nm
[i
]);
322 aisnd
[i
]=Z_getsnd(s
);
324 memcpy(s
,"PLDTHx",6);
327 pdsnd
[i
]=Z_getsnd(s
);
331 void PL_restore(player_t
*p
) {
332 p
->o
.xv
=p
->o
.yv
=p
->o
.vx
=p
->o
.vy
=0;
333 p
->o
.r
=PL_RAD
;p
->o
.h
=PL_HT
;
337 case DEAD
: case MESS
: case OUT
:
338 case DIE
: case SLOP
: case FALL
:
339 p
->life
=100;p
->armor
=0;p
->air
=PL_AIR
;
342 p
->ammo
=50;p
->fuel
=p
->shel
=p
->rock
=p
->cell
=0;
346 p
->fire
=p
->cwpn
=p
->csnd
=0;
350 p
->keys
=(g_dm
)?0x70:0;
353 void PL_reset(void) {
358 void PL_spawn(player_t
*p
,int x
,int y
,char d
) {
360 p
->o
.x
=x
;p
->o
.y
=y
;p
->d
=d
;
361 p
->kills
=p
->secrets
=0;
364 int PL_hit(player_t
*p
,int d
,int o
,int t
) {
368 case DEAD
: case MESS
:
372 if(t
==HIT_TRAP
) {if(!p_immortal
) {p
->armor
=0;p
->life
=-100;}}
373 else if(t
!=HIT_ROCKET
&& t
!=HIT_ELECTRO
) {
374 if(p
->id
==-1) {if(o
==-1) return 0;}
375 else if(o
==-2) return 0;
377 if(t
!=HIT_WATER
&& t
!=HIT_ELECTRO
)
378 DOT_blood(p
->o
.x
,p
->o
.y
-15,hit_xv
,hit_yv
,d
*2);
379 else if(t
==HIT_WATER
) FX_bubble(p
->o
.x
,p
->o
.y
-20,0,0,d
/2);
380 if(p_immortal
|| p
->invl
) return 1;
386 void PL_damage(player_t
*p
) {
389 if(!p
->hit
&& p
->life
>0) return;
392 case DEAD
: case MESS
:
396 i
=p
->hit
*p
->life
/nonz(p
->armor
*3/4+p
->life
);
398 p
->drawst
|=PL_DRAWLIFE
|PL_DRAWARMOR
;
399 if((p
->armor
-=p
->hit
-i
)<0) {p
->life
+=p
->armor
;p
->armor
=0;}
400 if((p
->life
-=i
)<=0) {
401 if(p
->life
>-30) {p
->st
=DIE
;p
->s
=0;Z_sound(pdsnd
[rand()%5
],128);}
402 else {p
->st
=SLOP
;p
->s
=0;Z_sound(snd
[3],128);}
403 if(p
->amul
>1) IT_spawn(p
->o
.x
,p
->o
.y
,I_BPACK
);
405 if(p
->keys
&16) IT_spawn(p
->o
.x
,p
->o
.y
,I_KEYR
);
406 if(p
->keys
&32) IT_spawn(p
->o
.x
,p
->o
.y
,I_KEYG
);
407 if(p
->keys
&64) IT_spawn(p
->o
.x
,p
->o
.y
,I_KEYB
);
409 for(i
=1,p
->wpns
>>=1;i
<11;++i
,p
->wpns
>>=1)
410 if(i
!=2) if(p
->wpns
&1) IT_spawn(p
->o
.x
,p
->o
.y
,wp_it
[i
]);
413 p
->drawst
|=PL_DRAWWPN
;
416 if(p
->hito
==-2) {++pl2
.kills
;++pl2
.frag
;}
417 else if(p
->hito
==-1) --pl1
.frag
;
419 if(p
->hito
==-1) {++pl1
.kills
;++pl1
.frag
;}
420 else if(p
->hito
==-2) --pl2
.frag
;
422 pl1
.drawst
|=PL_DRAWFRAG
;
423 if(_2pl
) pl2
.drawst
|=PL_DRAWFRAG
;
430 void PL_cry(player_t
*p
) {
431 Z_sound(snd
[(p
->pain
>20)?1:0],128);
435 int PL_give(player_t
*p
,int t
) {
440 case DEAD
: case MESS
: case OUT
:
444 case I_STIM
: case I_MEDI
:
445 if(p
->life
>=100) return 0;
446 if((p
->life
+=((t
==I_MEDI
)?25:10))>100) p
->life
=100;
447 p
->drawst
|=PL_DRAWLIFE
;return 1;
449 if(p
->ammo
>=200*p
->amul
) return 0;
450 if((p
->ammo
+=10)>200*p
->amul
) p
->ammo
=200*p
->amul
;
451 p
->drawst
|=PL_DRAWWPN
;return 1;
453 if(p
->ammo
>=200*p
->amul
) return 0;
454 if((p
->ammo
+=50)>200*p
->amul
) p
->ammo
=200*p
->amul
;
455 p
->drawst
|=PL_DRAWWPN
;return 1;
457 if(p
->shel
>=50*p
->amul
) return 0;
458 if((p
->shel
+=4)>50*p
->amul
) p
->shel
=50*p
->amul
;
459 p
->drawst
|=PL_DRAWWPN
;return 1;
461 if(p
->shel
>=50*p
->amul
) return 0;
462 if((p
->shel
+=25)>50*p
->amul
) p
->shel
=50*p
->amul
;
463 p
->drawst
|=PL_DRAWWPN
;return 1;
465 if(p
->rock
>=50*p
->amul
) return 0;
466 if((++p
->rock
)>50*p
->amul
) p
->rock
=50*p
->amul
;
467 p
->drawst
|=PL_DRAWWPN
;return 1;
469 if(p
->rock
>=50*p
->amul
) return 0;
470 if((p
->rock
+=5)>50*p
->amul
) p
->rock
=50*p
->amul
;
471 p
->drawst
|=PL_DRAWWPN
;return 1;
473 if(p
->cell
>=300*p
->amul
) return 0;
474 if((p
->cell
+=40)>300*p
->amul
) p
->cell
=300*p
->amul
;
475 p
->drawst
|=PL_DRAWWPN
;return 1;
477 if(p
->cell
>=300*p
->amul
) return 0;
478 if((p
->cell
+=100)>300*p
->amul
) p
->cell
=300*p
->amul
;
479 p
->drawst
|=PL_DRAWWPN
;return 1;
481 if(p
->amul
==1) {p
->amul
=2;i
=1;} else i
=0;
482 i
|=PL_give(p
,I_CLIP
);
483 i
|=PL_give(p
,I_SHEL
);
484 i
|=PL_give(p
,I_ROCKET
);
485 i
|=PL_give(p
,I_CELL
);
488 if(!(p
->wpns
&2)) {p
->wpns
|=2;p
->drawst
|=PL_DRAWWPN
;return 1;}
492 if(!(p
->wpns
&512)) {p
->wpns
|=512;i
=1;}
493 p
->drawst
|=PL_DRAWWPN
;return i
;
496 if(!(p
->wpns
&8)) {p
->wpns
|=8;i
=1;}
497 p
->drawst
|=PL_DRAWWPN
;return i
;
500 if(!(p
->wpns
&16)) {p
->wpns
|=16;i
=1;}
501 p
->drawst
|=PL_DRAWWPN
;return i
;
504 if(!(p
->wpns
&32)) {p
->wpns
|=32;i
=1;}
505 p
->drawst
|=PL_DRAWWPN
;return i
;
507 i
=PL_give(p
,I_ROCKET
);
508 i
|=PL_give(p
,I_ROCKET
);
509 if(!(p
->wpns
&64)) {p
->wpns
|=64;i
=1;}
510 p
->drawst
|=PL_DRAWWPN
;return i
;
513 if(!(p
->wpns
&128)) {p
->wpns
|=128;i
=1;}
514 p
->drawst
|=PL_DRAWWPN
;return i
;
517 if(!(p
->wpns
&256)) {p
->wpns
|=256;i
=1;}
518 p
->drawst
|=PL_DRAWWPN
;return i
;
520 if(p
->armor
>=100) return 0;
521 p
->armor
=100;p
->drawst
|=PL_DRAWARMOR
;return 1;
523 if(p
->armor
>=200) return 0;
524 p
->armor
=200;p
->drawst
|=PL_DRAWARMOR
;return 1;
527 if(p
->life
<200) {p
->life
=200;p
->drawst
|=PL_DRAWLIFE
;i
=1;}
528 if(p
->armor
<200) {p
->armor
=200;p
->drawst
|=PL_DRAWARMOR
;i
=1;}
531 if(p
->life
<200) {p
->life
=min(p
->life
+100,200);p
->drawst
|=PL_DRAWLIFE
;return 1;}
534 p
->invl
=PL_POWERUP_TIME
;
537 p
->suit
=PL_POWERUP_TIME
;
540 if(p
->air
>= PL_AQUA_AIR
) return 0;
541 p
->air
=PL_AQUA_AIR
;p
->drawst
|=PL_DRAWAIR
;
544 if(p
->keys
&16) return 0;
545 p
->keys
|=16;p
->drawst
|=PL_DRAWKEYS
;return 1;
547 if(p
->keys
&32) return 0;
548 p
->keys
|=32;p
->drawst
|=PL_DRAWKEYS
;return 1;
550 if(p
->keys
&64) return 0;
551 p
->keys
|=64;p
->drawst
|=PL_DRAWKEYS
;return 1;
557 void PL_act(player_t
*p
) {
560 if(--aitime
<0) aitime
=0;
561 SW_press(p
->o
.x
,p
->o
.y
,p
->o
.r
,p
->o
.h
,4|p
->keys
,p
->id
);
562 if(!p
->suit
) if((g_time
&15)==0)
563 PL_hit(p
,Z_getacid(p
->o
.x
,p
->o
.y
,p
->o
.r
,p
->o
.h
),-3,HIT_SOME
);
564 if(p
->st
!=FALL
&& p
->st
!=OUT
) {
565 if(((st
=Z_moveobj(&p
->o
))&Z_FALLOUT
) && p
->o
.y
>=FLDH
*CELH
+50) {
567 case DEAD
: case MESS
: case DIE
: case SLOP
:
570 p
->s
=Z_sound(snd
[10],128);
575 if(st
&Z_HITWATER
) Z_splash(&p
->o
,PL_RAD
+PL_HT
);
576 if(p
->f
&PLF_FIRE
) if(p
->fire
!=2) p
->f
-=PLF_FIRE
;
577 if(keys
[p
->ku
]) {p
->f
|=PLF_UP
;p
->looky
-=5;}
581 {p
->f
|=PLF_DOWN
;p
->looky
+=5;}
582 else {p
->f
&=0xFFFF-PLF_DOWN
;p
->looky
=Z_dec(p
->looky
,5);}
584 if(keys
[p
->kp
]) SW_press(p
->o
.x
,p
->o
.y
,p
->o
.r
,p
->o
.h
,1|p
->keys
,p
->id
);
585 if(p
->fire
) --p
->fire
;
586 if(p
->cwpn
) --p
->cwpn
;
587 if(p
->csnd
) --p
->csnd
;
588 if(p
->invl
) --p
->invl
;
589 if(p
->suit
) --p
->suit
;
593 if(!plr_dieanim
[++p
->s
]) {p
->st
=DEAD
;MN_killedp();}
594 p
->o
.xv
=Z_dec(p
->o
.xv
,1);
598 if(!plr_slopanim
[++p
->s
]) {p
->st
=MESS
;MN_killedp();}
599 p
->o
.xv
=Z_dec(p
->o
.xv
,1);
602 chgwpn(p
);fire(p
);jump(p
,st
);
604 SMK_gas(p
->o
.x
,p
->o
.y
-2,2,3,p
->o
.xv
+p
->o
.vx
,p
->o
.yv
+p
->o
.vy
,128);
605 if((p
->s
+=abs(p
->o
.xv
)/2) >= 24) p
->s
%=24;
606 if(!keys
[p
->kl
] && !keys
[p
->kr
]) {
607 if(p
->o
.xv
) p
->o
.xv
=Z_dec(p
->o
.xv
,1);
611 if(p
->o
.xv
<PL_RUN
&& keys
[p
->kr
]) {p
->o
.xv
+=PL_RUN
>>3;p
->d
=1;}
613 SMK_gas(p
->o
.x
,p
->o
.y
-2,2,3,p
->o
.xv
+p
->o
.vx
,p
->o
.yv
+p
->o
.vy
,32);
614 if(p
->o
.xv
>-PL_RUN
&& keys
[p
->kl
]) {p
->o
.xv
-=PL_RUN
>>3;p
->d
=0;}
616 SMK_gas(p
->o
.x
,p
->o
.y
-2,2,3,p
->o
.xv
+p
->o
.vx
,p
->o
.yv
+p
->o
.vy
,32);
619 chgwpn(p
);fire(p
);jump(p
,st
);
621 SMK_gas(p
->o
.x
,p
->o
.y
-2,2,3,p
->o
.xv
+p
->o
.vx
,p
->o
.yv
+p
->o
.vy
,128);
622 if(keys
[p
->kl
]) {p
->st
=GO
;p
->s
=0;p
->d
=0;}
623 else if(keys
[p
->kr
]) {p
->st
=GO
;p
->s
=0;p
->d
=1;}
628 p
->o
.xv
=Z_dec(p
->o
.xv
,1);
629 if(keys
[p
->ku
] || keys
[p
->kd
] || keys
[p
->kl
] || keys
[p
->kr
] ||
630 keys
[p
->kf
] || keys
[p
->kj
] || keys
[p
->kp
] || keys
[p
->kwl
] || keys
[p
->kwr
]) {
631 if(p
->st
!=OUT
) MN_spawn_deadpl(&p
->o
,p
->color
,(p
->st
==MESS
)?1:0);
633 if(g_dm
) {G_respawn_player(p
);break;}
635 if(--p
->lives
==0) {G_start();break;}
636 else{p
->o
.x
=dm_pos
[0].x
;p
->o
.y
=dm_pos
[0].y
;p
->d
=dm_pos
[0].d
;}
637 p
->drawst
|=PL_DRAWLIVES
;
640 {p
->o
.x
=dm_pos
[0].x
;p
->o
.y
=dm_pos
[0].y
;p
->d
=dm_pos
[0].d
;}
641 else {p
->o
.x
=dm_pos
[1].x
;p
->o
.y
=dm_pos
[1].y
;p
->d
=dm_pos
[1].d
;}
644 if(--p
->s
<=0) p
->st
=OUT
;
649 static void chk_bfg(player_t
*p
,int x
,int y
) {
654 case DIE
: case SLOP
: case FALL
:
655 case DEAD
: case MESS
: case OUT
:
658 dx
=p
->o
.x
-x
;dy
=p
->o
.y
-p
->o
.h
/2-y
;
659 if(dx
*dx
+dy
*dy
<=1600) {
660 aitime
=Z_sound(aisnd
[rand()%3
],128)*4;
664 void bfg_fly(int x
,int y
,int o
) {
666 if(o
!=-1) chk_bfg(&pl1
,x
,y
);
667 if(_2pl
) if(o
!=-2) chk_bfg(&pl2
,x
,y
);
668 if(o
==-1 || o
==-2) MN_warning(x
-50,y
-50,x
+50,y
+50);