diff --git a/src/game/g_weapons.pas b/src/game/g_weapons.pas
index 8a5e652d01bef9f729d7a78e50dabc837fcc5e4c..32fc8f6c04a770ee0c0e34bfc5ab630b4958d20b 100644 (file)
--- a/src/game/g_weapons.pas
+++ b/src/game/g_weapons.pas
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
+ * the Free Software Foundation, version 3 of the License ONLY.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
function g_Weapon_HitUID(UID: Word; d: Integer; SpawnerUID: Word; t: Byte): Boolean;
function g_Weapon_CreateShot(I: Integer; ShotType: Byte; Spawner, TargetUID: Word; X, Y, XV, YV: Integer): LongWord;
-procedure g_Weapon_gun(const x, y, xd, yd, v, dmg: Integer; SpawnerUID: Word; CheckTrigger: Boolean);
+procedure g_Weapon_gun(const x, y, xd, yd, v, indmg: Integer; SpawnerUID: Word; CheckTrigger: Boolean);
procedure g_Weapon_punch(x, y: Integer; d, SpawnerUID: Word);
function g_Weapon_chainsaw(x, y: Integer; d, SpawnerUID: Word): Integer;
procedure g_Weapon_rocket(x, y, xd, yd: Integer; SpawnerUID: Word; WID: Integer = -1; Silent: Boolean = False);
function g_Weapon_Explode(X, Y: Integer; rad: Integer; SpawnerUID: Word): Boolean;
procedure g_Weapon_BFG9000(X, Y: Integer; SpawnerUID: Word);
+procedure g_Weapon_PreUpdate();
procedure g_Weapon_Update();
procedure g_Weapon_Draw();
function g_Weapon_Danger(UID: Word; X, Y: Integer; Width, Height: Word; Time: Byte): Boolean;
if (t <> HIT_FLAME) or (m.FFireTime = 0) or (vx <> 0) or (vy <> 0) then
Result := m.Damage(d, vx, vy, SpawnerUID, t)
else
- Result := True;
+ Result := (gLMSRespawn = LMS_RESPAWN_NONE); // don't hit monsters when it's warmup time
if t = HIT_FLAME then
m.CatchFire(SpawnerUID);
end
else
- Result := True;
+ Result := (gLMSRespawn = LMS_RESPAWN_NONE); // don't hit monsters when it's warmup time
end;
g_TraceVector(X, Y, Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2),
Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2)) then
begin
- Damage(50, 0, 0);
+ Damage(50, SpawnerUID, 0, 0);
g_Weapon_BFGHit(Obj.X+Obj.Rect.X+(Obj.Rect.Width div 2),
Obj.Y+Obj.Rect.Y+(Obj.Rect.Height div 2));
end;
end;
end;
+ Shots[find_id].Obj.oldX := X;
+ Shots[find_id].Obj.oldY := Y;
Shots[find_id].Obj.X := X;
Shots[find_id].Obj.Y := Y;
Shots[find_id].Obj.Vel.X := XV;
if a = 0 then
a := 1;
+ Shots[i].Obj.oldX := x;
+ Shots[i].Obj.oldY := y;
Shots[i].Obj.X := x;
Shots[i].Obj.Y := y;
Shots[i].Obj.Vel.X := (xd*s) div a;
g_Obj_Collide(obj, @gCorpses[i].Obj) then
begin
// Ðàñïèëèâàåì òðóï:
- gCorpses[i].Damage(d, (obj^.Vel.X+obj^.Accel.X) div 4,
- (obj^.Vel.Y+obj^.Accel.Y) div 4);
+ gCorpses[i].Damage(d, SpawnerUID, (obj^.Vel.X+obj^.Accel.X) div 4,
+ (obj^.Vel.Y+obj^.Accel.Y) div 4);
Result := 1;
end;
end;
Exit;
end;
- if PlayerHit() then
+ // È â êîíöå èãðîêîâ, íî òîëüêî åñëè ïîëîæåíî
+ // (èëè ñíàðÿä îò ìîíñòðà, èëè friendlyfire, èëè friendly_hit_projectile)
+ if (g_GetUIDType(SpawnerUID) <> UID_PLAYER) or
+ LongBool(gGameSettings.Options and (GAME_OPTION_TEAMDAMAGE or GAME_OPTION_TEAMHITPROJECTILE)) then
begin
- Result := 1;
- Exit;
+ if PlayerHit() then
+ begin
+ Result := 1;
+ Exit;
+ end;
end;
end;
Exit;
end;
- // È â êîíöå ñâîèõ èãðîêîâ
- if PlayerHit(1) then
+ // È â êîíöå ñâîèõ èãðîêîâ, íî òîëüêî åñëè ïîëîæåíî
+ // (èëè friendlyfire, èëè friendly_hit_projectile)
+ if LongBool(gGameSettings.Options and (GAME_OPTION_TEAMDAMAGE or GAME_OPTION_TEAMHITPROJECTILE)) then
begin
- Result := 1;
- Exit;
+ if PlayerHit(1) then
+ begin
+ Result := 1;
+ Exit;
+ end;
end;
end;
mm := Max(abs(dx), abs(dy));
if mm = 0 then mm := 1;
- Damage(Round(100*(rad-m)/rad), (dx*10) div mm, (dy*10) div mm);
+ Damage(Round(100*(rad-m)/rad), SpawnerUID, (dx*10) div mm, (dy*10) div mm);
end;
end;
//!!!FIXME!!!
-procedure g_Weapon_gun (const x, y, xd, yd, v, dmg: Integer; SpawnerUID: Word; CheckTrigger: Boolean);
+procedure g_Weapon_gun (const x, y, xd, yd, v, indmg: Integer; SpawnerUID: Word; CheckTrigger: Boolean);
var
x0, y0: Integer;
x2, y2: Integer;
xi, yi: Integer;
wallDistSq: Integer = $3fffffff;
+ spawnerPlr: TPlayer = nil;
+ dmg: Integer;
function doPlayerHit (idx: Integer; hx, hy: Integer): Boolean;
begin
result := false;
if (idx < 0) or (idx > High(gPlayers)) then exit;
if (gPlayers[idx] = nil) or not gPlayers[idx].alive then exit;
+ if (spawnerPlr <> nil) then
+ begin
+ if ((gGameSettings.Options and (GAME_OPTION_TEAMHITTRACE or GAME_OPTION_TEAMDAMAGE)) = 0) and
+ (spawnerPlr.Team <> TEAM_NONE) and (spawnerPlr.Team = gPlayers[idx].Team) then
+ begin
+ if (spawnerPlr <> gPlayers[idx]) and ((gGameSettings.Options and GAME_OPTION_TEAMABSORBDAMAGE) = 0) then
+ dmg := Max(1, dmg div 2);
+ exit;
+ end;
+ end;
result := HitPlayer(gPlayers[idx], dmg, (xi*v)*10, (yi*v)*10-3, SpawnerUID, HIT_SOME);
if result and (v <> 0) then gPlayers[idx].Push((xi*v), (yi*v));
{$IF DEFINED(D2F_DEBUG)}
if (xd = 0) and (yd = 0) then exit;
+ if (g_GetUIDType(SpawnerUID) = UID_PLAYER) then
+ spawnerPlr := g_Player_Get(SpawnerUID);
+
+ dmg := indmg;
+
//wgunMonHash.reset(); //FIXME: clear hash on level change
wgunHitHeap.clear();
wgunHitTimeUsed := 0;
end;
end;
+procedure g_Weapon_PreUpdate();
+var
+ i: Integer;
+begin
+ if Shots = nil then Exit;
+ for i := 0 to High(Shots) do
+ if Shots[i].ShotType <> 0 then
+ begin
+ Shots[i].Obj.oldX := Shots[i].Obj.X;
+ Shots[i].Obj.oldY := Shots[i].Obj.Y;
+ end;
+end;
+
procedure g_Weapon_Update();
var
i, a, h, cx, cy, oldvx, oldvy, tf: Integer;
Stopped := MOVE_HITCEIL;
end;
- a := IfThen(Stopped = 0, 6, 1);
+ a := IfThen(Stopped = 0, 10, 1);
// Åñëè â êîãî-òî ïîïàëè
if g_Weapon_Hit(@Obj, a, SpawnerUID, HIT_FLAME, False) <> 0 then
begin
procedure g_Weapon_Draw();
var
- i: Integer;
+ i, fX, fY: Integer;
a: SmallInt;
p: TDFPoint;
begin
else
a := 0;
+ Obj.lerp(gLerpFactor, fX, fY);
p.X := Obj.Rect.Width div 2;
p.Y := Obj.Rect.Height div 2;
if (Shots[i].ShotType = WEAPON_BARON_FIRE) or
(Shots[i].ShotType = WEAPON_MANCUB_FIRE) or
(Shots[i].ShotType = WEAPON_SKEL_FIRE) then
- Animation.DrawEx(Obj.X, Obj.Y, TMirrorType.None, p, a)
+ Animation.DrawEx(fX, fY, TMirrorType.None, p, a)
else
- Animation.Draw(Obj.X, Obj.Y, TMirrorType.None);
+ Animation.Draw(fX, fY, TMirrorType.None);
end
else if TextureID <> 0 then
begin
if (Shots[i].ShotType = WEAPON_ROCKETLAUNCHER) then
- e_DrawAdv(TextureID, Obj.X, Obj.Y, 0, True, False, a, @p, TMirrorType.None)
+ e_DrawAdv(TextureID, fX, fY, 0, True, False, a, @p, TMirrorType.None)
else if (Shots[i].ShotType <> WEAPON_FLAMETHROWER) then
- e_Draw(TextureID, Obj.X, Obj.Y, 0, True, False);
+ e_Draw(TextureID, fX, fY, 0, True, False);
end;
if g_debug_Frames then