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 {$MODE DELPHI}
  17 unit g_weapons;
  18
  19 interface
  20
  21 uses
  22   g_textures, g_basic, e_graphics, g_phys, BinEditor;
  23
  24 const
  25   HIT_SOME    = 0;
  26   HIT_ROCKET  = 1;
  27   HIT_BFG     = 2;
  28   HIT_TRAP    = 3;
  29   HIT_FALL    = 4;
  30   HIT_WATER   = 5;
  31   HIT_ACID    = 6;
  32   HIT_ELECTRO = 7;
  33   HIT_FLAME   = 8;
  34   HIT_SELF    = 9;
  35   HIT_DISCON  = 10;
  36
  37 type
  38   TShot = record
  39     ShotType: Byte;
  40     Target: Word;
  41     SpawnerUID: Word;
  42     Triggers: DWArray;
  43     Obj: TObj;
  44     Animation: TAnimation;
  45     TextureID: DWORD;
  46     Timeout: DWORD;
  47   end;
  48
  49 var
  50   Shots: array of TShot = nil;
  51   LastShotID: Integer = 0;
  52
  53 procedure g_Weapon_LoadData();
  54 procedure g_Weapon_FreeData();
  55 procedure g_Weapon_Init();
  56 procedure g_Weapon_Free();
  57 function g_Weapon_Hit(obj: PObj; d: Integer; SpawnerUID: Word; t: Byte; HitCorpses: Boolean = True): Byte;
  58 function g_Weapon_HitUID(UID: Word; d: Integer; SpawnerUID: Word; t: Byte): Boolean;
  59 function g_Weapon_CreateShot(I: Integer; ShotType: Byte; Spawner, TargetUID: Word; X, Y, XV, YV: Integer): LongWord;
  60
  61 procedure g_Weapon_gun(x, y, xd, yd, v, dmg: Integer; SpawnerUID: Word; CheckTrigger: Boolean);
  62 procedure g_Weapon_punch(x, y: Integer; d, SpawnerUID: Word);
  63 function g_Weapon_chainsaw(x, y: Integer; d, SpawnerUID: Word): Integer;
  64 procedure g_Weapon_rocket(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
  65 procedure g_Weapon_revf(x, y, xd, yd: Integer; SpawnerUID, TargetUID: Word; WID: Integer = -1; Silent: Boolean = False);
  66 procedure g_Weapon_plasma(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
  67 procedure g_Weapon_ball1(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
  68 procedure g_Weapon_ball2(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
  69 procedure g_Weapon_ball7(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
  70 procedure g_Weapon_aplasma(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
  71 procedure g_Weapon_manfire(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
  72 procedure g_Weapon_bfgshot(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
  73 procedure g_Weapon_bfghit(x, y: Integer);
  74 procedure g_Weapon_pistol(x, y, xd, yd: Integer; SpawnerUID: Word; Silent: Boolean = False);
  75 procedure g_Weapon_mgun(x, y, xd, yd: Integer; SpawnerUID: Word; Silent: Boolean = False);
  76 procedure g_Weapon_shotgun(x, y, xd, yd: Integer; SpawnerUID: Word; Silent: Boolean = False);
  77 procedure g_Weapon_dshotgun(x, y, xd, yd: Integer; SpawnerUID: Word; Silent: Boolean = False);
  78
  79 function g_Weapon_Explode(X, Y: Integer; rad: Integer; SpawnerUID: Word): Boolean;
  80 procedure g_Weapon_BFG9000(X, Y: Integer; SpawnerUID: Word);
  81 procedure g_Weapon_Update();
  82 procedure g_Weapon_Draw();
  83 function g_Weapon_Danger(UID: Word; X, Y: Integer; Width, Height: Word; Time: Byte): Boolean;
  84 procedure g_Weapon_DestroyShot(I: Integer; X, Y: Integer; Loud: Boolean = True);
  85
  86 procedure g_Weapon_SaveState(var Mem: TBinMemoryWriter);
  87 procedure g_Weapon_LoadState(var Mem: TBinMemoryReader);
  88
  89 const
  90   WEAPON_KASTET         = 0;
  91   WEAPON_SAW            = 1;
  92   WEAPON_PISTOL         = 2;
  93   WEAPON_SHOTGUN1       = 3;
  94   WEAPON_SHOTGUN2       = 4;
  95   WEAPON_CHAINGUN       = 5;
  96   WEAPON_ROCKETLAUNCHER = 6;
  97   WEAPON_PLASMA         = 7;
  98   WEAPON_BFG            = 8;
  99   WEAPON_SUPERPULEMET   = 9;
 100   WEAPON_MEGAKASTET     = 10;
 101   WEAPON_ZOMBY_PISTOL   = 20;
 102   WEAPON_IMP_FIRE       = 21;
 103   WEAPON_BSP_FIRE       = 22;
 104   WEAPON_CACO_FIRE      = 23;
 105   WEAPON_BARON_FIRE     = 24;
 106   WEAPON_MANCUB_FIRE    = 25;
 107   WEAPON_SKEL_FIRE      = 26;
 108
 109 implementation
 110
 111 uses
 112   Math, g_map, g_player, g_gfx, g_sound, g_main,
 113   g_console, SysUtils, g_options, g_game,
 114   g_triggers, MAPDEF, e_log, g_monsters, g_saveload,
 115   g_language, g_netmsg;
 116
 117 type
 118   TWaterPanel = record
 119     X, Y: Integer;
 120     Width, Height: Word;
 121     Active: Boolean;
 122   end;
 123
 124 const
 125   SHOT_ROCKETLAUNCHER_WIDTH = 14;
 126   SHOT_ROCKETLAUNCHER_HEIGHT = 14;
 127
 128   SHOT_SKELFIRE_WIDTH = 14;
 129   SHOT_SKELFIRE_HEIGHT = 14;
 130
 131   SHOT_PLASMA_WIDTH = 16;
 132   SHOT_PLASMA_HEIGHT = 16;
 133
 134   SHOT_BFG_WIDTH = 32;
 135   SHOT_BFG_HEIGHT = 32;
 136   SHOT_BFG_DAMAGE = 100;
 137   SHOT_BFG_RADIUS = 256;
 138
 139   SHOT_SIGNATURE = $544F4853; // 'SHOT'
 140
 141 var
 142   WaterMap: array of array of DWORD = nil;
 143
 144 function FindShot(): DWORD;
 145 var
 146   i: Integer;
 147 begin
 148   if Shots <> nil then
 149   for i := 0 to High(Shots) do
 150     if Shots[i].ShotType = 0 then
 151     begin
 152       Result := i;
 153       LastShotID := Result;
 154       Exit;
 155     end;
 156
 157   if Shots = nil then
 158   begin
 159     SetLength(Shots, 128);
 160     Result := 0;
 161   end
 162   else
 163   begin
 164     Result := High(Shots) + 1;
 165     SetLength(Shots, Length(Shots) + 128);
 166   end;
 167   LastShotID := Result;
 168 end;
 169
 170 procedure CreateWaterMap();
 171 var
 172   WaterArray: Array of TWaterPanel;
 173   a, b, c, m: Integer;
 174   ok: Boolean;
 175 begin
 176   if gWater = nil then
 177     Exit;
 178
 179   SetLength(WaterArray, Length(gWater));
 180
 181   for a := 0 to High(gWater) do
 182   begin
 183     WaterArray[a].X := gWater[a].X;
 184     WaterArray[a].Y := gWater[a].Y;
 185     WaterArray[a].Width := gWater[a].Width;
 186     WaterArray[a].Height := gWater[a].Height;
 187     WaterArray[a].Active := True;
 188   end;
 189
 190   g_Game_SetLoadingText(_lc[I_LOAD_WATER_MAP], High(WaterArray), False);
 191
 192   for a := 0 to High(WaterArray) do
 193     if WaterArray[a].Active then
 194     begin
 195       WaterArray[a].Active := False;
 196       m := Length(WaterMap);
 197       SetLength(WaterMap, m+1);
 198       SetLength(WaterMap[m], 1);
 199       WaterMap[m][0] := a;
 200       ok := True;
 201
 202       while ok do
 203       begin
 204         ok := False;
 205         for b := 0 to High(WaterArray) do
 206           if WaterArray[b].Active then
 207             for c := 0 to High(WaterMap[m]) do
 208               if g_CollideAround(WaterArray[b].X,
 209                                  WaterArray[b].Y,
 210                                  WaterArray[b].Width,
 211                                  WaterArray[b].Height,
 212                                  WaterArray[WaterMap[m][c]].X,
 213                                  WaterArray[WaterMap[m][c]].Y,
 214                                  WaterArray[WaterMap[m][c]].Width,
 215                                  WaterArray[WaterMap[m][c]].Height) then
 216               begin
 217                 WaterArray[b].Active := False;
 218                 SetLength(WaterMap[m],
 219                           Length(WaterMap[m])+1);
 220                 WaterMap[m][High(WaterMap[m])] := b;
 221                 ok := True;
 222                 Break;
 223               end;
 224       end;
 225
 226       g_Game_StepLoading();
 227     end;
 228
 229   WaterArray := nil;
 230 end;
 231
 232 procedure CheckTrap(ID: DWORD; dm: Integer; t: Byte);
 233 var
 234   a, b, c, d, i1, i2: Integer;
 235   pl, mn: WArray;
 236 begin
 237   if (gWater = nil) or (WaterMap = nil) then Exit;
 238
 239   i1 := -1;
 240   i2 := -1;
 241
 242   SetLength(pl, 1024);
 243   SetLength(mn, 1024);
 244   for d := 0 to 1023 do pl[d] := $FFFF;
 245   for d := 0 to 1023 do mn[d] := $FFFF;
 246
 247   for a := 0 to High(WaterMap) do
 248     for b := 0 to High(WaterMap[a]) do
 249     begin
 250       if not g_Obj_Collide(gWater[WaterMap[a][b]].X, gWater[WaterMap[a][b]].Y,
 251                            gWater[WaterMap[a][b]].Width, gWater[WaterMap[a][b]].Height,
 252                            @Shots[ID].Obj) then Continue;
 253
 254       for c := 0 to High(WaterMap[a]) do
 255       begin
 256         if gPlayers <> nil then
 257         begin
 258           for d := 0 to High(gPlayers) do
 259             if (gPlayers[d] <> nil) and (gPlayers[d].Live) then
 260               if gPlayers[d].Collide(gWater[WaterMap[a][c]]) then
 261                 if not InWArray(d, pl) then
 262                   if i1 < 1023 then
 263                   begin
 264                     i1 := i1+1;
 265                     pl[i1] := d;
 266                   end;
 267         end;
 268
 269         if gMonsters <> nil then
 270         begin
 271           for d := 0 to High(gMonsters) do
 272             if (gMonsters[d] <> nil) and (gMonsters[d].Live) then
 273               if gMonsters[d].Collide(gWater[WaterMap[a][c]]) then
 274                 if not InWArray(d, mn) then
 275                   if i2 < 1023 then
 276                   begin
 277                     i2 := i2+1;
 278                     mn[i2] := d;
 279                   end;
 280         end;
 281       end;
 282
 283       if i1 <> -1 then
 284         for d := 0 to i1 do
 285           gPlayers[pl[d]].Damage(dm, Shots[ID].SpawnerUID, 0, 0, t);
 286
 287       if i2 <> -1 then
 288         for d := 0 to i2 do
 289           gMonsters[mn[d]].Damage(dm, 0, 0, Shots[ID].SpawnerUID, t);
 290     end;
 291
 292   pl := nil;
 293   mn := nil;
 294 end;
 295
 296 function HitMonster(m: TMonster; d: Integer; vx, vy: Integer; SpawnerUID: Word; t: Byte): Boolean;
 297 var
 298   tt, mt: Byte;
 299   mon: TMonster;
 300 begin
 301   Result := False;
 302
 303   tt := g_GetUIDType(SpawnerUID);
 304   if tt = UID_MONSTER then
 305   begin
 306     mon := g_Monsters_Get(SpawnerUID);
 307     if mon <> nil then
 308       mt := g_Monsters_Get(SpawnerUID).MonsterType
 309     else
 310       mt := 0;
 311   end
 312   else
 313     mt := 0;
 314
 315   if m = nil then Exit;
 316   if m.UID = SpawnerUID then
 317   begin
 318   // Ñàì ñåáÿ ìîæåò ðàíèòü òîëüêî ðàêåòîé è òîêîì:
 319     if (t <> HIT_ROCKET) and (t <> HIT_ELECTRO) then
 320       Exit;
 321   // Êèáåð äåìîí è áî÷êà âîîáùå íå ìîãóò ñåáÿ ðàíèòü:
 322     if (m.MonsterType = MONSTER_CYBER) or
 323        (m.MonsterType = MONSTER_BARREL) then
 324     begin
 325       Result := True;
 326       Exit;
 327     end;
 328   end;
 329
 330   if tt = UID_MONSTER then
 331   begin
 332   // Lost_Soul íå ìîæåò ðàíèòü Pain_Elemental'à:
 333     if (mt = MONSTER_SOUL) and (m.MonsterType = MONSTER_PAIN) then
 334       Exit;
 335
 336   // Îáà ìîíñòðà îäíîãî âèäà:
 337     if mt = m.MonsterType then
 338       case mt of
 339         MONSTER_IMP, MONSTER_DEMON, MONSTER_BARON, MONSTER_KNIGHT, MONSTER_CACO,
 340         MONSTER_SOUL, MONSTER_MANCUB, MONSTER_SKEL, MONSTER_FISH:
 341           Exit; // Ýòè íå áüþò ñâîèõ
 342       end;
 343   end;
 344
 345   if g_Game_IsServer then
 346     Result := m.Damage(d, vx, vy, SpawnerUID, t)
 347   else
 348     Result := True;
 349 end;
 350
 351 function HitPlayer(p: TPlayer; d: Integer; vx, vy: Integer; SpawnerUID: Word; t: Byte): Boolean;
 352 begin
 353   Result := False;
 354
 355 // Ñàì ñåáÿ ìîæåò ðàíèòü òîëüêî ðàêåòîé è òîêîì:
 356   if (p.UID = SpawnerUID) and (t <> HIT_ROCKET) and (t <> HIT_ELECTRO) then
 357     Exit;
 358
 359   if g_Game_IsServer then p.Damage(d, SpawnerUID, vx, vy, t);
 360
 361   Result := True;
 362 end;
 363
 364 function GunHit(X, Y: Integer; vx, vy: Integer; dmg: Integer;
 365   SpawnerUID: Word; AllowPush: Boolean): Byte;
 366 var
 367   i, h: Integer;
 368 begin
 369   Result := 0;
 370
 371   h := High(gPlayers);
 372
 373   if h <> -1 then
 374     for i := 0 to h do
 375       if (gPlayers[i] <> nil) and gPlayers[i].Live and gPlayers[i].Collide(X, Y) then
 376         if HitPlayer(gPlayers[i], dmg, vx*10, vy*10-3, SpawnerUID, HIT_SOME) then
 377         begin
 378           if AllowPush then gPlayers[i].Push(vx, vy);
 379           Result := 1;
 380         end;
 381
 382   if Result <> 0 then Exit;
 383
 384   h := High(gMonsters);
 385
 386   if h <> -1 then
 387     for i := 0 to h do
 388       if (gMonsters[i] <> nil) and gMonsters[i].Live and gMonsters[i].Collide(X, Y) then
 389         if HitMonster(gMonsters[i], dmg, vx*10, vy*10-3, SpawnerUID, HIT_SOME) then
 390         begin
 391           if AllowPush then gMonsters[i].Push(vx, vy);
 392           Result := 2;
 393           Exit;
 394         end;
 395 end;
 396
 397 procedure g_Weapon_BFG9000(X, Y: Integer; SpawnerUID: Word);
 398 var
 399   i, h: Integer;
 400   st: Byte;
 401   pl: TPlayer;
 402   b: Boolean;
 403 begin
 404   //g_Sound_PlayEx('SOUND_WEAPON_EXPLODEBFG', 255);
 405
 406   h := High(gCorpses);
 407
 408   if gAdvCorpses and (h <> -1) then
 409     for i := 0 to h do
 410       if (gCorpses[i] <> nil) and (gCorpses[i].State <> CORPSE_STATE_REMOVEME) then
 411         with gCorpses[i] do
 412           if (g_PatchLength(X, Y, Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2),
 413                             Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)) <= SHOT_BFG_RADIUS) and
 414               g_TraceVector(X, Y, Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2),
 415                             Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)) then
 416           begin
 417             Damage(50, 0, 0);
 418             g_Weapon_BFGHit(Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2),
 419                             Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2));
 420           end;
 421
 422   st := TEAM_NONE;
 423   pl := g_Player_Get(SpawnerUID);
 424   if pl <> nil then
 425     st := pl.Team;
 426
 427   h := High(gPlayers);
 428
 429   if h <> -1 then
 430     for i := 0 to h do
 431       if (gPlayers[i] <> nil) and (gPlayers[i].Live) and (gPlayers[i].UID <> SpawnerUID) then
 432         with gPlayers[i] do
 433           if (g_PatchLength(X, Y, GameX+PLAYER_RECT.X+(PLAYER_RECT.Width div 2),
 434                             GameY+PLAYER_RECT.Y+(PLAYER_RECT.Height div 2)) <= SHOT_BFG_RADIUS) and
 435               g_TraceVector(X, Y, GameX+PLAYER_RECT.X+(PLAYER_RECT.Width div 2),
 436                             GameY+PLAYER_RECT.Y+(PLAYER_RECT.Height div 2)) then
 437           begin
 438             if (st = TEAM_NONE) or (st <> gPlayers[i].Team) then
 439               b := HitPlayer(gPlayers[i], 50, 0, 0, SpawnerUID, HIT_SOME)
 440             else
 441               b := HitPlayer(gPlayers[i], 25, 0, 0, SpawnerUID, HIT_SOME);
 442             if b then
 443               gPlayers[i].BFGHit();
 444           end;
 445
 446   h := High(gMonsters);
 447
 448   if h <> -1 then
 449     for i := 0 to h do
 450       if (gMonsters[i] <> nil) and (gMonsters[i].Live) and (gMonsters[i].UID <> SpawnerUID) then
 451         with gMonsters[i] do
 452           if (g_PatchLength(X, Y, Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2),
 453                             Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)) <= SHOT_BFG_RADIUS) and
 454               g_TraceVector(X, Y, Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2),
 455                             Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)) then
 456             if HitMonster(gMonsters[i], 50, 0, 0, SpawnerUID, HIT_SOME) then gMonsters[i].BFGHit();
 457 end;
 458
 459 function g_Weapon_CreateShot(I: Integer; ShotType: Byte; Spawner, TargetUID: Word; X, Y, XV, YV: Integer): LongWord;
 460 var
 461   find_id, FramesID: DWORD;
 462 begin
 463   if I < 0 then
 464     find_id := FindShot()
 465   else
 466   begin
 467     find_id := I;
 468     if Integer(find_id) >= High(Shots) then
 469       SetLength(Shots, find_id + 64)
 470   end;
 471
 472   case ShotType of
 473     WEAPON_ROCKETLAUNCHER:
 474     begin
 475       with Shots[find_id] do
 476       begin
 477         g_Obj_Init(@Obj);
 478
 479         Obj.Rect.Width := SHOT_ROCKETLAUNCHER_WIDTH;
 480         Obj.Rect.Height := SHOT_ROCKETLAUNCHER_HEIGHT;
 481
 482         Animation := nil;
 483         Triggers := nil;
 484         ShotType := WEAPON_ROCKETLAUNCHER;
 485         g_Texture_Get('TEXTURE_WEAPON_ROCKET', TextureID);
 486       end;
 487     end;
 488
 489     WEAPON_PLASMA:
 490     begin
 491       with Shots[find_id] do
 492       begin
 493         g_Obj_Init(@Obj);
 494
 495         Obj.Rect.Width := SHOT_PLASMA_WIDTH;
 496         Obj.Rect.Height := SHOT_PLASMA_HEIGHT;
 497
 498         Triggers := nil;
 499         ShotType := WEAPON_PLASMA;
 500         g_Frames_Get(FramesID, 'FRAMES_WEAPON_PLASMA');
 501         Animation := TAnimation.Create(FramesID, True, 5);
 502       end;
 503     end;
 504
 505     WEAPON_BFG:
 506     begin
 507       with Shots[find_id] do
 508       begin
 509         g_Obj_Init(@Obj);
 510
 511         Obj.Rect.Width := SHOT_BFG_WIDTH;
 512         Obj.Rect.Height := SHOT_BFG_HEIGHT;
 513
 514         Triggers := nil;
 515         ShotType := WEAPON_BFG;
 516         g_Frames_Get(FramesID, 'FRAMES_WEAPON_BFG');
 517         Animation := TAnimation.Create(FramesID, True, 6);
 518       end;
 519     end;
 520
 521     WEAPON_IMP_FIRE:
 522     begin
 523       with Shots[find_id] do
 524       begin
 525         g_Obj_Init(@Obj);
 526
 527         Obj.Rect.Width := 16;
 528         Obj.Rect.Height := 16;
 529
 530         Triggers := nil;
 531         ShotType := WEAPON_IMP_FIRE;
 532         g_Frames_Get(FramesID, 'FRAMES_WEAPON_IMPFIRE');
 533         Animation := TAnimation.Create(FramesID, True, 4);
 534       end;
 535     end;
 536
 537     WEAPON_CACO_FIRE:
 538     begin
 539       with Shots[find_id] do
 540       begin
 541         g_Obj_Init(@Obj);
 542
 543         Obj.Rect.Width := 16;
 544         Obj.Rect.Height := 16;
 545
 546         Triggers := nil;
 547         ShotType := WEAPON_CACO_FIRE;
 548         g_Frames_Get(FramesID, 'FRAMES_WEAPON_CACOFIRE');
 549         Animation := TAnimation.Create(FramesID, True, 4);
 550       end;
 551     end;
 552
 553     WEAPON_MANCUB_FIRE:
 554     begin
 555       with Shots[find_id] do
 556       begin
 557         g_Obj_Init(@Obj);
 558
 559         Obj.Rect.Width := 32;
 560         Obj.Rect.Height := 32;
 561
 562         Triggers := nil;
 563         ShotType := WEAPON_MANCUB_FIRE;
 564         g_Frames_Get(FramesID, 'FRAMES_WEAPON_MANCUBFIRE');
 565         Animation := TAnimation.Create(FramesID, True, 4);
 566       end;
 567     end;
 568
 569     WEAPON_BARON_FIRE:
 570     begin
 571       with Shots[find_id] do
 572       begin
 573         g_Obj_Init(@Obj);
 574
 575         Obj.Rect.Width := 32;
 576         Obj.Rect.Height := 16;
 577
 578         Triggers := nil;
 579         ShotType := WEAPON_BARON_FIRE;
 580         g_Frames_Get(FramesID, 'FRAMES_WEAPON_BARONFIRE');
 581         Animation := TAnimation.Create(FramesID, True, 4);
 582       end;
 583     end;
 584
 585     WEAPON_BSP_FIRE:
 586     begin
 587       with Shots[find_id] do
 588       begin
 589         g_Obj_Init(@Obj);
 590
 591         Obj.Rect.Width := 16;
 592         Obj.Rect.Height := 16;
 593
 594         Triggers := nil;
 595         ShotType := WEAPON_BSP_FIRE;
 596         g_Frames_Get(FramesID, 'FRAMES_WEAPON_BSPFIRE');
 597         Animation := TAnimation.Create(FramesID, True, 4);
 598       end;
 599     end;
 600
 601     WEAPON_SKEL_FIRE:
 602     begin
 603       with Shots[find_id] do
 604       begin
 605         g_Obj_Init(@Obj);
 606
 607         Obj.Rect.Width := SHOT_SKELFIRE_WIDTH;
 608         Obj.Rect.Height := SHOT_SKELFIRE_HEIGHT;
 609
 610         Triggers := nil;
 611         ShotType := WEAPON_SKEL_FIRE;
 612         target := TargetUID;
 613         g_Frames_Get(FramesID, 'FRAMES_WEAPON_SKELFIRE');
 614         Animation := TAnimation.Create(FramesID, True, 5);
 615       end;
 616     end;
 617   end;
 618
 619   Shots[find_id].Obj.X := X;
 620   Shots[find_id].Obj.Y := Y;
 621   Shots[find_id].Obj.Vel.X := XV;
 622   Shots[find_id].Obj.Vel.Y := YV;
 623   Shots[find_id].Obj.Accel.X := 0;
 624   Shots[find_id].Obj.Accel.Y := 0;
 625   Shots[find_id].SpawnerUID := Spawner;
 626   Result := find_id;
 627 end;
 628
 629 procedure throw(i, x, y, xd, yd, s: Integer);
 630 var
 631   a: Integer;
 632 begin
 633   yd := yd - y;
 634   xd := xd - x;
 635
 636   a := Max(Abs(xd), Abs(yd));
 637   if a = 0 then
 638     a := 1;
 639
 640   Shots[i].Obj.X := x;
 641   Shots[i].Obj.Y := y;
 642   Shots[i].Obj.Vel.X := (xd*s) div a;
 643   Shots[i].Obj.Vel.Y := (yd*s) div a;
 644   Shots[i].Obj.Accel.X := 0;
 645   Shots[i].Obj.Accel.Y := 0;
 646   if Shots[i].ShotType in [WEAPON_ROCKETLAUNCHER, WEAPON_BFG] then
 647     Shots[i].Timeout := 900 // ~25 sec
 648   else
 649     Shots[i].Timeout := 550 // ~15 sec
 650 end;
 651
 652 function g_Weapon_Hit(obj: PObj; d: Integer; SpawnerUID: Word; t: Byte; HitCorpses: Boolean = True): Byte;
 653 var
 654   i, h: Integer;
 655
 656   function PlayerHit(Team: Byte = 0): Boolean;
 657   var
 658     i: Integer;
 659     ChkTeam: Boolean;
 660     p: TPlayer;
 661   begin
 662     Result := False;
 663     h := High(gPlayers);
 664
 665     if h <> -1 then
 666       for i := 0 to h do
 667         if (gPlayers[i] <> nil) and gPlayers[i].Live and g_Obj_Collide(obj, @gPlayers[i].Obj) then
 668         begin
 669           ChkTeam := True;
 670           if (Team > 0) and (g_GetUIDType(SpawnerUID) = UID_PLAYER) then
 671           begin
 672             p := g_Player_Get(SpawnerUID);
 673             if p <> nil then
 674               ChkTeam := (p.Team = gPlayers[i].Team) xor (Team = 2);
 675           end;
 676           if ChkTeam then
 677             if HitPlayer(gPlayers[i], d, obj^.Vel.X, obj^.Vel.Y, SpawnerUID, t) then
 678             begin
 679               gPlayers[i].Push((obj^.Vel.X+obj^.Accel.X)*IfThen(t = HIT_BFG, 8, 1) div 4,
 680                                (obj^.Vel.Y+obj^.Accel.Y)*IfThen(t = HIT_BFG, 8, 1) div 4);
 681               if t = HIT_BFG then
 682                 g_Game_DelayEvent(DE_BFGHIT, 1000, SpawnerUID);
 683               Result := True;
 684               break;
 685             end;
 686         end;
 687   end;
 688   function MonsterHit(): Boolean;
 689   var
 690     i: Integer;
 691   begin
 692     Result := False;
 693     h := High(gMonsters);
 694
 695     if h <> -1 then
 696       for i := 0 to h do
 697         if (gMonsters[i] <> nil) and gMonsters[i].Live and g_Obj_Collide(obj, @gMonsters[i].Obj) then
 698           if HitMonster(gMonsters[i], d, obj^.Vel.X, obj^.Vel.Y, SpawnerUID, t) then
 699           begin
 700             gMonsters[i].Push((obj^.Vel.X+obj^.Accel.X)*IfThen(t = HIT_BFG, 8, 1) div 4,
 701                               (obj^.Vel.Y+obj^.Accel.Y)*IfThen(t = HIT_BFG, 8, 1) div 4);
 702             Result := True;
 703             break;
 704           end;
 705   end;
 706 begin
 707   Result := 0;
 708
 709   if HitCorpses then
 710   begin
 711     h := High(gCorpses);
 712
 713     if gAdvCorpses and (h <> -1) then
 714       for i := 0 to h do
 715         if (gCorpses[i] <> nil) and (gCorpses[i].State <> CORPSE_STATE_REMOVEME) and
 716            g_Obj_Collide(obj, @gCorpses[i].Obj) then
 717         begin
 718           // Ðàñïèëèâàåì òðóï:
 719           gCorpses[i].Damage(d, (obj^.Vel.X+obj^.Accel.X) div 4,
 720                                 (obj^.Vel.Y+obj^.Accel.Y) div 4);
 721           Result := 1;
 722         end;
 723   end;
 724
 725   case gGameSettings.GameMode of
 726     // Êàìïàíèÿ:
 727     GM_COOP, GM_SINGLE:
 728     begin
 729       // Ñíà÷àëà áü¸ì ìîíñòðîâ, åñëè åñòü, ïîòîì ïûòàåìñÿ áèòü èãðîêîâ
 730       if MonsterHit() then
 731       begin
 732         Result := 2;
 733         Exit;
 734       end;
 735
 736       if PlayerHit() then
 737       begin
 738         Result := 1;
 739         Exit;
 740       end;
 741     end;
 742
 743     // Äåçìàò÷:
 744     GM_DM:
 745     begin
 746       // Ñíà÷àëà áü¸ì èãðîêîâ, åñëè åñòü, ïîòîì ïûòàåìñÿ áèòü ìîíñòðîâ
 747       if PlayerHit() then
 748       begin
 749         Result := 1;
 750         Exit;
 751       end;
 752
 753       if MonsterHit() then
 754       begin
 755         Result := 2;
 756         Exit;
 757       end;
 758     end;
 759
 760     // Êîìàíäíûå:
 761     GM_TDM, GM_CTF:
 762     begin
 763       // Ñíà÷àëà áü¸ì èãðîêîâ êîìàíäû ñîïåðíèêà
 764       if PlayerHit(2) then
 765       begin
 766         Result := 1;
 767         Exit;
 768       end;
 769
 770       // Ïîòîì ìîíñòðîâ
 771       if MonsterHit() then
 772       begin
 773         Result := 2;
 774         Exit;
 775       end;
 776
 777       // È â êîíöå ñâîèõ èãðîêîâ
 778       if PlayerHit(1) then
 779       begin
 780         Result := 1;
 781         Exit;
 782       end;
 783     end;
 784
 785   end;
 786 end;
 787
 788 function g_Weapon_HitUID(UID: Word; d: Integer; SpawnerUID: Word; t: Byte): Boolean;
 789 begin
 790   Result := False;
 791
 792   case g_GetUIDType(UID) of
 793     UID_PLAYER: Result := HitPlayer(g_Player_Get(UID), d, 0, 0, SpawnerUID, t);
 794     UID_MONSTER: Result := HitMonster(g_Monsters_Get(UID), d, 0, 0, SpawnerUID, t);
 795     else Exit;
 796   end;
 797 end;
 798
 799 function g_Weapon_Explode(X, Y: Integer; rad: Integer; SpawnerUID: Word): Boolean;
 800 var
 801   i, h, r, dx, dy, m, mm: Integer;
 802   _angle: SmallInt;
 803 begin
 804   Result := False;
 805
 806   g_Triggers_PressC(X, Y, rad, SpawnerUID, ACTIVATE_SHOT);
 807
 808   r := rad*rad;
 809
 810   h := High(gPlayers);
 811
 812   if h <> -1 then
 813     for i := 0 to h do
 814       if (gPlayers[i] <> nil) and gPlayers[i].Live then
 815         with gPlayers[i] do
 816         begin
 817           dx := Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2)-X;
 818           dy := Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)-Y;
 819
 820           if dx > 1000 then dx := 1000;
 821           if dy > 1000 then dy := 1000;
 822
 823           if dx*dx+dy*dy < r then
 824           begin
 825             //m := PointToRect(X, Y, GameX+PLAYER_RECT.X, GameY+PLAYER_RECT.Y,
 826             //                 PLAYER_RECT.Width, PLAYER_RECT.Height);
 827
 828             mm := Max(abs(dx), abs(dy));
 829             if mm = 0 then mm := 1;
 830
 831             HitPlayer(gPlayers[i], (100*(rad-mm)) div rad, (dx*10) div mm, (dy*10) div mm, SpawnerUID, HIT_ROCKET);
 832             gPlayers[i].Push((dx*7) div mm, (dy*7) div mm);
 833           end;
 834         end;
 835
 836   h := High(gMonsters);
 837
 838   if h <> -1 then
 839     for i := 0 to h do
 840       if gMonsters[i] <> nil then
 841         with gMonsters[i] do
 842         begin
 843           dx := Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2)-X;
 844           dy := Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)-Y;
 845
 846           if dx > 1000 then dx := 1000;
 847           if dy > 1000 then dy := 1000;
 848
 849           if dx*dx+dy*dy < r then
 850           begin
 851             //m := PointToRect(X, Y, Obj.X+Obj.Rect.X, Obj.Y+Obj.Rect.Y,
 852             //                 Obj.Rect.Width, Obj.Rect.Height);
 853
 854             mm := Max(abs(dx), abs(dy));
 855             if mm = 0 then mm := 1;
 856
 857             if gMonsters[i].Live then
 858               HitMonster(gMonsters[i], ((gMonsters[i].Obj.Rect.Width div 4)*10*(rad-mm)) div rad,
 859                          0, 0, SpawnerUID, HIT_ROCKET);
 860
 861             gMonsters[i].Push((dx*7) div mm, (dy*7) div mm);
 862           end;
 863         end;
 864
 865   h := High(gCorpses);
 866
 867   if gAdvCorpses and (h <> -1) then
 868     for i := 0 to h do
 869       if (gCorpses[i] <> nil) and (gCorpses[i].State <> CORPSE_STATE_REMOVEME) then
 870         with gCorpses[i] do
 871         begin
 872           dx := Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2)-X;
 873           dy := Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)-Y;
 874
 875           if dx > 1000 then dx := 1000;
 876           if dy > 1000 then dy := 1000;
 877
 878           if dx*dx+dy*dy < r then
 879           begin
 880             m := PointToRect(X, Y, Obj.X+Obj.Rect.X, Obj.Y+Obj.Rect.Y,
 881                              Obj.Rect.Width, Obj.Rect.Height);
 882
 883             mm := Max(abs(dx), abs(dy));
 884             if mm = 0 then mm := 1;
 885
 886             Damage(Round(100*(rad-m)/rad), (dx*10) div mm, (dy*10) div mm);
 887           end;
 888         end;
 889
 890   h := High(gGibs);
 891
 892   if gAdvGibs and (h <> -1) then
 893     for i := 0 to h do
 894       if gGibs[i].Live then
 895         with gGibs[i] do
 896         begin
 897           dx := Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2)-X;
 898           dy := Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)-Y;
 899
 900           if dx > 1000 then dx := 1000;
 901           if dy > 1000 then dy := 1000;
 902
 903           if dx*dx+dy*dy < r then
 904           begin
 905             m := PointToRect(X, Y, Obj.X+Obj.Rect.X, Obj.Y+Obj.Rect.Y,
 906                              Obj.Rect.Width, Obj.Rect.Height);
 907             _angle := GetAngle(Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2),
 908                                Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2), X, Y);
 909
 910             g_Obj_PushA(@Obj, Round(15*(rad-m)/rad), _angle);
 911           end;
 912         end;
 913 end;
 914
 915 procedure g_Weapon_Init();
 916 begin
 917   CreateWaterMap();
 918 end;
 919
 920 procedure g_Weapon_Free();
 921 var
 922   i: Integer;
 923 begin
 924   if Shots <> nil then
 925   begin
 926     for i := 0 to High(Shots) do
 927       if Shots[i].ShotType <> 0 then
 928         Shots[i].Animation.Free();
 929
 930     Shots := nil;
 931   end;
 932
 933   WaterMap := nil;
 934 end;
 935
 936 procedure g_Weapon_LoadData();
 937 begin
 938   e_WriteLog('Loading weapons data...', MSG_NOTIFY);
 939
 940   g_Sound_CreateWADEx('SOUND_WEAPON_HITPUNCH', GameWAD+':SOUNDS\HITPUNCH');
 941   g_Sound_CreateWADEx('SOUND_WEAPON_MISSPUNCH', GameWAD+':SOUNDS\MISSPUNCH');
 942   g_Sound_CreateWADEx('SOUND_WEAPON_HITBERSERK', GameWAD+':SOUNDS\HITBERSERK');
 943   g_Sound_CreateWADEx('SOUND_WEAPON_MISSBERSERK', GameWAD+':SOUNDS\MISSBERSERK');
 944   g_Sound_CreateWADEx('SOUND_WEAPON_SELECTSAW', GameWAD+':SOUNDS\SELECTSAW');
 945   g_Sound_CreateWADEx('SOUND_WEAPON_IDLESAW', GameWAD+':SOUNDS\IDLESAW');
 946   g_Sound_CreateWADEx('SOUND_WEAPON_HITSAW', GameWAD+':SOUNDS\HITSAW');
 947   g_Sound_CreateWADEx('SOUND_WEAPON_FIRESHOTGUN2', GameWAD+':SOUNDS\FIRESHOTGUN2');
 948   g_Sound_CreateWADEx('SOUND_WEAPON_FIRESHOTGUN', GameWAD+':SOUNDS\FIRESHOTGUN');
 949   g_Sound_CreateWADEx('SOUND_WEAPON_FIRESAW', GameWAD+':SOUNDS\FIRESAW');
 950   g_Sound_CreateWADEx('SOUND_WEAPON_FIREROCKET', GameWAD+':SOUNDS\FIREROCKET');
 951   g_Sound_CreateWADEx('SOUND_WEAPON_FIREPLASMA', GameWAD+':SOUNDS\FIREPLASMA');
 952   g_Sound_CreateWADEx('SOUND_WEAPON_FIREPISTOL', GameWAD+':SOUNDS\FIREPISTOL');
 953   g_Sound_CreateWADEx('SOUND_WEAPON_FIRECGUN', GameWAD+':SOUNDS\FIRECGUN');
 954   g_Sound_CreateWADEx('SOUND_WEAPON_FIREBFG', GameWAD+':SOUNDS\FIREBFG');
 955   g_Sound_CreateWADEx('SOUND_FIRE', GameWAD+':SOUNDS\FIRE');
 956   g_Sound_CreateWADEx('SOUND_WEAPON_STARTFIREBFG', GameWAD+':SOUNDS\STARTFIREBFG');
 957   g_Sound_CreateWADEx('SOUND_WEAPON_EXPLODEROCKET', GameWAD+':SOUNDS\EXPLODEROCKET');
 958   g_Sound_CreateWADEx('SOUND_WEAPON_EXPLODEBFG', GameWAD+':SOUNDS\EXPLODEBFG');
 959   g_Sound_CreateWADEx('SOUND_WEAPON_BFGWATER', GameWAD+':SOUNDS\BFGWATER');
 960   g_Sound_CreateWADEx('SOUND_WEAPON_EXPLODEPLASMA', GameWAD+':SOUNDS\EXPLODEPLASMA');
 961   g_Sound_CreateWADEx('SOUND_WEAPON_PLASMAWATER', GameWAD+':SOUNDS\PLASMAWATER');
 962   g_Sound_CreateWADEx('SOUND_WEAPON_FIREBALL', GameWAD+':SOUNDS\FIREBALL');
 963   g_Sound_CreateWADEx('SOUND_WEAPON_EXPLODEBALL', GameWAD+':SOUNDS\EXPLODEBALL');
 964   g_Sound_CreateWADEx('SOUND_WEAPON_FIREREV', GameWAD+':SOUNDS\FIREREV');
 965   g_Sound_CreateWADEx('SOUND_PLAYER_JETFLY', GameWAD+':SOUNDS\WORKJETPACK');
 966   g_Sound_CreateWADEx('SOUND_PLAYER_JETON', GameWAD+':SOUNDS\STARTJETPACK');
 967   g_Sound_CreateWADEx('SOUND_PLAYER_JETOFF', GameWAD+':SOUNDS\STOPJETPACK');
 968   g_Sound_CreateWADEx('SOUND_PLAYER_CASING1', GameWAD+':SOUNDS\CASING1');
 969   g_Sound_CreateWADEx('SOUND_PLAYER_CASING2', GameWAD+':SOUNDS\CASING2');
 970   g_Sound_CreateWADEx('SOUND_PLAYER_SHELL1', GameWAD+':SOUNDS\SHELL1');
 971   g_Sound_CreateWADEx('SOUND_PLAYER_SHELL2', GameWAD+':SOUNDS\SHELL2');
 972
 973   g_Texture_CreateWADEx('TEXTURE_WEAPON_ROCKET', GameWAD+':TEXTURES\BROCKET');
 974   g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_SKELFIRE', GameWAD+':TEXTURES\BSKELFIRE', 64, 16, 2);
 975   g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_BFG', GameWAD+':TEXTURES\BBFG', 64, 64, 2);
 976   g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_PLASMA', GameWAD+':TEXTURES\BPLASMA', 16, 16, 2);
 977   g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_IMPFIRE', GameWAD+':TEXTURES\BIMPFIRE', 16, 16, 2);
 978   g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_BSPFIRE', GameWAD+':TEXTURES\BBSPFIRE', 16, 16, 2);
 979   g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_CACOFIRE', GameWAD+':TEXTURES\BCACOFIRE', 16, 16, 2);
 980   g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_BARONFIRE', GameWAD+':TEXTURES\BBARONFIRE', 64, 16, 2);
 981   g_Frames_CreateWAD(nil, 'FRAMES_WEAPON_MANCUBFIRE', GameWAD+':TEXTURES\BMANCUBFIRE', 64, 32, 2);
 982   g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_ROCKET', GameWAD+':TEXTURES\EROCKET', 128, 128, 6);
 983   g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_SKELFIRE', GameWAD+':TEXTURES\ESKELFIRE', 64, 64, 3);
 984   g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_BFG', GameWAD+':TEXTURES\EBFG', 128, 128, 6);
 985   g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_IMPFIRE', GameWAD+':TEXTURES\EIMPFIRE', 64, 64, 3);
 986   g_Frames_CreateWAD(nil, 'FRAMES_BFGHIT', GameWAD+':TEXTURES\BFGHIT', 64, 64, 4);
 987   g_Frames_CreateWAD(nil, 'FRAMES_FIRE', GameWAD+':TEXTURES\FIRE', 64, 128, 8);
 988   g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_PLASMA', GameWAD+':TEXTURES\EPLASMA', 32, 32, 4, True);
 989   g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_BSPFIRE', GameWAD+':TEXTURES\EBSPFIRE', 32, 32, 5);
 990   g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_CACOFIRE', GameWAD+':TEXTURES\ECACOFIRE', 64, 64, 3);
 991   g_Frames_CreateWAD(nil, 'FRAMES_EXPLODE_BARONFIRE', GameWAD+':TEXTURES\EBARONFIRE', 64, 64, 3);
 992   g_Frames_CreateWAD(nil, 'FRAMES_SMOKE', GameWAD+':TEXTURES\SMOKE', 32, 32, 10, False);
 993
 994   g_Texture_CreateWADEx('TEXTURE_SHELL_BULLET', GameWAD+':TEXTURES\EBULLET');
 995   g_Texture_CreateWADEx('TEXTURE_SHELL_SHELL', GameWAD+':TEXTURES\ESHELL');
 996 end;
 997
 998 procedure g_Weapon_FreeData();
 999 begin
