DEADSOFTWARE

GIT / REPO / FRED-BOY
Projects / d2df-sdl.git / blob


32fc8f6c04a770ee0c0e34bfc5ab630b4958d20b
[d2df-sdl.git] / src / game / g_weapons.pas
1 (* Copyright (C) Doom 2D: Forever Developers
2 *
3 * This program is free software: you can redistribute it and/or modify
4 * it under the terms of the GNU General Public License as published by
5 * the Free Software Foundation, version 3 of the License ONLY.
6 *
7 * This program is distributed in the hope that it will be useful,
8 * but WITHOUT ANY WARRANTY; without even the implied warranty of
9 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
10 * GNU General Public License for more details.
11 *
12 * You should have received a copy of the GNU General Public License
13 * along with this program. If not, see <http://www.gnu.org/licenses/>.
14 *)
15 {$INCLUDE ../shared/a_modes.inc}
16 {.$DEFINE GWEP_HITSCAN_TRACE_BITMAP_CHECKER}
17 unit g_weapons;
18
19 interface
20
21 uses
22 SysUtils, Classes, mempool,
23 g_textures, g_basic, e_graphics, g_phys, xprofiler;
24
25
26 type
27 TShot = record
28 ShotType: Byte;
29 Target: Word;
30 SpawnerUID: Word;
31 Triggers: DWArray;
32 Obj: TObj;
33 Animation: TAnimation;
34 TextureID: DWORD;
35 Timeout: DWORD;
36 Stopped: Byte;
37
38 procedure positionChanged (); //WARNING! call this after monster position was changed, or coldet will not work right!
39 end;
40
41
42 var
43 Shots: array of TShot = nil;
44 LastShotID: Integer = 0;
45
46 procedure g_Weapon_LoadData();
47 procedure g_Weapon_FreeData();
48 procedure g_Weapon_Init();
49 procedure g_Weapon_Free();
50 function g_Weapon_Hit(obj: PObj; d: Integer; SpawnerUID: Word; t: Byte; HitCorpses: Boolean = True): Byte;
51 function g_Weapon_HitUID(UID: Word; d: Integer; SpawnerUID: Word; t: Byte): Boolean;
52 function g_Weapon_CreateShot(I: Integer; ShotType: Byte; Spawner, TargetUID: Word; X, Y, XV, YV: Integer): LongWord;
53
54 procedure g_Weapon_gun(const x, y, xd, yd, v, indmg: Integer; SpawnerUID: Word; CheckTrigger: Boolean);
55 procedure g_Weapon_punch(x, y: Integer; d, SpawnerUID: Word);
56 function g_Weapon_chainsaw(x, y: Integer; d, SpawnerUID: Word): Integer;
57 procedure g_Weapon_rocket(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
58 procedure g_Weapon_revf(x, y, xd, yd: Integer; SpawnerUID, TargetUID: Word; WID: Integer = -1; Silent: Boolean = False);
59 procedure g_Weapon_flame(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
60 procedure g_Weapon_plasma(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
61 procedure g_Weapon_ball1(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
62 procedure g_Weapon_ball2(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
63 procedure g_Weapon_ball7(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
64 procedure g_Weapon_aplasma(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
65 procedure g_Weapon_manfire(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
66 procedure g_Weapon_bfgshot(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
67 procedure g_Weapon_bfghit(x, y: Integer);
68 procedure g_Weapon_pistol(x, y, xd, yd: Integer; SpawnerUID: Word; Silent: Boolean = False);
69 procedure g_Weapon_mgun(x, y, xd, yd: Integer; SpawnerUID: Word; Silent: Boolean = False);
70 procedure g_Weapon_shotgun(x, y, xd, yd: Integer; SpawnerUID: Word; Silent: Boolean = False);
71 procedure g_Weapon_dshotgun(x, y, xd, yd: Integer; SpawnerUID: Word; Silent: Boolean = False);
72
73 function g_Weapon_Explode(X, Y: Integer; rad: Integer; SpawnerUID: Word): Boolean;
74 procedure g_Weapon_BFG9000(X, Y: Integer; SpawnerUID: Word);
75 procedure g_Weapon_PreUpdate();
76 procedure g_Weapon_Update();
77 procedure g_Weapon_Draw();
78 function g_Weapon_Danger(UID: Word; X, Y: Integer; Width, Height: Word; Time: Byte): Boolean;
79 procedure g_Weapon_DestroyShot(I: Integer; X, Y: Integer; Loud: Boolean = True);
80
81 procedure g_Weapon_SaveState (st: TStream);
82 procedure g_Weapon_LoadState (st: TStream);
83
84 procedure g_Weapon_AddDynLights();
85
86 const
87 WEAPON_KASTET = 0;
88 WEAPON_SAW = 1;
89 WEAPON_PISTOL = 2;
90 WEAPON_SHOTGUN1 = 3;
91 WEAPON_SHOTGUN2 = 4;
92 WEAPON_CHAINGUN = 5;
93 WEAPON_ROCKETLAUNCHER = 6;
94 WEAPON_PLASMA = 7;
95 WEAPON_BFG = 8;
96 WEAPON_SUPERPULEMET = 9;
97 WEAPON_FLAMETHROWER = 10;
98 WEAPON_ZOMBY_PISTOL = 20;
99 WEAPON_IMP_FIRE = 21;
100 WEAPON_BSP_FIRE = 22;
101 WEAPON_CACO_FIRE = 23;
102 WEAPON_BARON_FIRE = 24;
103 WEAPON_MANCUB_FIRE = 25;
104 WEAPON_SKEL_FIRE = 26;
105
106 WP_FIRST = WEAPON_KASTET;
107 WP_LAST = WEAPON_FLAMETHROWER;
108
109
110 var
111 gwep_debug_fast_trace: Boolean = true;
112
113
114 implementation
115
116 uses
117 Math, g_map, g_player, g_gfx, g_sound, g_main, g_panel,
118 g_console, g_options, g_game,
119 g_triggers, MAPDEF, e_log, g_monsters, g_saveload,
120 g_language, g_netmsg, g_grid,
121 geom, binheap, hashtable, utils, xstreams;
122
123 type
124 TWaterPanel = record
125 X, Y: Integer;
126 Width, Height: Word;
127 Active: Boolean;
128 end;
129
130 const
131 SHOT_ROCKETLAUNCHER_WIDTH = 14;
132 SHOT_ROCKETLAUNCHER_HEIGHT = 14;
133
134 SHOT_SKELFIRE_WIDTH = 14;
135 SHOT_SKELFIRE_HEIGHT = 14;
136
137 SHOT_PLASMA_WIDTH = 16;
138 SHOT_PLASMA_HEIGHT = 16;
139
140 SHOT_BFG_WIDTH = 32;
141 SHOT_BFG_HEIGHT = 32;
142 SHOT_BFG_DAMAGE = 100;
143 SHOT_BFG_RADIUS = 256;
144
145 SHOT_FLAME_WIDTH = 4;
146 SHOT_FLAME_HEIGHT = 4;
147 SHOT_FLAME_LIFETIME = 180;
148
149 SHOT_SIGNATURE = $544F4853; // 'SHOT'
150
151 type
152 PHitTime = ^THitTime;
153 THitTime = record
154 distSq: Integer;
155 mon: TMonster;
156 plridx: Integer; // if mon=nil
157 x, y: Integer;
158 end;
159
160 TBinHeapKeyHitTime = class
161 public
162 class function less (const a, b: Integer): Boolean; inline;
163 end;
164
165 // indicies in `wgunHitTime` array
166 TBinaryHeapHitTimes = specialize TBinaryHeapBase<Integer, TBinHeapKeyHitTime>;
167
168 var
169 WaterMap: array of array of DWORD = nil;
170 //wgunMonHash: THashIntInt = nil;
171 wgunHitHeap: TBinaryHeapHitTimes = nil;
172 wgunHitTime: array of THitTime = nil;
173 wgunHitTimeUsed: Integer = 0;
174
175
176 class function TBinHeapKeyHitTime.less (const a, b: Integer): Boolean;
177 var
178 hta, htb: PHitTime;
179 begin
180 hta := @wgunHitTime[a];
181 htb := @wgunHitTime[b];
182 if (hta.distSq <> htb.distSq) then begin result := (hta.distSq < htb.distSq); exit; end;
183 if (hta.mon <> nil) then
184 begin
185 // a is monster
186 if (htb.mon = nil) then begin result := false; exit; end; // players first
187 result := (hta.mon.UID < htb.mon.UID); // why not?
188 end
189 else
190 begin
191 // a is player
192 if (htb.mon <> nil) then begin result := true; exit; end; // players first
193 result := (hta.plridx < htb.plridx); // why not?
194 end;
195 end;
196
197
198 procedure appendHitTimeMon (adistSq: Integer; amon: TMonster; ax, ay: Integer);
199 begin
200 if (wgunHitTimeUsed = Length(wgunHitTime)) then SetLength(wgunHitTime, wgunHitTimeUsed+128);
201 with wgunHitTime[wgunHitTimeUsed] do
202 begin
203 distSq := adistSq;
204 mon := amon;
205 plridx := -1;
206 x := ax;
207 y := ay;
208 end;
209 wgunHitHeap.insert(wgunHitTimeUsed);
210 Inc(wgunHitTimeUsed);
211 end;
212
213
214 procedure appendHitTimePlr (adistSq: Integer; aplridx: Integer; ax, ay: Integer);
215 begin
216 if (wgunHitTimeUsed = Length(wgunHitTime)) then SetLength(wgunHitTime, wgunHitTimeUsed+128);
217 with wgunHitTime[wgunHitTimeUsed] do
218 begin
219 distSq := adistSq;
220 mon := nil;
221 plridx := aplridx;
222 x := ax;
223 y := ay;
224 end;
225 wgunHitHeap.insert(wgunHitTimeUsed);
226 Inc(wgunHitTimeUsed);
227 end;
228
229
230 function FindShot(): DWORD;
231 var
232 i: Integer;
233 begin
234 if Shots <> nil then
235 for i := 0 to High(Shots) do
236 if Shots[i].ShotType = 0 then
237 begin
238 Result := i;
239 LastShotID := Result;
240 Exit;
241 end;
242
243 if Shots = nil then
244 begin
245 SetLength(Shots, 128);
246 Result := 0;
247 end
248 else
249 begin
250 Result := High(Shots) + 1;
251 SetLength(Shots, Length(Shots) + 128);
252 end;
253 LastShotID := Result;
254 end;
255
256 procedure CreateWaterMap();
257 var
258 WaterArray: Array of TWaterPanel;
259 a, b, c, m: Integer;
260 ok: Boolean;
261 begin
262 if gWater = nil then
263 Exit;
264
265 SetLength(WaterArray, Length(gWater));
266
267 for a := 0 to High(gWater) do
268 begin
269 WaterArray[a].X := gWater[a].X;
270 WaterArray[a].Y := gWater[a].Y;
271 WaterArray[a].Width := gWater[a].Width;
272 WaterArray[a].Height := gWater[a].Height;
273 WaterArray[a].Active := True;
274 end;
275
276 g_Game_SetLoadingText(_lc[I_LOAD_WATER_MAP], High(WaterArray), False);
277
278 for a := 0 to High(WaterArray) do
279 if WaterArray[a].Active then
280 begin
281 WaterArray[a].Active := False;
282 m := Length(WaterMap);
283 SetLength(WaterMap, m+1);
284 SetLength(WaterMap[m], 1);
285 WaterMap[m][0] := a;
286 ok := True;
287
288 while ok do
289 begin
290 ok := False;
291 for b := 0 to High(WaterArray) do
292 if WaterArray[b].Active then
293 for c := 0 to High(WaterMap[m]) do
294 if g_CollideAround(WaterArray[b].X,
295 WaterArray[b].Y,
296 WaterArray[b].Width,
297 WaterArray[b].Height,
298 WaterArray[WaterMap[m][c]].X,
299 WaterArray[WaterMap[m][c]].Y,
300 WaterArray[WaterMap[m][c]].Width,
301 WaterArray[WaterMap[m][c]].Height) then
302 begin
303 WaterArray[b].Active := False;
304 SetLength(WaterMap[m],
305 Length(WaterMap[m])+1);
306 WaterMap[m][High(WaterMap[m])] := b;
307 ok := True;
308 Break;
309 end;
310 end;
311
312 g_Game_StepLoading();
313 end;
314
315 WaterArray := nil;
316 end;
317
318
319 var
320 chkTrap_pl: array [0..256] of Integer;
321 chkTrap_mn: array [0..65535] of TMonster;
322
323 procedure CheckTrap(ID: DWORD; dm: Integer; t: Byte);
324 var
325 //a, b, c, d, i1, i2: Integer;
326 //chkTrap_pl, chkTrap_mn: WArray;
327 plaCount: Integer = 0;
328 mnaCount: Integer = 0;
329 frameId: DWord;
330
331 {
332 function monsWaterCheck (mon: TMonster): Boolean;
333 begin
334 result := false; // don't stop
335 if mon.alive and mon.Collide(gWater[WaterMap[a][c]]) and (not InWArray(monidx, chkTrap_mn)) and (i2 < 1023) then //FIXME
336 begin
337 i2 += 1;
338 chkTrap_mn[i2] := monidx;
339 end;
340 end;
341 }
342
343 function monsWaterCheck (mon: TMonster): Boolean;
344 begin
345 result := false; // don't stop
346 if (mon.trapCheckFrameId <> frameId) then
347 begin
348 mon.trapCheckFrameId := frameId;
349 chkTrap_mn[mnaCount] := mon;
350 Inc(mnaCount);
351 end;
352 end;
353
354 var
355 a, b, c, d, f: Integer;
356 pan: TPanel;
357 begin
358 if (gWater = nil) or (WaterMap = nil) then Exit;
359
360 frameId := g_Mons_getNewTrapFrameId();
361
362 //i1 := -1;
363 //i2 := -1;
364
365 //SetLength(chkTrap_pl, 1024);
366 //SetLength(chkTrap_mn, 1024);
367 //for d := 0 to 1023 do chkTrap_pl[d] := $FFFF;
368 //for d := 0 to 1023 do chkTrap_mn[d] := $FFFF;
369
370 for a := 0 to High(WaterMap) do
371 begin
372 for b := 0 to High(WaterMap[a]) do
373 begin
374 pan := gWater[WaterMap[a][b]];
375 if not g_Obj_Collide(pan.X, pan.Y, pan.Width, pan.Height, @Shots[ID].Obj) then continue;
376
377 for c := 0 to High(WaterMap[a]) do
378 begin
379 pan := gWater[WaterMap[a][c]];
380 for d := 0 to High(gPlayers) do
381 begin
382 if (gPlayers[d] <> nil) and (gPlayers[d].alive) then
383 begin
384 if gPlayers[d].Collide(pan) then
385 begin
386 f := 0;
387 while (f < plaCount) and (chkTrap_pl[f] <> d) do Inc(f);
388 if (f = plaCount) then
389 begin
390 chkTrap_pl[plaCount] := d;
391 Inc(plaCount);
392 if (plaCount = Length(chkTrap_pl)) then break;
393 end;
394 end;
395 end;
396 end;
397
398 //g_Mons_ForEach(monsWaterCheck);
399 g_Mons_ForEachAliveAt(pan.X, pan.Y, pan.Width, pan.Height, monsWaterCheck);
400 end;
401
402 for f := 0 to plaCount-1 do gPlayers[chkTrap_pl[f]].Damage(dm, Shots[ID].SpawnerUID, 0, 0, t);
403 for f := 0 to mnaCount-1 do chkTrap_mn[f].Damage(dm, 0, 0, Shots[ID].SpawnerUID, t);
404 end;
405 end;
406
407 //chkTrap_pl := nil;
408 //chkTrap_mn := nil;
409 end;
410
411 function HitMonster(m: TMonster; d: Integer; vx, vy: Integer; SpawnerUID: Word; t: Byte): Boolean;
412 var
413 tt, mt: Byte;
414 mon: TMonster;
415 begin
416 Result := False;
417
418 tt := g_GetUIDType(SpawnerUID);
419 if tt = UID_MONSTER then
420 begin
421 mon := g_Monsters_ByUID(SpawnerUID);
422 if mon <> nil then
423 mt := g_Monsters_ByUID(SpawnerUID).MonsterType
424 else
425 mt := 0;
426 end
427 else
428 mt := 0;
429
430 if m = nil then Exit;
431 if m.UID = SpawnerUID then
432 begin
433 // Ñàì ñåáÿ ìîæåò ðàíèòü òîëüêî ðàêåòîé è òîêîì:
434 if (t <> HIT_ROCKET) and (t <> HIT_ELECTRO) then
435 Exit;
436 // Êèáåð äåìîí è áî÷êà âîîáùå íå ìîãóò ñåáÿ ðàíèòü:
437 if (m.MonsterType = MONSTER_CYBER) or
438 (m.MonsterType = MONSTER_BARREL) then
439 begin
440 Result := True;
441 Exit;
442 end;
443 end;
444
445 if tt = UID_MONSTER then
446 begin
447 // Lost_Soul íå ìîæåò ðàíèòü Pain_Elemental'à:
448 if (mt = MONSTER_SOUL) and (m.MonsterType = MONSTER_PAIN) then
449 Exit;
450
451 // Îáà ìîíñòðà îäíîãî âèäà:
452 if mt = m.MonsterType then
453 case mt of
454 MONSTER_IMP, MONSTER_DEMON, MONSTER_BARON, MONSTER_KNIGHT, MONSTER_CACO,
455 MONSTER_SOUL, MONSTER_MANCUB, MONSTER_SKEL, MONSTER_FISH:
456 Exit; // Ýòè íå áüþò ñâîèõ
457 end;
458 end;
459
460 if g_Game_IsServer then
461 begin
462 if (t <> HIT_FLAME) or (m.FFireTime = 0) or (vx <> 0) or (vy <> 0) then
463 Result := m.Damage(d, vx, vy, SpawnerUID, t)
464 else
465 Result := (gLMSRespawn = LMS_RESPAWN_NONE); // don't hit monsters when it's warmup time
466 if t = HIT_FLAME then
467 m.CatchFire(SpawnerUID);
468 end
469 else
470 Result := (gLMSRespawn = LMS_RESPAWN_NONE); // don't hit monsters when it's warmup time
471 end;
472
473
474 function HitPlayer (p: TPlayer; d: Integer; vx, vy: Integer; SpawnerUID: Word; t: Byte): Boolean;
475 begin
476 result := False;
477
478 // Ñàì ñåáÿ ìîæåò ðàíèòü òîëüêî ðàêåòîé è òîêîì
479 if (p.UID = SpawnerUID) and (t <> HIT_ROCKET) and (t <> HIT_ELECTRO) then exit;
480
481 if g_Game_IsServer then
482 begin
483 if (t <> HIT_FLAME) or (p.FFireTime = 0) or (vx <> 0) or (vy <> 0) then p.Damage(d, SpawnerUID, vx, vy, t);
484 if (t = HIT_FLAME) then p.CatchFire(SpawnerUID);
485 end;
486
487 result := true;
488 end;
489
490
491 procedure g_Weapon_BFG9000(X, Y: Integer; SpawnerUID: Word);
492
493 function monsCheck (mon: TMonster): Boolean;
494 begin
495 result := false; // don't stop
496 if (mon.alive) and (mon.UID <> SpawnerUID) then
497 begin
498 with mon do
499 begin
500 if (g_PatchLength(X, Y, Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2),
501 Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)) <= SHOT_BFG_RADIUS) and
502 g_TraceVector(X, Y, Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2),
503 Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)) then
504 begin
505 if HitMonster(mon, 50, 0, 0, SpawnerUID, HIT_SOME) then mon.BFGHit();
506 end;
507 end;
508 end;
509 end;
510
511 var
512 i, h: Integer;
513 st: Byte;
514 pl: TPlayer;
515 b: Boolean;
516 begin
517 //g_Sound_PlayEx('SOUND_WEAPON_EXPLODEBFG', 255);
518
519 h := High(gCorpses);
520
521 if gAdvCorpses and (h <> -1) then
522 for i := 0 to h do
523 if (gCorpses[i] <> nil) and (gCorpses[i].State <> CORPSE_STATE_REMOVEME) then
524 with gCorpses[i] do
525 if (g_PatchLength(X, Y, Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2),
526 Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)) <= SHOT_BFG_RADIUS) and
527 g_TraceVector(X, Y, Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2),
528 Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)) then
529 begin
530 Damage(50, SpawnerUID, 0, 0);
531 g_Weapon_BFGHit(Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2),
532 Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2));
533 end;
534
535 st := TEAM_NONE;
536 pl := g_Player_Get(SpawnerUID);
537 if pl <> nil then
538 st := pl.Team;
539
540 h := High(gPlayers);
541
542 if h <> -1 then
543 for i := 0 to h do
544 if (gPlayers[i] <> nil) and (gPlayers[i].alive) and (gPlayers[i].UID <> SpawnerUID) then
545 with gPlayers[i] do
546 if (g_PatchLength(X, Y, GameX+PLAYER_RECT.X+(PLAYER_RECT.Width div 2),
547 GameY+PLAYER_RECT.Y+(PLAYER_RECT.Height div 2)) <= SHOT_BFG_RADIUS) and
548 g_TraceVector(X, Y, GameX+PLAYER_RECT.X+(PLAYER_RECT.Width div 2),
549 GameY+PLAYER_RECT.Y+(PLAYER_RECT.Height div 2)) then
550 begin
551 if (st = TEAM_NONE) or (st <> gPlayers[i].Team) then
552 b := HitPlayer(gPlayers[i], 50, 0, 0, SpawnerUID, HIT_SOME)
553 else
554 b := HitPlayer(gPlayers[i], 25, 0, 0, SpawnerUID, HIT_SOME);
555 if b then
556 gPlayers[i].BFGHit();
557 end;
558
559 //FIXME
560 g_Mons_ForEachAlive(monsCheck);
561 end;
562
563 function g_Weapon_CreateShot(I: Integer; ShotType: Byte; Spawner, TargetUID: Word; X, Y, XV, YV: Integer): LongWord;
564 var
565 find_id: DWord;
566 FramesID: DWORD = 0;
567 begin
568 if I < 0 then
569 find_id := FindShot()
570 else
571 begin
572 find_id := I;
573 if Integer(find_id) >= High(Shots) then
574 SetLength(Shots, find_id + 64)
575 end;
576
577 case ShotType of
578 WEAPON_ROCKETLAUNCHER:
579 begin
580 with Shots[find_id] do
581 begin
582 g_Obj_Init(@Obj);
583
584 Obj.Rect.Width := SHOT_ROCKETLAUNCHER_WIDTH;
585 Obj.Rect.Height := SHOT_ROCKETLAUNCHER_HEIGHT;
586
587 Animation := nil;
588 Triggers := nil;
589 ShotType := WEAPON_ROCKETLAUNCHER;
590 g_Texture_Get('TEXTURE_WEAPON_ROCKET', TextureID);
591 end;
592 end;
593
594 WEAPON_PLASMA:
595 begin
596 with Shots[find_id] do
597 begin
598 g_Obj_Init(@Obj);
599
600 Obj.Rect.Width := SHOT_PLASMA_WIDTH;
601 Obj.Rect.Height := SHOT_PLASMA_HEIGHT;
602
603 Triggers := nil;
604 ShotType := WEAPON_PLASMA;
605 g_Frames_Get(FramesID, 'FRAMES_WEAPON_PLASMA');
606 Animation := TAnimation.Create(FramesID, True, 5);
607 end;
608 end;
609
610 WEAPON_BFG:
611 begin
612 with Shots[find_id] do
613 begin
614 g_Obj_Init(@Obj);
615
616 Obj.Rect.Width := SHOT_BFG_WIDTH;
617 Obj.Rect.Height := SHOT_BFG_HEIGHT;
618
619 Triggers := nil;
620 ShotType := WEAPON_BFG;
621 g_Frames_Get(FramesID, 'FRAMES_WEAPON_BFG');
622 Animation := TAnimation.Create(FramesID, True, 6);
623 end;
624 end;
625
626 WEAPON_FLAMETHROWER:
627 begin
628 with Shots[find_id] do
629 begin
630 g_Obj_Init(@Obj);
631
632 Obj.Rect.Width := SHOT_FLAME_WIDTH;
633 Obj.Rect.Height := SHOT_FLAME_HEIGHT;
634
635 Triggers := nil;
636 ShotType := WEAPON_FLAMETHROWER;
637 Animation := nil;
638 TextureID := 0;
639 g_Frames_Get(TextureID, 'FRAMES_FLAME');
640 end;
641 end;
642
643 WEAPON_IMP_FIRE:
644 begin
645 with Shots[find_id] do
646 begin
647 g_Obj_Init(@Obj);
648
649 Obj.Rect.Width := 16;
650 Obj.Rect.Height := 16;
651
652 Triggers := nil;
653 ShotType := WEAPON_IMP_FIRE;
654 g_Frames_Get(FramesID, 'FRAMES_WEAPON_IMPFIRE');
655 Animation := TAnimation.Create(FramesID, True, 4);
656 end;
657 end;
658
659 WEAPON_CACO_FIRE:
660 begin
661 with Shots[find_id] do
662 begin
663 g_Obj_Init(@Obj);
664
665 Obj.Rect.Width := 16;
666 Obj.Rect.Height := 16;
667
668 Triggers := nil;
669 ShotType := WEAPON_CACO_FIRE;
670 g_Frames_Get(FramesID, 'FRAMES_WEAPON_CACOFIRE');
671 Animation := TAnimation.Create(FramesID, True, 4);
672 end;
673 end;
674
675 WEAPON_MANCUB_FIRE:
676 begin
677 with Shots[find_id] do
678 begin
679 g_Obj_Init(@Obj);
680
681 Obj.Rect.Width := 32;
682 Obj.Rect.Height := 32;
683
684 Triggers := nil;
685 ShotType := WEAPON_MANCUB_FIRE;
686 g_Frames_Get(FramesID, 'FRAMES_WEAPON_MANCUBFIRE');
687 Animation := TAnimation.Create(FramesID, True, 4);
688 end;
689 end;
690
691 WEAPON_BARON_FIRE:
692 begin
693 with Shots[find_id] do
694 begin
695 g_Obj_Init(@Obj);
696
697 Obj.Rect.Width := 32;
698 Obj.Rect.Height := 16;
699
700 Triggers := nil;
701 ShotType := WEAPON_BARON_FIRE;
702 g_Frames_Get(FramesID, 'FRAMES_WEAPON_BARONFIRE');
703 Animation := TAnimation.Create(FramesID, True, 4);
704 end;
705 end;
706
707 WEAPON_BSP_FIRE:
708 begin
709 with Shots[find_id] do
710 begin
711 g_Obj_Init(@Obj);
712
713 Obj.Rect.Width := 16;
714 Obj.Rect.Height := 16;
715
716 Triggers := nil;
717 ShotType := WEAPON_BSP_FIRE;
718 g_Frames_Get(FramesID, 'FRAMES_WEAPON_BSPFIRE');
719 Animation := TAnimation.Create(FramesID, True, 4);
720 end;
721 end;
722
723 WEAPON_SKEL_FIRE:
724 begin
725 with Shots[find_id] do
726 begin
727 g_Obj_Init(@Obj);
728
729 Obj.Rect.Width := SHOT_SKELFIRE_WIDTH;
730 Obj.Rect.Height := SHOT_SKELFIRE_HEIGHT;
731
732 Triggers := nil;
733 ShotType := WEAPON_SKEL_FIRE;
734 target := TargetUID;
735 g_Frames_Get(FramesID, 'FRAMES_WEAPON_SKELFIRE');
736 Animation := TAnimation.Create(FramesID, True, 5);
737 end;
738 end;
739 end;
740
741 Shots[find_id].Obj.oldX := X;
742 Shots[find_id].Obj.oldY := Y;
743 Shots[find_id].Obj.X := X;
744 Shots[find_id].Obj.Y := Y;
745 Shots[find_id].Obj.Vel.X := XV;
746 Shots[find_id].Obj.Vel.Y := YV;
747 Shots[find_id].Obj.Accel.X := 0;
748 Shots[find_id].Obj.Accel.Y := 0;
749 Shots[find_id].SpawnerUID := Spawner;
750 if (ShotType = WEAPON_FLAMETHROWER) and (XV = 0) and (YV = 0) then
751 Shots[find_id].Stopped := 255
752 else
753 Shots[find_id].Stopped := 0;
754 Result := find_id;
755 end;
756
757 procedure throw(i, x, y, xd, yd, s: Integer);
758 var
759 a: Integer;
760 begin
761 yd := yd - y;
762 xd := xd - x;
763
764 a := Max(Abs(xd), Abs(yd));
765 if a = 0 then
766 a := 1;
767
768 Shots[i].Obj.oldX := x;
769 Shots[i].Obj.oldY := y;
770 Shots[i].Obj.X := x;
771 Shots[i].Obj.Y := y;
772 Shots[i].Obj.Vel.X := (xd*s) div a;
773 Shots[i].Obj.Vel.Y := (yd*s) div a;
774 Shots[i].Obj.Accel.X := 0;
775 Shots[i].Obj.Accel.Y := 0;
776 Shots[i].Stopped := 0;
777 if Shots[i].ShotType in [WEAPON_ROCKETLAUNCHER, WEAPON_BFG] then
778 Shots[i].Timeout := 900 // ~25 sec
779 else
780 begin
781 if Shots[i].ShotType = WEAPON_FLAMETHROWER then
782 Shots[i].Timeout := SHOT_FLAME_LIFETIME
783 else
784 Shots[i].Timeout := 550; // ~15 sec
785 end;
786 end;
787
788 function g_Weapon_Hit(obj: PObj; d: Integer; SpawnerUID: Word; t: Byte; HitCorpses: Boolean = True): Byte;
789 var
790 i, h: Integer;
791
792 function PlayerHit(Team: Byte = 0): Boolean;
793 var
794 i: Integer;
795 ChkTeam: Boolean;
796 p: TPlayer;
797 begin
798 Result := False;
799 h := High(gPlayers);
800
801 if h <> -1 then
802 for i := 0 to h do
803 if (gPlayers[i] <> nil) and gPlayers[i].alive and g_Obj_Collide(obj, @gPlayers[i].Obj) then
804 begin
805 ChkTeam := True;
806 if (Team > 0) and (g_GetUIDType(SpawnerUID) = UID_PLAYER) then
807 begin
808 p := g_Player_Get(SpawnerUID);
809 if p <> nil then
810 ChkTeam := (p.Team = gPlayers[i].Team) xor (Team = 2);
811 end;
812 if ChkTeam then
813 if HitPlayer(gPlayers[i], d, obj^.Vel.X, obj^.Vel.Y, SpawnerUID, t) then
814 begin
815 if t <> HIT_FLAME then
816 gPlayers[i].Push((obj^.Vel.X+obj^.Accel.X)*IfThen(t = HIT_BFG, 8, 1) div 4,
817 (obj^.Vel.Y+obj^.Accel.Y)*IfThen(t = HIT_BFG, 8, 1) div 4);
818 if t = HIT_BFG then
819 g_Game_DelayEvent(DE_BFGHIT, 1000, SpawnerUID);
820 Result := True;
821 break;
822 end;
823 end;
824 end;
825
826 {
827 function monsCheckHit (monidx: Integer; mon: TMonster): Boolean;
828 begin
829 result := false; // don't stop
830 if mon.alive and g_Obj_Collide(obj, @mon.Obj) then
831 begin
832 if HitMonster(mon, d, obj^.Vel.X, obj^.Vel.Y, SpawnerUID, t) then
833 begin
834 if (t <> HIT_FLAME) then
835 begin
836 mon.Push((obj^.Vel.X+obj^.Accel.X)*IfThen(t = HIT_BFG, 8, 1) div 4,
837 (obj^.Vel.Y+obj^.Accel.Y)*IfThen(t = HIT_BFG, 8, 1) div 4);
838 end;
839 result := True;
840 end;
841 end;
842 end;
843 }
844
845 function monsCheckHit (mon: TMonster): Boolean;
846 begin
847 result := false; // don't stop
848 if HitMonster(mon, d, obj.Vel.X, obj.Vel.Y, SpawnerUID, t) then
849 begin
850 if (t <> HIT_FLAME) then
851 begin
852 mon.Push((obj.Vel.X+obj.Accel.X)*IfThen(t = HIT_BFG, 8, 1) div 4,
853 (obj.Vel.Y+obj.Accel.Y)*IfThen(t = HIT_BFG, 8, 1) div 4);
854 end;
855 result := true;
856 end;
857 end;
858
859 function MonsterHit(): Boolean;
860 begin
861 //result := g_Mons_ForEach(monsCheckHit);
862 //FIXME: accelerate this!
863 result := g_Mons_ForEachAliveAt(obj.X+obj.Rect.X, obj.Y+obj.Rect.Y, obj.Rect.Width, obj.Rect.Height, monsCheckHit);
864 end;
865
866 begin
867 Result := 0;
868
869 if HitCorpses then
870 begin
871 h := High(gCorpses);
872
873 if gAdvCorpses and (h <> -1) then
874 for i := 0 to h do
875 if (gCorpses[i] <> nil) and (gCorpses[i].State <> CORPSE_STATE_REMOVEME) and
876 g_Obj_Collide(obj, @gCorpses[i].Obj) then
877 begin
878 // Ðàñïèëèâàåì òðóï:
879 gCorpses[i].Damage(d, SpawnerUID, (obj^.Vel.X+obj^.Accel.X) div 4,
880 (obj^.Vel.Y+obj^.Accel.Y) div 4);
881 Result := 1;
882 end;
883 end;
884
885 case gGameSettings.GameMode of
886 // Êàìïàíèÿ:
887 GM_COOP, GM_SINGLE:
888 begin
889 // Ñíà÷àëà áü¸ì ìîíñòðîâ, åñëè åñòü, ïîòîì ïûòàåìñÿ áèòü èãðîêîâ
890 if MonsterHit() then
891 begin
892 Result := 2;
893 Exit;
894 end;
895
896 // È â êîíöå èãðîêîâ, íî òîëüêî åñëè ïîëîæåíî
897 // (èëè ñíàðÿä îò ìîíñòðà, èëè friendlyfire, èëè friendly_hit_projectile)
898 if (g_GetUIDType(SpawnerUID) <> UID_PLAYER) or
899 LongBool(gGameSettings.Options and (GAME_OPTION_TEAMDAMAGE or GAME_OPTION_TEAMHITPROJECTILE)) then
900 begin
901 if PlayerHit() then
902 begin
903 Result := 1;
904 Exit;
905 end;
906 end;
907 end;
908
909 // Äåçìàò÷:
910 GM_DM:
911 begin
912 // Ñíà÷àëà áü¸ì èãðîêîâ, åñëè åñòü, ïîòîì ïûòàåìñÿ áèòü ìîíñòðîâ
913 if PlayerHit() then
914 begin
915 Result := 1;
916 Exit;
917 end;
918
919 if MonsterHit() then
920 begin
921 Result := 2;
922 Exit;
923 end;
924 end;
925
926 // Êîìàíäíûå:
927 GM_TDM, GM_CTF:
928 begin
929 // Ñíà÷àëà áü¸ì èãðîêîâ êîìàíäû ñîïåðíèêà
930 if PlayerHit(2) then
931 begin
932 Result := 1;
933 Exit;
934 end;
935
936 // Ïîòîì ìîíñòðîâ
937 if MonsterHit() then
938 begin
939 Result := 2;
940 Exit;
941 end;
942
943 // È â êîíöå ñâîèõ èãðîêîâ, íî òîëüêî åñëè ïîëîæåíî
944 // (èëè friendlyfire, èëè friendly_hit_projectile)
945 if LongBool(gGameSettings.Options and (GAME_OPTION_TEAMDAMAGE or GAME_OPTION_TEAMHITPROJECTILE)) then
946 begin
947 if PlayerHit(1) then
948 begin
949 Result := 1;
950 Exit;
951 end;
952 end;
953 end;
954
955 end;
956 end;
957
958 function g_Weapon_HitUID(UID: Word; d: Integer; SpawnerUID: Word; t: Byte): Boolean;
959 begin
960 Result := False;
961
962 case g_GetUIDType(UID) of
963 UID_PLAYER: Result := HitPlayer(g_Player_Get(UID), d, 0, 0, SpawnerUID, t);
964 UID_MONSTER: Result := HitMonster(g_Monsters_ByUID(UID), d, 0, 0, SpawnerUID, t);
965 else Exit;
966 end;
967 end;
968
969 function g_Weapon_Explode(X, Y: Integer; rad: Integer; SpawnerUID: Word): Boolean;
970 var
971 r: Integer; // squared radius
972
973 function monsExCheck (mon: TMonster): Boolean;
974 var
975 dx, dy, mm: Integer;
976 begin
977 result := false; // don't stop
978 begin
979 dx := mon.Obj.X+mon.Obj.Rect.X+(mon.Obj.Rect.Width div 2)-X;
980 dy := mon.Obj.Y+mon.Obj.Rect.Y+(mon.Obj.Rect.Height div 2)-Y;
981
982 if dx > 1000 then dx := 1000;
983 if dy > 1000 then dy := 1000;
984
985 if (dx*dx+dy*dy < r) then
986 begin
987 //m := PointToRect(X, Y, Obj.X+Obj.Rect.X, Obj.Y+Obj.Rect.Y, Obj.Rect.Width, Obj.Rect.Height);
988 //e_WriteLog(Format('explo monster #%d: x=%d; y=%d; rad=%d; dx=%d; dy=%d', [monidx, X, Y, rad, dx, dy]), MSG_NOTIFY);
989
990 mm := Max(abs(dx), abs(dy));
991 if mm = 0 then mm := 1;
992
993 if mon.alive then
994 begin
995 HitMonster(mon, ((mon.Obj.Rect.Width div 4)*10*(rad-mm)) div rad, 0, 0, SpawnerUID, HIT_ROCKET);
996 end;
997
998 mon.Push((dx*7) div mm, (dy*7) div mm);
999 end;
1000 end;
1001 end;
1002
1003 var
1004 i, h, dx, dy, m, mm: Integer;
1005 _angle: SmallInt;
1006 begin
1007 result := false;
1008
1009 g_Triggers_PressC(X, Y, rad, SpawnerUID, ACTIVATE_SHOT);
1010
1011 r := rad*rad;
1012
1013 h := High(gPlayers);
1014
1015 if h <> -1 then
1016 for i := 0 to h do
1017 if (gPlayers[i] <> nil) and gPlayers[i].alive then
1018 with gPlayers[i] do
1019 begin
1020 dx := Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2)-X;
1021 dy := Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)-Y;
1022
1023 if dx > 1000 then dx := 1000;
1024 if dy > 1000 then dy := 1000;
1025
1026 if dx*dx+dy*dy < r then
1027 begin
1028 //m := PointToRect(X, Y, GameX+PLAYER_RECT.X, GameY+PLAYER_RECT.Y,
1029 // PLAYER_RECT.Width, PLAYER_RECT.Height);
1030
1031 mm := Max(abs(dx), abs(dy));
1032 if mm = 0 then mm := 1;
1033
1034 HitPlayer(gPlayers[i], (100*(rad-mm)) div rad, (dx*10) div mm, (dy*10) div mm, SpawnerUID, HIT_ROCKET);
1035 gPlayers[i].Push((dx*7) div mm, (dy*7) div mm);
1036 end;
1037 end;
1038
1039 //g_Mons_ForEach(monsExCheck);
1040 g_Mons_ForEachAt(X-(rad+32), Y-(rad+32), (rad+32)*2, (rad+32)*2, monsExCheck);
1041
1042 h := High(gCorpses);
1043
1044 if gAdvCorpses and (h <> -1) then
1045 for i := 0 to h do
1046 if (gCorpses[i] <> nil) and (gCorpses[i].State <> CORPSE_STATE_REMOVEME) then
1047 with gCorpses[i] do
1048 begin
1049 dx := Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2)-X;
1050 dy := Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)-Y;
1051
1052 if dx > 1000 then dx := 1000;
1053 if dy > 1000 then dy := 1000;
1054
1055 if dx*dx+dy*dy < r then
1056 begin
1057 m := PointToRect(X, Y, Obj.X+Obj.Rect.X, Obj.Y+Obj.Rect.Y,
1058 Obj.Rect.Width, Obj.Rect.Height);
1059
1060 mm := Max(abs(dx), abs(dy));
1061 if mm = 0 then mm := 1;
1062
1063 Damage(Round(100*(rad-m)/rad), SpawnerUID, (dx*10) div mm, (dy*10) div mm);
1064 end;
1065 end;
1066
1067 h := High(gGibs);
1068
1069 if gAdvGibs and (h <> -1) then
1070 for i := 0 to h do
1071 if gGibs[i].alive then
1072 with gGibs[i] do
1073 begin
1074 dx := Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2)-X;
1075 dy := Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)-Y;
1076
1077 if dx > 1000 then dx := 1000;
1078 if dy > 1000 then dy := 1000;
1079
1080 if dx*dx+dy*dy < r then
1081 begin
1082 m := PointToRect(X, Y, Obj.X+Obj.Rect.X, Obj.Y+Obj.Rect.Y,
1083 Obj.Rect.Width, Obj.Rect.Height);
1084 _angle := GetAngle(Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2),
1085 Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2), X, Y);
1086
1087 g_Obj_PushA(@Obj, Round(15*(rad-m)/rad), _angle);
1088 positionChanged(); // this updates spatial accelerators
1089 end;
1090 end;
1091 end;
1092
1093 procedure g_Weapon_Init();
1094 begin
1095 CreateWaterMap();
1096 end;
1097
1098 procedure g_Weapon_Free();
1099 var
1100 i: Integer;
1101 begin
1102 if Shots <> nil then
1103 begin
1104 for i := 0 to High(Shots) do
1105 if Shots[i].ShotType <> 0 then
1106 Shots[i].Animation.Free();
1107
1108 Shots := nil;
1109 end;
1110
1111 WaterMap := nil;
1112 end;
1113
1114 procedure g_Weapon_LoadData();
1115 begin
1116 e_WriteLog('Loading weapons data...', TMsgType.Notify);
1117
1118 g_Sound_CreateWADEx('SOUND_WEAPON_HITPUNCH', GameWAD+':SOUNDS\HITPUNCH');
1119 g_Sound_CreateWADEx('SOUND_WEAPON_MISSPUNCH', GameWAD+':SOUNDS\MISSPUNCH');
1120 g_Sound_CreateWADEx('SOUND_WEAPON_HITBERSERK', GameWAD+':SOUNDS\HITBERSERK');
1121 g_Sound_CreateWADEx('SOUND_WEAPON_MISSBERSERK', GameWAD+':SOUNDS\MISSBERSERK');
1122 g_Sound_CreateWADEx('SOUND_WEAPON_SELECTSAW', GameWAD+':SOUNDS\SELECTSAW');
1123 g_Sound_CreateWADEx('SOUND_WEAPON_IDLESAW', GameWAD+':SOUNDS\IDLESAW');
1124 g_Sound_CreateWADEx('SOUND_WEAPON_HITSAW', GameWAD+':SOUNDS\HITSAW');
1125 g_Sound_CreateWADEx('SOUND_WEAPON_FIRESHOTGUN2', GameWAD+':SOUNDS\FIRESHOTGUN2');
1126 g_Sound_CreateWADEx('SOUND_WEAPON_FIRESHOTGUN', GameWAD+':SOUNDS\FIRESHOTGUN');
1127 g_Sound_CreateWADEx('SOUND_WEAPON_FIRESAW', GameWAD+':SOUNDS\FIRESAW');
1128 g_Sound_CreateWADEx('SOUND_WEAPON_FIREROCKET', GameWAD+':SOUNDS\FIREROCKET');
1129 g_Sound_CreateWADEx('SOUND_WEAPON_FIREPLASMA', GameWAD+':SOUNDS\FIREPLASMA');
1130 g_Sound_CreateWADEx('SOUND_WEAPON_FIREPISTOL', GameWAD+':SOUNDS\FIREPISTOL');
1131 g_Sound_CreateWADEx('SOUND_WEAPON_FIRECGUN', GameWAD+':SOUNDS\FIRECGUN');
1132 g_Sound_CreateWADEx('SOUND_WEAPON_FIREBFG', GameWAD+':SOUNDS\FIREBFG');
1133 g_Sound_CreateWADEx('SOUND_FIRE', GameWAD+':SOUNDS\FIRE');
1134 g_Sound_CreateWADEx('SOUND_IGNITE', GameWAD+':SOUNDS\IGNITE');
1135 g_Sound_CreateWADEx('SOUND_WEAPON_STARTFIREBFG', GameWAD+':SOUNDS\STARTFIREBFG');
1136 g_Sound_CreateWADEx('SOUND_WEAPON_EXPLODEROCKET', GameWAD+':SOUNDS\EXPLODEROCKET');
1137 g_Sound_CreateWADEx('SOUND_WEAPON_EXPLODEBFG', GameWAD+':SOUNDS\EXPLODEBFG');
1138 g_Sound_CreateWADEx('SOUND_WEAPON_BFGWATER', GameWAD+':SOUNDS\BFGWATER');
1139 g_Sound_CreateWADEx('SOUND_WEAPON_EXPLODEPLASMA', GameWAD+':SOUNDS\EXPLODEPLASMA');
1140 g_Sound_CreateWADEx('SOUND_WEAPON_PLASMAWATER', GameWAD+':SOUNDS\PLASMAWATER');
1141 g_Sound_CreateWADEx('SOUND_WEAPON_FIREBALL', GameWAD+':SOUNDS\FIREBALL');
1142 g_Sound_CreateWADEx('SOUND_WEAPON_EXPLODEBALL', GameWAD+':SOUNDS\EXPLODEBALL');
1143 g_Sound_CreateWADEx('SOUND_WEAPON_FIREREV', GameWAD+':SOUNDS\FIREREV');
1144 g_Sound_CreateWADEx('SOUND_WEAPON_FLAMEON', GameWAD+':SOUNDS\STARTFLM');
1145 g_Sound_CreateWADEx('SOUND_WEAPON_FLAMEOFF', GameWAD+':SOUNDS\STOPFLM');
1146 g_Sound_CreateWADEx('SOUND_WEAPON_FLAMEWORK', GameWAD+':SOUNDS\WORKFLM');
1147 g_Sound_CreateWADEx('SOUND_PLAYER_JETFLY', GameWAD+':SOUNDS\WORKJETPACK');
1148 g_Sound_CreateWADEx('SOUND_PLAYER_JETON', GameWAD+':SOUNDS\STARTJETPACK');
1149 g_Sound_CreateWADEx('SOUND_PLAYER_JETOFF', GameWAD+':SOUNDS\STOPJETPACK');
1150 g_Sound_CreateWADEx('SOUND_PLAYER_CASING1', GameWAD+':SOUNDS\CASING1');
1151 g_Sound_CreateWADEx('SOUND_PLAYER_CASING2', GameWAD+':SOUNDS\CASING2');
1152 g_Sound_CreateWADEx('SOUND_PLAYER_SHELL1', GameWAD+':SOUNDS\SHELL1');
1153 g_Sound_CreateWADEx('SOUND_PLAYER_SHELL2', GameWAD+':SOUNDS\SHELL2');
1154
1155 g_Texture_CreateWADEx('TEXTURE_WEAPON_ROCKET', GameWAD+':TEXTURES\BROCKET');
1156 g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_SKELFIRE', GameWAD+':TEXTURES\BSKELFIRE', 64, 16, 2);
1157 g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_BFG', GameWAD+':TEXTURES\BBFG', 64, 64, 2);
1158 g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_PLASMA', GameWAD+':TEXTURES\BPLASMA', 16, 16, 2);
1159 g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_IMPFIRE', GameWAD+':TEXTURES\BIMPFIRE', 16, 16, 2);
1160 g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_BSPFIRE', GameWAD+':TEXTURES\BBSPFIRE', 16, 16, 2);
1161 g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_CACOFIRE', GameWAD+':TEXTURES\BCACOFIRE', 16, 16, 2);
1162 g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_BARONFIRE', GameWAD+':TEXTURES\BBARONFIRE', 64, 16, 2);
1163 g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_MANCUBFIRE', GameWAD+':TEXTURES\BMANCUBFIRE', 64, 32, 2);
1164 g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_ROCKET', GameWAD+':TEXTURES\EROCKET', 128, 128, 6);
1165 g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_SKELFIRE', GameWAD+':TEXTURES\ESKELFIRE', 64, 64, 3);
1166 g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_BFG', GameWAD+':TEXTURES\EBFG', 128, 128, 6);
1167 g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_IMPFIRE', GameWAD+':TEXTURES\EIMPFIRE', 64, 64, 3);
1168 g_Frames_CreateWAD(nil, 'FRAMES_BFGHIT', GameWAD+':TEXTURES\BFGHIT', 64, 64, 4);
1169 g_Frames_CreateWAD(nil, 'FRAMES_FIRE', GameWAD+':TEXTURES\FIRE', 64, 128, 8);
1170 g_Frames_CreateWAD(nil, 'FRAMES_FLAME', GameWAD+':TEXTURES\FLAME', 32, 32, 11);
1171 g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_PLASMA', GameWAD+':TEXTURES\EPLASMA', 32, 32, 4, True);
1172 g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_BSPFIRE', GameWAD+':TEXTURES\EBSPFIRE', 32, 32, 5);
1173 g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_CACOFIRE', GameWAD+':TEXTURES\ECACOFIRE', 64, 64, 3);
1174 g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_BARONFIRE', GameWAD+':TEXTURES\EBARONFIRE', 64, 64, 3);
1175 g_Frames_CreateWAD(nil, 'FRAMES_SMOKE', GameWAD+':TEXTURES\SMOKE', 32, 32, 10, False);
1176
1177 g_Texture_CreateWADEx('TEXTURE_SHELL_BULLET', GameWAD+':TEXTURES\EBULLET');
1178 g_Texture_CreateWADEx('TEXTURE_SHELL_SHELL', GameWAD+':TEXTURES\ESHELL');
1179
1180 //wgunMonHash := hashNewIntInt();
1181 wgunHitHeap := TBinaryHeapHitTimes.Create();
1182 end;
1183
1184 procedure g_Weapon_FreeData();
1185 begin
1186 e_WriteLog('Releasing weapons data...', TMsgType.Notify);
1187
1188 g_Sound_Delete('SOUND_WEAPON_HITPUNCH');
1189 g_Sound_Delete('SOUND_WEAPON_MISSPUNCH');
1190 g_Sound_Delete('SOUND_WEAPON_HITBERSERK');
1191 g_Sound_Delete('SOUND_WEAPON_MISSBERSERK');
1192 g_Sound_Delete('SOUND_WEAPON_SELECTSAW');
1193 g_Sound_Delete('SOUND_WEAPON_IDLESAW');
1194 g_Sound_Delete('SOUND_WEAPON_HITSAW');
1195 g_Sound_Delete('SOUND_WEAPON_FIRESHOTGUN2');
1196 g_Sound_Delete('SOUND_WEAPON_FIRESHOTGUN');
1197 g_Sound_Delete('SOUND_WEAPON_FIRESAW');
1198 g_Sound_Delete('SOUND_WEAPON_FIREROCKET');
1199 g_Sound_Delete('SOUND_WEAPON_FIREPLASMA');
1200 g_Sound_Delete('SOUND_WEAPON_FIREPISTOL');
1201 g_Sound_Delete('SOUND_WEAPON_FIRECGUN');
1202 g_Sound_Delete('SOUND_WEAPON_FIREBFG');
1203 g_Sound_Delete('SOUND_FIRE');
1204 g_Sound_Delete('SOUND_IGNITE');
1205 g_Sound_Delete('SOUND_WEAPON_STARTFIREBFG');
1206 g_Sound_Delete('SOUND_WEAPON_EXPLODEROCKET');
1207 g_Sound_Delete('SOUND_WEAPON_EXPLODEBFG');
1208 g_Sound_Delete('SOUND_WEAPON_BFGWATER');
1209 g_Sound_Delete('SOUND_WEAPON_EXPLODEPLASMA');
1210 g_Sound_Delete('SOUND_WEAPON_PLASMAWATER');
1211 g_Sound_Delete('SOUND_WEAPON_FIREBALL');
1212 g_Sound_Delete('SOUND_WEAPON_EXPLODEBALL');
1213 g_Sound_Delete('SOUND_WEAPON_FIREREV');
1214 g_Sound_Delete('SOUND_WEAPON_FLAMEON');
1215 g_Sound_Delete('SOUND_WEAPON_FLAMEOFF');
1216 g_Sound_Delete('SOUND_WEAPON_FLAMEWORK');
1217 g_Sound_Delete('SOUND_PLAYER_JETFLY');
1218 g_Sound_Delete('SOUND_PLAYER_JETON');
1219 g_Sound_Delete('SOUND_PLAYER_JETOFF');
1220 g_Sound_Delete('SOUND_PLAYER_CASING1');
1221 g_Sound_Delete('SOUND_PLAYER_CASING2');
1222 g_Sound_Delete('SOUND_PLAYER_SHELL1');
1223 g_Sound_Delete('SOUND_PLAYER_SHELL2');
1224
1225 g_Texture_Delete('TEXTURE_WEAPON_ROCKET');
1226 g_Frames_DeleteByName('FRAMES_WEAPON_BFG');
1227 g_Frames_DeleteByName('FRAMES_WEAPON_PLASMA');
1228 g_Frames_DeleteByName('FRAMES_WEAPON_IMPFIRE');
1229 g_Frames_DeleteByName('FRAMES_WEAPON_BSPFIRE');
1230 g_Frames_DeleteByName('FRAMES_WEAPON_CACOFIRE');
1231 g_Frames_DeleteByName('FRAMES_WEAPON_MANCUBFIRE');
1232 g_Frames_DeleteByName('FRAMES_EXPLODE_ROCKET');
1233 g_Frames_DeleteByName('FRAMES_EXPLODE_BFG');
1234 g_Frames_DeleteByName('FRAMES_EXPLODE_IMPFIRE');
1235 g_Frames_DeleteByName('FRAMES_BFGHIT');
1236 g_Frames_DeleteByName('FRAMES_FIRE');
1237 g_Frames_DeleteByName('FRAMES_EXPLODE_PLASMA');
1238 g_Frames_DeleteByName('FRAMES_EXPLODE_BSPFIRE');
1239 g_Frames_DeleteByName('FRAMES_EXPLODE_CACOFIRE');
1240 g_Frames_DeleteByName('FRAMES_SMOKE');
1241 g_Frames_DeleteByName('FRAMES_WEAPON_BARONFIRE');
1242 g_Frames_DeleteByName('FRAMES_EXPLODE_BARONFIRE');
1243 end;
1244
1245
1246 function GunHitPlayer (X, Y: Integer; vx, vy: Integer; dmg: Integer; SpawnerUID: Word; AllowPush: Boolean): Boolean;
1247 var
1248 i: Integer;
1249 begin
1250 result := false;
1251 for i := 0 to High(gPlayers) do
1252 begin
1253 if (gPlayers[i] <> nil) and gPlayers[i].alive and gPlayers[i].Collide(X, Y) then
1254 begin
1255 if HitPlayer(gPlayers[i], dmg, vx*10, vy*10-3, SpawnerUID, HIT_SOME) then
1256 begin
1257 if AllowPush then gPlayers[i].Push(vx, vy);
1258 result := true;
1259 end;
1260 end;
1261 end;
1262 end;
1263
1264
1265 function GunHit (X, Y: Integer; vx, vy: Integer; dmg: Integer; SpawnerUID: Word; AllowPush: Boolean): Byte;
1266
1267 function monsCheck (mon: TMonster): Boolean;
1268 begin
1269 result := false; // don't stop
1270 if HitMonster(mon, dmg, vx*10, vy*10-3, SpawnerUID, HIT_SOME) then
1271 begin
1272 if AllowPush then mon.Push(vx, vy);
1273 result := true;
1274 end;
1275 end;
1276
1277 begin
1278 result := 0;
1279 if GunHitPlayer(X, Y, vx, vy, dmg, SpawnerUID, AllowPush) then result := 1
1280 else if g_Mons_ForEachAliveAt(X, Y, 1, 1, monsCheck) then result := 2;
1281 end;
1282
1283
1284 (*
1285 procedure g_Weapon_gunOld(const x, y, xd, yd, v, dmg: Integer; SpawnerUID: Word; CheckTrigger: Boolean);
1286 var
1287 a: Integer;
1288 x2, y2: Integer;
1289 dx, dy: Integer;
1290 xe, ye: Integer;
1291 xi, yi: Integer;
1292 s, c: Extended;
1293 //vx, vy: Integer;
1294 xx, yy, d: Integer;
1295 i: Integer;
1296 t1, _collide: Boolean;
1297 w, h: Word;
1298 {$IF DEFINED(D2F_DEBUG)}
1299 stt: UInt64;
1300 showTime: Boolean = true;
1301 {$ENDIF}
1302 begin
1303 a := GetAngle(x, y, xd, yd)+180;
1304
1305 SinCos(DegToRad(-a), s, c);
1306
1307 if Abs(s) < 0.01 then s := 0;
1308 if Abs(c) < 0.01 then c := 0;
1309
1310 x2 := x+Round(c*gMapInfo.Width);
1311 y2 := y+Round(s*gMapInfo.Width);
1312
1313 t1 := gWalls <> nil;
1314 _collide := False;
1315 w := gMapInfo.Width;
1316 h := gMapInfo.Height;
1317
1318 xe := 0;
1319 ye := 0;
1320 dx := x2-x;
1321 dy := y2-y;
1322
1323 if (xd = 0) and (yd = 0) then Exit;
1324
1325 if dx > 0 then xi := 1 else if dx < 0 then xi := -1 else xi := 0;
1326 if dy > 0 then yi := 1 else if dy < 0 then yi := -1 else yi := 0;
1327
1328 dx := Abs(dx);
1329 dy := Abs(dy);
1330
1331 if dx > dy then d := dx else d := dy;
1332
1333 //blood vel, for Monster.Damage()
1334 //vx := (dx*10 div d)*xi;
1335 //vy := (dy*10 div d)*yi;
1336
1337 {$IF DEFINED(D2F_DEBUG)}
1338 stt := getTimeMicro();
1339 {$ENDIF}
1340
1341 xx := x;
1342 yy := y;
1343
1344 for i := 1 to d do
1345 begin
1346 xe := xe+dx;
1347 ye := ye+dy;
1348
1349 if xe > d then
1350 begin
1351 xe := xe-d;
1352 xx := xx+xi;
1353 end;
1354
1355 if ye > d then
1356 begin
1357 ye := ye-d;
1358 yy := yy+yi;
1359 end;
1360
1361 if (yy > h) or (yy < 0) then Break;
1362 if (xx > w) or (xx < 0) then Break;
1363
1364 if t1 then
1365 if ByteBool(gCollideMap[yy, xx] and MARK_BLOCKED) then
1366 begin
1367 _collide := True;
1368 {$IF DEFINED(D2F_DEBUG)}
1369 stt := getTimeMicro()-stt;
1370 e_WriteLog(Format('*** old trace time: %u microseconds', [LongWord(stt)]), MSG_NOTIFY);
1371 showTime := false;
1372 {$ENDIF}
1373 g_GFX_Spark(xx-xi, yy-yi, 2+Random(2), 180+a, 0, 0);
1374 if g_Game_IsServer and g_Game_IsNet then
1375 MH_SEND_Effect(xx-xi, yy-yi, 180+a, NET_GFX_SPARK);
1376 end;
1377
1378 if not _collide then
1379 begin
1380 _collide := GunHit(xx, yy, xi*v, yi*v, dmg, SpawnerUID, v <> 0) <> 0;
1381 end;
1382
1383 if _collide then Break;
1384 end;
1385
1386 {$IF DEFINED(D2F_DEBUG)}
1387 if showTime then
1388 begin
1389 stt := getTimeMicro()-stt;
1390 e_WriteLog(Format('*** old trace time: %u microseconds', [LongWord(stt)]), MSG_NOTIFY);
1391 end;
1392 {$ENDIF}
1393
1394 if CheckTrigger and g_Game_IsServer then
1395 g_Triggers_PressL(X, Y, xx-xi, yy-yi, SpawnerUID, ACTIVATE_SHOT);
1396 end;
1397 *)
1398
1399
1400 //!!!FIXME!!!
1401 procedure g_Weapon_gun (const x, y, xd, yd, v, indmg: Integer; SpawnerUID: Word; CheckTrigger: Boolean);
1402 var
1403 x0, y0: Integer;
1404 x2, y2: Integer;
1405 xi, yi: Integer;
1406 wallDistSq: Integer = $3fffffff;
1407 spawnerPlr: TPlayer = nil;
1408 dmg: Integer;
1409
1410 function doPlayerHit (idx: Integer; hx, hy: Integer): Boolean;
1411 begin
1412 result := false;
1413 if (idx < 0) or (idx > High(gPlayers)) then exit;
1414 if (gPlayers[idx] = nil) or not gPlayers[idx].alive then exit;
1415 if (spawnerPlr <> nil) then
1416 begin
1417 if ((gGameSettings.Options and (GAME_OPTION_TEAMHITTRACE or GAME_OPTION_TEAMDAMAGE)) = 0) and
1418 (spawnerPlr.Team <> TEAM_NONE) and (spawnerPlr.Team = gPlayers[idx].Team) then
1419 begin
1420 if (spawnerPlr <> gPlayers[idx]) and ((gGameSettings.Options and GAME_OPTION_TEAMABSORBDAMAGE) = 0) then
1421 dmg := Max(1, dmg div 2);
1422 exit;
1423 end;
1424 end;
1425 result := HitPlayer(gPlayers[idx], dmg, (xi*v)*10, (yi*v)*10-3, SpawnerUID, HIT_SOME);
1426 if result and (v <> 0) then gPlayers[idx].Push((xi*v), (yi*v));
1427 {$IF DEFINED(D2F_DEBUG)}
1428 //if result then e_WriteLog(Format(' PLAYER #%d HIT', [idx]), MSG_NOTIFY);
1429 {$ENDIF}
1430 end;
1431
1432 function doMonsterHit (mon: TMonster; hx, hy: Integer): Boolean;
1433 begin
1434 result := false;
1435 if (mon = nil) then exit;
1436 result := HitMonster(mon, dmg, (xi*v)*10, (yi*v)*10-3, SpawnerUID, HIT_SOME);
1437 if result and (v <> 0) then mon.Push((xi*v), (yi*v));
1438 {$IF DEFINED(D2F_DEBUG)}
1439 //if result then e_WriteLog(Format(' MONSTER #%u HIT', [LongWord(mon.UID)]), MSG_NOTIFY);
1440 {$ENDIF}
1441 end;
1442
1443 // collect players along hitray
1444 // return `true` if instant hit was detected
1445 function playerPossibleHit (): Boolean;
1446 var
1447 i: Integer;
1448 px, py, pw, ph: Integer;
1449 inx, iny: Integer;
1450 distSq: Integer;
1451 plr: TPlayer;
1452 begin
1453 result := false;
1454 for i := 0 to High(gPlayers) do
1455 begin
1456 plr := gPlayers[i];
1457 if (plr <> nil) and plr.alive then
1458 begin
1459 plr.getMapBox(px, py, pw, ph);
1460 if lineAABBIntersects(x, y, x2, y2, px, py, pw, ph, inx, iny) then
1461 begin
1462 distSq := distanceSq(x, y, inx, iny);
1463 if (distSq = 0) then
1464 begin
1465 // contains
1466 if doPlayerHit(i, x, y) then begin result := true; exit; end;
1467 end
1468 else if (distSq < wallDistSq) then
1469 begin
1470 appendHitTimePlr(distSq, i, inx, iny);
1471 end;
1472 end;
1473 end;
1474 end;
1475 end;
1476
1477 procedure sqchecker (mon: TMonster);
1478 var
1479 mx, my, mw, mh: Integer;
1480 inx, iny: Integer;
1481 distSq: Integer;
1482 begin
1483 mon.getMapBox(mx, my, mw, mh);
1484 if lineAABBIntersects(x0, y0, x2, y2, mx, my, mw, mh, inx, iny) then
1485 begin
1486 distSq := distanceSq(x0, y0, inx, iny);
1487 if (distSq < wallDistSq) then appendHitTimeMon(distSq, mon, inx, iny);
1488 end;
1489 end;
1490
1491 var
1492 a: Integer;
1493 dx, dy: Integer;
1494 xe, ye: Integer;
1495 s, c: Extended;
1496 i: Integer;
1497 wallHitFlag: Boolean = false;
1498 wallHitX: Integer = 0;
1499 wallHitY: Integer = 0;
1500 didHit: Boolean = false;
1501 {$IF DEFINED(D2F_DEBUG)}
1502 stt: UInt64;
1503 {$ENDIF}
1504 mit: PMonster;
1505 it: TMonsterGrid.Iter;
1506 begin
1507 (*
1508 if not gwep_debug_fast_trace then
1509 begin
1510 g_Weapon_gunOld(x, y, xd, yd, v, dmg, SpawnerUID, CheckTrigger);
1511 exit;
1512 end;
1513 *)
1514
1515 if (xd = 0) and (yd = 0) then exit;
1516
1517 if (g_GetUIDType(SpawnerUID) = UID_PLAYER) then
1518 spawnerPlr := g_Player_Get(SpawnerUID);
1519
1520 dmg := indmg;
1521
1522 //wgunMonHash.reset(); //FIXME: clear hash on level change
1523 wgunHitHeap.clear();
1524 wgunHitTimeUsed := 0;
1525
1526 a := GetAngle(x, y, xd, yd)+180;
1527
1528 SinCos(DegToRad(-a), s, c);
1529
1530 if Abs(s) < 0.01 then s := 0;
1531 if Abs(c) < 0.01 then c := 0;
1532
1533 x0 := x;
1534 y0 := y;
1535 x2 := x+Round(c*gMapInfo.Width);
1536 y2 := y+Round(s*gMapInfo.Width);
1537
1538 dx := x2-x;
1539 dy := y2-y;
1540
1541 if (dx > 0) then xi := 1 else if (dx < 0) then xi := -1 else xi := 0;
1542 if (dy > 0) then yi := 1 else if (dy < 0) then yi := -1 else yi := 0;
1543
1544 {$IF DEFINED(D2F_DEBUG)}
1545 e_WriteLog(Format('GUN TRACE: (%d,%d) to (%d,%d)', [x, y, x2, y2]), TMsgType.Notify);
1546 stt := getTimeMicro();
1547 {$ENDIF}
1548
1549 wallHitFlag := (g_Map_traceToNearestWall(x, y, x2, y2, @wallHitX, @wallHitY) <> nil);
1550 if wallHitFlag then
1551 begin
1552 x2 := wallHitX;
1553 y2 := wallHitY;
1554 wallDistSq := distanceSq(x, y, wallHitX, wallHitY);
1555 end
1556 else
1557 begin
1558 wallHitX := x2;
1559 wallHitY := y2;
1560 end;
1561
1562 if playerPossibleHit() then exit; // instant hit
1563
1564 // collect monsters
1565 //g_Mons_AlongLine(x, y, x2, y2, sqchecker);
1566
1567 it := monsGrid.forEachAlongLine(x, y, x2, y2, -1);
1568 for mit in it do sqchecker(mit^);
1569 it.release();
1570
1571 // here, we collected all monsters and players in `wgunHitHeap` and `wgunHitTime`
1572 // also, if `wallWasHit` is `true`, then `wallHitX` and `wallHitY` contains spark coords
1573 while (wgunHitHeap.count > 0) do
1574 begin
1575 // has some entities to check, do it
1576 i := wgunHitHeap.front;
1577 wgunHitHeap.popFront();
1578 // hitpoint
1579 xe := wgunHitTime[i].x;
1580 ye := wgunHitTime[i].y;
1581 // check if it is not behind the wall
1582 if (wgunHitTime[i].mon <> nil) then
1583 begin
1584 didHit := doMonsterHit(wgunHitTime[i].mon, xe, ye);
1585 end
1586 else
1587 begin
1588 didHit := doPlayerHit(wgunHitTime[i].plridx, xe, ye);
1589 end;
1590 if didHit then
1591 begin
1592 // need new coords for trigger
1593 wallHitX := xe;
1594 wallHitY := ye;
1595 wallHitFlag := false; // no sparks
1596 break;
1597 end;
1598 end;
1599
1600 // need sparks?
1601 if wallHitFlag then
1602 begin
1603 {$IF DEFINED(D2F_DEBUG)}
1604 stt := getTimeMicro()-stt;
1605 e_WriteLog(Format('*** new trace time: %u microseconds', [LongWord(stt)]), TMsgType.Notify);
1606 {$ENDIF}
1607 g_GFX_Spark(wallHitX, wallHitY, 2+Random(2), 180+a, 0, 0);
1608 if g_Game_IsServer and g_Game_IsNet then MH_SEND_Effect(wallHitX, wallHitY, 180+a, NET_GFX_SPARK);
1609 end
1610 else
1611 begin
1612 {$IF DEFINED(D2F_DEBUG)}
1613 stt := getTimeMicro()-stt;
1614 e_WriteLog(Format('*** new trace time: %u microseconds', [LongWord(stt)]), TMsgType.Notify);
1615 {$ENDIF}
1616 end;
1617
1618 if CheckTrigger and g_Game_IsServer then g_Triggers_PressL(X, Y, wallHitX, wallHitY, SpawnerUID, ACTIVATE_SHOT);
1619 end;
1620
1621
1622 procedure g_Weapon_punch(x, y: Integer; d, SpawnerUID: Word);
1623 var
1624 obj: TObj;
1625 begin
1626 obj.X := X;
1627 obj.Y := Y;
1628 obj.rect.X := 0;
1629 obj.rect.Y := 0;
1630 obj.rect.Width := 39;
1631 obj.rect.Height := 52;
1632 obj.Vel.X := 0;
1633 obj.Vel.Y := 0;
1634 obj.Accel.X := 0;
1635 obj.Accel.Y := 0;
1636
1637 if g_Weapon_Hit(@obj, d, SpawnerUID, HIT_SOME) <> 0 then
1638 g_Sound_PlayExAt('SOUND_WEAPON_HITPUNCH', x, y)
1639 else
1640 g_Sound_PlayExAt('SOUND_WEAPON_MISSPUNCH', x, y);
1641 end;
1642
1643 function g_Weapon_chainsaw(x, y: Integer; d, SpawnerUID: Word): Integer;
1644 var
1645 obj: TObj;
1646 begin
1647 obj.X := X;
1648 obj.Y := Y;
1649 obj.rect.X := 0;
1650 obj.rect.Y := 0;
1651 obj.rect.Width := 32;
1652 obj.rect.Height := 52;
1653 obj.Vel.X := 0;
1654 obj.Vel.Y := 0;
1655 obj.Accel.X := 0;
1656 obj.Accel.Y := 0;
1657
1658 Result := g_Weapon_Hit(@obj, d, SpawnerUID, HIT_SOME);
1659 end;
1660
1661 procedure g_Weapon_rocket(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1662 Silent: Boolean = False);
1663 var
1664 find_id: DWORD;
1665 dx, dy: Integer;
1666 begin
1667 if WID < 0 then
1668 find_id := FindShot()
1669 else
1670 begin
1671 find_id := WID;
1672 if Integer(find_id) >= High(Shots) then
1673 SetLength(Shots, find_id + 64)
1674 end;
1675
1676 with Shots[find_id] do
1677 begin
1678 g_Obj_Init(@Obj);
1679
1680 Obj.Rect.Width := SHOT_ROCKETLAUNCHER_WIDTH;
1681 Obj.Rect.Height := SHOT_ROCKETLAUNCHER_HEIGHT;
1682
1683 dx := IfThen(xd > x, -Obj.Rect.Width, 0);
1684 dy := -(Obj.Rect.Height div 2);
1685
1686 ShotType := WEAPON_ROCKETLAUNCHER;
1687 throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 12);
1688
1689 Animation := nil;
1690 triggers := nil;
1691 g_Texture_Get('TEXTURE_WEAPON_ROCKET', TextureID);
1692 end;
1693
1694 Shots[find_id].SpawnerUID := SpawnerUID;
1695
1696 if not Silent then
1697 g_Sound_PlayExAt('SOUND_WEAPON_FIREROCKET', x, y);
1698 end;
1699
1700 procedure g_Weapon_revf(x, y, xd, yd: Integer; SpawnerUID, TargetUID: Word;
1701 WID: Integer = -1; Silent: Boolean = False);
1702 var
1703 find_id, FramesID: DWORD;
1704 dx, dy: Integer;
1705 begin
1706 if WID < 0 then
1707 find_id := FindShot()
1708 else
1709 begin
1710 find_id := WID;
1711 if Integer(find_id) >= High(Shots) then
1712 SetLength(Shots, find_id + 64)
1713 end;
1714
1715 with Shots[find_id] do
1716 begin
1717 g_Obj_Init(@Obj);
1718
1719 Obj.Rect.Width := SHOT_SKELFIRE_WIDTH;
1720 Obj.Rect.Height := SHOT_SKELFIRE_HEIGHT;
1721
1722 dx := -(Obj.Rect.Width div 2);
1723 dy := -(Obj.Rect.Height div 2);
1724
1725 ShotType := WEAPON_SKEL_FIRE;
1726 throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 12);
1727
1728 triggers := nil;
1729 target := TargetUID;
1730 g_Frames_Get(FramesID, 'FRAMES_WEAPON_SKELFIRE');
1731 Animation := TAnimation.Create(FramesID, True, 5);
1732 end;
1733
1734 Shots[find_id].SpawnerUID := SpawnerUID;
1735
1736 if not Silent then
1737 g_Sound_PlayExAt('SOUND_WEAPON_FIREREV', x, y);
1738 end;
1739
1740 procedure g_Weapon_plasma(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1741 Silent: Boolean = False);
1742 var
1743 find_id, FramesID: DWORD;
1744 dx, dy: Integer;
1745 begin
1746 if WID < 0 then
1747 find_id := FindShot()
1748 else
1749 begin
1750 find_id := WID;
1751 if Integer(find_id) >= High(Shots) then
1752 SetLength(Shots, find_id + 64);
1753 end;
1754
1755 with Shots[find_id] do
1756 begin
1757 g_Obj_Init(@Obj);
1758
1759 Obj.Rect.Width := SHOT_PLASMA_WIDTH;
1760 Obj.Rect.Height := SHOT_PLASMA_HEIGHT;
1761
1762 dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1763 dy := -(Obj.Rect.Height div 2);
1764
1765 ShotType := WEAPON_PLASMA;
1766 throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1767
1768 triggers := nil;
1769 g_Frames_Get(FramesID, 'FRAMES_WEAPON_PLASMA');
1770 Animation := TAnimation.Create(FramesID, True, 5);
1771 end;
1772
1773 Shots[find_id].SpawnerUID := SpawnerUID;
1774
1775 if not Silent then
1776 g_Sound_PlayExAt('SOUND_WEAPON_FIREPLASMA', x, y);
1777 end;
1778
1779 procedure g_Weapon_flame(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1780 Silent: Boolean = False);
1781 var
1782 find_id: DWORD;
1783 dx, dy: Integer;
1784 begin
1785 if WID < 0 then
1786 find_id := FindShot()
1787 else
1788 begin
1789 find_id := WID;
1790 if Integer(find_id) >= High(Shots) then
1791 SetLength(Shots, find_id + 64);
1792 end;
1793
1794 with Shots[find_id] do
1795 begin
1796 g_Obj_Init(@Obj);
1797
1798 Obj.Rect.Width := SHOT_FLAME_WIDTH;
1799 Obj.Rect.Height := SHOT_FLAME_HEIGHT;
1800
1801 dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1802 dy := -(Obj.Rect.Height div 2);
1803
1804 ShotType := WEAPON_FLAMETHROWER;
1805 throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1806
1807 triggers := nil;
1808 Animation := nil;
1809 TextureID := 0;
1810 g_Frames_Get(TextureID, 'FRAMES_FLAME');
1811 end;
1812
1813 Shots[find_id].SpawnerUID := SpawnerUID;
1814
1815 // if not Silent then
1816 // g_Sound_PlayExAt('SOUND_WEAPON_FIREPLASMA', x, y);
1817 end;
1818
1819 procedure g_Weapon_ball1(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1820 Silent: Boolean = False);
1821 var
1822 find_id, FramesID: DWORD;
1823 dx, dy: Integer;
1824 begin
1825 if WID < 0 then
1826 find_id := FindShot()
1827 else
1828 begin
1829 find_id := WID;
1830 if Integer(find_id) >= High(Shots) then
1831 SetLength(Shots, find_id + 64)
1832 end;
1833
1834 with Shots[find_id] do
1835 begin
1836 g_Obj_Init(@Obj);
1837
1838 Obj.Rect.Width := 16;
1839 Obj.Rect.Height := 16;
1840
1841 dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1842 dy := -(Obj.Rect.Height div 2);
1843
1844 ShotType := WEAPON_IMP_FIRE;
1845 throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1846
1847 triggers := nil;
1848 g_Frames_Get(FramesID, 'FRAMES_WEAPON_IMPFIRE');
1849 Animation := TAnimation.Create(FramesID, True, 4);
1850 end;
1851
1852 Shots[find_id].SpawnerUID := SpawnerUID;
1853
1854 if not Silent then
1855 g_Sound_PlayExAt('SOUND_WEAPON_FIREBALL', x, y);
1856 end;
1857
1858 procedure g_Weapon_ball2(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1859 Silent: Boolean = False);
1860 var
1861 find_id, FramesID: DWORD;
1862 dx, dy: Integer;
1863 begin
1864 if WID < 0 then
1865 find_id := FindShot()
1866 else
1867 begin
1868 find_id := WID;
1869 if Integer(find_id) >= High(Shots) then
1870 SetLength(Shots, find_id + 64)
1871 end;
1872
1873 with Shots[find_id] do
1874 begin
1875 g_Obj_Init(@Obj);
1876
1877 Obj.Rect.Width := 16;
1878 Obj.Rect.Height := 16;
1879
1880 dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1881 dy := -(Obj.Rect.Height div 2);
1882
1883 ShotType := WEAPON_CACO_FIRE;
1884 throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1885
1886 triggers := nil;
1887 g_Frames_Get(FramesID, 'FRAMES_WEAPON_CACOFIRE');
1888 Animation := TAnimation.Create(FramesID, True, 4);
1889 end;
1890
1891 Shots[find_id].SpawnerUID := SpawnerUID;
1892
1893 if not Silent then
1894 g_Sound_PlayExAt('SOUND_WEAPON_FIREBALL', x, y);
1895 end;
1896
1897 procedure g_Weapon_ball7(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1898 Silent: Boolean = False);
1899 var
1900 find_id, FramesID: DWORD;
1901 dx, dy: Integer;
1902 begin
1903 if WID < 0 then
1904 find_id := FindShot()
1905 else
1906 begin
1907 find_id := WID;
1908 if Integer(find_id) >= High(Shots) then
1909 SetLength(Shots, find_id + 64)
1910 end;
1911
1912 with Shots[find_id] do
1913 begin
1914 g_Obj_Init(@Obj);
1915
1916 Obj.Rect.Width := 32;
1917 Obj.Rect.Height := 16;
1918
1919 dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1920 dy := -(Obj.Rect.Height div 2);
1921
1922 ShotType := WEAPON_BARON_FIRE;
1923 throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1924
1925 triggers := nil;
1926 g_Frames_Get(FramesID, 'FRAMES_WEAPON_BARONFIRE');
1927 Animation := TAnimation.Create(FramesID, True, 4);
1928 end;
1929
1930 Shots[find_id].SpawnerUID := SpawnerUID;
1931
1932 if not Silent then
1933 g_Sound_PlayExAt('SOUND_WEAPON_FIREBALL', x, y);
1934 end;
1935
1936 procedure g_Weapon_aplasma(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1937 Silent: Boolean = False);
1938 var
1939 find_id, FramesID: DWORD;
1940 dx, dy: Integer;
1941 begin
1942 if WID < 0 then
1943 find_id := FindShot()
1944 else
1945 begin
1946 find_id := WID;
1947 if Integer(find_id) >= High(Shots) then
1948 SetLength(Shots, find_id + 64)
1949 end;
1950
1951 with Shots[find_id] do
1952 begin
1953 g_Obj_Init(@Obj);
1954
1955 Obj.Rect.Width := 16;
1956 Obj.Rect.Height := 16;
1957
1958 dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1959 dy := -(Obj.Rect.Height div 2);
1960
1961 ShotType := WEAPON_BSP_FIRE;
1962 throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1963
1964 triggers := nil;
1965
1966 g_Frames_Get(FramesID, 'FRAMES_WEAPON_BSPFIRE');
1967 Animation := TAnimation.Create(FramesID, True, 4);
1968 end;
1969
1970 Shots[find_id].SpawnerUID := SpawnerUID;
1971
1972 if not Silent then
1973 g_Sound_PlayExAt('SOUND_WEAPON_FIREPLASMA', x, y);
1974 end;
1975
1976 procedure g_Weapon_manfire(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1977 Silent: Boolean = False);
1978 var
1979 find_id, FramesID: DWORD;
1980 dx, dy: Integer;
1981 begin
1982 if WID < 0 then
1983 find_id := FindShot()
1984 else
1985 begin
1986 find_id := WID;
1987 if Integer(find_id) >= High(Shots) then
1988 SetLength(Shots, find_id + 64)
1989 end;
1990
1991 with Shots[find_id] do
1992 begin
1993 g_Obj_Init(@Obj);
1994
1995 Obj.Rect.Width := 32;
1996 Obj.Rect.Height := 32;
1997
1998 dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1999 dy := -(Obj.Rect.Height div 2);
2000
2001 ShotType := WEAPON_MANCUB_FIRE;
2002 throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
2003
2004 triggers := nil;
2005
2006 g_Frames_Get(FramesID, 'FRAMES_WEAPON_MANCUBFIRE');
2007 Animation := TAnimation.Create(FramesID, True, 4);
2008 end;
2009
2010 Shots[find_id].SpawnerUID := SpawnerUID;
2011
2012 if not Silent then
2013 g_Sound_PlayExAt('SOUND_WEAPON_FIREBALL', x, y);
2014 end;
2015
2016 procedure g_Weapon_bfgshot(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
2017 Silent: Boolean = False);
2018 var
2019 find_id, FramesID: DWORD;
2020 dx, dy: Integer;
2021 begin
2022 if WID < 0 then
2023 find_id := FindShot()
2024 else
2025 begin
2026 find_id := WID;
2027 if Integer(find_id) >= High(Shots) then
2028 SetLength(Shots, find_id + 64)
2029 end;
2030
2031 with Shots[find_id] do
2032 begin
2033 g_Obj_Init(@Obj);
2034
2035 Obj.Rect.Width := SHOT_BFG_WIDTH;
2036 Obj.Rect.Height := SHOT_BFG_HEIGHT;
2037
2038 dx := IfThen(xd>x, -Obj.Rect.Width, 0);
2039 dy := -(Obj.Rect.Height div 2);
2040
2041 ShotType := WEAPON_BFG;
2042 throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
2043
2044 triggers := nil;
2045 g_Frames_Get(FramesID, 'FRAMES_WEAPON_BFG');
2046 Animation := TAnimation.Create(FramesID, True, 6);
2047 end;
2048
2049 Shots[find_id].SpawnerUID := SpawnerUID;
2050
2051 if not Silent then
2052 g_Sound_PlayExAt('SOUND_WEAPON_FIREBFG', x, y);
2053 end;
2054
2055 procedure g_Weapon_bfghit(x, y: Integer);
2056 var
2057 ID: DWORD;
2058 Anim: TAnimation;
2059 begin
2060 if g_Frames_Get(ID, 'FRAMES_BFGHIT') then
2061 begin
2062 Anim := TAnimation.Create(ID, False, 4);
2063 g_GFX_OnceAnim(x-32, y-32, Anim);
2064 Anim.Free();
2065 end;
2066 end;
2067
2068 procedure g_Weapon_pistol(x, y, xd, yd: Integer; SpawnerUID: Word;
2069 Silent: Boolean = False);
2070 begin
2071 if not Silent then
2072 g_Sound_PlayExAt('SOUND_WEAPON_FIREPISTOL', x, y);
2073
2074 g_Weapon_gun(x, y, xd, yd, 1, 3, SpawnerUID, True);
2075 if gGameSettings.GameMode in [GM_DM, GM_TDM, GM_CTF] then
2076 begin
2077 g_Weapon_gun(x, y+1, xd, yd+1, 1, 3, SpawnerUID, False);
2078 g_Weapon_gun(x, y-1, xd, yd-1, 1, 2, SpawnerUID, False);
2079 end;
2080 end;
2081
2082 procedure g_Weapon_mgun(x, y, xd, yd: Integer; SpawnerUID: Word;
2083 Silent: Boolean = False);
2084 begin
2085 if not Silent then
2086 if gSoundEffectsDF then g_Sound_PlayExAt('SOUND_WEAPON_FIRECGUN', x, y);
2087
2088 g_Weapon_gun(x, y, xd, yd, 1, 3, SpawnerUID, True);
2089 if (gGameSettings.GameMode in [GM_DM, GM_TDM, GM_CTF]) and
2090 (g_GetUIDType(SpawnerUID) = UID_PLAYER) then
2091 begin
2092 g_Weapon_gun(x, y+1, xd, yd+1, 1, 2, SpawnerUID, False);
2093 g_Weapon_gun(x, y-1, xd, yd-1, 1, 2, SpawnerUID, False);
2094 end;
2095 end;
2096
2097 procedure g_Weapon_shotgun(x, y, xd, yd: Integer; SpawnerUID: Word;
2098 Silent: Boolean = False);
2099 var
2100 i, j: Integer;
2101 begin
2102 if not Silent then
2103 if gSoundEffectsDF then g_Sound_PlayExAt('SOUND_WEAPON_FIRESHOTGUN', x, y);
2104
2105 for i := 0 to 9 do
2106 begin
2107 j := Random(17)-8; // -8 .. 8
2108 g_Weapon_gun(x, y+j, xd, yd+j, IfThen(i mod 2 <> 0, 1, 0), 3, SpawnerUID, i=0);
2109 end;
2110 end;
2111
2112 procedure g_Weapon_dshotgun(x, y, xd, yd: Integer; SpawnerUID: Word;
2113 Silent: Boolean = False);
2114 var
2115 a, i, j: Integer;
2116 begin
2117 if not Silent then
2118 g_Sound_PlayExAt('SOUND_WEAPON_FIRESHOTGUN2', x, y);
2119
2120 if gGameSettings.GameMode in [GM_DM, GM_TDM, GM_CTF] then a := 25 else a := 20;
2121 for i := 0 to a do
2122 begin
2123 j := Random(41)-20; // -20 .. 20
2124 g_Weapon_gun(x, y+j, xd, yd+j, IfThen(i mod 3 <> 0, 0, 1), 3, SpawnerUID, i=0);
2125 end;
2126 end;
2127
2128 procedure g_Weapon_PreUpdate();
2129 var
2130 i: Integer;
2131 begin
2132 if Shots = nil then Exit;
2133 for i := 0 to High(Shots) do
2134 if Shots[i].ShotType <> 0 then
2135 begin
2136 Shots[i].Obj.oldX := Shots[i].Obj.X;
2137 Shots[i].Obj.oldY := Shots[i].Obj.Y;
2138 end;
2139 end;
2140
2141 procedure g_Weapon_Update();
2142 var
2143 i, a, h, cx, cy, oldvx, oldvy, tf: Integer;
2144 _id: DWORD;
2145 Anim: TAnimation;
2146 t: DWArray;
2147 st: Word;
2148 s: String;
2149 o: TObj;
2150 spl: Boolean;
2151 Loud: Boolean;
2152 tcx, tcy: Integer;
2153 begin
2154 if Shots = nil then
2155 Exit;
2156
2157 for i := 0 to High(Shots) do
2158 begin
2159 if Shots[i].ShotType = 0 then
2160 Continue;
2161
2162 Loud := True;
2163
2164 with Shots[i] do
2165 begin
2166 Timeout := Timeout - 1;
2167 oldvx := Obj.Vel.X;
2168 oldvy := Obj.Vel.Y;
2169 // Àêòèâèðîâàòü òðèããåðû ïî ïóòè (êðîìå óæå àêòèâèðîâàííûõ):
2170 if (Stopped = 0) and g_Game_IsServer then
2171 t := g_Triggers_PressR(Obj.X, Obj.Y, Obj.Rect.Width, Obj.Rect.Height,
2172 SpawnerUID, ACTIVATE_SHOT, triggers)
2173 else
2174 t := nil;
2175
2176 if t <> nil then
2177 begin
2178 // Ïîïîëíÿåì ñïèñîê àêòèâèðîâàííûõ òðèããåðîâ:
2179 if triggers = nil then
2180 triggers := t
2181 else
2182 begin
2183 h := High(t);
2184
2185 for a := 0 to h do
2186 if not InDWArray(t[a], triggers) then
2187 begin
2188 SetLength(triggers, Length(triggers)+1);
2189 triggers[High(triggers)] := t[a];
2190 end;
2191 end;
2192 end;
2193
2194 // Àíèìàöèÿ ñíàðÿäà:
2195 if Animation <> nil then
2196 Animation.Update();
2197
2198 // Äâèæåíèå:
2199 spl := (ShotType <> WEAPON_PLASMA) and
2200 (ShotType <> WEAPON_BFG) and
2201 (ShotType <> WEAPON_BSP_FIRE) and
2202 (ShotType <> WEAPON_FLAMETHROWER);
2203
2204 if Stopped = 0 then
2205 begin
2206 st := g_Obj_Move_Projectile(@Obj, False, spl);
2207 end
2208 else
2209 begin
2210 st := 0;
2211 end;
2212 positionChanged(); // this updates spatial accelerators
2213
2214 if WordBool(st and MOVE_FALLOUT) or (Obj.X < -1000) or
2215 (Obj.X > gMapInfo.Width+1000) or (Obj.Y < -1000) then
2216 begin
2217 // Íà êëèåíòå ñêîðåå âñåãî è òàê óæå âûïàë.
2218 ShotType := 0;
2219 Animation.Free();
2220 Continue;
2221 end;
2222
2223 cx := Obj.X + (Obj.Rect.Width div 2);
2224 cy := Obj.Y + (Obj.Rect.Height div 2);
2225
2226 case ShotType of
2227 WEAPON_ROCKETLAUNCHER, WEAPON_SKEL_FIRE: // Ðàêåòû è ñíàðÿäû Ñêåëåòà
2228 begin
2229 // Âûëåòåëà èç âîäû:
2230 if WordBool(st and MOVE_HITAIR) then
2231 g_Obj_SetSpeed(@Obj, 12);
2232
2233 // Â âîäå øëåéô - ïóçûðè, â âîçäóõå øëåéô - äûì:
2234 if WordBool(st and MOVE_INWATER) then
2235 g_GFX_Bubbles(Obj.X+(Obj.Rect.Width div 2),
2236 Obj.Y+(Obj.Rect.Height div 2),
2237 1+Random(3), 16, 16)
2238 else
2239 if g_Frames_Get(_id, 'FRAMES_SMOKE') then
2240 begin
2241 Anim := TAnimation.Create(_id, False, 3);
2242 Anim.Alpha := 150;
2243 g_GFX_OnceAnim(Obj.X-14+Random(9),
2244 Obj.Y+(Obj.Rect.Height div 2)-20+Random(9),
2245 Anim, ONCEANIM_SMOKE);
2246 Anim.Free();
2247 end;
2248
2249 // Ïîïàëè â êîãî-òî èëè â ñòåíó:
2250 if WordBool(st and (MOVE_HITWALL or MOVE_HITLAND or MOVE_HITCEIL)) or
2251 (g_Weapon_Hit(@Obj, 10, SpawnerUID, HIT_SOME, False) <> 0) or
2252 (Timeout < 1) then
2253 begin
2254 Obj.Vel.X := 0;
2255 Obj.Vel.Y := 0;
2256
2257 g_Weapon_Explode(cx, cy, 60, SpawnerUID);
2258
2259 if ShotType = WEAPON_SKEL_FIRE then
2260 begin // Âçðûâ ñíàðÿäà Ñêåëåòà
2261 if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_SKELFIRE') then
2262 begin
2263 Anim := TAnimation.Create(TextureID, False, 8);
2264 Anim.Blending := False;
2265 g_GFX_OnceAnim((Obj.X+32)-58, (Obj.Y+8)-36, Anim);
2266 g_DynLightExplosion((Obj.X+32), (Obj.Y+8), 64, 1, 0, 0);
2267 Anim.Free();
2268 end;
2269 end
2270 else
2271 begin // Âçðûâ Ðàêåòû
2272 if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_ROCKET') then
2273 begin
2274 Anim := TAnimation.Create(TextureID, False, 6);
2275 Anim.Blending := False;
2276 g_GFX_OnceAnim(cx-64, cy-64, Anim);
2277 g_DynLightExplosion(cx, cy, 64, 1, 0, 0);
2278 Anim.Free();
2279 end;
2280 end;
2281
2282 g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEROCKET', Obj.X, Obj.Y);
2283
2284 ShotType := 0;
2285 end;
2286
2287 if ShotType = WEAPON_SKEL_FIRE then
2288 begin // Ñàìîíàâîäêà ñíàðÿäà Ñêåëåòà:
2289 if GetPos(target, @o) then
2290 throw(i, Obj.X, Obj.Y,
2291 o.X+o.Rect.X+(o.Rect.Width div 2)+o.Vel.X+o.Accel.X,
2292 o.Y+o.Rect.Y+(o.Rect.Height div 2)+o.Vel.Y+o.Accel.Y,
2293 12);
2294 end;
2295 end;
2296
2297 WEAPON_PLASMA, WEAPON_BSP_FIRE: // Ïëàçìà, ïëàçìà Àðàõíàòðîíà
2298 begin
2299 // Ïîïàëà â âîäó - ýëåêòðîøîê ïî âîäå:
2300 if WordBool(st and (MOVE_INWATER or MOVE_HITWATER)) then
2301 begin
2302 g_Sound_PlayExAt('SOUND_WEAPON_PLASMAWATER', Obj.X, Obj.Y);
2303 if g_Game_IsServer then CheckTrap(i, 10, HIT_ELECTRO);
2304 ShotType := 0;
2305 Continue;
2306 end;
2307
2308 // Âåëè÷èíà óðîíà:
2309 if (ShotType = WEAPON_PLASMA) and
2310 (gGameSettings.GameMode in [GM_DM, GM_TDM, GM_CTF]) then
2311 a := 10
2312 else
2313 a := 5;
2314
2315 if ShotType = WEAPON_BSP_FIRE then
2316 a := 10;
2317
2318 // Ïîïàëè â êîãî-òî èëè â ñòåíó:
2319 if WordBool(st and (MOVE_HITWALL or MOVE_HITLAND or MOVE_HITCEIL)) or
2320 (g_Weapon_Hit(@Obj, a, SpawnerUID, HIT_SOME, False) <> 0) or
2321 (Timeout < 1) then
2322 begin
2323 if ShotType = WEAPON_PLASMA then
2324 s := 'FRAMES_EXPLODE_PLASMA'
2325 else
2326 s := 'FRAMES_EXPLODE_BSPFIRE';
2327
2328 // Âçðûâ Ïëàçìû:
2329 if g_Frames_Get(TextureID, s) then
2330 begin
2331 Anim := TAnimation.Create(TextureID, False, 3);
2332 Anim.Blending := False;
2333 g_GFX_OnceAnim(cx-16, cy-16, Anim);
2334 Anim.Free();
2335 g_DynLightExplosion(cx, cy, 32, 0, 0.5, 0.5);
2336 end;
2337
2338 g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEPLASMA', Obj.X, Obj.Y);
2339
2340 ShotType := 0;
2341 end;
2342 end;
2343
2344 WEAPON_FLAMETHROWER: // Îãíåìåò
2345 begin
2346 // Ñî âðåìåíåì óìèðàåò
2347 if (Timeout < 1) then
2348 begin
2349 ShotType := 0;
2350 Continue;
2351 end;
2352 // Ïîä âîäîé òîæå
2353 if WordBool(st and (MOVE_HITWATER or MOVE_INWATER)) then
2354 begin
2355 if WordBool(st and MOVE_HITWATER) then
2356 begin
2357 if g_Frames_Get(_id, 'FRAMES_SMOKE') then
2358 begin
2359 Anim := TAnimation.Create(_id, False, 3);
2360 Anim.Alpha := 0;
2361 tcx := Random(8);
2362 tcy := Random(8);
2363 g_GFX_OnceAnim(cx-4+tcx-(Anim.Width div 2),
2364 cy-4+tcy-(Anim.Height div 2),
2365 Anim, ONCEANIM_SMOKE);
2366 Anim.Free();
2367 end;
2368 end
2369 else
2370 g_GFX_Bubbles(cx, cy, 1+Random(3), 16, 16);
2371 ShotType := 0;
2372 Continue;
2373 end;
2374
2375 // Ãðàâèòàöèÿ
2376 if Stopped = 0 then
2377 Obj.Accel.Y := Obj.Accel.Y + 1;
2378 // Ïîïàëè â ñòåíó èëè â âîäó:
2379 if WordBool(st and (MOVE_HITWALL or MOVE_HITLAND or MOVE_HITCEIL or MOVE_HITWATER)) then
2380 begin
2381 // Ïðèëèïàåì:
2382 Obj.Vel.X := 0;
2383 Obj.Vel.Y := 0;
2384 Obj.Accel.Y := 0;
2385 if WordBool(st and MOVE_HITWALL) then
2386 Stopped := MOVE_HITWALL
2387 else if WordBool(st and MOVE_HITLAND) then
2388 Stopped := MOVE_HITLAND
2389 else if WordBool(st and MOVE_HITCEIL) then
2390 Stopped := MOVE_HITCEIL;
2391 end;
2392
2393 a := IfThen(Stopped = 0, 10, 1);
2394 // Åñëè â êîãî-òî ïîïàëè
2395 if g_Weapon_Hit(@Obj, a, SpawnerUID, HIT_FLAME, False) <> 0 then
2396 begin
2397 // HIT_FLAME ñàì ïîäîææåò
2398 // Åñëè â ïîëåòå ïîïàëè, èñ÷åçàåì
2399 if Stopped = 0 then
2400 ShotType := 0;
2401 end;
2402
2403 if Stopped = 0 then
2404 tf := 2
2405 else
2406 tf := 3;
2407
2408 if (gTime mod LongWord(tf) = 0) then
2409 begin
2410 Anim := TAnimation.Create(TextureID, False, 2 + Random(2));
2411 Anim.Alpha := 0;
2412 case Stopped of
2413 MOVE_HITWALL: begin tcx := cx-4+Random(8); tcy := cy-12+Random(24); end;
2414 MOVE_HITLAND: begin tcx := cx-12+Random(24); tcy := cy-10+Random(8); end;
2415 MOVE_HITCEIL: begin tcx := cx-12+Random(24); tcy := cy+6+Random(8); end;
2416 else begin tcx := cx-4+Random(8); tcy := cy-4+Random(8); end;
2417 end;
2418 g_GFX_OnceAnim(tcx-(Anim.Width div 2), tcy-(Anim.Height div 2), Anim, ONCEANIM_SMOKE);
2419 Anim.Free();
2420 //g_DynLightExplosion(tcx, tcy, 1, 1, 0.8, 0.3);
2421 end;
2422 end;
2423
2424 WEAPON_BFG: // BFG
2425 begin
2426 // Ïîïàëà â âîäó - ýëåêòðîøîê ïî âîäå:
2427 if WordBool(st and (MOVE_INWATER or MOVE_HITWATER)) then
2428 begin
2429 g_Sound_PlayExAt('SOUND_WEAPON_BFGWATER', Obj.X, Obj.Y);
2430 if g_Game_IsServer then CheckTrap(i, 1000, HIT_ELECTRO);
2431 ShotType := 0;
2432 Continue;
2433 end;
2434
2435 // Ïîïàëè â êîãî-òî èëè â ñòåíó:
2436 if WordBool(st and (MOVE_HITWALL or MOVE_HITLAND or MOVE_HITCEIL)) or
2437 (g_Weapon_Hit(@Obj, SHOT_BFG_DAMAGE, SpawnerUID, HIT_BFG, False) <> 0) or
2438 (Timeout < 1) then
2439 begin
2440 // Ëó÷è BFG:
2441 if g_Game_IsServer then g_Weapon_BFG9000(cx, cy, SpawnerUID);
2442
2443 // Âçðûâ BFG:
2444 if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_BFG') then
2445 begin
2446 Anim := TAnimation.Create(TextureID, False, 6);
2447 Anim.Blending := False;
2448 g_GFX_OnceAnim(cx-64, cy-64, Anim);
2449 Anim.Free();
2450 g_DynLightExplosion(cx, cy, 96, 0, 1, 0);
2451 end;
2452
2453 g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBFG', Obj.X, Obj.Y);
2454
2455 ShotType := 0;
2456 end;
2457 end;
2458
2459 WEAPON_IMP_FIRE, WEAPON_CACO_FIRE, WEAPON_BARON_FIRE: // Âûñòðåëû Áåñà, Êàêîäåìîíà Ðûöàðÿ/Áàðîíà àäà
2460 begin
2461 // Âûëåòåë èç âîäû:
2462 if WordBool(st and MOVE_HITAIR) then
2463 g_Obj_SetSpeed(@Obj, 16);
2464
2465 // Âåëè÷èíà óðîíà:
2466 if ShotType = WEAPON_IMP_FIRE then
2467 a := 5
2468 else
2469 if ShotType = WEAPON_CACO_FIRE then
2470 a := 20
2471 else
2472 a := 40;
2473
2474 // Ïîïàëè â êîãî-òî èëè â ñòåíó:
2475 if WordBool(st and (MOVE_HITWALL or MOVE_HITLAND or MOVE_HITCEIL)) or
2476 (g_Weapon_Hit(@Obj, a, SpawnerUID, HIT_SOME) <> 0) or
2477 (Timeout < 1) then
2478 begin
2479 if ShotType = WEAPON_IMP_FIRE then
2480 s := 'FRAMES_EXPLODE_IMPFIRE'
2481 else
2482 if ShotType = WEAPON_CACO_FIRE then
2483 s := 'FRAMES_EXPLODE_CACOFIRE'
2484 else
2485 s := 'FRAMES_EXPLODE_BARONFIRE';
2486
2487 // Âçðûâ:
2488 if g_Frames_Get(TextureID, s) then
2489 begin
2490 Anim := TAnimation.Create(TextureID, False, 6);
2491 Anim.Blending := False;
2492 g_GFX_OnceAnim(cx-32, cy-32, Anim);
2493 Anim.Free();
2494 end;
2495
2496 g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBALL', Obj.X, Obj.Y);
2497
2498 ShotType := 0;
2499 end;
2500 end;
2501
2502 WEAPON_MANCUB_FIRE: // Âûñòðåë Ìàíêóáóñà
2503 begin
2504 // Âûëåòåë èç âîäû:
2505 if WordBool(st and MOVE_HITAIR) then
2506 g_Obj_SetSpeed(@Obj, 16);
2507
2508 // Ïîïàëè â êîãî-òî èëè â ñòåíó:
2509 if WordBool(st and (MOVE_HITWALL or MOVE_HITLAND or MOVE_HITCEIL)) or
2510 (g_Weapon_Hit(@Obj, 40, SpawnerUID, HIT_SOME, False) <> 0) or
2511 (Timeout < 1) then
2512 begin
2513 // Âçðûâ:
2514 if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_ROCKET') then
2515 begin
2516 Anim := TAnimation.Create(TextureID, False, 6);
2517 Anim.Blending := False;
2518 g_GFX_OnceAnim(cx-64, cy-64, Anim);
2519 Anim.Free();
2520 end;
2521
2522 g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBALL', Obj.X, Obj.Y);
2523
2524 ShotType := 0;
2525 end;
2526 end;
2527 end; // case ShotType of...
2528
2529 // Åñëè ñíàðÿäà óæå íåò, óäàëÿåì àíèìàöèþ:
2530 if (ShotType = 0) then
2531 begin
2532 if gGameSettings.GameType = GT_SERVER then
2533 MH_SEND_DeleteShot(i, Obj.X, Obj.Y, Loud);
2534 if Animation <> nil then
2535 begin
2536 Animation.Free();
2537 Animation := nil;
2538 end;
2539 end
2540 else if (ShotType <> WEAPON_FLAMETHROWER) and ((oldvx <> Obj.Vel.X) or (oldvy <> Obj.Vel.Y)) then
2541 if gGameSettings.GameType = GT_SERVER then
2542 MH_SEND_UpdateShot(i);
2543 end;
2544 end;
2545 end;
2546
2547 procedure g_Weapon_Draw();
2548 var
2549 i, fX, fY: Integer;
2550 a: SmallInt;
2551 p: TDFPoint;
2552 begin
2553 if Shots = nil then
2554 Exit;
2555
2556 for i := 0 to High(Shots) do
2557 if Shots[i].ShotType <> 0 then
2558 with Shots[i] do
2559 begin
2560 if (Shots[i].ShotType = WEAPON_ROCKETLAUNCHER) or
2561 (Shots[i].ShotType = WEAPON_BARON_FIRE) or
2562 (Shots[i].ShotType = WEAPON_MANCUB_FIRE) or
2563 (Shots[i].ShotType = WEAPON_SKEL_FIRE) then
2564 a := -GetAngle2(Obj.Vel.X, Obj.Vel.Y)
2565 else
2566 a := 0;
2567
2568 Obj.lerp(gLerpFactor, fX, fY);
2569 p.X := Obj.Rect.Width div 2;
2570 p.Y := Obj.Rect.Height div 2;
2571
2572 if Animation <> nil then
2573 begin
2574 if (Shots[i].ShotType = WEAPON_BARON_FIRE) or
2575 (Shots[i].ShotType = WEAPON_MANCUB_FIRE) or
2576 (Shots[i].ShotType = WEAPON_SKEL_FIRE) then
2577 Animation.DrawEx(fX, fY, TMirrorType.None, p, a)
2578 else
2579 Animation.Draw(fX, fY, TMirrorType.None);
2580 end
2581 else if TextureID <> 0 then
2582 begin
2583 if (Shots[i].ShotType = WEAPON_ROCKETLAUNCHER) then
2584 e_DrawAdv(TextureID, fX, fY, 0, True, False, a, @p, TMirrorType.None)
2585 else if (Shots[i].ShotType <> WEAPON_FLAMETHROWER) then
2586 e_Draw(TextureID, fX, fY, 0, True, False);
2587 end;
2588
2589 if g_debug_Frames then
2590 begin
2591 e_DrawQuad(Obj.X+Obj.Rect.X,
2592 Obj.Y+Obj.Rect.Y,
2593 Obj.X+Obj.Rect.X+Obj.Rect.Width-1,
2594 Obj.Y+Obj.Rect.Y+Obj.Rect.Height-1,
2595 0, 255, 0);
2596 end;
2597 end;
2598 end;
2599
2600 function g_Weapon_Danger(UID: Word; X, Y: Integer; Width, Height: Word; Time: Byte): Boolean;
2601 var
2602 a: Integer;
2603 begin
2604 Result := False;
2605
2606 if Shots = nil then
2607 Exit;
2608
2609 for a := 0 to High(Shots) do
2610 if (Shots[a].ShotType <> 0) and (Shots[a].SpawnerUID <> UID) then
2611 if ((Shots[a].Obj.Vel.Y = 0) and (Shots[a].Obj.Vel.X > 0) and (Shots[a].Obj.X < X)) or
2612 (Shots[a].Obj.Vel.Y = 0) and (Shots[a].Obj.Vel.X < 0) and (Shots[a].Obj.X > X) then
2613 if (Abs(X-Shots[a].Obj.X) < Abs(Shots[a].Obj.Vel.X*Time)) and
2614 g_Collide(X, Y, Width, Height, X, Shots[a].Obj.Y,
2615 Shots[a].Obj.Rect.Width, Shots[a].Obj.Rect.Height) and
2616 g_TraceVector(X, Y, Shots[a].Obj.X, Shots[a].Obj.Y) then
2617 begin
2618 Result := True;
2619 Exit;
2620 end;
2621 end;
2622
2623 procedure g_Weapon_SaveState (st: TStream);
2624 var
2625 count, i, j: Integer;
2626 begin
2627 // Ñ÷èòàåì êîëè÷åñòâî ñóùåñòâóþùèõ ñíàðÿäîâ
2628 count := 0;
2629 for i := 0 to High(Shots) do if (Shots[i].ShotType <> 0) then Inc(count);
2630
2631 // Êîëè÷åñòâî ñíàðÿäîâ
2632 utils.WriteInt(st, count);
2633
2634 if (count = 0) then exit;
2635
2636 for i := 0 to High(Shots) do
2637 begin
2638 if Shots[i].ShotType <> 0 then
2639 begin
2640 // Ñèãíàòóðà ñíàðÿäà
2641 utils.writeSign(st, 'SHOT');
2642 utils.writeInt(st, Byte(0)); // version
2643 // Òèï ñíàðÿäà
2644 utils.writeInt(st, Byte(Shots[i].ShotType));
2645 // Öåëü
2646 utils.writeInt(st, Word(Shots[i].Target));
2647 // UID ñòðåëÿâøåãî
2648 utils.writeInt(st, Word(Shots[i].SpawnerUID));
2649 // Ðàçìåð ïîëÿ Triggers
2650 utils.writeInt(st, Integer(Length(Shots[i].Triggers)));
2651 // Òðèããåðû, àêòèâèðîâàííûå âûñòðåëîì
2652 for j := 0 to Length(Shots[i].Triggers)-1 do utils.writeInt(st, LongWord(Shots[i].Triggers[j]));
2653 // Îáúåêò ñíàðÿäà
2654 Obj_SaveState(st, @Shots[i].Obj);
2655 // Êîñòûëèíà åáàíàÿ
2656 utils.writeInt(st, Byte(Shots[i].Stopped));
2657 end;
2658 end;
2659 end;
2660
2661 procedure g_Weapon_LoadState (st: TStream);
2662 var
2663 count, tc, i, j: Integer;
2664 dw: LongWord;
2665 begin
2666 if (st = nil) then exit;
2667
2668 // Êîëè÷åñòâî ñíàðÿäîâ
2669 count := utils.readLongInt(st);
2670 if (count < 0) or (count > 1024*1024) then raise XStreamError.Create('invalid shots counter');
2671
2672 SetLength(Shots, count);
2673
2674 if (count = 0) then exit;
2675
2676 for i := 0 to count-1 do
2677 begin
2678 // Ñèãíàòóðà ñíàðÿäà
2679 if not utils.checkSign(st, 'SHOT') then raise XStreamError.Create('invalid shot signature');
2680 if (utils.readByte(st) <> 0) then raise XStreamError.Create('invalid shot version');
2681 // Òèï ñíàðÿäà:
2682 Shots[i].ShotType := utils.readByte(st);
2683 // Öåëü
2684 Shots[i].Target := utils.readWord(st);
2685 // UID ñòðåëÿâøåãî
2686 Shots[i].SpawnerUID := utils.readWord(st);
2687 // Ðàçìåð ïîëÿ Triggers
2688 tc := utils.readLongInt(st);
2689 if (tc < 0) or (tc > 1024*1024) then raise XStreamError.Create('invalid shot triggers counter');
2690 SetLength(Shots[i].Triggers, tc);
2691 // Òðèããåðû, àêòèâèðîâàííûå âûñòðåëîì
2692 for j := 0 to tc-1 do Shots[i].Triggers[j] := utils.readLongWord(st);
2693 // Îáúåêò ïðåäìåòà
2694 Obj_LoadState(@Shots[i].Obj, st);
2695 // Êîñòûëèíà åáàíàÿ
2696 Shots[i].Stopped := utils.readByte(st);
2697
2698 // Óñòàíîâêà òåêñòóðû èëè àíèìàöèè
2699 Shots[i].TextureID := DWORD(-1);
2700 Shots[i].Animation := nil;
2701
2702 case Shots[i].ShotType of
2703 WEAPON_ROCKETLAUNCHER, WEAPON_SKEL_FIRE:
2704 begin
2705 g_Texture_Get('TEXTURE_WEAPON_ROCKET', Shots[i].TextureID);
2706 end;
2707 WEAPON_PLASMA:
2708 begin
2709 g_Frames_Get(dw, 'FRAMES_WEAPON_PLASMA');
2710 Shots[i].Animation := TAnimation.Create(dw, True, 5);
2711 end;
2712 WEAPON_BFG:
2713 begin
2714 g_Frames_Get(dw, 'FRAMES_WEAPON_BFG');
2715 Shots[i].Animation := TAnimation.Create(dw, True, 6);
2716 end;
2717 WEAPON_IMP_FIRE:
2718 begin
2719 g_Frames_Get(dw, 'FRAMES_WEAPON_IMPFIRE');
2720 Shots[i].Animation := TAnimation.Create(dw, True, 4);
2721 end;
2722 WEAPON_BSP_FIRE:
2723 begin
2724 g_Frames_Get(dw, 'FRAMES_WEAPON_BSPFIRE');
2725 Shots[i].Animation := TAnimation.Create(dw, True, 4);
2726 end;
2727 WEAPON_CACO_FIRE:
2728 begin
2729 g_Frames_Get(dw, 'FRAMES_WEAPON_CACOFIRE');
2730 Shots[i].Animation := TAnimation.Create(dw, True, 4);
2731 end;
2732 WEAPON_BARON_FIRE:
2733 begin
2734 g_Frames_Get(dw, 'FRAMES_WEAPON_BARONFIRE');
2735 Shots[i].Animation := TAnimation.Create(dw, True, 4);
2736 end;
2737 WEAPON_MANCUB_FIRE:
2738 begin
2739 g_Frames_Get(dw, 'FRAMES_WEAPON_MANCUBFIRE');
2740 Shots[i].Animation := TAnimation.Create(dw, True, 4);
2741 end;
2742 end;
2743 end;
2744 end;
2745
2746 procedure g_Weapon_DestroyShot(I: Integer; X, Y: Integer; Loud: Boolean = True);
2747 var
2748 cx, cy: Integer;
2749 Anim: TAnimation;
2750 s: string;
2751 begin
2752 if Shots = nil then
2753 Exit;
2754 if (I > High(Shots)) or (I < 0) then Exit;
2755
2756 with Shots[I] do
2757 begin
2758 if ShotType = 0 then Exit;
2759 Obj.X := X;
2760 Obj.Y := Y;
2761 cx := Obj.X + (Obj.Rect.Width div 2);
2762 cy := Obj.Y + (Obj.Rect.Height div 2);
2763
2764 case ShotType of
2765 WEAPON_ROCKETLAUNCHER, WEAPON_SKEL_FIRE: // Ðàêåòû è ñíàðÿäû Ñêåëåòà
2766 begin
2767 if Loud then
2768 begin
2769 if ShotType = WEAPON_SKEL_FIRE then
2770 begin // Âçðûâ ñíàðÿäà Ñêåëåòà
2771 if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_SKELFIRE') then
2772 begin
2773 Anim := TAnimation.Create(TextureID, False, 8);
2774 Anim.Blending := False;
2775 g_GFX_OnceAnim((Obj.X+32)-32, (Obj.Y+8)-32, Anim);
2776 Anim.Free();
2777 end;
2778 end
2779 else
2780 begin // Âçðûâ Ðàêåòû
2781 if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_ROCKET') then
2782 begin
2783 Anim := TAnimation.Create(TextureID, False, 6);
2784 Anim.Blending := False;
2785 g_GFX_OnceAnim(cx-64, cy-64, Anim);
2786 Anim.Free();
2787 end;
2788 end;
2789 g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEROCKET', Obj.X, Obj.Y);
2790 end;
2791 end;
2792
2793 WEAPON_PLASMA, WEAPON_BSP_FIRE: // Ïëàçìà, ïëàçìà Àðàõíàòðîíà
2794 begin
2795 if ShotType = WEAPON_PLASMA then
2796 s := 'FRAMES_EXPLODE_PLASMA'
2797 else
2798 s := 'FRAMES_EXPLODE_BSPFIRE';
2799
2800 if g_Frames_Get(TextureID, s) and loud then
2801 begin
2802 Anim := TAnimation.Create(TextureID, False, 3);
2803 Anim.Blending := False;
2804 g_GFX_OnceAnim(cx-16, cy-16, Anim);
2805 Anim.Free();
2806
2807 g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEPLASMA', Obj.X, Obj.Y);
2808 end;
2809 end;
2810
2811 WEAPON_BFG: // BFG
2812 begin
2813 // Âçðûâ BFG:
2814 if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_BFG') and Loud then
2815 begin
2816 Anim := TAnimation.Create(TextureID, False, 6);
2817 Anim.Blending := False;
2818 g_GFX_OnceAnim(cx-64, cy-64, Anim);
2819 Anim.Free();
2820
2821 g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBFG', Obj.X, Obj.Y);
2822 end;
2823 end;
2824
2825 WEAPON_IMP_FIRE, WEAPON_CACO_FIRE, WEAPON_BARON_FIRE: // Âûñòðåëû Áåñà, Êàêîäåìîíà Ðûöàðÿ/Áàðîíà àäà
2826 begin
2827 if ShotType = WEAPON_IMP_FIRE then
2828 s := 'FRAMES_EXPLODE_IMPFIRE'
2829 else
2830 if ShotType = WEAPON_CACO_FIRE then
2831 s := 'FRAMES_EXPLODE_CACOFIRE'
2832 else
2833 s := 'FRAMES_EXPLODE_BARONFIRE';
2834
2835 if g_Frames_Get(TextureID, s) and Loud then
2836 begin
2837 Anim := TAnimation.Create(TextureID, False, 6);
2838 Anim.Blending := False;
2839 g_GFX_OnceAnim(cx-32, cy-32, Anim);
2840 Anim.Free();
2841
2842 g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBALL', Obj.X, Obj.Y);
2843 end;
2844 end;
2845
2846 WEAPON_MANCUB_FIRE: // Âûñòðåë Ìàíêóáóñà
2847 begin
2848 if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_ROCKET') and Loud then
2849 begin
2850 Anim := TAnimation.Create(TextureID, False, 6);
2851 Anim.Blending := False;
2852 g_GFX_OnceAnim(cx-64, cy-64, Anim);
2853 Anim.Free();
2854
2855 g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBALL', Obj.X, Obj.Y);
2856 end;
2857 end;
2858 end; // case ShotType of...
2859
2860 ShotType := 0;
2861 Animation.Free();
2862 end;
2863 end;
2864
2865
2866 procedure g_Weapon_AddDynLights();
2867 var
2868 i: Integer;
2869 begin
2870 if Shots = nil then Exit;
2871 for i := 0 to High(Shots) do
2872 begin
2873 if Shots[i].ShotType = 0 then continue;
2874 if (Shots[i].ShotType = WEAPON_ROCKETLAUNCHER) or
2875 (Shots[i].ShotType = WEAPON_BARON_FIRE) or
2876 (Shots[i].ShotType = WEAPON_MANCUB_FIRE) or
2877 (Shots[i].ShotType = WEAPON_SKEL_FIRE) or
2878 (Shots[i].ShotType = WEAPON_IMP_FIRE) or
2879 (Shots[i].ShotType = WEAPON_CACO_FIRE) or
2880 (Shots[i].ShotType = WEAPON_MANCUB_FIRE) or
2881 (Shots[i].ShotType = WEAPON_BSP_FIRE) or
2882 (Shots[i].ShotType = WEAPON_PLASMA) or
2883 (Shots[i].ShotType = WEAPON_BFG) or
2884 (Shots[i].ShotType = WEAPON_FLAMETHROWER) or
2885 false then
2886 begin
2887 if (Shots[i].ShotType = WEAPON_PLASMA) then
2888 g_AddDynLight(Shots[i].Obj.X+(Shots[i].Obj.Rect.Width div 2), Shots[i].Obj.Y+(Shots[i].Obj.Rect.Height div 2), 128, 0, 0.3, 1, 0.4)
2889 else if (Shots[i].ShotType = WEAPON_BFG) then
2890 g_AddDynLight(Shots[i].Obj.X+(Shots[i].Obj.Rect.Width div 2), Shots[i].Obj.Y+(Shots[i].Obj.Rect.Height div 2), 128, 0, 1, 0, 0.5)
2891 else if (Shots[i].ShotType = WEAPON_FLAMETHROWER) then
2892 g_AddDynLight(Shots[i].Obj.X+(Shots[i].Obj.Rect.Width div 2), Shots[i].Obj.Y+(Shots[i].Obj.Rect.Height div 2), 42, 1, 0.8, 0, 0.4)
2893 else
2894 g_AddDynLight(Shots[i].Obj.X+(Shots[i].Obj.Rect.Width div 2), Shots[i].Obj.Y+(Shots[i].Obj.Rect.Height div 2), 128, 1, 0, 0, 0.4);
2895 end;
2896 end;
2897 end;
2898
2899
2900 procedure TShot.positionChanged (); begin end;
2901
2902
2903 end.
[MIRROR] a port of Doom 2D Forever to FPC/SDL
[25/02/2024 19:55:35]
DEADSOFTWARE 2012-2024