X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fgame%2Fg_weapons.pas;h=bcbf4c16352e7c35a3f173e0fddf781f51760538;hp=24908271dc62734bc2f1d0fbeb019de387f9b67c;hb=5e6afeb0eca1550854b9d17269e707e984cb0f21;hpb=00c73a7e4b162b8adb061e4b4715ee35ba9a2df5 diff --git a/src/game/g_weapons.pas b/src/game/g_weapons.pas index 2490827..bcbf4c1 100644 --- a/src/game/g_weapons.pas +++ b/src/game/g_weapons.pas @@ -76,7 +76,7 @@ procedure g_Weapon_mgun(x, y, xd, yd: Integer; SpawnerUID: Word; Silent: Boolean procedure g_Weapon_shotgun(x, y, xd, yd: Integer; SpawnerUID: Word; Silent: Boolean = False); procedure g_Weapon_dshotgun(x, y, xd, yd: Integer; SpawnerUID: Word; Silent: Boolean = False); -function g_Weapon_Explode(X, Y: Integer; rad: Integer; SpawnerUID: Word; IgnoreTrigger: Integer = -1): Boolean; +function g_Weapon_Explode(X, Y: Integer; rad: Integer; SpawnerUID: Word): Boolean; procedure g_Weapon_BFG9000(X, Y: Integer; SpawnerUID: Word); procedure g_Weapon_Update(); procedure g_Weapon_Draw(); @@ -796,15 +796,14 @@ begin end; end; -function g_Weapon_Explode(X, Y: Integer; rad: Integer; SpawnerUID: Word; IgnoreTrigger: Integer = -1): Boolean; +function g_Weapon_Explode(X, Y: Integer; rad: Integer; SpawnerUID: Word): Boolean; var i, h, r, dx, dy, m, mm: Integer; _angle: SmallInt; begin Result := False; - // don't let turret explosions use the turret - g_Triggers_PressC(X, Y, rad, SpawnerUID, ACTIVATE_SHOT, IgnoreTrigger); + g_Triggers_PressC(X, Y, rad, SpawnerUID, ACTIVATE_SHOT); r := rad*rad;