1000   e_WriteLog('Releasing weapons data...', MSG_NOTIFY);
1001
1002   g_Sound_Delete('SOUND_WEAPON_HITPUNCH');
1003   g_Sound_Delete('SOUND_WEAPON_MISSPUNCH');
1004   g_Sound_Delete('SOUND_WEAPON_HITBERSERK');
1005   g_Sound_Delete('SOUND_WEAPON_MISSBERSERK');
1006   g_Sound_Delete('SOUND_WEAPON_SELECTSAW');
1007   g_Sound_Delete('SOUND_WEAPON_IDLESAW');
1008   g_Sound_Delete('SOUND_WEAPON_HITSAW');
1009   g_Sound_Delete('SOUND_WEAPON_FIRESHOTGUN2');
1010   g_Sound_Delete('SOUND_WEAPON_FIRESHOTGUN');
1011   g_Sound_Delete('SOUND_WEAPON_FIRESAW');
1012   g_Sound_Delete('SOUND_WEAPON_FIREROCKET');
1013   g_Sound_Delete('SOUND_WEAPON_FIREPLASMA');
1014   g_Sound_Delete('SOUND_WEAPON_FIREPISTOL');
1015   g_Sound_Delete('SOUND_WEAPON_FIRECGUN');
1016   g_Sound_Delete('SOUND_WEAPON_FIREBFG');
1017   g_Sound_Delete('SOUND_FIRE');
1018   g_Sound_Delete('SOUND_WEAPON_STARTFIREBFG');
1019   g_Sound_Delete('SOUND_WEAPON_EXPLODEROCKET');
1020   g_Sound_Delete('SOUND_WEAPON_EXPLODEBFG');
1021   g_Sound_Delete('SOUND_WEAPON_BFGWATER');
1022   g_Sound_Delete('SOUND_WEAPON_EXPLODEPLASMA');
1023   g_Sound_Delete('SOUND_WEAPON_PLASMAWATER');
1024   g_Sound_Delete('SOUND_WEAPON_FIREBALL');
1025   g_Sound_Delete('SOUND_WEAPON_EXPLODEBALL');
1026   g_Sound_Delete('SOUND_WEAPON_FIREREV');
1027   g_Sound_Delete('SOUND_PLAYER_JETFLY');
1028   g_Sound_Delete('SOUND_PLAYER_JETON');
1029   g_Sound_Delete('SOUND_PLAYER_JETOFF');
1030   g_Sound_Delete('SOUND_PLAYER_CASING1');
1031   g_Sound_Delete('SOUND_PLAYER_CASING2');
1032   g_Sound_Delete('SOUND_PLAYER_SHELL1');
1033   g_Sound_Delete('SOUND_PLAYER_SHELL2');
1034
1035   g_Texture_Delete('TEXTURE_WEAPON_ROCKET');
1036   g_Frames_DeleteByName('FRAMES_WEAPON_BFG');
1037   g_Frames_DeleteByName('FRAMES_WEAPON_PLASMA');
1038   g_Frames_DeleteByName('FRAMES_WEAPON_IMPFIRE');
1039   g_Frames_DeleteByName('FRAMES_WEAPON_BSPFIRE');
1040   g_Frames_DeleteByName('FRAMES_WEAPON_CACOFIRE');
1041   g_Frames_DeleteByName('FRAMES_WEAPON_MANCUBFIRE');
1042   g_Frames_DeleteByName('FRAMES_EXPLODE_ROCKET');
1043   g_Frames_DeleteByName('FRAMES_EXPLODE_BFG');
1044   g_Frames_DeleteByName('FRAMES_EXPLODE_IMPFIRE');
1045   g_Frames_DeleteByName('FRAMES_BFGHIT');
1046   g_Frames_DeleteByName('FRAMES_FIRE');
1047   g_Frames_DeleteByName('FRAMES_EXPLODE_PLASMA');
1048   g_Frames_DeleteByName('FRAMES_EXPLODE_BSPFIRE');
1049   g_Frames_DeleteByName('FRAMES_EXPLODE_CACOFIRE');
1050   g_Frames_DeleteByName('FRAMES_SMOKE');
1051   g_Frames_DeleteByName('FRAMES_WEAPON_BARONFIRE');
1052   g_Frames_DeleteByName('FRAMES_EXPLODE_BARONFIRE');
1053 end;
1054
1055 procedure g_Weapon_gun(x, y, xd, yd, v, dmg: Integer; SpawnerUID: Word; CheckTrigger: Boolean);
1056 var
1057   a: Integer;
1058   x2, y2: Integer;
1059   dx, dy: Integer;
1060   xe, ye: Integer;
1061   xi, yi: Integer;
1062   s, c: Extended;
1063   //vx, vy: Integer;
1064   xx, yy, d: Integer;
1065
1066   i: Integer;
1067   t1, _collide: Boolean;
1068   w, h: Word;
1069 begin
1070   a := GetAngle(x, y, xd, yd)+180;
1071
1072   SinCos(DegToRad(-a), s, c);
1073
1074   if Abs(s) < 0.01 then s := 0;
1075   if Abs(c) < 0.01 then c := 0;
1076
1077   x2 := x+Round(c*gMapInfo.Width);
1078   y2 := y+Round(s*gMapInfo.Width);
1079
1080   t1 := gWalls <> nil;
1081   _collide := False;
1082   w := gMapInfo.Width;
1083   h := gMapInfo.Height;
1084
1085   xe := 0;
1086   ye := 0;
1087   dx := x2-x;
1088   dy := y2-y;
1089
1090   if (xd = 0) and (yd = 0) then Exit;
1091
1092   if dx > 0 then xi := 1 else if dx < 0 then xi := -1 else xi := 0;
1093   if dy > 0 then yi := 1 else if dy < 0 then yi := -1 else yi := 0;
1094
1095   dx := Abs(dx);
1096   dy := Abs(dy);
1097
1098   if dx > dy then d := dx else d := dy;
1099
1100   //blood vel, for Monster.Damage()
1101   //vx := (dx*10 div d)*xi;
1102   //vy := (dy*10 div d)*yi;
1103
1104   xx := x;
1105   yy := y;
1106
1107   for i := 1 to d do
1108   begin
1109     xe := xe+dx;
1110     ye := ye+dy;
1111
1112     if xe > d then
1113     begin
1114       xe := xe-d;
1115       xx := xx+xi;
1116     end;
1117
1118     if ye > d then
1119     begin
1120       ye := ye-d;
1121       yy := yy+yi;
1122     end;
1123
1124     if (yy > h) or (yy < 0) then Break;
1125     if (xx > w) or (xx < 0) then Break;
1126
1127     if t1 then
1128       if ByteBool(gCollideMap[yy, xx] and MARK_BLOCKED) then
1129       begin
1130         _collide := True;
1131         g_GFX_Spark(xx-xi, yy-yi, 2+Random(2), 180+a, 0, 0);
1132         if g_Game_IsServer and g_Game_IsNet then
1133           MH_SEND_Effect(xx-xi, yy-yi, 180+a, NET_GFX_SPARK);
1134       end;
1135
1136     if not _collide then
1137       _collide := GunHit(xx, yy, xi*v, yi*v, dmg, SpawnerUID, v <> 0) <> 0;
1138
1139     if _collide then
1140       Break;
1141   end;
1142
1143   if CheckTrigger and g_Game_IsServer then
1144     g_Triggers_PressL(X, Y, xx-xi, yy-yi, SpawnerUID, ACTIVATE_SHOT);
1145 end;
1146
1147 procedure g_Weapon_punch(x, y: Integer; d, SpawnerUID: Word);
1148 var
1149   obj: TObj;
1150 begin
1151   obj.X := X;
1152   obj.Y := Y;
1153   obj.rect.X := 0;
1154   obj.rect.Y := 0;
1155   obj.rect.Width := 39;
1156   obj.rect.Height := 52;
1157   obj.Vel.X := 0;
1158   obj.Vel.Y := 0;
1159   obj.Accel.X := 0;
1160   obj.Accel.Y := 0;
1161
1162   if g_Weapon_Hit(@obj, d, SpawnerUID, HIT_SOME) <> 0 then
1163     g_Sound_PlayExAt('SOUND_WEAPON_HITPUNCH', x, y)
1164   else
1165     g_Sound_PlayExAt('SOUND_WEAPON_MISSPUNCH', x, y);
1166 end;
1167
1168 function g_Weapon_chainsaw(x, y: Integer; d, SpawnerUID: Word): Integer;
1169 var
1170   obj: TObj;
1171 begin
1172   obj.X := X;
1173   obj.Y := Y;
1174   obj.rect.X := 0;
1175   obj.rect.Y := 0;
1176   obj.rect.Width := 32;
1177   obj.rect.Height := 52;
1178   obj.Vel.X := 0;
1179   obj.Vel.Y := 0;
1180   obj.Accel.X := 0;
1181   obj.Accel.Y := 0;
1182
1183   Result := g_Weapon_Hit(@obj, d, SpawnerUID, HIT_SOME);
1184 end;
1185
1186 procedure g_Weapon_rocket(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1187   Silent: Boolean = False);
1188 var
1189   find_id: DWORD;
1190   dx, dy: Integer;
1191 begin
1192   if WID < 0 then
1193     find_id := FindShot()
1194   else
1195   begin
1196     find_id := WID;
1197     if Integer(find_id) >= High(Shots) then
1198       SetLength(Shots, find_id + 64)
1199   end;
1200
1201   with Shots[find_id] do
1202   begin
1203     g_Obj_Init(@Obj);
1204
1205     Obj.Rect.Width := SHOT_ROCKETLAUNCHER_WIDTH;
1206     Obj.Rect.Height := SHOT_ROCKETLAUNCHER_HEIGHT;
1207
1208     dx := IfThen(xd > x, -Obj.Rect.Width, 0);
1209     dy := -(Obj.Rect.Height div 2);
1210     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 12);
1211
1212     Animation := nil;
1213     triggers := nil;
1214     ShotType := WEAPON_ROCKETLAUNCHER;
1215     g_Texture_Get('TEXTURE_WEAPON_ROCKET', TextureID);
1216   end;
1217
1218   Shots[find_id].SpawnerUID := SpawnerUID;
1219
1220   if not Silent then
1221     g_Sound_PlayExAt('SOUND_WEAPON_FIREROCKET', x, y);
1222 end;
1223
1224 procedure g_Weapon_revf(x, y, xd, yd: Integer; SpawnerUID, TargetUID: Word;
1225   WID: Integer = -1; Silent: Boolean = False);
1226 var
1227   find_id, FramesID: DWORD;
1228   dx, dy: Integer;
1229 begin
1230   if WID < 0 then
1231     find_id := FindShot()
1232   else
1233   begin
1234     find_id := WID;
1235     if Integer(find_id) >= High(Shots) then
1236       SetLength(Shots, find_id + 64)
1237   end;
1238
1239   with Shots[find_id] do
1240   begin
1241     g_Obj_Init(@Obj);
1242
1243     Obj.Rect.Width := SHOT_SKELFIRE_WIDTH;
1244     Obj.Rect.Height := SHOT_SKELFIRE_HEIGHT;
1245
1246     dx := -(Obj.Rect.Width div 2);
1247     dy := -(Obj.Rect.Height div 2);
1248     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 12);
1249
1250     triggers := nil;
1251     ShotType := WEAPON_SKEL_FIRE;
1252     target := TargetUID;
1253     g_Frames_Get(FramesID, 'FRAMES_WEAPON_SKELFIRE');
1254     Animation := TAnimation.Create(FramesID, True, 5);
1255   end;
1256
1257   Shots[find_id].SpawnerUID := SpawnerUID;
1258
1259   if not Silent then
1260     g_Sound_PlayExAt('SOUND_WEAPON_FIREREV', x, y);
1261 end;
1262
1263 procedure g_Weapon_plasma(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1264   Silent: Boolean = False);
1265 var
1266   find_id, FramesID: DWORD;
1267   dx, dy: Integer;
1268 begin
1269   if WID < 0 then
1270     find_id := FindShot()
1271   else
1272   begin
1273     find_id := WID;
1274     if Integer(find_id) >= High(Shots) then
1275       SetLength(Shots, find_id + 64);
1276   end;
1277
1278   with Shots[find_id] do
1279   begin
1280     g_Obj_Init(@Obj);
1281
1282     Obj.Rect.Width := SHOT_PLASMA_WIDTH;
1283     Obj.Rect.Height := SHOT_PLASMA_HEIGHT;
1284
1285     dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1286     dy := -(Obj.Rect.Height div 2);
1287     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1288
1289     triggers := nil;
1290     ShotType := WEAPON_PLASMA;
1291     g_Frames_Get(FramesID, 'FRAMES_WEAPON_PLASMA');
1292     Animation := TAnimation.Create(FramesID, True, 5);
1293   end;
1294
1295   Shots[find_id].SpawnerUID := SpawnerUID;
1296
1297   if not Silent then
1298     g_Sound_PlayExAt('SOUND_WEAPON_FIREPLASMA', x, y);
1299 end;
1300
1301 procedure g_Weapon_ball1(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1302   Silent: Boolean = False);
1303 var
1304   find_id, FramesID: DWORD;
1305   dx, dy: Integer;
1306 begin
1307   if WID < 0 then
1308     find_id := FindShot()
1309   else
1310   begin
1311     find_id := WID;
1312     if Integer(find_id) >= High(Shots) then
1313       SetLength(Shots, find_id + 64)
1314   end;
1315
1316   with Shots[find_id] do
1317   begin
1318     g_Obj_Init(@Obj);
1319
1320     Obj.Rect.Width := 16;
1321     Obj.Rect.Height := 16;
1322
1323     dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1324     dy := -(Obj.Rect.Height div 2);
1325     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1326
1327     triggers := nil;
1328     ShotType := WEAPON_IMP_FIRE;
1329     g_Frames_Get(FramesID, 'FRAMES_WEAPON_IMPFIRE');
1330     Animation := TAnimation.Create(FramesID, True, 4);
1331   end;
1332
1333   Shots[find_id].SpawnerUID := SpawnerUID;
1334
1335   if not Silent then
1336     g_Sound_PlayExAt('SOUND_WEAPON_FIREBALL', x, y);
1337 end;
1338
1339 procedure g_Weapon_ball2(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1340   Silent: Boolean = False);
1341 var
1342   find_id, FramesID: DWORD;
1343   dx, dy: Integer;
1344 begin
1345   if WID < 0 then
1346     find_id := FindShot()
1347   else
1348   begin
1349     find_id := WID;
1350     if Integer(find_id) >= High(Shots) then
1351       SetLength(Shots, find_id + 64)
1352   end;
1353
1354   with Shots[find_id] do
1355   begin
1356     g_Obj_Init(@Obj);
1357
1358     Obj.Rect.Width := 16;
1359     Obj.Rect.Height := 16;
1360
1361     dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1362     dy := -(Obj.Rect.Height div 2);
1363     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1364
1365     triggers := nil;
1366     ShotType := WEAPON_CACO_FIRE;
1367     g_Frames_Get(FramesID, 'FRAMES_WEAPON_CACOFIRE');
1368     Animation := TAnimation.Create(FramesID, True, 4);
1369   end;
1370
1371   Shots[find_id].SpawnerUID := SpawnerUID;
1372
1373   if not Silent then
1374     g_Sound_PlayExAt('SOUND_WEAPON_FIREBALL', x, y);
1375 end;
1376
1377 procedure g_Weapon_ball7(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1378   Silent: Boolean = False);
1379 var
1380   find_id, FramesID: DWORD;
1381   dx, dy: Integer;
1382 begin
1383   if WID < 0 then
1384     find_id := FindShot()
1385   else
1386   begin
1387     find_id := WID;
1388     if Integer(find_id) >= High(Shots) then
1389       SetLength(Shots, find_id + 64)
1390   end;
1391
1392   with Shots[find_id] do
1393   begin
1394     g_Obj_Init(@Obj);
1395
1396     Obj.Rect.Width := 32;
1397     Obj.Rect.Height := 16;
1398
1399     dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1400     dy := -(Obj.Rect.Height div 2);
1401     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1402
1403     triggers := nil;
1404     ShotType := WEAPON_BARON_FIRE;
1405     g_Frames_Get(FramesID, 'FRAMES_WEAPON_BARONFIRE');
1406     Animation := TAnimation.Create(FramesID, True, 4);
1407   end;
1408
1409   Shots[find_id].SpawnerUID := SpawnerUID;
1410
1411   if not Silent then
1412     g_Sound_PlayExAt('SOUND_WEAPON_FIREBALL', x, y);
1413 end;
1414
1415 procedure g_Weapon_aplasma(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1416   Silent: Boolean = False);
1417 var
1418   find_id, FramesID: DWORD;
1419   dx, dy: Integer;
1420 begin
1421   if WID < 0 then
1422     find_id := FindShot()
1423   else
1424   begin
1425     find_id := WID;
1426     if Integer(find_id) >= High(Shots) then
1427       SetLength(Shots, find_id + 64)
1428   end;
1429
1430   with Shots[find_id] do
1431   begin
1432     g_Obj_Init(@Obj);
1433
1434     Obj.Rect.Width := 16;
1435     Obj.Rect.Height := 16;
1436
1437     dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1438     dy := -(Obj.Rect.Height div 2);
1439     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1440
1441     triggers := nil;
1442     ShotType := WEAPON_BSP_FIRE;
1443     g_Frames_Get(FramesID, 'FRAMES_WEAPON_BSPFIRE');
1444     Animation := TAnimation.Create(FramesID, True, 4);
1445   end;
1446
1447   Shots[find_id].SpawnerUID := SpawnerUID;
1448
1449   if not Silent then
1450     g_Sound_PlayExAt('SOUND_WEAPON_FIREPLASMA', x, y);
1451 end;
1452
1453 procedure g_Weapon_manfire(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1454   Silent: Boolean = False);
1455 var
1456   find_id, FramesID: DWORD;
1457   dx, dy: Integer;
1458 begin
1459   if WID < 0 then
1460     find_id := FindShot()
1461   else
1462   begin
1463     find_id := WID;
1464     if Integer(find_id) >= High(Shots) then
1465       SetLength(Shots, find_id + 64)
1466   end;
1467
1468   with Shots[find_id] do
1469   begin
1470     g_Obj_Init(@Obj);
1471
1472     Obj.Rect.Width := 32;
1473     Obj.Rect.Height := 32;
1474
1475     dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1476     dy := -(Obj.Rect.Height div 2);
1477     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1478
1479     triggers := nil;
1480     ShotType := WEAPON_MANCUB_FIRE;
1481     g_Frames_Get(FramesID, 'FRAMES_WEAPON_MANCUBFIRE');
1482     Animation := TAnimation.Create(FramesID, True, 4);
1483   end;
1484
1485   Shots[find_id].SpawnerUID := SpawnerUID;
1486
1487   if not Silent then
1488     g_Sound_PlayExAt('SOUND_WEAPON_FIREBALL', x, y);
1489 end;
1490
1491 procedure g_Weapon_bfgshot(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1;
1492   Silent: Boolean = False);
1493 var
1494   find_id, FramesID: DWORD;
1495   dx, dy: Integer;
1496 begin
1497   if WID < 0 then
1498     find_id := FindShot()
1499   else
1500   begin
1501     find_id := WID;
1502     if Integer(find_id) >= High(Shots) then
1503       SetLength(Shots, find_id + 64)
1504   end;
1505
1506   with Shots[find_id] do
1507   begin
1508     g_Obj_Init(@Obj);
1509
1510     Obj.Rect.Width := SHOT_BFG_WIDTH;
1511     Obj.Rect.Height := SHOT_BFG_HEIGHT;
1512
1513     dx := IfThen(xd>x, -Obj.Rect.Width, 0);
1514     dy := -(Obj.Rect.Height div 2);
1515     throw(find_id, x+dx, y+dy, xd+dx, yd+dy, 16);
1516
1517     triggers := nil;
1518     ShotType := WEAPON_BFG;
1519     g_Frames_Get(FramesID, 'FRAMES_WEAPON_BFG');
1520     Animation := TAnimation.Create(FramesID, True, 6);
1521   end;
1522
1523   Shots[find_id].SpawnerUID := SpawnerUID;
1524
1525   if not Silent then
1526     g_Sound_PlayExAt('SOUND_WEAPON_FIREBFG', x, y);
1527 end;
1528
1529 procedure g_Weapon_bfghit(x, y: Integer);
1530 var
1531   ID: DWORD;
1532   Anim: TAnimation;
1533 begin
1534   if g_Frames_Get(ID, 'FRAMES_BFGHIT') then
1535   begin
1536     Anim := TAnimation.Create(ID, False, 4);
1537     g_GFX_OnceAnim(x-32, y-32, Anim);
1538     Anim.Free();
1539   end;
1540 end;
1541
1542 procedure g_Weapon_pistol(x, y, xd, yd: Integer; SpawnerUID: Word;
1543   Silent: Boolean = False);
1544 begin
1545   if not Silent then
1546     g_Sound_PlayExAt('SOUND_WEAPON_FIREPISTOL', x, y);
1547
1548   g_Weapon_gun(x, y, xd, yd, 1, 3, SpawnerUID, True);
1549   if gGameSettings.GameMode in [GM_DM, GM_TDM, GM_CTF] then
1550   begin
1551     g_Weapon_gun(x, y+1, xd, yd+1, 1, 3, SpawnerUID, False);
1552     g_Weapon_gun(x, y-1, xd, yd-1, 1, 2, SpawnerUID, False);
1553   end;
1554 end;
1555
1556 procedure g_Weapon_mgun(x, y, xd, yd: Integer; SpawnerUID: Word;
1557   Silent: Boolean = False);
1558 begin
1559   if not Silent then
1560     if gSoundEffectsDF then g_Sound_PlayExAt('SOUND_WEAPON_FIRECGUN', x, y);
1561
1562   g_Weapon_gun(x, y, xd, yd, 1, 3, SpawnerUID, True);
1563   if (gGameSettings.GameMode in [GM_DM, GM_TDM, GM_CTF]) and
1564      (g_GetUIDType(SpawnerUID) = UID_PLAYER) then
1565   begin
1566     g_Weapon_gun(x, y+1, xd, yd+1, 1, 2, SpawnerUID, False);
1567     g_Weapon_gun(x, y-1, xd, yd-1, 1, 2, SpawnerUID, False);
1568   end;
1569 end;
1570
1571 procedure g_Weapon_shotgun(x, y, xd, yd: Integer; SpawnerUID: Word;
1572   Silent: Boolean = False);
1573 var
1574   i, j: Integer;
1575 begin
1576   if not Silent then
1577     if gSoundEffectsDF then g_Sound_PlayExAt('SOUND_WEAPON_FIRESHOTGUN', x, y);
1578
1579   for i := 0 to 9 do
1580   begin
1581     j := Random(17)-8; // -8 .. 8
1582     g_Weapon_gun(x, y+j, xd, yd+j, IfThen(i mod 2 <> 0, 1, 0), 3, SpawnerUID, i=0);
1583   end;
1584 end;
1585
1586 procedure g_Weapon_dshotgun(x, y, xd, yd: Integer; SpawnerUID: Word;
1587   Silent: Boolean = False);
1588 var
1589   a, i, j: Integer;
1590 begin
1591   if not Silent then
1592     g_Sound_PlayExAt('SOUND_WEAPON_FIRESHOTGUN2', x, y);
1593
1594   if gGameSettings.GameMode in [GM_DM, GM_TDM, GM_CTF] then a := 25 else a := 20;
1595   for i := 0 to a do
1596   begin
1597     j := Random(41)-20; // -20 .. 20
1598     g_Weapon_gun(x, y+j, xd, yd+j, IfThen(i mod 3 <> 0, 0, 1), 3, SpawnerUID, i=0);
1599   end;
1600 end;
1601
1602 procedure g_Weapon_Update();
1603 var
1604   i, a, h, cx, cy, oldvx, oldvy: Integer;
1605   _id: DWORD;
1606   Anim: TAnimation;
1607   t: DWArray;
1608   st: Word;
1609   s: String;
1610   o: TObj;
1611   spl: Boolean;
1612   Loud: Boolean;
1613 begin
1614   if Shots = nil then
1615     Exit;
1616
1617   for i := 0 to High(Shots) do
1618   begin
1619     if Shots[i].ShotType = 0 then
1620       Continue;
1621
1622     Loud := True;
1623
1624     with Shots[i] do
1625     begin
1626       Timeout := Timeout - 1;
1627       oldvx := Obj.Vel.X;
1628       oldvy := Obj.Vel.Y;
1629     // Àêòèâèðîâàòü òðèããåðû ïî ïóòè (êðîìå óæå àêòèâèðîâàííûõ):
1630       if g_Game_IsServer then
1631         t := g_Triggers_PressR(Obj.X, Obj.Y, Obj.Rect.Width, Obj.Rect.Height,
1632                                SpawnerUID, ACTIVATE_SHOT, triggers)
1633       else
1634         t := nil;
1635
1636       if t <> nil then
1637       begin
1638       // Ïîïîëíÿåì ñïèñîê àêòèâèðîâàííûõ òðèããåðîâ:
1639         if triggers = nil then
1640           triggers := t
1641         else
1642           begin
1643             h := High(t);
1644
1645             for a := 0 to h do
1646               if not InDWArray(t[a], triggers) then
1647               begin
1648                 SetLength(triggers, Length(triggers)+1);
1649                 triggers[High(triggers)] := t[a];
1650               end;
1651           end;
1652       end;
1653
1654     // Àíèìàöèÿ ñíàðÿäà:
1655       if Animation <> nil then
1656         Animation.Update();
1657
1658     // Äâèæåíèå:
1659       spl := (ShotType <> WEAPON_PLASMA) and
1660              (ShotType <> WEAPON_BFG) and
1661              (ShotType <> WEAPON_BSP_FIRE);
1662
1663       st := g_Obj_Move(@Obj, False, spl);
1664
1665       if WordBool(st and MOVE_FALLOUT) or (Obj.X < -1000) or
1666         (Obj.X > gMapInfo.Width+1000) or (Obj.Y < -1000) then
1667       begin
1668         // Íà êëèåíòå ñêîðåå âñåãî è òàê óæå âûïàë.
1669         ShotType := 0;
1670         Animation.Free();
1671         Continue;
1672       end;
1673
1674       cx := Obj.X + (Obj.Rect.Width div 2);
1675       cy := Obj.Y + (Obj.Rect.Height div 2);
1676
1677       case ShotType of
1678         WEAPON_ROCKETLAUNCHER, WEAPON_SKEL_FIRE: // Ðàêåòû è ñíàðÿäû Ñêåëåòà
1679           begin
1680           // Âûëåòåëà èç âîäû:
1681             if WordBool(st and MOVE_HITAIR) then
1682               g_Obj_SetSpeed(@Obj, 12);
1683
1684           // Â âîäå øëåéô - ïóçûðè, â âîçäóõå øëåéô - äûì:
1685             if WordBool(st and MOVE_INWATER) then
1686               g_GFX_Bubbles(Obj.X+(Obj.Rect.Width div 2),
1687                             Obj.Y+(Obj.Rect.Height div 2),
1688                             1+Random(3), 16, 16)
1689             else
1690               if g_Frames_Get(_id, 'FRAMES_SMOKE') then
1691               begin
1692                 Anim := TAnimation.Create(_id, False, 3);
1693                 Anim.Alpha := 150;
1694                 g_GFX_OnceAnim(Obj.X-14+Random(9),
1695                                Obj.Y+(Obj.Rect.Height div 2)-20+Random(9),
1696                                Anim, ONCEANIM_SMOKE);
1697                 Anim.Free();
1698               end;
1699
1700           // Ïîïàëè â êîãî-òî èëè â ñòåíó:
1701             if WordBool(st and (MOVE_HITWALL or MOVE_HITLAND or MOVE_HITCEIL)) or
1702                (g_Weapon_Hit(@Obj, 10, SpawnerUID, HIT_SOME, False) <> 0) or
1703                (Timeout < 1) then
1704             begin
1705               Obj.Vel.X := 0;
1706               Obj.Vel.Y := 0;
1707
1708               g_Weapon_Explode(cx, cy, 60, SpawnerUID);
1709
1710               if ShotType = WEAPON_SKEL_FIRE then
1711                 begin // Âçðûâ ñíàðÿäà Ñêåëåòà
1712                   if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_SKELFIRE') then
1713                   begin
1714                     Anim := TAnimation.Create(TextureID, False, 8);
1715                     Anim.Blending := False;
1716                     g_GFX_OnceAnim((Obj.X+32)-58, (Obj.Y+8)-36, Anim);
1717                     Anim.Free();
1718                   end;
1719                 end
1720               else
1721                 begin // Âçðûâ Ðàêåòû
1722                   if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_ROCKET') then
1723                   begin
1724                     Anim := TAnimation.Create(TextureID, False, 6);
1725                     Anim.Blending := False;
1726                     g_GFX_OnceAnim(cx-64, cy-64, Anim);
1727                     Anim.Free();
1728                   end;
1729                 end;
1730
1731               g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEROCKET', Obj.X, Obj.Y);
1732
1733               ShotType := 0;
1734             end;
1735
1736             if ShotType = WEAPON_SKEL_FIRE then
1737             begin // Ñàìîíàâîäêà ñíàðÿäà Ñêåëåòà:
1738               if GetPos(target, @o) then
1739                 throw(i, Obj.X, Obj.Y,
1740                       o.X+o.Rect.X+(o.Rect.Width div 2)+o.Vel.X+o.Accel.X,
1741                       o.Y+o.Rect.Y+(o.Rect.Height div 2)+o.Vel.Y+o.Accel.Y,
1742                       12);
1743             end;
1744           end;
1745
1746         WEAPON_PLASMA, WEAPON_BSP_FIRE: // Ïëàçìà, ïëàçìà Àðàõíàòðîíà
1747           begin
1748           // Ïîïàëà â âîäó - ýëåêòðîøîê ïî âîäå:
1749             if WordBool(st and (MOVE_INWATER or MOVE_HITWATER)) then
1750             begin
1751               g_Sound_PlayExAt('SOUND_WEAPON_PLASMAWATER', Obj.X, Obj.Y);
1752               if g_Game_IsServer then CheckTrap(i, 10, HIT_ELECTRO);
1753               ShotType := 0;
1754               Continue;
1755             end;
1756
1757           // Âåëè÷èíà óðîíà:
1758             if (ShotType = WEAPON_PLASMA) and
1759                (gGameSettings.GameMode in [GM_DM, GM_TDM, GM_CTF]) then
1760               a := 10
1761             else
1762               a := 5;
1763
1764             if ShotType = WEAPON_BSP_FIRE then
1765               a := 10;
1766
1767           // Ïîïàëè â êîãî-òî èëè â ñòåíó:
1768             if WordBool(st and (MOVE_HITWALL or MOVE_HITLAND or MOVE_HITCEIL)) or
1769                (g_Weapon_Hit(@Obj, a, SpawnerUID, HIT_SOME, False) <> 0) or
1770                (Timeout < 1) then
1771             begin
1772               if ShotType = WEAPON_PLASMA then
1773                 s := 'FRAMES_EXPLODE_PLASMA'
1774               else
1775                 s := 'FRAMES_EXPLODE_BSPFIRE';
1776
1777             // Âçðûâ Ïëàçìû:
1778               if g_Frames_Get(TextureID, s) then
1779               begin
1780                 Anim := TAnimation.Create(TextureID, False, 3);
1781                 Anim.Blending := False;
1782                 g_GFX_OnceAnim(cx-16, cy-16, Anim);
1783                 Anim.Free();
1784               end;
1785
1786               g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEPLASMA', Obj.X, Obj.Y);
1787
1788               ShotType := 0;
1789             end;
1790           end;
1791
1792         WEAPON_BFG: // BFG
1793           begin
1794           // Ïîïàëà â âîäó - ýëåêòðîøîê ïî âîäå:
1795             if WordBool(st and (MOVE_INWATER or MOVE_HITWATER)) then
1796             begin
1797               g_Sound_PlayExAt('SOUND_WEAPON_BFGWATER', Obj.X, Obj.Y);
1798               if g_Game_IsServer then CheckTrap(i, 1000, HIT_ELECTRO);
1799               ShotType := 0;
1800               Continue;
1801             end;
1802
1803           // Ïîïàëè â êîãî-òî èëè â ñòåíó:
1804             if WordBool(st and (MOVE_HITWALL or MOVE_HITLAND or MOVE_HITCEIL)) or
1805                (g_Weapon_Hit(@Obj, SHOT_BFG_DAMAGE, SpawnerUID, HIT_BFG, False) <> 0) or
1806                (Timeout < 1) then
1807             begin
1808             // Ëó÷è BFG:
1809               if g_Game_IsServer then g_Weapon_BFG9000(cx, cy, SpawnerUID);
1810
1811             // Âçðûâ BFG:
1812               if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_BFG') then
1813               begin
1814                 Anim := TAnimation.Create(TextureID, False, 6);
1815                 Anim.Blending := False;
1816                 g_GFX_OnceAnim(cx-64, cy-64, Anim);
1817                 Anim.Free();
1818               end;
1819
1820               g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBFG', Obj.X, Obj.Y);
1821
1822               ShotType := 0;
1823             end;
1824           end;
1825
1826         WEAPON_IMP_FIRE, WEAPON_CACO_FIRE, WEAPON_BARON_FIRE: // Âûñòðåëû Áåñà, Êàêîäåìîíà Ðûöàðÿ/Áàðîíà àäà
1827           begin
1828           // Âûëåòåë èç âîäû:
1829             if WordBool(st and MOVE_HITAIR) then
1830               g_Obj_SetSpeed(@Obj, 16);
1831
1832           // Âåëè÷èíà óðîíà:
1833             if ShotType = WEAPON_IMP_FIRE then
1834               a := 5
1835             else
1836               if ShotType = WEAPON_CACO_FIRE then
1837                 a := 20
1838               else
1839                 a := 40;
1840
1841           // Ïîïàëè â êîãî-òî èëè â ñòåíó:
1842             if WordBool(st and (MOVE_HITWALL or MOVE_HITLAND or MOVE_HITCEIL)) or
1843                (g_Weapon_Hit(@Obj, a, SpawnerUID, HIT_SOME) <> 0) or
1844                (Timeout < 1) then
1845             begin
1846               if ShotType = WEAPON_IMP_FIRE then
1847                 s := 'FRAMES_EXPLODE_IMPFIRE'
1848               else
1849                 if ShotType = WEAPON_CACO_FIRE then
1850                   s := 'FRAMES_EXPLODE_CACOFIRE'
1851                 else
1852                   s := 'FRAMES_EXPLODE_BARONFIRE';
1853
1854             // Âçðûâ:
1855               if g_Frames_Get(TextureID, s) then
1856               begin
1857                 Anim := TAnimation.Create(TextureID, False, 6);
1858                 Anim.Blending := False;
1859                 g_GFX_OnceAnim(cx-32, cy-32, Anim);
1860                 Anim.Free();
1861               end;
1862
1863               g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBALL', Obj.X, Obj.Y);
1864
1865               ShotType := 0;
1866             end;
1867           end;
1868
1869         WEAPON_MANCUB_FIRE: // Âûñòðåë Ìàíêóáóñà
1870           begin
1871           // Âûëåòåë èç âîäû:
1872             if WordBool(st and MOVE_HITAIR) then
1873               g_Obj_SetSpeed(@Obj, 16);
1874
1875           // Ïîïàëè â êîãî-òî èëè â ñòåíó:
1876             if WordBool(st and (MOVE_HITWALL or MOVE_HITLAND or MOVE_HITCEIL)) or
1877                (g_Weapon_Hit(@Obj, 40, SpawnerUID, HIT_SOME, False) <> 0) or
1878                (Timeout < 1) then
1879             begin
1880             // Âçðûâ:
1881               if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_ROCKET') then
1882               begin
1883                 Anim := TAnimation.Create(TextureID, False, 6);
1884                 Anim.Blending := False;
1885                 g_GFX_OnceAnim(cx-64, cy-64, Anim);
1886                 Anim.Free();
1887               end;
1888
1889               g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBALL', Obj.X, Obj.Y);
1890
1891               ShotType := 0;
1892             end;
1893           end;
1894       end; // case ShotType of...
1895
1896     // Åñëè ñíàðÿäà óæå íåò, óäàëÿåì àíèìàöèþ:
1897       if (ShotType = 0) then
1898       begin
1899         if gGameSettings.GameType = GT_SERVER then
1900           MH_SEND_DeleteShot(i, Obj.X, Obj.Y, Loud);
1901         Animation.Free();
1902         Animation := nil;
1903       end
1904       else if (oldvx <> Obj.Vel.X) or (oldvy <> Obj.Vel.Y) then
1905         if gGameSettings.GameType = GT_SERVER then
1906           MH_SEND_UpdateShot(i);
1907     end;
1908   end;
1909 end;
1910
1911 procedure g_Weapon_Draw();
1912 var
1913   i: Integer;
1914   a: SmallInt;
1915   p: TPoint;
1916 begin
1917   if Shots = nil then
1918     Exit;
1919
1920   for i := 0 to High(Shots) do
1921     if Shots[i].ShotType <> 0 then
1922       with Shots[i] do
1923       begin
1924         if (Shots[i].ShotType = WEAPON_ROCKETLAUNCHER) or
1925            (Shots[i].ShotType = WEAPON_BARON_FIRE) or
1926            (Shots[i].ShotType = WEAPON_MANCUB_FIRE) or
1927            (Shots[i].ShotType = WEAPON_SKEL_FIRE) then
1928           a := -GetAngle2(Obj.Vel.X, Obj.Vel.Y)
1929         else
1930           a := 0;
1931
1932         p.X := Obj.Rect.Width div 2;
1933         p.Y := Obj.Rect.Height div 2;
1934
1935         if Animation <> nil then
1936           begin
1937             if (Shots[i].ShotType = WEAPON_BARON_FIRE) or
1938                (Shots[i].ShotType = WEAPON_MANCUB_FIRE) or
1939                (Shots[i].ShotType = WEAPON_SKEL_FIRE) then
1940               Animation.DrawEx(Obj.X, Obj.Y, M_NONE, p, a)
1941             else
1942               Animation.Draw(Obj.X, Obj.Y, M_NONE);
1943           end
1944         else
1945           begin
1946             if (Shots[i].ShotType = WEAPON_ROCKETLAUNCHER) then
1947               e_DrawAdv(TextureID, Obj.X, Obj.Y, 0, True, False, a, @p, M_NONE)
1948             else
1949               e_Draw(TextureID, Obj.X, Obj.Y, 0, True, False);
1950           end;
1951
1952           if g_debug_Frames then
1953           begin
1954             e_DrawQuad(Obj.X+Obj.Rect.X,
1955                        Obj.Y+Obj.Rect.Y,
1956                        Obj.X+Obj.Rect.X+Obj.Rect.Width-1,
1957                        Obj.Y+Obj.Rect.Y+Obj.Rect.Height-1,
1958                        0, 255, 0);
1959           end;
1960       end;
1961 end;
1962
1963 function g_Weapon_Danger(UID: Word; X, Y: Integer; Width, Height: Word; Time: Byte): Boolean;
1964 var
1965   a: Integer;
1966 begin
1967   Result := False;
1968
1969   if Shots = nil then
1970     Exit;
1971
1972   for a := 0 to High(Shots) do
1973     if (Shots[a].ShotType <> 0) and (Shots[a].SpawnerUID <> UID) then
1974       if ((Shots[a].Obj.Vel.Y = 0) and (Shots[a].Obj.Vel.X > 0) and (Shots[a].Obj.X < X)) or
1975           (Shots[a].Obj.Vel.Y = 0) and (Shots[a].Obj.Vel.X < 0) and (Shots[a].Obj.X > X) then
1976         if (Abs(X-Shots[a].Obj.X) < Abs(Shots[a].Obj.Vel.X*Time)) and
1977             g_Collide(X, Y, Width, Height, X, Shots[a].Obj.Y,
1978                       Shots[a].Obj.Rect.Width, Shots[a].Obj.Rect.Height) and
1979             g_TraceVector(X, Y, Shots[a].Obj.X, Shots[a].Obj.Y) then
1980         begin
1981           Result := True;
1982           Exit;
1983         end;
1984 end;
1985
1986 procedure g_Weapon_SaveState(var Mem: TBinMemoryWriter);
1987 var
1988   count, i, j: Integer;
1989   dw: DWORD;
1990 begin
1991 // Ñ÷èòàåì êîëè÷åñòâî ñóùåñòâóþùèõ ñíàðÿäîâ:
1992   count := 0;
1993   if Shots <> nil then
1994     for i := 0 to High(Shots) do
1995       if Shots[i].ShotType <> 0 then
1996         count := count + 1;
1997
1998   Mem := TBinMemoryWriter.Create((count+1) * 80);
1999
2000 // Êîëè÷åñòâî ñíàðÿäîâ:
2001   Mem.WriteInt(count);
2002
2003   if count = 0 then
2004     Exit;
2005
2006   for i := 0 to High(Shots) do
2007     if Shots[i].ShotType <> 0 then
2008     begin
2009     // Ñèãíàòóðà ñíàðÿäà:
2010       dw := SHOT_SIGNATURE; // 'SHOT'
2011       Mem.WriteDWORD(dw);
2012     // Òèï ñíàðÿäà:
2013       Mem.WriteByte(Shots[i].ShotType);
2014     // Öåëü:
2015       Mem.WriteWord(Shots[i].Target);
2016     // UID ñòðåëÿâøåãî:
2017       Mem.WriteWord(Shots[i].SpawnerUID);
2018     // Ðàçìåð ïîëÿ Triggers:
2019       dw := Length(Shots[i].Triggers);
2020       Mem.WriteDWORD(dw);
2021     // Òðèããåðû, àêòèâèðîâàííûå âûñòðåëîì:
2022       for j := 0 to Integer(dw)-1 do
2023         Mem.WriteDWORD(Shots[i].Triggers[j]);
2024     // Îáúåêò ñíàðÿäà:
2025       Obj_SaveState(@Shots[i].Obj, Mem);
2026     end;
2027 end;
2028
2029 procedure g_Weapon_LoadState(var Mem: TBinMemoryReader);
2030 var
2031   count, i, j: Integer;
2032   dw: DWORD;
2033 begin
2034   if Mem = nil then
2035     Exit;
2036
2037 // Êîëè÷åñòâî ñíàðÿäîâ:
2038   Mem.ReadInt(count);
2039
2040   SetLength(Shots, count);
2041
2042   if count = 0 then
2043     Exit;
2044
2045   for i := 0 to count-1 do
2046   begin
2047   // Ñèãíàòóðà ñíàðÿäà:
2048     Mem.ReadDWORD(dw);
2049     if dw <> SHOT_SIGNATURE then // 'SHOT'
2050     begin
2051       raise EBinSizeError.Create('g_Weapons_LoadState: Wrong Shot Signature');
2052     end;
2053   // Òèï ñíàðÿäà:
2054     Mem.ReadByte(Shots[i].ShotType);
2055   // Öåëü:
2056     Mem.ReadWord(Shots[i].Target);
2057   // UID ñòðåëÿâøåãî:
2058     Mem.ReadWord(Shots[i].SpawnerUID);
2059   // Ðàçìåð ïîëÿ Triggers:
2060     Mem.ReadDWORD(dw);
2061     SetLength(Shots[i].Triggers, dw);
2062   // Òðèããåðû, àêòèâèðîâàííûå âûñòðåëîì:
2063     for j := 0 to Integer(dw)-1 do
2064       Mem.ReadDWORD(Shots[i].Triggers[j]);
2065   // Îáúåêò ïðåäìåòà:
2066     Obj_LoadState(@Shots[i].Obj, Mem);
2067
2068   // Óñòàíîâêà òåêñòóðû èëè àíèìàöèè:
2069     Shots[i].TextureID := DWORD(-1);
2070     Shots[i].Animation := nil;
2071
2072     case Shots[i].ShotType of
2073       WEAPON_ROCKETLAUNCHER, WEAPON_SKEL_FIRE:
2074         begin
2075           g_Texture_Get('TEXTURE_WEAPON_ROCKET', Shots[i].TextureID);
2076         end;
2077       WEAPON_PLASMA:
2078         begin
2079           g_Frames_Get(dw, 'FRAMES_WEAPON_PLASMA');
2080           Shots[i].Animation := TAnimation.Create(dw, True, 5);
2081         end;
2082       WEAPON_BFG:
2083         begin
2084           g_Frames_Get(dw, 'FRAMES_WEAPON_BFG');
2085           Shots[i].Animation := TAnimation.Create(dw, True, 6);
2086         end;
2087       WEAPON_IMP_FIRE:
2088         begin
2089           g_Frames_Get(dw, 'FRAMES_WEAPON_IMPFIRE');
2090           Shots[i].Animation := TAnimation.Create(dw, True, 4);
2091         end;
2092       WEAPON_BSP_FIRE:
2093         begin
2094           g_Frames_Get(dw, 'FRAMES_WEAPON_BSPFIRE');
2095           Shots[i].Animation := TAnimation.Create(dw, True, 4);
2096         end;
2097       WEAPON_CACO_FIRE:
2098         begin
2099           g_Frames_Get(dw, 'FRAMES_WEAPON_CACOFIRE');
2100           Shots[i].Animation := TAnimation.Create(dw, True, 4);
2101         end;
2102       WEAPON_BARON_FIRE:
2103         begin
2104           g_Frames_Get(dw, 'FRAMES_WEAPON_BARONFIRE');
2105           Shots[i].Animation := TAnimation.Create(dw, True, 4);
2106         end;
2107       WEAPON_MANCUB_FIRE:
2108         begin
2109           g_Frames_Get(dw, 'FRAMES_WEAPON_MANCUBFIRE');
2110           Shots[i].Animation := TAnimation.Create(dw, True, 4);
2111         end;
2112     end;
2113   end;
2114 end;
2115
2116 procedure g_Weapon_DestroyShot(I: Integer; X, Y: Integer; Loud: Boolean = True);
2117 var
2118   cx, cy: Integer;
2119   Anim: TAnimation;
2120   s: string;
2121 begin
2122   if Shots = nil then
2123     Exit;
2124   if (I > High(Shots)) or (I < 0) then Exit;
2125
2126   with Shots[I] do
2127   begin
2128     if ShotType = 0 then Exit;
2129     Obj.X := X;
2130     Obj.Y := Y;
2131     cx := Obj.X + (Obj.Rect.Width div 2);
2132     cy := Obj.Y + (Obj.Rect.Height div 2);
2133
2134     case ShotType of
2135       WEAPON_ROCKETLAUNCHER, WEAPON_SKEL_FIRE: // Ðàêåòû è ñíàðÿäû Ñêåëåòà
2136       begin
2137         if Loud then
2138         begin
2139           if ShotType = WEAPON_SKEL_FIRE then
2140           begin // Âçðûâ ñíàðÿäà Ñêåëåòà
2141             if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_SKELFIRE') then
2142             begin
2143               Anim := TAnimation.Create(TextureID, False, 8);
2144               Anim.Blending := False;
2145               g_GFX_OnceAnim((Obj.X+32)-32, (Obj.Y+8)-32, Anim);
2146               Anim.Free();
2147             end;
2148           end
2149           else
2150           begin // Âçðûâ Ðàêåòû
2151             if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_ROCKET') then
2152             begin
2153               Anim := TAnimation.Create(TextureID, False, 6);
2154               Anim.Blending := False;
2155               g_GFX_OnceAnim(cx-64, cy-64, Anim);
2156               Anim.Free();
2157             end;
2158           end;
2159           g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEROCKET', Obj.X, Obj.Y);
2160         end;
2161       end;
2162
2163       WEAPON_PLASMA, WEAPON_BSP_FIRE: // Ïëàçìà, ïëàçìà Àðàõíàòðîíà
2164       begin
2165         if ShotType = WEAPON_PLASMA then
2166           s := 'FRAMES_EXPLODE_PLASMA'
2167         else
2168           s := 'FRAMES_EXPLODE_BSPFIRE';
2169
2170         if g_Frames_Get(TextureID, s) and loud then
2171         begin
2172           Anim := TAnimation.Create(TextureID, False, 3);
2173           Anim.Blending := False;
2174           g_GFX_OnceAnim(cx-16, cy-16, Anim);
2175           Anim.Free();
2176
2177           g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEPLASMA', Obj.X, Obj.Y);
2178         end;
2179       end;
2180
2181       WEAPON_BFG: // BFG
2182       begin
2183         // Âçðûâ BFG:
2184         if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_BFG') and Loud then
2185         begin
2186           Anim := TAnimation.Create(TextureID, False, 6);
2187           Anim.Blending := False;
2188           g_GFX_OnceAnim(cx-64, cy-64, Anim);
2189           Anim.Free();
2190
2191           g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBFG', Obj.X, Obj.Y);
2192         end;
2193       end;
2194
2195       WEAPON_IMP_FIRE, WEAPON_CACO_FIRE, WEAPON_BARON_FIRE: // Âûñòðåëû Áåñà, Êàêîäåìîíà Ðûöàðÿ/Áàðîíà àäà
2196       begin
2197         if ShotType = WEAPON_IMP_FIRE then
2198           s := 'FRAMES_EXPLODE_IMPFIRE'
2199         else
2200           if ShotType = WEAPON_CACO_FIRE then
2201             s := 'FRAMES_EXPLODE_CACOFIRE'
2202           else
2203             s := 'FRAMES_EXPLODE_BARONFIRE';
2204
2205         if g_Frames_Get(TextureID, s) and Loud then
2206         begin
2207           Anim := TAnimation.Create(TextureID, False, 6);
2208           Anim.Blending := False;
2209           g_GFX_OnceAnim(cx-32, cy-32, Anim);
2210           Anim.Free();
2211
2212           g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBALL', Obj.X, Obj.Y);
2213         end;
2214       end;
2215
2216       WEAPON_MANCUB_FIRE: // Âûñòðåë Ìàíêóáóñà
2217       begin
2218         if g_Frames_Get(TextureID, 'FRAMES_EXPLODE_ROCKET') and Loud then
2219         begin
2220           Anim := TAnimation.Create(TextureID, False, 6);
2221           Anim.Blending := False;
2222           g_GFX_OnceAnim(cx-64, cy-64, Anim);
2223           Anim.Free();
2224
2225           g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBALL', Obj.X, Obj.Y);
2226         end;
2227       end;
2228     end; // case ShotType of...
2229
2230     ShotType := 0;
2231     Animation.Free();
2232   end;
2233 end;
2234
2235 end.