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, either version 3 of the License, or
   6  * (at your option) any later version.
   7  *
   8  * This program is distributed in the hope that it will be useful,
   9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11  * GNU General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU General Public License
  14  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15  *)
  16 {$INCLUDE ../shared/a_modes.inc}
  17 {.$DEFINE GWEP_HITSCAN_TRACE_BITMAP_CHECKER}
  18 unit g_weapons;
  19
  20 interface
  21
  22 uses
  23   SysUtils, Classes, mempool,
  24   g_textures, g_basic, e_graphics, g_phys, xprofiler;
  25
  26
  27 type
  28   TShot = record
  29     ShotType: Byte;
  30     Target: Word;
  31     SpawnerUID: Word;
  32     Triggers: DWArray;
  33     Obj: TObj;
  34     Animation: TAnimation;
  35     TextureID: DWORD;
  36     Timeout: DWORD;
  37     Stopped: Byte;
  38
  39     procedure positionChanged (); //WARNING! call this after monster position was changed, or coldet will not work right!
  40   end;
  41
  42
  43 var
  44   Shots: array of TShot = nil;
  45   LastShotID: Integer = 0;
  46
  47 procedure g_Weapon_LoadData();
  48 procedure g_Weapon_FreeData();
  49 procedure g_Weapon_Init();
  50 procedure g_Weapon_Free();
  51 function g_Weapon_Hit(obj: PObj; d: Integer; SpawnerUID: Word; t: Byte; HitCorpses: Boolean = True): Byte;
  52 function g_Weapon_HitUID(UID: Word; d: Integer; SpawnerUID: Word; t: Byte): Boolean;
  53 function g_Weapon_CreateShot(I: Integer; ShotType: Byte; Spawner, TargetUID: Word; X, Y, XV, YV: Integer): LongWord;
  54
  55 procedure g_Weapon_gun(const x, y, xd, yd, v, dmg: Integer; SpawnerUID: Word; CheckTrigger: Boolean);
  56 procedure g_Weapon_punch(x, y: Integer; d, SpawnerUID: Word);
  57 function g_Weapon_chainsaw(x, y: Integer; d, SpawnerUID: Word): Integer;
  58 procedure g_Weapon_rocket(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
  59 procedure g_Weapon_revf(x, y, xd, yd: Integer; SpawnerUID, TargetUID: Word; WID: Integer = -1; Silent: Boolean = False);
  60 procedure g_Weapon_flame(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
  61 procedure g_Weapon_plasma(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
  62 procedure g_Weapon_ball1(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
  63 procedure g_Weapon_ball2(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
  64 procedure g_Weapon_ball7(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
  65 procedure g_Weapon_aplasma(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
  66 procedure g_Weapon_manfire(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
  67 procedure g_Weapon_bfgshot(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
  68 procedure g_Weapon_bfghit(x, y: Integer);
  69 procedure g_Weapon_pistol(x, y, xd, yd: Integer; SpawnerUID: Word; Silent: Boolean = False);
  70 procedure g_Weapon_mgun(x, y, xd, yd: Integer; SpawnerUID: Word; Silent: Boolean = False);
  71 procedure g_Weapon_shotgun(x, y, xd, yd: Integer; SpawnerUID: Word; Silent: Boolean = False);
  72 procedure g_Weapon_dshotgun(x, y, xd, yd: Integer; SpawnerUID: Word; Silent: Boolean = False);
  73
  74 function g_Weapon_Explode(X, Y: Integer; rad: Integer; SpawnerUID: Word): Boolean;
  75 procedure g_Weapon_BFG9000(X, Y: Integer; SpawnerUID: Word);
  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 := True;
 466     if t = HIT_FLAME then
 467       m.CatchFire(SpawnerUID);
 468   end
 469   else
 470     Result := True;
 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, 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.X := X;
 742   Shots[find_id].Obj.Y := Y;
 743   Shots[find_id].Obj.Vel.X := XV;
 744   Shots[find_id].Obj.Vel.Y := YV;
 745   Shots[find_id].Obj.Accel.X := 0;
 746   Shots[find_id].Obj.Accel.Y := 0;
 747   Shots[find_id].SpawnerUID := Spawner;
 748   if (ShotType = WEAPON_FLAMETHROWER) and (XV = 0) and (YV = 0) then
 749     Shots[find_id].Stopped := 255
 750   else
 751     Shots[find_id].Stopped := 0;
 752   Result := find_id;
 753 end;
 754
 755 procedure throw(i, x, y, xd, yd, s: Integer);
 756 var
 757   a: Integer;
 758 begin
 759   yd := yd - y;
 760   xd := xd - x;
 761
 762   a := Max(Abs(xd), Abs(yd));
 763   if a = 0 then
 764     a := 1;
 765
 766   Shots[i].Obj.X := x;
 767   Shots[i].Obj.Y := y;
 768   Shots[i].Obj.Vel.X := (xd*s) div a;
 769   Shots[i].Obj.Vel.Y := (yd*s) div a;
 770   Shots[i].Obj.Accel.X := 0;
 771   Shots[i].Obj.Accel.Y := 0;
 772   Shots[i].Stopped := 0;
 773   if Shots[i].ShotType in [WEAPON_ROCKETLAUNCHER, WEAPON_BFG] then
 774     Shots[i].Timeout := 900 // ~25 sec
 775   else
 776   begin
 777     if Shots[i].ShotType = WEAPON_FLAMETHROWER then
 778       Shots[i].Timeout := SHOT_FLAME_LIFETIME
 779     else
 780       Shots[i].Timeout := 550; // ~15 sec
 781   end;
 782 end;
 783
 784 function g_Weapon_Hit(obj: PObj; d: Integer; SpawnerUID: Word; t: Byte; HitCorpses: Boolean = True): Byte;
 785 var
 786   i, h: Integer;
 787
 788   function PlayerHit(Team: Byte = 0): Boolean;
 789   var
 790     i: Integer;
 791     ChkTeam: Boolean;
 792     p: TPlayer;
 793   begin
 794     Result := False;
 795     h := High(gPlayers);
 796
 797     if h <> -1 then
 798       for i := 0 to h do
 799         if (gPlayers[i] <> nil) and gPlayers[i].alive and g_Obj_Collide(obj, @gPlayers[i].Obj) then
 800         begin
 801           ChkTeam := True;
 802           if (Team > 0) and (g_GetUIDType(SpawnerUID) = UID_PLAYER) then
 803           begin
 804             p := g_Player_Get(SpawnerUID);
 805             if p <> nil then
 806               ChkTeam := (p.Team = gPlayers[i].Team) xor (Team = 2);
 807           end;
 808           if ChkTeam then
 809             if HitPlayer(gPlayers[i], d, obj^.Vel.X, obj^.Vel.Y, SpawnerUID, t) then
 810             begin
 811               if t <> HIT_FLAME then
 812                 gPlayers[i].Push((obj^.Vel.X+obj^.Accel.X)*IfThen(t = HIT_BFG, 8, 1) div 4,
 813                                  (obj^.Vel.Y+obj^.Accel.Y)*IfThen(t = HIT_BFG, 8, 1) div 4);
 814               if t = HIT_BFG then
 815                 g_Game_DelayEvent(DE_BFGHIT, 1000, SpawnerUID);
 816               Result := True;
 817               break;
 818             end;
 819         end;
 820   end;
 821
 822   {
 823   function monsCheckHit (monidx: Integer; mon: TMonster): Boolean;
 824   begin
 825     result := false; // don't stop
 826     if mon.alive and g_Obj_Collide(obj, @mon.Obj) then
 827     begin
 828       if HitMonster(mon, d, obj^.Vel.X, obj^.Vel.Y, SpawnerUID, t) then
 829       begin
 830         if (t <> HIT_FLAME) then
 831         begin
 832           mon.Push((obj^.Vel.X+obj^.Accel.X)*IfThen(t = HIT_BFG, 8, 1) div 4,
 833                               (obj^.Vel.Y+obj^.Accel.Y)*IfThen(t = HIT_BFG, 8, 1) div 4);
 834         end;
 835         result := True;
 836       end;
 837     end;
 838   end;
 839   }
 840
 841   function monsCheckHit (mon: TMonster): Boolean;
 842   begin
 843     result := false; // don't stop
 844     if HitMonster(mon, d, obj.Vel.X, obj.Vel.Y, SpawnerUID, t) then
 845     begin
 846       if (t <> HIT_FLAME) then
 847       begin
 848         mon.Push((obj.Vel.X+obj.Accel.X)*IfThen(t = HIT_BFG, 8, 1) div 4,
 849                  (obj.Vel.Y+obj.Accel.Y)*IfThen(t = HIT_BFG, 8, 1) div 4);
 850       end;
 851       result := true;
 852     end;
 853   end;
 854
 855   function MonsterHit(): Boolean;
 856   begin
 857     //result := g_Mons_ForEach(monsCheckHit);
 858     //FIXME: accelerate this!
 859     result := g_Mons_ForEachAliveAt(obj.X+obj.Rect.X, obj.Y+obj.Rect.Y, obj.Rect.Width, obj.Rect.Height, monsCheckHit);
 860   end;
 861
 862 begin
 863   Result := 0;
 864
 865   if HitCorpses then
 866   begin
 867     h := High(gCorpses);
 868
 869     if gAdvCorpses and (h <> -1) then
 870       for i := 0 to h do
 871         if (gCorpses[i] <> nil) and (gCorpses[i].State <> CORPSE_STATE_REMOVEME) and
 872            g_Obj_Collide(obj, @gCorpses[i].Obj) then
 873         begin
 874           // Ðàñïèëèâàåì òðóï:
 875           gCorpses[i].Damage(d, (obj^.Vel.X+obj^.Accel.X) div 4,
 876                                 (obj^.Vel.Y+obj^.Accel.Y) div 4);
 877           Result := 1;
 878         end;
 879   end;
 880
 881   case gGameSettings.GameMode of
 882     // Êàìïàíèÿ:
 883     GM_COOP, GM_SINGLE:
 884     begin
 885       // Ñíà÷àëà áü¸ì ìîíñòðîâ, åñëè åñòü, ïîòîì ïûòàåìñÿ áèòü èãðîêîâ
 886       if MonsterHit() then
 887       begin
 888         Result := 2;
 889         Exit;
 890       end;
 891
 892       if PlayerHit() then
 893       begin
 894         Result := 1;
 895         Exit;
 896       end;
 897     end;
 898
 899     // Äåçìàò÷:
 900     GM_DM:
 901     begin
 902       // Ñíà÷àëà áü¸ì èãðîêîâ, åñëè åñòü, ïîòîì ïûòàåìñÿ áèòü ìîíñòðîâ
 903       if PlayerHit() then
 904       begin
 905         Result := 1;
 906         Exit;
 907       end;
 908
 909       if MonsterHit() then
 910       begin
 911         Result := 2;
 912         Exit;
 913       end;
 914     end;
 915
 916     // Êîìàíäíûå:
 917     GM_TDM, GM_CTF:
 918     begin
 919       // Ñíà÷àëà áü¸ì èãðîêîâ êîìàíäû ñîïåðíèêà
 920       if PlayerHit(2) then
 921       begin
 922         Result := 1;
 923         Exit;
 924       end;
 925
 926       // Ïîòîì ìîíñòðîâ
 927       if MonsterHit() then
 928       begin
 929         Result := 2;
 930         Exit;
 931       end;
 932
 933       // È â êîíöå ñâîèõ èãðîêîâ
 934       if PlayerHit(1) then
 935       begin
 936         Result := 1;
 937         Exit;
 938       end;
 939     end;
 940
 941   end;
 942 end;
 943
 944 function g_Weapon_HitUID(UID: Word; d: Integer; SpawnerUID: Word; t: Byte): Boolean;
 945 begin
 946   Result := False;
 947
 948   case g_GetUIDType(UID) of
 949     UID_PLAYER: Result := HitPlayer(g_Player_Get(UID), d, 0, 0, SpawnerUID, t);
 950     UID_MONSTER: Result := HitMonster(g_Monsters_ByUID(UID), d, 0, 0, SpawnerUID, t);
 951     else Exit;
 952   end;
 953 end;
 954
 955 function g_Weapon_Explode(X, Y: Integer; rad: Integer; SpawnerUID: Word): Boolean;
 956 var
 957   r: Integer; // squared radius
 958
 959   function monsExCheck (mon: TMonster): Boolean;
 960   var
 961     dx, dy, mm: Integer;
 962   begin
 963     result := false; // don't stop
 964     begin
 965       dx := mon.Obj.X+mon.Obj.Rect.X+(mon.Obj.Rect.Width div 2)-X;
 966       dy := mon.Obj.Y+mon.Obj.Rect.Y+(mon.Obj.Rect.Height div 2)-Y;
 967
 968       if dx > 1000 then dx := 1000;
 969       if dy > 1000 then dy := 1000;
 970
 971       if (dx*dx+dy*dy < r) then
 972       begin
 973         //m := PointToRect(X, Y, Obj.X+Obj.Rect.X, Obj.Y+Obj.Rect.Y, Obj.Rect.Width, Obj.Rect.Height);
 974         //e_WriteLog(Format('explo monster #%d: x=%d; y=%d; rad=%d; dx=%d; dy=%d', [monidx, X, Y, rad, dx, dy]), MSG_NOTIFY);
 975
 976         mm := Max(abs(dx), abs(dy));
 977         if mm = 0 then mm := 1;
 978
 979         if mon.alive then
 980         begin
 981           HitMonster(mon, ((mon.Obj.Rect.Width div 4)*10*(rad-mm)) div rad, 0, 0, SpawnerUID, HIT_ROCKET);
 982         end;
 983
 984         mon.Push((dx*7) div mm, (dy*7) div mm);
 985       end;
 986     end;
 987   end;
 988
 989 var
 990   i, h, dx, dy, m, mm: Integer;
 991   _angle: SmallInt;
 992 begin
 993   result := false;
 994
 995   g_Triggers_PressC(X, Y, rad, SpawnerUID, ACTIVATE_SHOT);
 996
 997   r := rad*rad;
 998
 999   h := High(gPlayers);
1000
1001   if h <> -1 then
1002     for i := 0 to h do
1003       if (gPlayers[i] <> nil) and gPlayers[i].alive then
1004         with gPlayers[i] do
1005         begin
1006           dx := Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2)-X;
1007           dy := Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)-Y;
1008
1009           if dx > 1000 then dx := 1000;
1010           if dy > 1000 then dy := 1000;
1011
1012           if dx*dx+dy*dy < r then
1013           begin
1014             //m := PointToRect(X, Y, GameX+PLAYER_RECT.X, GameY+PLAYER_RECT.Y,
1015             //                 PLAYER_RECT.Width, PLAYER_RECT.Height);
1016
1017             mm := Max(abs(dx), abs(dy));
1018             if mm = 0 then mm := 1;
1019
1020             HitPlayer(gPlayers[i], (100*(rad-mm)) div rad, (dx*10) div mm, (dy*10) div mm, SpawnerUID, HIT_ROCKET);
1021             gPlayers[i].Push((dx*7) div mm, (dy*7) div mm);
1022           end;
1023         end;
1024
1025   //g_Mons_ForEach(monsExCheck);
1026   g_Mons_ForEachAt(X-(rad+32), Y-(rad+32), (rad+32)*2, (rad+32)*2, monsExCheck);
1027
1028   h := High(gCorpses);
1029
1030   if gAdvCorpses and (h <> -1) then
1031     for i := 0 to h do
1032       if (gCorpses[i] <> nil) and (gCorpses[i].State <> CORPSE_STATE_REMOVEME) then
1033         with gCorpses[i] do
1034         begin
1035           dx := Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2)-X;
1036           dy := Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)-Y;
1037
1038           if dx > 1000 then dx := 1000;
1039           if dy > 1000 then dy := 1000;
1040
1041           if dx*dx+dy*dy < r then
1042           begin
1043             m := PointToRect(X, Y, Obj.X+Obj.Rect.X, Obj.Y+Obj.Rect.Y,
1044                              Obj.Rect.Width, Obj.Rect.Height);
1045
1046             mm := Max(abs(dx), abs(dy));
1047             if mm = 0 then mm := 1;
1048
1049             Damage(Round(100*(rad-m)/rad), (dx*10) div mm, (dy*10) div mm);
1050           end;
1051         end;
1052
1053   h := High(gGibs);
1054
1055   if gAdvGibs and (h <> -1) then
1056     for i := 0 to h do
1057       if gGibs[i].alive then
1058         with gGibs[i] do
1059         begin
1060           dx := Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2)-X;
1061           dy := Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)-Y;
1062
1063           if dx > 1000 then dx := 1000;
1064           if dy > 1000 then dy := 1000;
1065
1066           if dx*dx+dy*dy < r then
1067           begin
1068             m := PointToRect(X, Y, Obj.X+Obj.Rect.X, Obj.Y+Obj.Rect.Y,
1069                              Obj.Rect.Width, Obj.Rect.Height);
1070             _angle := GetAngle(Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2),
1071                                Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2), X, Y);
1072
1073             g_Obj_PushA(@Obj, Round(15*(rad-m)/rad), _angle);
1074             positionChanged(); // this updates spatial accelerators
1075           end;
1076         end;
1077 end;
1078
1079 procedure g_Weapon_Init();
1080 begin
1081   CreateWaterMap();
1082 end;
1083
1084 procedure g_Weapon_Free();
1085 var
1086   i: Integer;
1087 begin
1088   if Shots <> nil then
1089   begin
1090     for i := 0 to High(Shots) do
1091       if Shots[i].ShotType <> 0 then
1092         Shots[i].Animation.Free();
1093
1094     Shots := nil;
1095   end;
1096
1097   WaterMap := nil;
1098 end;
1099
1100 procedure g_Weapon_LoadData();
1101 begin
1102   e_WriteLog('Loading weapons data...', TMsgType.Notify);
1103
1104   g_Sound_CreateWADEx('SOUND_WEAPON_HITPUNCH', GameWAD+':SOUNDS\HITPUNCH');
1105   g_Sound_CreateWADEx('SOUND_WEAPON_MISSPUNCH', GameWAD+':SOUNDS\MISSPUNCH');
1106   g_Sound_CreateWADEx('SOUND_WEAPON_HITBERSERK', GameWAD+':SOUNDS\HITBERSERK');
1107   g_Sound_CreateWADEx('SOUND_WEAPON_MISSBERSERK', GameWAD+':SOUNDS\MISSBERSERK');
1108   g_Sound_CreateWADEx('SOUND_WEAPON_SELECTSAW', GameWAD+':SOUNDS\SELECTSAW');
1109   g_Sound_CreateWADEx('SOUND_WEAPON_IDLESAW', GameWAD+':SOUNDS\IDLESAW');
1110   g_Sound_CreateWADEx('SOUND_WEAPON_HITSAW', GameWAD+':SOUNDS\HITSAW');
1111   g_Sound_CreateWADEx('SOUND_WEAPON_FIRESHOTGUN2', GameWAD+':SOUNDS\FIRESHOTGUN2');
1112   g_Sound_CreateWADEx('SOUND_WEAPON_FIRESHOTGUN', GameWAD+':SOUNDS\FIRESHOTGUN');
1113   g_Sound_CreateWADEx('SOUND_WEAPON_FIRESAW', GameWAD+':SOUNDS\FIRESAW');
1114   g_Sound_CreateWADEx('SOUND_WEAPON_FIREROCKET', GameWAD+':SOUNDS\FIREROCKET');
1115   g_Sound_CreateWADEx('SOUND_WEAPON_FIREPLASMA', GameWAD+':SOUNDS\FIREPLASMA');
1116   g_Sound_CreateWADEx('SOUND_WEAPON_FIREPISTOL', GameWAD+':SOUNDS\FIREPISTOL');
1117   g_Sound_CreateWADEx('SOUND_WEAPON_FIRECGUN', GameWAD+':SOUNDS\FIRECGUN');
1118   g_Sound_CreateWADEx('SOUND_WEAPON_FIREBFG', GameWAD+':SOUNDS\FIREBFG');
1119   g_Sound_CreateWADEx('SOUND_FIRE', GameWAD+':SOUNDS\FIRE');
1120   g_Sound_CreateWADEx('SOUND_IGNITE', GameWAD+':SOUNDS\IGNITE');
1121   g_Sound_CreateWADEx('SOUND_WEAPON_STARTFIREBFG', GameWAD+':SOUNDS\STARTFIREBFG');
1122   g_Sound_CreateWADEx('SOUND_WEAPON_EXPLODEROCKET', GameWAD+':SOUNDS\EXPLODEROCKET');
1123   g_Sound_CreateWADEx('SOUND_WEAPON_EXPLODEBFG', GameWAD+':SOUNDS\EXPLODEBFG');
1124   g_Sound_CreateWADEx('SOUND_WEAPON_BFGWATER', GameWAD+':SOUNDS\BFGWATER');
1125   g_Sound_CreateWADEx('SOUND_WEAPON_EXPLODEPLASMA', GameWAD+':SOUNDS\EXPLODEPLASMA');
1126   g_Sound_CreateWADEx('SOUND_WEAPON_PLASMAWATER', GameWAD+':SOUNDS\PLASMAWATER');
1127   g_Sound_CreateWADEx('SOUND_WEAPON_FIREBALL', GameWAD+':SOUNDS\FIREBALL');
1128   g_Sound_CreateWADEx('SOUND_WEAPON_EXPLODEBALL', GameWAD+':SOUNDS\EXPLODEBALL');
1129   g_Sound_CreateWADEx('SOUND_WEAPON_FIREREV', GameWAD+':SOUNDS\FIREREV');
1130   g_Sound_CreateWADEx('SOUND_WEAPON_FLAMEON', GameWAD+':SOUNDS\STARTFLM');
1131   g_Sound_CreateWADEx('SOUND_WEAPON_FLAMEOFF', GameWAD+':SOUNDS\STOPFLM');
1132   g_Sound_CreateWADEx('SOUND_WEAPON_FLAMEWORK', GameWAD+':SOUNDS\WORKFLM');
1133   g_Sound_CreateWADEx('SOUND_PLAYER_JETFLY', GameWAD+':SOUNDS\WORKJETPACK');
1134   g_Sound_CreateWADEx('SOUND_PLAYER_JETON', GameWAD+':SOUNDS\STARTJETPACK');
1135   g_Sound_CreateWADEx('SOUND_PLAYER_JETOFF', GameWAD+':SOUNDS\STOPJETPACK');
1136   g_Sound_CreateWADEx('SOUND_PLAYER_CASING1', GameWAD+':SOUNDS\CASING1');
1137   g_Sound_CreateWADEx('SOUND_PLAYER_CASING2', GameWAD+':SOUNDS\CASING2');
1138   g_Sound_CreateWADEx('SOUND_PLAYER_SHELL1', GameWAD+':SOUNDS\SHELL1');
1139   g_Sound_CreateWADEx('SOUND_PLAYER_SHELL2', GameWAD+':SOUNDS\SHELL2');
1140
1141   g_Texture_CreateWADEx('TEXTURE_WEAPON_ROCKET', GameWAD+':TEXTURES\BROCKET');
1142   g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_SKELFIRE', GameWAD+':TEXTURES\BSKELFIRE', 64, 16, 2);
1143   g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_BFG', GameWAD+':TEXTURES\BBFG', 64, 64, 2);
1144   g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_PLASMA', GameWAD+':TEXTURES\BPLASMA', 16, 16, 2);
1145   g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_IMPFIRE', GameWAD+':TEXTURES\BIMPFIRE', 16, 16, 2);
1146   g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_BSPFIRE', GameWAD+':TEXTURES\BBSPFIRE', 16, 16, 2);
1147   g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_CACOFIRE', GameWAD+':TEXTURES\BCACOFIRE', 16, 16, 2);
1148   g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_BARONFIRE', GameWAD+':TEXTURES\BBARONFIRE', 64, 16, 2);
1149   g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_MANCUBFIRE', GameWAD+':TEXTURES\BMANCUBFIRE', 64, 32, 2);
1150   g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_ROCKET', GameWAD+':TEXTURES\EROCKET', 128, 128, 6);
1151   g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_SKELFIRE', GameWAD+':TEXTURES\ESKELFIRE', 64, 64, 3);
1152   g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_BFG', GameWAD+':TEXTURES\EBFG', 128, 128, 6);
1153   g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_IMPFIRE', GameWAD+':TEXTURES\EIMPFIRE', 64, 64, 3);
1154   g_Frames_CreateWAD(nil, 'FRAMES_BFGHIT', GameWAD+':TEXTURES\BFGHIT', 64, 64, 4);
1155   g_Frames_CreateWAD(nil, 'FRAMES_FIRE', GameWAD+':TEXTURES\FIRE', 64, 128, 8);
1156   g_Frames_CreateWAD(nil, 'FRAMES_FLAME', GameWAD+':TEXTURES\FLAME', 32, 32, 11);
1157   g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_PLASMA', GameWAD+':TEXTURES\EPLASMA', 32, 32, 4, True);
1158   g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_BSPFIRE', GameWAD+':TEXTURES\EBSPFIRE', 32, 32, 5);
1159   g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_CACOFIRE', GameWAD+':TEXTURES\ECACOFIRE', 64, 64, 3);
1160   g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_BARONFIRE', GameWAD+':TEXTURES\EBARONFIRE', 64, 64, 3);
1161   g_Frames_CreateWAD(nil, 'FRAMES_SMOKE', GameWAD+':TEXTURES\SMOKE', 32, 32, 10, False);
1162
1163   g_Texture_CreateWADEx('TEXTURE_SHELL_BULLET', GameWAD+':TEXTURES\EBULLET');
1164   g_Texture_CreateWADEx('TEXTURE_SHELL_SHELL', GameWAD+':TEXTURES\ESHELL');
1165
1166   //wgunMonHash := hashNewIntInt();
1167   wgunHitHeap := TBinaryHeapHitTimes.Create();
1168 end;
1169
1170 procedure g_Weapon_FreeData();
1171 begin
1172   e_WriteLog('Releasing weapons data...', TMsgType.Notify);
1173
1174   g_Sound_Delete('SOUND_WEAPON_HITPUNCH');
1175   g_Sound_Delete('SOUND_WEAPON_MISSPUNCH');
1176   g_Sound_Delete('SOUND_WEAPON_HITBERSERK');
1177   g_Sound_Delete('SOUND_WEAPON_MISSBERSERK');
1178   g_Sound_Delete('SOUND_WEAPON_SELECTSAW');
1179   g_Sound_Delete('SOUND_WEAPON_IDLESAW');
1180   g_Sound_Delete('SOUND_WEAPON_HITSAW');
1181   g_Sound_Delete('SOUND_WEAPON_FIRESHOTGUN2');
1182   g_Sound_Delete('SOUND_WEAPON_FIRESHOTGUN');
1183   g_Sound_Delete('SOUND_WEAPON_FIRESAW');
1184   g_Sound_Delete('SOUND_WEAPON_FIREROCKET');
1185   g_Sound_Delete('SOUND_WEAPON_FIREPLASMA');
1186   g_Sound_Delete('SOUND_WEAPON_FIREPISTOL');
1187   g_Sound_Delete('SOUND_WEAPON_FIRECGUN');
1188   g_Sound_Delete('SOUND_WEAPON_FIREBFG');
1189   g_Sound_Delete('SOUND_FIRE');
1190   g_Sound_Delete('SOUND_IGNITE');
1191   g_Sound_Delete('SOUND_WEAPON_STARTFIREBFG');
1192   g_Sound_Delete('SOUND_WEAPON_EXPLODEROCKET');
1193   g_Sound_Delete('SOUND_WEAPON_EXPLODEBFG');
1194   g_Sound_Delete('SOUND_WEAPON_BFGWATER');
1195   g_Sound_Delete('SOUND_WEAPON_EXPLODEPLASMA');
1196   g_Sound_Delete('SOUND_WEAPON_PLASMAWATER');
1197   g_Sound_Delete('SOUND_WEAPON_FIREBALL');
1198   g_Sound_Delete('SOUND_WEAPON_EXPLODEBALL');
1199   g_Sound_Delete('SOUND_WEAPON_FIREREV');
1200   g_Sound_Delete('SOUND_WEAPON_FLAMEON');
1201   g_Sound_Delete('SOUND_WEAPON_FLAMEOFF');
1202   g_Sound_Delete('SOUND_WEAPON_FLAMEWORK');
1203   g_Sound_Delete('SOUND_PLAYER_JETFLY');
1204   g_Sound_Delete('SOUND_PLAYER_JETON');
1205   g_Sound_Delete('SOUND_PLAYER_JETOFF');
1206   g_Sound_Delete('SOUND_PLAYER_CASING1');
1207   g_Sound_Delete('SOUND_PLAYER_CASING2');
1208   g_Sound_Delete('SOUND_PLAYER_SHELL1');
1209   g_Sound_Delete('SOUND_PLAYER_SHELL2');
1210
1211   g_Texture_Delete('TEXTURE_WEAPON_ROCKET');
1212   g_Frames_DeleteByName('FRAMES_WEAPON_BFG');
1213   g_Frames_DeleteByName('FRAMES_WEAPON_PLASMA');
1214   g_Frames_DeleteByName('FRAMES_WEAPON_IMPFIRE');
1215   g_Frames_DeleteByName('FRAMES_WEAPON_BSPFIRE');
1216   g_Frames_DeleteByName('FRAMES_WEAPON_CACOFIRE');
1217   g_Frames_DeleteByName('FRAMES_WEAPON_MANCUBFIRE');
1218   g_Frames_DeleteByName('FRAMES_EXPLODE_ROCKET');
1219   g_Frames_DeleteByName('FRAMES_EXPLODE_BFG');
1220   g_Frames_DeleteByName('FRAMES_EXPLODE_IMPFIRE');
1221   g_Frames_DeleteByName('FRAMES_BFGHIT');
1222   g_Frames_DeleteByName('FRAMES_FIRE');
1223   g_Frames_DeleteByName('FRAMES_EXPLODE_PLASMA');
1224   g_Frames_DeleteByName('FRAMES_EXPLODE_BSPFIRE');
1225   g_Frames_DeleteByName('FRAMES_EXPLODE_CACOFIRE');
1226   g_Frames_DeleteByName('FRAMES_SMOKE');
1227   g_Frames_DeleteByName('FRAMES_WEAPON_BARONFIRE');
1228   g_Frames_DeleteByName('FRAMES_EXPLODE_BARONFIRE');
1229 end;
1230
1231
1232 function GunHitPlayer (X, Y: Integer; vx, vy: Integer; dmg: Integer; SpawnerUID: Word; AllowPush: Boolean): Boolean;
1233 var
1234   i: Integer;
1235 begin
1236   result := false;
1237   for i := 0 to High(gPlayers) do
1238   begin
1239     if (gPlayers[i] <> nil) and gPlayers[i].alive and gPlayers[i].Collide(X, Y) then
1240     begin
1241       if HitPlayer(gPlayers[i], dmg, vx*10, vy*10-3, SpawnerUID, HIT_SOME) then
1242       begin
1243         if AllowPush then gPlayers[i].Push(vx, vy);
1244         result := true;
1245       end;
1246     end;
1247   end;
1248 end;
1249
1250
1251 function GunHit (X, Y: Integer; vx, vy: Integer; dmg: Integer; SpawnerUID: Word; AllowPush: Boolean): Byte;
1252
1253   function monsCheck (mon: TMonster): Boolean;
1254   begin
1255     result := false; // don't stop
1256     if HitMonster(mon, dmg, vx*10, vy*10-3, SpawnerUID, HIT_SOME) then
1257     begin
1258       if AllowPush then mon.Push(vx, vy);
1259       result := true;
1260     end;
1261   end;
1262
1263 begin
1264   result := 0;
1265        if GunHitPlayer(X, Y, vx, vy, dmg, SpawnerUID, AllowPush) then result := 1
1266   else if g_Mons_ForEachAliveAt(X, Y, 1, 1, monsCheck) then result := 2;
1267 end;
1268
1269
1270 (*
1271 procedure g_Weapon_gunOld(const x, y, xd, yd, v, dmg: Integer; SpawnerUID: Word; CheckTrigger: Boolean);
1272 var
1273   a: Integer;
1274   x2, y2: Integer;
1275   dx, dy: Integer;
1276   xe, ye: Integer;
1277   xi, yi: Integer;
1278   s, c: Extended;
1279   //vx, vy: Integer;
1280   xx, yy, d: Integer;
1281   i: Integer;
1282   t1, _collide: Boolean;
1283   w, h: Word;
1284   {$IF DEFINED(D2F_DEBUG)}
1285   stt: UInt64;
1286   showTime: Boolean = true;
1287   {$ENDIF}
1288 begin
1289   a := GetAngle(x, y, xd, yd)+180;
1290
1291   SinCos(DegToRad(-a), s, c);
1292
1293   if Abs(s) < 0.01 then s := 0;
1294   if Abs(c) < 0.01 then c := 0;
1295
1296   x2 := x+Round(c*gMapInfo.Width);
1297   y2 := y+Round(s*gMapInfo.Width);
1298
1299   t1 := gWalls <> nil;
1300   _collide := False;
1301   w := gMapInfo.Width;
1302   h := gMapInfo.Height;
1303
1304   xe := 0;
1305   ye := 0;
1306   dx := x2-x;
1307   dy := y2-y;
1308
1309   if (xd = 0) and (yd = 0) then Exit;
1310
1311   if dx > 0 then xi := 1 else if dx < 0 then xi := -1 else xi := 0;
1312   if dy > 0 then yi := 1 else if dy < 0 then yi := -1 else yi := 0;
1313
1314   dx := Abs(dx);
1315   dy := Abs(dy);
1316
1317   if dx > dy then d := dx else d := dy;
1318
1319   //blood vel, for Monster.Damage()
1320   //vx := (dx*10 div d)*xi;
1321   //vy := (dy*10 div d)*yi;
1322
1323   {$IF DEFINED(D2F_DEBUG)}
1324   stt := getTimeMicro();
1325   {$ENDIF}
1326
1327   xx := x;
1328   yy := y;
1329
1330   for i := 1 to d do
1331   begin
1332     xe := xe+dx;
1333     ye := ye+dy;
1334
1335     if xe > d then
1336     begin
1337       xe := xe-d;
1338       xx := xx+xi;
1339     end;
1340
1341     if ye > d then
1342     begin
1343       ye := ye-d;
1344       yy := yy+yi;
1345     end;
1346
1347     if (yy > h) or (yy < 0) then Break;
1348     if (xx > w) or (xx < 0) then Break;
1349
1350     if t1 then
1351       if ByteBool(gCollideMap[yy, xx] and MARK_BLOCKED) then
1352       begin
1353         _collide := True;
1354         {$IF DEFINED(D2F_DEBUG)}
1355         stt := getTimeMicro()-stt;
1356         e_WriteLog(Format('*** old trace time: %u microseconds', [LongWord(stt)]), MSG_NOTIFY);
1357         showTime := false;
1358         {$ENDIF}
1359         g_GFX_Spark(xx-xi, yy-yi, 2+Random(2), 180+a, 0, 0);
1360         if g_Game_IsServer and g_Game_IsNet then
1361           MH_SEND_Effect(xx-xi, yy-yi, 180+a, NET_GFX_SPARK);
1362       end;
1363
1364     if not _collide then
1365     begin
1366       _collide := GunHit(xx, yy, xi*v, yi*v, dmg, SpawnerUID, v <> 0) <> 0;
1367     end;
1368
1369     if _collide then Break;
1370   end;
1371
1372   {$IF DEFINED(D2F_DEBUG)}
1373   if showTime then
1374   begin
1375     stt := getTimeMicro()-stt;
1376     e_WriteLog(Format('*** old trace time: %u microseconds', [LongWord(stt)]), MSG_NOTIFY);
1377   end;
1378   {$ENDIF}
1379
1380   if CheckTrigger and g_Game_IsServer then
1381     g_Triggers_PressL(X, Y, xx-xi, yy-yi, SpawnerUID, ACTIVATE_SHOT);
1382 end;
1383 *)
1384
1385
1386 //!!!FIXME!!!
1387 procedure g_Weapon_gun (const x, y, xd, yd, v, dmg: Integer; SpawnerUID: Word; CheckTrigger: Boolean);
1388 var
1389   x0, y0: Integer;
1390   x2, y2: Integer;
1391   xi, yi: Integer;
1392   wallDistSq: Integer = $3fffffff;
1393
1394   function doPlayerHit (idx: Integer; hx, hy: Integer): Boolean;
1395   begin
1396     result := false;
1397     if (idx < 0) or (idx > High(gPlayers)) then exit;
1398     if (gPlayers[idx] = nil) or not gPlayers[idx].alive then exit;
1399     result := HitPlayer(gPlayers[idx], dmg, (xi*v)*10, (yi*v)*10-3, SpawnerUID, HIT_SOME);
1400     if result and (v <> 0) then gPlayers[idx].Push((xi*v), (yi*v));
1401     {$IF DEFINED(D2F_DEBUG)}
1402     //if result then e_WriteLog(Format('  PLAYER #%d HIT', [idx]), MSG_NOTIFY);
1403     {$ENDIF}
1404   end;
1405
1406   function doMonsterHit (mon: TMonster; hx, hy: Integer): Boolean;
1407   begin
1408     result := false;
1409     if (mon = nil) then exit;
1410     result := HitMonster(mon, dmg, (xi*v)*10, (yi*v)*10-3, SpawnerUID, HIT_SOME);
1411     if result and (v <> 0) then mon.Push((xi*v), (yi*v));
1412     {$IF DEFINED(D2F_DEBUG)}
1413     //if result then e_WriteLog(Format('  MONSTER #%u HIT', [LongWord(mon.UID)]), MSG_NOTIFY);
1414     {$ENDIF}
1415   end;
1416
1417   // collect players along hitray
1418   // return `true` if instant hit was detected
1419   function playerPossibleHit (): Boolean;
1420   var
1421     i: Integer;
1422     px, py, pw, ph: Integer;
1423     inx, iny: Integer;
1424     distSq: Integer;
1425     plr: TPlayer;
1426   begin
1427     result := false;
1428     for i := 0 to High(gPlayers) do
1429     begin
1430       plr := gPlayers[i];
1431       if (plr <> nil) and plr.alive then
1432       begin
1433         plr.getMapBox(px, py, pw, ph);
1434         if lineAABBIntersects(x, y, x2, y2, px, py, pw, ph, inx, iny) then
1435         begin
1436           distSq := distanceSq(x, y, inx, iny);
1437           if (distSq = 0) then
1438           begin
1439             // contains
1440             if doPlayerHit(i, x, y) then begin result := true; exit; end;
1441           end
1442           else if (distSq < wallDistSq) then
1443           begin
1444             appendHitTimePlr(distSq, i, inx, iny);
1445           end;
1446         end;
1447       end;
1448     end;
1449   end;
1450
1451   procedure sqchecker (mon: TMonster);
1452   var
1453     mx, my, mw, mh: Integer;
1454     inx, iny: Integer;
1455     distSq: Integer;
1456   begin
1457     mon.getMapBox(mx, my, mw, mh);
1458     if lineAABBIntersects(x0, y0, x2, y2, mx, my, mw, mh, inx, iny) then
1459     begin
1460       distSq := distanceSq(x0, y0, inx, iny);
1461       if (distSq < wallDistSq) then appendHitTimeMon(distSq, mon, inx, iny);
1462     end;
1463   end;
1464
1465 var
1466   a: Integer;
1467   dx, dy: Integer;
1468   xe, ye: Integer;
1469   s, c: Extended;
1470   i: Integer;
1471   wallHitFlag: Boolean = false;
1472   wallHitX: Integer = 0;
1473   wallHitY: Integer = 0;
1474   didHit: Boolean = false;
1475   {$IF DEFINED(D2F_DEBUG)}
1476   stt: UInt64;
1477   {$ENDIF}
1478   mit: PMonster;
1479   it: TMonsterGrid.Iter;
1480 begin
1481   (*
1482   if not gwep_debug_fast_trace then
1483   begin
1484     g_Weapon_gunOld(x, y, xd, yd, v, dmg, SpawnerUID, CheckTrigger);
1485     exit;
1486   end;
1487   *)
1488
1489   if (xd = 0) and (yd = 0) then exit;
1490
1491   //wgunMonHash.reset(); //FIXME: clear hash on level change
1492   wgunHitHeap.clear();
1493   wgunHitTimeUsed := 0;
1494
1495   a := GetAngle(x, y, xd, yd)+180;
1496
1497   SinCos(DegToRad(-a), s, c);
1498
1499   if Abs(s) < 0.01 then s := 0;
1500   if Abs(c) < 0.01 then c := 0;
1501
1502   x0 := x;
1503   y0 := y;
1504   x2 := x+Round(c*gMapInfo.Width);
1505   y2 := y+Round(s*gMapInfo.Width);
1506
1507   dx := x2-x;
1508   dy := y2-y;
1509
1510   if (dx > 0) then xi := 1 else if (dx < 0) then xi := -1 else xi := 0;
1511   if (dy > 0) then yi := 1 else if (dy < 0) then yi := -1 else yi := 0;
1512
1513   {$IF DEFINED(D2F_DEBUG)}
1514   e_WriteLog(Format('GUN TRACE: (%d,%d) to (%d,%d)', [x, y, x2, y2]), TMsgType.Notify);
1515   stt := getTimeMicro();
1516   {$ENDIF}
1517
1518   wallHitFlag := (g_Map_traceToNearestWall(x, y, x2, y2, @wallHitX, @wallHitY) <> nil);
1519   if wallHitFlag then
1520   begin
1521     x2 := wallHitX;
1522     y2 := wallHitY;
1523     wallDistSq := distanceSq(x, y, wallHitX, wallHitY);
1524   end
1525   else
1526   begin
1527     wallHitX := x2;
1528     wallHitY := y2;
1529   end;
1530
1531   if playerPossibleHit() then exit; // instant hit
1532
1533   // collect monsters
1534   //g_Mons_AlongLine(x, y, x2, y2, sqchecker);
1535
1536   it := monsGrid.forEachAlongLine(x, y, x2, y2, -1);
1537   for mit in it do sqchecker(mit^);
1538   it.release();
1539
1540   // here, we collected all monsters and players in `wgunHitHeap` and `wgunHitTime`
1541   // also, if `wallWasHit` is `true`, then `wallHitX` and `wallHitY` contains spark coords
1542   while (wgunHitHeap.count > 0) do
1543   begin
1544     // has some entities to check, do it
1545     i := wgunHitHeap.front;
1546     wgunHitHeap.popFront();
1547     // hitpoint
1548     xe := wgunHitTime[i].x;
1549     ye := wgunHitTime[i].y;
1550     // check if it is not behind the wall
1551     if (wgunHitTime[i].mon <> nil) then
1552     begin
1553       didHit := doMonsterHit(wgunHitTime[i].mon, xe, ye);
1554     end
1555     else
1556     begin
1557       didHit := doPlayerHit(wgunHitTime[i].plridx, xe, ye);
1558     end;
1559     if didHit then
1560     begin
1561       // need new coords for trigger
1562       wallHitX := xe;
1563       wallHitY := ye;
1564       wallHitFlag := false; // no sparks
1565       break;
1566     end;
1567   end;
1568
1569   // need sparks?
1570   if wallHitFlag then
1571   begin
1572     {$IF DEFINED(D2F_DEBUG)}
1573     stt := getTimeMicro()-stt;
1574     e_WriteLog(Format('*** new trace time: %u microseconds', [LongWord(stt)]), TMsgType.Notify);
1575     {$ENDIF}
1576     g_GFX_Spark(wallHitX, wallHitY, 2+Random(2), 180+a, 0, 0);
1577     if g_Game_IsServer and g_Game_IsNet then MH_SEND_Effect(wallHitX, wallHitY, 180+a, NET_GFX_SPARK);
1578   end
1579   else
1580   begin
1581     {$IF DEFINED(D2F_DEBUG)}
1582     stt := getTimeMicro()-stt;
1583     e_WriteLog(Format('*** new trace time: %u microseconds', [LongWord(stt)]), TMsgType.Notify);
1584     {$ENDIF}
1585   end;
1586
1587   if CheckTrigger and g_Game_IsServer then g_Triggers_PressL(X, Y, wallHitX, wallHitY, SpawnerUID, ACTIVATE_SHOT);
1588 end;
1589
1590
1591 procedure g_Weapon_punch(x, y: Integer; d, SpawnerUID: Word);
1592 var
1593   obj: TObj;
1594 begin
1595   obj.X := X;
1596   obj.Y := Y;
1597   obj.rect.X := 0;
1598   obj.rect.Y := 0;
1599   obj.rect.Width := 39;
1600   obj.rect.Height := 52;
1601   obj.Vel.X := 0;
1602   obj.Vel.Y := 0;
1603   obj.Accel.X := 0;
1604   obj.Accel.Y := 0;
1605
1606   if g_Weapon_Hit(@obj, d, SpawnerUID, HIT_SOME) <> 0 then
1607     g_Sound_PlayExAt('SOUND_WEAPON_HITPUNCH', x, y)
1608   else
1609     g_Sound_PlayExAt('SOUND_WEAPON_MISSPUNCH', x, y);
1610 end;
1611
1612 function g_Weapon_chainsaw(x, y: Integer; d, SpawnerUID: Word): Integer;
1613 var
1614   obj: TObj;
1615 begin
1616   obj.X := X;
1617   obj.Y := Y;
1618   obj.rect.X := 0;
1619   obj.rect.Y := 0;
1620   obj.rect.Width := 32;
1621   obj.rect.Height := 52;
1622   obj.Vel.X := 0;
1623   obj.Vel.Y := 0;
1624   obj.Accel.X := 0;
1625   obj.Accel.Y := 0;
1626
1627   Result := g_Weapon_Hit(@obj, d, SpawnerUID, HIT_SOME);
1628 end;
1629
1630 procedure g_Weapon_rocket(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1631   Silent: Boolean = False);
1632 var
1633   find_id: DWORD;
1634   dx, dy: Integer;
1635 begin
1636   if WID < 0 then
1637     find_id := FindShot()
1638   else
1639   begin
1640     find_id := WID;
1641     if Integer(find_id) >= High(Shots) then
1642       SetLength(Shots, find_id + 64)
1643   end;
1644
1645   with Shots[find_id] do
1646   begin
1647     g_Obj_Init(@Obj);
1648
1649     Obj.Rect.Width := SHOT_ROCKETLAUNCHER_WIDTH;
1650     Obj.Rect.Height := SHOT_ROCKETLAUNCHER_HEIGHT;
1651
1652     dx := IfThen(xd > x, -Obj.Rect.Width, 0);
1653     dy := -(Obj.Rect.Height div 2);
1654
1655     ShotType := WEAPON_ROCKETLAUNCHER;
1656     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 12);
1657
1658     Animation := nil;
1659     triggers := nil;
1660     g_Texture_Get('TEXTURE_WEAPON_ROCKET', TextureID);
1661   end;
1662
1663   Shots[find_id].SpawnerUID := SpawnerUID;
1664
1665   if not Silent then
1666     g_Sound_PlayExAt('SOUND_WEAPON_FIREROCKET', x, y);
1667 end;
1668
1669 procedure g_Weapon_revf(x, y, xd, yd: Integer; SpawnerUID, TargetUID: Word;
1670   WID: Integer = -1; Silent: Boolean = False);
1671 var
1672   find_id, FramesID: DWORD;
1673   dx, dy: Integer;
1674 begin
1675   if WID < 0 then
1676     find_id := FindShot()
1677   else
1678   begin
1679     find_id := WID;
1680     if Integer(find_id) >= High(Shots) then
1681       SetLength(Shots, find_id + 64)
1682   end;
1683
1684   with Shots[find_id] do
1685   begin
1686     g_Obj_Init(@Obj);
1687
1688     Obj.Rect.Width := SHOT_SKELFIRE_WIDTH;
1689     Obj.Rect.Height := SHOT_SKELFIRE_HEIGHT;
1690
1691     dx := -(Obj.Rect.Width div 2);
1692     dy := -(Obj.Rect.Height div 2);
1693
1694     ShotType := WEAPON_SKEL_FIRE;
1695     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 12);
1696
1697     triggers := nil;
1698     target := TargetUID;
1699     g_Frames_Get(FramesID, 'FRAMES_WEAPON_SKELFIRE');
1700     Animation := TAnimation.Create(FramesID, True, 5);
1701   end;
1702
1703   Shots[find_id].SpawnerUID := SpawnerUID;
1704
1705   if not Silent then
1706     g_Sound_PlayExAt('SOUND_WEAPON_FIREREV', x, y);
1707 end;
1708
1709 procedure g_Weapon_plasma(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1710   Silent: Boolean = False);
1711 var
1712   find_id, FramesID: DWORD;
1713   dx, dy: Integer;
1714 begin
1715   if WID < 0 then
1716     find_id := FindShot()
1717   else
1718   begin
1719     find_id := WID;
1720     if Integer(find_id) >= High(Shots) then
1721       SetLength(Shots, find_id + 64);
1722   end;
1723
1724   with Shots[find_id] do
1725   begin
1726     g_Obj_Init(@Obj);
1727
1728     Obj.Rect.Width := SHOT_PLASMA_WIDTH;
1729     Obj.Rect.Height := SHOT_PLASMA_HEIGHT;
1730
1731     dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1732     dy := -(Obj.Rect.Height div 2);
1733
1734     ShotType := WEAPON_PLASMA;
1735     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1736
1737     triggers := nil;
1738     g_Frames_Get(FramesID, 'FRAMES_WEAPON_PLASMA');
1739     Animation := TAnimation.Create(FramesID, True, 5);
1740   end;
1741
1742   Shots[find_id].SpawnerUID := SpawnerUID;
1743
1744   if not Silent then
1745     g_Sound_PlayExAt('SOUND_WEAPON_FIREPLASMA', x, y);
1746 end;
1747
1748 procedure g_Weapon_flame(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1749   Silent: Boolean = False);
1750 var
1751   find_id: DWORD;
1752   dx, dy: Integer;
1753 begin
1754   if WID < 0 then
1755     find_id := FindShot()
1756   else
1757   begin
1758     find_id := WID;
1759     if Integer(find_id) >= High(Shots) then
1760       SetLength(Shots, find_id + 64);
1761   end;
1762
1763   with Shots[find_id] do
1764   begin
1765     g_Obj_Init(@Obj);
1766
1767     Obj.Rect.Width := SHOT_FLAME_WIDTH;
1768     Obj.Rect.Height := SHOT_FLAME_HEIGHT;
1769
1770     dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1771     dy := -(Obj.Rect.Height div 2);
1772
1773     ShotType := WEAPON_FLAMETHROWER;
1774     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1775
1776     triggers := nil;
1777     Animation := nil;
1778     TextureID := 0;
1779     g_Frames_Get(TextureID, 'FRAMES_FLAME');
1780   end;
1781
1782   Shots[find_id].SpawnerUID := SpawnerUID;
1783
1784   // if not Silent then
1785   //  g_Sound_PlayExAt('SOUND_WEAPON_FIREPLASMA', x, y);
1786 end;
1787
1788 procedure g_Weapon_ball1(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1789   Silent: Boolean = False);
1790 var
1791   find_id, FramesID: DWORD;
1792   dx, dy: Integer;
1793 begin
1794   if WID < 0 then
1795     find_id := FindShot()
1796   else
1797   begin
1798     find_id := WID;
1799     if Integer(find_id) >= High(Shots) then
1800       SetLength(Shots, find_id + 64)
1801   end;
1802
1803   with Shots[find_id] do
1804   begin
1805     g_Obj_Init(@Obj);
1806
1807     Obj.Rect.Width := 16;
1808     Obj.Rect.Height := 16;
1809
1810     dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1811     dy := -(Obj.Rect.Height div 2);
1812
1813     ShotType := WEAPON_IMP_FIRE;
1814     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1815
1816     triggers := nil;
1817     g_Frames_Get(FramesID, 'FRAMES_WEAPON_IMPFIRE');
1818     Animation := TAnimation.Create(FramesID, True, 4);
1819   end;
1820
1821   Shots[find_id].SpawnerUID := SpawnerUID;
1822
1823   if not Silent then
1824     g_Sound_PlayExAt('SOUND_WEAPON_FIREBALL', x, y);
1825 end;
1826
1827 procedure g_Weapon_ball2(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1828   Silent: Boolean = False);
1829 var
1830   find_id, FramesID: DWORD;
1831   dx, dy: Integer;
1832 begin
1833   if WID < 0 then
1834     find_id := FindShot()
1835   else
1836   begin
1837     find_id := WID;
1838     if Integer(find_id) >= High(Shots) then
1839       SetLength(Shots, find_id + 64)
1840   end;
1841
1842   with Shots[find_id] do
1843   begin
1844     g_Obj_Init(@Obj);
1845
1846     Obj.Rect.Width := 16;
1847     Obj.Rect.Height := 16;
1848
1849     dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1850     dy := -(Obj.Rect.Height div 2);
1851
1852     ShotType := WEAPON_CACO_FIRE;
1853     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1854
1855     triggers := nil;
1856     g_Frames_Get(FramesID, 'FRAMES_WEAPON_CACOFIRE');
1857     Animation := TAnimation.Create(FramesID, True, 4);
1858   end;
1859
1860   Shots[find_id].SpawnerUID := SpawnerUID;
1861
1862   if not Silent then
1863     g_Sound_PlayExAt('SOUND_WEAPON_FIREBALL', x, y);
1864 end;
1865
1866 procedure g_Weapon_ball7(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1867   Silent: Boolean = False);
1868 var
1869   find_id, FramesID: DWORD;
1870   dx, dy: Integer;
1871 begin
1872   if WID < 0 then
1873     find_id := FindShot()
1874   else
1875   begin
1876     find_id := WID;
1877     if Integer(find_id) >= High(Shots) then
1878       SetLength(Shots, find_id + 64)
1879   end;
1880
1881   with Shots[find_id] do
1882   begin
1883     g_Obj_Init(@Obj);
1884
1885     Obj.Rect.Width := 32;
1886     Obj.Rect.Height := 16;
1887
1888     dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1889     dy := -(Obj.Rect.Height div 2);
1890
1891     ShotType := WEAPON_BARON_FIRE;
1892     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1893
1894     triggers := nil;
1895     g_Frames_Get(FramesID, 'FRAMES_WEAPON_BARONFIRE');
1896     Animation := TAnimation.Create(FramesID, True, 4);
1897   end;
1898
1899   Shots[find_id].SpawnerUID := SpawnerUID;
1900
1901   if not Silent then
1902     g_Sound_PlayExAt('SOUND_WEAPON_FIREBALL', x, y);
1903 end;
1904
1905 procedure g_Weapon_aplasma(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1906   Silent: Boolean = False);
1907 var
1908   find_id, FramesID: DWORD;
1909   dx, dy: Integer;
1910 begin
1911   if WID < 0 then
1912     find_id := FindShot()
1913   else
1914   begin
1915     find_id := WID;
1916     if Integer(find_id) >= High(Shots) then
1917       SetLength(Shots, find_id + 64)
1918   end;
1919
1920   with Shots[find_id] do
1921   begin
1922     g_Obj_Init(@Obj);
1923
1924     Obj.Rect.Width := 16;
1925     Obj.Rect.Height := 16;
1926
1927     dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1928     dy := -(Obj.Rect.Height div 2);
1929
1930     ShotType := WEAPON_BSP_FIRE;
1931     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1932
1933     triggers := nil;
1934
1935     g_Frames_Get(FramesID, 'FRAMES_WEAPON_BSPFIRE');
1936     Animation := TAnimation.Create(FramesID, True, 4);
1937   end;
1938
1939   Shots[find_id].SpawnerUID := SpawnerUID;
1940
1941   if not Silent then
1942     g_Sound_PlayExAt('SOUND_WEAPON_FIREPLASMA', x, y);
1943 end;
1944
1945 procedure g_Weapon_manfire(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1946   Silent: Boolean = False);
1947 var
1948   find_id, FramesID: DWORD;
1949   dx, dy: Integer;
1950 begin
1951   if WID < 0 then
1952     find_id := FindShot()
1953   else
1954   begin
1955     find_id := WID;
1956     if Integer(find_id) >= High(Shots) then
1957       SetLength(Shots, find_id + 64)
1958   end;
1959
1960   with Shots[find_id] do
1961   begin
1962     g_Obj_Init(@Obj);
1963
1964     Obj.Rect.Width := 32;
1965     Obj.Rect.Height := 32;
1966
1967     dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1968     dy := -(Obj.Rect.Height div 2);
1969
1970     ShotType := WEAPON_MANCUB_FIRE;
1971     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1972
1973     triggers := nil;
1974
1975     g_Frames_Get(FramesID, 'FRAMES_WEAPON_MANCUBFIRE');
1976     Animation := TAnimation.Create(FramesID, True, 4);
1977   end;
1978
1979   Shots[find_id].SpawnerUID := SpawnerUID;
1980
1981   if not Silent then
1982     g_Sound_PlayExAt('SOUND_WEAPON_FIREBALL', x, y);
1983 end;
1984
1985 procedure g_Weapon_bfgshot(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1986   Silent: Boolean = False);
1987 var
1988   find_id, FramesID: DWORD;
1989   dx, dy: Integer;
1990 begin
1991   if WID < 0 then
1992     find_id := FindShot()
1993   else
1994   begin
1995     find_id := WID;
1996     if Integer(find_id) >= High(Shots) then
1997       SetLength(Shots, find_id + 64)
1998   end;
1999
2000   with Shots[find_id] do
2001   begin
2002     g_Obj_Init(@Obj);
2003
2004     Obj.Rect.Width := SHOT_BFG_WIDTH;
2005     Obj.Rect.Height := SHOT_BFG_HEIGHT;
2006
2007     dx := IfThen(xd>x, -Obj.Rect.Width, 0);
2008     dy := -(Obj.Rect.Height div 2);
2009
2010     ShotType := WEAPON_BFG;
2011     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
2012
2013     triggers := nil;
2014     g_Frames_Get(FramesID, 'FRAMES_WEAPON_BFG');
2015     Animation := TAnimation.Create(FramesID, True, 6);
2016   end;
2017
2018   Shots[find_id].SpawnerUID := SpawnerUID;
2019
2020   if not Silent then
2021     g_Sound_PlayExAt('SOUND_WEAPON_FIREBFG', x, y);
2022 end;
2023
2024 procedure g_Weapon_bfghit(x, y: Integer);
2025 var
2026   ID: DWORD;
2027   Anim: TAnimation;
2028 begin
2029   if g_Frames_Get(ID, 'FRAMES_BFGHIT') then
2030   begin
2031     Anim := TAnimation.Create(ID, False, 4);
2032     g_GFX_OnceAnim(x-32, y-32, Anim);
2033     Anim.Free();
2034   end;
2035 end;
2036
2037 procedure g_Weapon_pistol(x, y, xd, yd: Integer; SpawnerUID: Word;
2038   Silent: Boolean = False);
2039 begin
2040   if not Silent then
2041     g_Sound_PlayExAt('SOUND_WEAPON_FIREPISTOL', x, y);
2042
2043   g_Weapon_gun(x, y, xd, yd, 1, 3, SpawnerUID, True);
2044   if gGameSettings.GameMode in [GM_DM, GM_TDM, GM_CTF] then
2045   begin
2046     g_Weapon_gun(x, y+1, xd, yd+1, 1, 3, SpawnerUID, False);
2047     g_Weapon_gun(x, y-1, xd, yd-1, 1, 2, SpawnerUID, False);
2048   end;
2049 end;
2050
2051 procedure g_Weapon_mgun(x, y, xd, yd: Integer; SpawnerUID: Word;
2052   Silent: Boolean = False);
2053 begin
2054   if not Silent then
2055     if gSoundEffectsDF then g_Sound_PlayExAt('SOUND_WEAPON_FIRECGUN', x, y);
2056
2057   g_Weapon_gun(x, y, xd, yd, 1, 3, SpawnerUID, True);
2058   if (gGameSettings.GameMode in [GM_DM, GM_TDM, GM_CTF]) and
2059      (g_GetUIDType(SpawnerUID) = UID_PLAYER) then
2060   begin
2061     g_Weapon_gun(x, y+1, xd, yd+1, 1, 2, SpawnerUID, False);
2062     g_Weapon_gun(x, y-1, xd, yd-1, 1, 2, SpawnerUID, False);
2063   end;
2064 end;
2065
2066 procedure g_Weapon_shotgun(x, y, xd, yd: Integer; SpawnerUID: Word;
2067   Silent: Boolean = False);
2068 var
2069   i, j: Integer;
2070 begin
2071   if not Silent then
2072     if gSoundEffectsDF then g_Sound_PlayExAt('SOUND_WEAPON_FIRESHOTGUN', x, y);
2073
2074   for i := 0 to 9 do
2075   begin
2076     j := Random(17)-8; // -8 .. 8
2077     g_Weapon_gun(x, y+j, xd, yd+j, IfThen(i mod 2 <> 0, 1, 0), 3, SpawnerUID, i=0);
2078   end;
2079 end;
2080
2081 procedure g_Weapon_dshotgun(x, y, xd, yd: Integer; SpawnerUID: Word;
2082   Silent: Boolean = False);
2083 var
2084   a, i, j: Integer;
2085 begin
2086   if not Silent then
2087     g_Sound_PlayExAt('SOUND_WEAPON_FIRESHOTGUN2', x, y);
2088
2089   if gGameSettings.GameMode in [GM_DM, GM_TDM, GM_CTF] then a := 25 else a := 20;
2090   for i := 0 to a do
2091   begin
2092     j := Random(41)-20; // -20 .. 20
2093     g_Weapon_gun(x, y+j, xd, yd+j, IfThen(i mod 3 <> 0, 0, 1), 3, SpawnerUID, i=0);
2094   end;
2095 end;
2096
2097 procedure g_Weapon_Update();
2098 var
2099   i, a, h, cx, cy, oldvx, oldvy, tf: Integer;
2100   _id: DWORD;
2101   Anim: TAnimation;
2102   t: DWArray;
2103   st: Word;
2104   s: String;
2105   o: TObj;
2106   spl: Boolean;
2107   Loud: Boolean;
2108   tcx, tcy: Integer;
2109 begin
2110   if Shots = nil then
2111     Exit;
2112
2113   for i := 0 to High(Shots) do
2114   begin
2115     if Shots[i].ShotType = 0 then
2116       Continue;
2117
2118     Loud := True;
2119
2120     with Shots[i] do
2121     begin
2122       Timeout := Timeout - 1;
2123       oldvx := Obj.Vel.X;
2124       oldvy := Obj.Vel.Y;
2125     // Àêòèâèðîâàòü òðèããåðû ïî ïóòè (êðîìå óæå àêòèâèðîâàííûõ):
2126       if (Stopped = 0) and g_Game_IsServer then
2127         t := g_Triggers_PressR(Obj.X, Obj.Y, Obj.Rect.Width, Obj.Rect.Height,
2128                                SpawnerUID, ACTIVATE_SHOT, triggers)
2129       else
2130         t := nil;
2131
2132       if t <> nil then
2133       begin
2134       // Ïîïîëíÿåì ñïèñîê àêòèâèðîâàííûõ òðèããåðîâ:
2135         if triggers = nil then
2136           triggers := t
2137         else
2138           begin
2139             h := High(t);
2140
2141             for a := 0 to h do
2142               if not InDWArray(t[a], triggers) then
2143               begin
2144                 SetLength(triggers, Length(triggers)+1);
2145                 triggers[High(triggers)] := t[a];
2146               end;
2147           end;
2148       end;
2149
2150     // Àíèìàöèÿ ñíàðÿäà:
2151       if Animation <> nil then
2152         Animation.Update();
2153
2154     // Äâèæåíèå:
2155       spl := (ShotType <> WEAPON_PLASMA) and
2156              (ShotType <> WEAPON_BFG) and
2157              (ShotType <> WEAPON_BSP_FIRE) and
2158              (ShotType <> WEAPON_FLAMETHROWER);
2159
2160       if Stopped = 0 then
2161       begin
2162         st := g_Obj_Move_Projectile(@Obj, False, spl);
2163       end
2164       else
2165       begin
2166         st := 0;
2167       end;
2168       positionChanged(); // this updates spatial accelerators
2169
2170       if WordBool(st and MOVE_FALLOUT) or (Obj.X < -1000) or
2171         (Obj.X > gMapInfo.Width+1000) or (Obj.Y < -1000) then
2172       begin
2173         // Íà êëèåíòå ñêîðåå âñåãî è òàê óæå âûïàë.
2174         ShotType := 0;
2175         Animation.Free();
2176         Continue;
2177       end;
2178
2179       cx := Obj.X + (Obj.Rect.Width div 2);
2180       cy := Obj.Y + (Obj.Rect.Height div 2);
2181
2182       case ShotType of
2183         WEAPON_ROCKETLAUNCHER, WEAPON_SKEL_FIRE: // Ðàêåòû è ñíàðÿäû Ñêåëåòà
2184           begin
2185           // Âûëåòåëà èç âîäû:
2186             if WordBool(st and MOVE_HITAIR) then
2187               g_Obj_SetSpeed(@Obj, 12);
2188
2189           // Â âîäå øëåéô - ïóçûðè, â âîçäóõå øëåéô - äûì:
2190             if WordBool(st and MOVE_INWATER) then
2191               g_GFX_Bubbles(Obj.X+(Obj.Rect.Width div 2),
2192                             Obj.Y+(Obj.Rect.Height div 2),
2193                             1+Random(3), 16, 16)
2194             else
2195               if g_Frames_Get(_id, 'FRAMES_SMOKE') then
2196               begin
2197                 Anim := TAnimation.Create(_id, False, 3);
2198                 Anim.Alpha := 150;
2199                 g_GFX_OnceAnim(Obj.X-14+Random(9),
2200                                Obj.Y+(Obj.Rect.Height div 2)-20+Random(9),
2201                                Anim, ONCEANIM_SMOKE);
2202                 Anim.Free();
2203               end;
2204
2205           // Ïîïàëè â êîãî-òî èëè â ñòåíó:
2206             if WordBool(st and (MOVE_HITWALL or MOVE_HITLAND or MOVE_HITCEIL)) or
2207                (g_Weapon_Hit(@Obj, 10, SpawnerUID, HIT_SOME, False) <> 0) or
2208                (Timeout < 1) then
2209             begin
2210               Obj.Vel.X := 0;
2211               Obj.Vel.Y := 0;
2212
2213               g_Weapon_Explode(cx, cy, 60, SpawnerUID);
2214
2215               if ShotType = WEAPON_SKEL_FIRE then
2216                 begin // Âçðûâ ñíàðÿäà Ñêåëåòà
2217                   if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_SKELFIRE') then
2218                   begin
2219                     Anim := TAnimation.Create(TextureID, False, 8);
2220                     Anim.Blending := False;
2221                     g_GFX_OnceAnim((Obj.X+32)-58, (Obj.Y+8)-36, Anim);
2222                     g_DynLightExplosion((Obj.X+32), (Obj.Y+8), 64, 1, 0, 0);
2223                     Anim.Free();
2224                   end;
2225                 end
2226               else
2227                 begin // Âçðûâ Ðàêåòû
2228                   if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_ROCKET') then
2229                   begin
2230                     Anim := TAnimation.Create(TextureID, False, 6);
2231                     Anim.Blending := False;
2232                     g_GFX_OnceAnim(cx-64, cy-64, Anim);
2233                     g_DynLightExplosion(cx, cy, 64, 1, 0, 0);
2234                     Anim.Free();
2235                   end;
2236                 end;
2237
2238               g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEROCKET', Obj.X, Obj.Y);
2239
2240               ShotType := 0;
2241             end;
2242
2243             if ShotType = WEAPON_SKEL_FIRE then
2244             begin // Ñàìîíàâîäêà ñíàðÿäà Ñêåëåòà:
2245               if GetPos(target, @o) then
2246                 throw(i, Obj.X, Obj.Y,
2247                       o.X+o.Rect.X+(o.Rect.Width div 2)+o.Vel.X+o.Accel.X,
2248                       o.Y+o.Rect.Y+(o.Rect.Height div 2)+o.Vel.Y+o.Accel.Y,
2249                       12);
2250             end;
2251           end;
2252
2253         WEAPON_PLASMA, WEAPON_BSP_FIRE: // Ïëàçìà, ïëàçìà Àðàõíàòðîíà
2254           begin
2255           // Ïîïàëà â âîäó - ýëåêòðîøîê ïî âîäå:
2256             if WordBool(st and (MOVE_INWATER or MOVE_HITWATER)) then
2257             begin
2258               g_Sound_PlayExAt('SOUND_WEAPON_PLASMAWATER', Obj.X, Obj.Y);
2259               if g_Game_IsServer then CheckTrap(i, 10, HIT_ELECTRO);
2260               ShotType := 0;
2261               Continue;
2262             end;
2263
2264           // Âåëè÷èíà óðîíà:
2265             if (ShotType = WEAPON_PLASMA) and
2266                (gGameSettings.GameMode in [GM_DM, GM_TDM, GM_CTF]) then
2267               a := 10
2268             else
2269               a := 5;
2270
2271             if ShotType = WEAPON_BSP_FIRE then
2272               a := 10;
2273
2274           // Ïîïàëè â êîãî-òî èëè â ñòåíó:
2275             if WordBool(st and (MOVE_HITWALL or MOVE_HITLAND or MOVE_HITCEIL)) or
2276                (g_Weapon_Hit(@Obj, a, SpawnerUID, HIT_SOME, False) <> 0) or
2277                (Timeout < 1) then
2278             begin
2279               if ShotType = WEAPON_PLASMA then
2280                 s := 'FRAMES_EXPLODE_PLASMA'
2281               else
2282                 s := 'FRAMES_EXPLODE_BSPFIRE';
2283
2284             // Âçðûâ Ïëàçìû:
2285               if g_Frames_Get(TextureID, s) then
2286               begin
2287                 Anim := TAnimation.Create(TextureID, False, 3);
2288                 Anim.Blending := False;
2289                 g_GFX_OnceAnim(cx-16, cy-16, Anim);
2290                 Anim.Free();
2291                 g_DynLightExplosion(cx, cy, 32, 0, 0.5, 0.5);
2292               end;
2293
2294               g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEPLASMA', Obj.X, Obj.Y);
2295
2296               ShotType := 0;
2297             end;
2298           end;
2299
2300         WEAPON_FLAMETHROWER: // Îãíåìåò
2301           begin
2302           // Ñî âðåìåíåì óìèðàåò
2303             if (Timeout < 1) then
2304             begin
2305               ShotType := 0;
2306               Continue;
2307             end;
2308           // Ïîä âîäîé òîæå
2309             if WordBool(st and (MOVE_HITWATER or MOVE_INWATER)) then
2310             begin
2311               if WordBool(st and MOVE_HITWATER) then
2312               begin
2313                 if g_Frames_Get(_id, 'FRAMES_SMOKE') then
2314                 begin
2315                   Anim := TAnimation.Create(_id, False, 3);
2316                   Anim.Alpha := 0;
2317                   tcx := Random(8);
2318                   tcy := Random(8);
2319                   g_GFX_OnceAnim(cx-4+tcx-(Anim.Width div 2),
2320                     cy-4+tcy-(Anim.Height div 2),
2321                     Anim, ONCEANIM_SMOKE);
2322                   Anim.Free();
2323                 end;
2324               end
2325               else
2326                 g_GFX_Bubbles(cx, cy, 1+Random(3), 16, 16);
2327               ShotType := 0;
2328               Continue;
2329             end;
2330
2331           // Ãðàâèòàöèÿ
2332             if Stopped = 0 then
2333               Obj.Accel.Y := Obj.Accel.Y + 1;
2334           // Ïîïàëè â ñòåíó èëè â âîäó:
2335             if WordBool(st and (MOVE_HITWALL or MOVE_HITLAND or MOVE_HITCEIL or MOVE_HITWATER)) then
2336             begin
2337             // Ïðèëèïàåì:
2338               Obj.Vel.X := 0;
2339               Obj.Vel.Y := 0;
2340               Obj.Accel.Y := 0;
2341               if WordBool(st and MOVE_HITWALL) then
2342                 Stopped := MOVE_HITWALL
2343               else if WordBool(st and MOVE_HITLAND) then
2344                 Stopped := MOVE_HITLAND
2345               else if WordBool(st and MOVE_HITCEIL) then
2346                 Stopped := MOVE_HITCEIL;
2347             end;
2348
2349             a := IfThen(Stopped = 0, 6, 1);
2350           // Åñëè â êîãî-òî ïîïàëè
2351             if g_Weapon_Hit(@Obj, a, SpawnerUID, HIT_FLAME, False) <> 0 then
2352             begin
2353             // HIT_FLAME ñàì ïîäîææåò
2354             // Åñëè â ïîëåòå ïîïàëè, èñ÷åçàåì
2355               if Stopped = 0 then
2356                 ShotType := 0;
2357             end;
2358
2359             if Stopped = 0 then
2360               tf := 2
2361             else
2362               tf := 3;
2363
2364             if (gTime mod LongWord(tf) = 0) then
2365             begin
2366               Anim := TAnimation.Create(TextureID, False, 2 + Random(2));
2367               Anim.Alpha := 0;
2368               case Stopped of
2369                 MOVE_HITWALL: begin tcx := cx-4+Random(8); tcy := cy-12+Random(24); end;
2370                 MOVE_HITLAND: begin tcx := cx-12+Random(24); tcy := cy-10+Random(8); end;
2371                 MOVE_HITCEIL: begin tcx := cx-12+Random(24); tcy := cy+6+Random(8); end;
2372                 else begin tcx := cx-4+Random(8); tcy := cy-4+Random(8); end;
2373               end;
2374               g_GFX_OnceAnim(tcx-(Anim.Width div 2), tcy-(Anim.Height div 2), Anim, ONCEANIM_SMOKE);
2375               Anim.Free();
2376               //g_DynLightExplosion(tcx, tcy, 1, 1, 0.8, 0.3);
2377             end;
2378           end;
2379
2380         WEAPON_BFG: // BFG
2381           begin
2382           // Ïîïàëà â âîäó - ýëåêòðîøîê ïî âîäå:
2383             if WordBool(st and (MOVE_INWATER or MOVE_HITWATER)) then
2384             begin
2385               g_Sound_PlayExAt('SOUND_WEAPON_BFGWATER', Obj.X, Obj.Y);
2386               if g_Game_IsServer then CheckTrap(i, 1000, HIT_ELECTRO);
2387               ShotType := 0;
2388               Continue;
2389             end;
2390
2391           // Ïîïàëè â êîãî-òî èëè â ñòåíó:
2392             if WordBool(st and (MOVE_HITWALL or MOVE_HITLAND or MOVE_HITCEIL)) or
2393                (g_Weapon_Hit(@Obj, SHOT_BFG_DAMAGE, SpawnerUID, HIT_BFG, False) <> 0) or
2394                (Timeout < 1) then
2395             begin
2396             // Ëó÷è BFG:
2397               if g_Game_IsServer then g_Weapon_BFG9000(cx, cy, SpawnerUID);
2398
2399             // Âçðûâ BFG:
2400               if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_BFG') then
2401               begin
2402                 Anim := TAnimation.Create(TextureID, False, 6);
2403                 Anim.Blending := False;
2404                 g_GFX_OnceAnim(cx-64, cy-64, Anim);
2405                 Anim.Free();
2406                 g_DynLightExplosion(cx, cy, 96, 0, 1, 0);
2407               end;
2408
2409               g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBFG', Obj.X, Obj.Y);
2410
2411               ShotType := 0;
2412             end;
2413           end;
2414
2415         WEAPON_IMP_FIRE, WEAPON_CACO_FIRE, WEAPON_BARON_FIRE: // Âûñòðåëû Áåñà, Êàêîäåìîíà Ðûöàðÿ/Áàðîíà àäà
2416           begin
2417           // Âûëåòåë èç âîäû:
2418             if WordBool(st and MOVE_HITAIR) then
2419               g_Obj_SetSpeed(@Obj, 16);
2420
2421           // Âåëè÷èíà óðîíà:
2422             if ShotType = WEAPON_IMP_FIRE then
2423               a := 5
2424             else
2425               if ShotType = WEAPON_CACO_FIRE then
2426                 a := 20
2427               else
2428                 a := 40;
2429
2430           // Ïîïàëè â êîãî-òî èëè â ñòåíó:
2431             if WordBool(st and (MOVE_HITWALL or MOVE_HITLAND or MOVE_HITCEIL)) or
2432                (g_Weapon_Hit(@Obj, a, SpawnerUID, HIT_SOME) <> 0) or
2433                (Timeout < 1) then
2434             begin
2435               if ShotType = WEAPON_IMP_FIRE then
2436                 s := 'FRAMES_EXPLODE_IMPFIRE'
2437               else
2438                 if ShotType = WEAPON_CACO_FIRE then
2439                   s := 'FRAMES_EXPLODE_CACOFIRE'
2440                 else
2441                   s := 'FRAMES_EXPLODE_BARONFIRE';
2442
2443             // Âçðûâ:
2444               if g_Frames_Get(TextureID, s) then
2445               begin
2446                 Anim := TAnimation.Create(TextureID, False, 6);
2447                 Anim.Blending := False;
2448                 g_GFX_OnceAnim(cx-32, cy-32, Anim);
2449                 Anim.Free();
2450               end;
2451
2452               g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBALL', Obj.X, Obj.Y);
2453
2454               ShotType := 0;
2455             end;
2456           end;
2457
2458         WEAPON_MANCUB_FIRE: // Âûñòðåë Ìàíêóáóñà
2459           begin
2460           // Âûëåòåë èç âîäû:
2461             if WordBool(st and MOVE_HITAIR) then
2462               g_Obj_SetSpeed(@Obj, 16);
2463
2464           // Ïîïàëè â êîãî-òî èëè â ñòåíó:
2465             if WordBool(st and (MOVE_HITWALL or MOVE_HITLAND or MOVE_HITCEIL)) or
2466                (g_Weapon_Hit(@Obj, 40, SpawnerUID, HIT_SOME, False) <> 0) or
2467                (Timeout < 1) then
2468             begin
2469             // Âçðûâ:
2470               if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_ROCKET') then
2471               begin
2472                 Anim := TAnimation.Create(TextureID, False, 6);
2473                 Anim.Blending := False;
2474                 g_GFX_OnceAnim(cx-64, cy-64, Anim);
2475                 Anim.Free();
2476               end;
2477
2478               g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBALL', Obj.X, Obj.Y);
2479
2480               ShotType := 0;
2481             end;
2482           end;
2483       end; // case ShotType of...
2484
2485     // Åñëè ñíàðÿäà óæå íåò, óäàëÿåì àíèìàöèþ:
2486       if (ShotType = 0) then
2487       begin
2488         if gGameSettings.GameType = GT_SERVER then
2489           MH_SEND_DeleteShot(i, Obj.X, Obj.Y, Loud);
2490         if Animation <> nil then
2491         begin
2492           Animation.Free();
2493           Animation := nil;
2494         end;
2495       end
2496       else if (ShotType <> WEAPON_FLAMETHROWER) and ((oldvx <> Obj.Vel.X) or (oldvy <> Obj.Vel.Y)) then
2497         if gGameSettings.GameType = GT_SERVER then
2498           MH_SEND_UpdateShot(i);
2499     end;
2500   end;
2501 end;
2502
2503 procedure g_Weapon_Draw();
2504 var
2505   i: Integer;
2506   a: SmallInt;
2507   p: TDFPoint;
2508 begin
2509   if Shots = nil then
2510     Exit;
2511
2512   for i := 0 to High(Shots) do
2513     if Shots[i].ShotType <> 0 then
2514       with Shots[i] do
2515       begin
2516         if (Shots[i].ShotType = WEAPON_ROCKETLAUNCHER) or
2517            (Shots[i].ShotType = WEAPON_BARON_FIRE) or
2518            (Shots[i].ShotType = WEAPON_MANCUB_FIRE) or
2519            (Shots[i].ShotType = WEAPON_SKEL_FIRE) then
2520           a := -GetAngle2(Obj.Vel.X, Obj.Vel.Y)
2521         else
2522           a := 0;
2523
2524         p.X := Obj.Rect.Width div 2;
2525         p.Y := Obj.Rect.Height div 2;
2526
2527         if Animation <> nil then
2528           begin
2529             if (Shots[i].ShotType = WEAPON_BARON_FIRE) or
2530                (Shots[i].ShotType = WEAPON_MANCUB_FIRE) or
2531                (Shots[i].ShotType = WEAPON_SKEL_FIRE) then
2532               Animation.DrawEx(Obj.X, Obj.Y, TMirrorType.None, p, a)
2533             else
2534               Animation.Draw(Obj.X, Obj.Y, TMirrorType.None);
2535           end
2536         else if TextureID <> 0 then
2537           begin
2538             if (Shots[i].ShotType = WEAPON_ROCKETLAUNCHER) then
2539               e_DrawAdv(TextureID, Obj.X, Obj.Y, 0, True, False, a, @p, TMirrorType.None)
2540             else if (Shots[i].ShotType <> WEAPON_FLAMETHROWER) then
2541               e_Draw(TextureID, Obj.X, Obj.Y, 0, True, False);
2542           end;
2543
2544           if g_debug_Frames then
2545           begin
2546             e_DrawQuad(Obj.X+Obj.Rect.X,
2547                        Obj.Y+Obj.Rect.Y,
2548                        Obj.X+Obj.Rect.X+Obj.Rect.Width-1,
2549                        Obj.Y+Obj.Rect.Y+Obj.Rect.Height-1,
2550                        0, 255, 0);
2551           end;
2552       end;
2553 end;
2554
2555 function g_Weapon_Danger(UID: Word; X, Y: Integer; Width, Height: Word; Time: Byte): Boolean;
2556 var
2557   a: Integer;
2558 begin
2559   Result := False;
2560
2561   if Shots = nil then
2562     Exit;
2563
2564   for a := 0 to High(Shots) do
2565     if (Shots[a].ShotType <> 0) and (Shots[a].SpawnerUID <> UID) then
2566       if ((Shots[a].Obj.Vel.Y = 0) and (Shots[a].Obj.Vel.X > 0) and (Shots[a].Obj.X < X)) or
2567           (Shots[a].Obj.Vel.Y = 0) and (Shots[a].Obj.Vel.X < 0) and (Shots[a].Obj.X > X) then
2568         if (Abs(X-Shots[a].Obj.X) < Abs(Shots[a].Obj.Vel.X*Time)) and
2569             g_Collide(X, Y, Width, Height, X, Shots[a].Obj.Y,
2570                       Shots[a].Obj.Rect.Width, Shots[a].Obj.Rect.Height) and
2571             g_TraceVector(X, Y, Shots[a].Obj.X, Shots[a].Obj.Y) then
2572         begin
2573           Result := True;
2574           Exit;
2575         end;
2576 end;
2577
2578 procedure g_Weapon_SaveState (st: TStream);
2579 var
2580   count, i, j: Integer;
2581 begin
2582   // Ñ÷èòàåì êîëè÷åñòâî ñóùåñòâóþùèõ ñíàðÿäîâ
2583   count := 0;
2584   for i := 0 to High(Shots) do if (Shots[i].ShotType <> 0) then Inc(count);
2585
2586   // Êîëè÷åñòâî ñíàðÿäîâ
2587   utils.WriteInt(st, count);
2588
2589   if (count = 0) then exit;
2590
2591   for i := 0 to High(Shots) do
2592   begin
2593     if Shots[i].ShotType <> 0 then
2594     begin
2595       // Ñèãíàòóðà ñíàðÿäà
2596       utils.writeSign(st, 'SHOT');
2597       utils.writeInt(st, Byte(0)); // version
2598       // Òèï ñíàðÿäà
2599       utils.writeInt(st, Byte(Shots[i].ShotType));
2600       // Öåëü
2601       utils.writeInt(st, Word(Shots[i].Target));
2602       // UID ñòðåëÿâøåãî
2603       utils.writeInt(st, Word(Shots[i].SpawnerUID));
2604       // Ðàçìåð ïîëÿ Triggers
2605       utils.writeInt(st, Integer(Length(Shots[i].Triggers)));
2606       // Òðèããåðû, àêòèâèðîâàííûå âûñòðåëîì
2607       for j := 0 to Length(Shots[i].Triggers)-1 do utils.writeInt(st, LongWord(Shots[i].Triggers[j]));
2608       // Îáúåêò ñíàðÿäà
2609       Obj_SaveState(st, @Shots[i].Obj);
2610       // Êîñòûëèíà åáàíàÿ
2611       utils.writeInt(st, Byte(Shots[i].Stopped));
2612     end;
2613   end;
2614 end;
2615
2616 procedure g_Weapon_LoadState (st: TStream);
2617 var
2618   count, tc, i, j: Integer;
2619   dw: LongWord;
2620 begin
2621   if (st = nil) then exit;
2622
2623   // Êîëè÷åñòâî ñíàðÿäîâ
2624   count := utils.readLongInt(st);
2625   if (count < 0) or (count > 1024*1024) then raise XStreamError.Create('invalid shots counter');
2626
2627   SetLength(Shots, count);
2628
2629   if (count = 0) then exit;
2630
2631   for i := 0 to count-1 do
2632   begin
2633     // Ñèãíàòóðà ñíàðÿäà
2634     if not utils.checkSign(st, 'SHOT') then raise XStreamError.Create('invalid shot signature');
2635     if (utils.readByte(st) <> 0) then raise XStreamError.Create('invalid shot version');
2636     // Òèï ñíàðÿäà:
2637     Shots[i].ShotType := utils.readByte(st);
2638     // Öåëü
2639     Shots[i].Target := utils.readWord(st);
2640     // UID ñòðåëÿâøåãî
2641     Shots[i].SpawnerUID := utils.readWord(st);
2642     // Ðàçìåð ïîëÿ Triggers
2643     tc := utils.readLongInt(st);
2644     if (tc < 0) or (tc > 1024*1024) then raise XStreamError.Create('invalid shot triggers counter');
2645     SetLength(Shots[i].Triggers, tc);
2646     // Òðèããåðû, àêòèâèðîâàííûå âûñòðåëîì
2647     for j := 0 to tc-1 do Shots[i].Triggers[j] := utils.readLongWord(st);
2648     // Îáúåêò ïðåäìåòà
2649     Obj_LoadState(@Shots[i].Obj, st);
2650     // Êîñòûëèíà åáàíàÿ
2651     Shots[i].Stopped := utils.readByte(st);
2652
2653     // Óñòàíîâêà òåêñòóðû èëè àíèìàöèè
2654     Shots[i].TextureID := DWORD(-1);
2655     Shots[i].Animation := nil;
2656
2657     case Shots[i].ShotType of
2658       WEAPON_ROCKETLAUNCHER, WEAPON_SKEL_FIRE:
2659         begin
2660           g_Texture_Get('TEXTURE_WEAPON_ROCKET', Shots[i].TextureID);
2661         end;
2662       WEAPON_PLASMA:
2663         begin
2664           g_Frames_Get(dw, 'FRAMES_WEAPON_PLASMA');
2665           Shots[i].Animation := TAnimation.Create(dw, True, 5);
2666         end;
2667       WEAPON_BFG:
2668         begin
2669           g_Frames_Get(dw, 'FRAMES_WEAPON_BFG');
2670           Shots[i].Animation := TAnimation.Create(dw, True, 6);
2671         end;
2672       WEAPON_IMP_FIRE:
2673         begin
2674           g_Frames_Get(dw, 'FRAMES_WEAPON_IMPFIRE');
2675           Shots[i].Animation := TAnimation.Create(dw, True, 4);
2676         end;
2677       WEAPON_BSP_FIRE:
2678         begin
2679           g_Frames_Get(dw, 'FRAMES_WEAPON_BSPFIRE');
2680           Shots[i].Animation := TAnimation.Create(dw, True, 4);
2681         end;
2682       WEAPON_CACO_FIRE:
2683         begin
2684           g_Frames_Get(dw, 'FRAMES_WEAPON_CACOFIRE');
2685           Shots[i].Animation := TAnimation.Create(dw, True, 4);
2686         end;
2687       WEAPON_BARON_FIRE:
2688         begin
2689           g_Frames_Get(dw, 'FRAMES_WEAPON_BARONFIRE');
2690           Shots[i].Animation := TAnimation.Create(dw, True, 4);
2691         end;
2692       WEAPON_MANCUB_FIRE:
2693         begin
2694           g_Frames_Get(dw, 'FRAMES_WEAPON_MANCUBFIRE');
2695           Shots[i].Animation := TAnimation.Create(dw, True, 4);
2696         end;
2697     end;
2698   end;
2699 end;
2700
2701 procedure g_Weapon_DestroyShot(I: Integer; X, Y: Integer; Loud: Boolean = True);
2702 var
2703   cx, cy: Integer;
2704   Anim: TAnimation;
2705   s: string;
2706 begin
2707   if Shots = nil then
2708     Exit;
2709   if (I > High(Shots)) or (I < 0) then Exit;
2710
2711   with Shots[I] do
2712   begin
2713     if ShotType = 0 then Exit;
2714     Obj.X := X;
2715     Obj.Y := Y;
2716     cx := Obj.X + (Obj.Rect.Width div 2);
2717     cy := Obj.Y + (Obj.Rect.Height div 2);
2718
2719     case ShotType of
2720       WEAPON_ROCKETLAUNCHER, WEAPON_SKEL_FIRE: // Ðàêåòû è ñíàðÿäû Ñêåëåòà
2721       begin
2722         if Loud then
2723         begin
2724           if ShotType = WEAPON_SKEL_FIRE then
2725           begin // Âçðûâ ñíàðÿäà Ñêåëåòà
2726             if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_SKELFIRE') then
2727             begin
2728               Anim := TAnimation.Create(TextureID, False, 8);
2729               Anim.Blending := False;
2730               g_GFX_OnceAnim((Obj.X+32)-32, (Obj.Y+8)-32, Anim);
2731               Anim.Free();
2732             end;
2733           end
2734           else
2735           begin // Âçðûâ Ðàêåòû
2736             if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_ROCKET') then
2737             begin
2738               Anim := TAnimation.Create(TextureID, False, 6);
2739               Anim.Blending := False;
2740               g_GFX_OnceAnim(cx-64, cy-64, Anim);
2741               Anim.Free();
2742             end;
2743           end;
2744           g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEROCKET', Obj.X, Obj.Y);
2745         end;
2746       end;
2747
2748       WEAPON_PLASMA, WEAPON_BSP_FIRE: // Ïëàçìà, ïëàçìà Àðàõíàòðîíà
2749       begin
2750         if ShotType = WEAPON_PLASMA then
2751           s := 'FRAMES_EXPLODE_PLASMA'
2752         else
2753           s := 'FRAMES_EXPLODE_BSPFIRE';
2754
2755         if g_Frames_Get(TextureID, s) and loud then
2756         begin
2757           Anim := TAnimation.Create(TextureID, False, 3);
2758           Anim.Blending := False;
2759           g_GFX_OnceAnim(cx-16, cy-16, Anim);
2760           Anim.Free();
2761
2762           g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEPLASMA', Obj.X, Obj.Y);
2763         end;
2764       end;
2765
2766       WEAPON_BFG: // BFG
2767       begin
2768         // Âçðûâ BFG:
2769         if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_BFG') and Loud then
2770         begin
2771           Anim := TAnimation.Create(TextureID, False, 6);
2772           Anim.Blending := False;
2773           g_GFX_OnceAnim(cx-64, cy-64, Anim);
2774           Anim.Free();
2775
2776           g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBFG', Obj.X, Obj.Y);
2777         end;
2778       end;
2779
2780       WEAPON_IMP_FIRE, WEAPON_CACO_FIRE, WEAPON_BARON_FIRE: // Âûñòðåëû Áåñà, Êàêîäåìîíà Ðûöàðÿ/Áàðîíà àäà
2781       begin
2782         if ShotType = WEAPON_IMP_FIRE then
2783           s := 'FRAMES_EXPLODE_IMPFIRE'
2784         else
2785           if ShotType = WEAPON_CACO_FIRE then
2786             s := 'FRAMES_EXPLODE_CACOFIRE'
2787           else
2788             s := 'FRAMES_EXPLODE_BARONFIRE';
2789
2790         if g_Frames_Get(TextureID, s) and Loud then
2791         begin
2792           Anim := TAnimation.Create(TextureID, False, 6);
2793           Anim.Blending := False;
2794           g_GFX_OnceAnim(cx-32, cy-32, Anim);
2795           Anim.Free();
2796
2797           g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBALL', Obj.X, Obj.Y);
2798         end;
2799       end;
2800
2801       WEAPON_MANCUB_FIRE: // Âûñòðåë Ìàíêóáóñà
2802       begin
2803         if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_ROCKET') and Loud then
2804         begin
2805           Anim := TAnimation.Create(TextureID, False, 6);
2806           Anim.Blending := False;
2807           g_GFX_OnceAnim(cx-64, cy-64, Anim);
2808           Anim.Free();
2809
2810           g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBALL', Obj.X, Obj.Y);
2811         end;
2812       end;
2813     end; // case ShotType of...
2814
2815     ShotType := 0;
2816     Animation.Free();
2817   end;
2818 end;
2819
2820
2821 procedure g_Weapon_AddDynLights();
2822 var
2823   i: Integer;
2824 begin
2825   if Shots = nil then Exit;
2826   for i := 0 to High(Shots) do
2827   begin
2828     if Shots[i].ShotType = 0 then continue;
2829     if (Shots[i].ShotType = WEAPON_ROCKETLAUNCHER) or
2830        (Shots[i].ShotType = WEAPON_BARON_FIRE) or
2831        (Shots[i].ShotType = WEAPON_MANCUB_FIRE) or
2832        (Shots[i].ShotType = WEAPON_SKEL_FIRE) or
2833        (Shots[i].ShotType = WEAPON_IMP_FIRE) or
2834        (Shots[i].ShotType = WEAPON_CACO_FIRE) or
2835        (Shots[i].ShotType = WEAPON_MANCUB_FIRE) or
2836        (Shots[i].ShotType = WEAPON_BSP_FIRE) or
2837        (Shots[i].ShotType = WEAPON_PLASMA) or
2838        (Shots[i].ShotType = WEAPON_BFG) or
2839        (Shots[i].ShotType = WEAPON_FLAMETHROWER) or
2840        false then
2841     begin
2842       if (Shots[i].ShotType = WEAPON_PLASMA) then
2843         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)
2844       else if (Shots[i].ShotType = WEAPON_BFG) then
2845         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)
2846       else if (Shots[i].ShotType = WEAPON_FLAMETHROWER) then
2847         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)
2848       else
2849         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);
2850     end;
2851   end;
2852 end;
2853
2854
2855 procedure TShot.positionChanged (); begin end;
2856
2857
2858 end.