index 8345e785c504fa6b621aeb77bb7c979dc19f2bb7..b5978c926654f1c705cede3e42f2b2d7c1bf55e0 100644 (file)
+(* Copyright (C) DooM 2D:Forever Developers
+ *
+ * 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.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
+ *)
{$MODE DELPHI}
unit g_playermodel;
{$MODE DELPHI}
unit g_playermodel;
Exit;
end;
Exit;
end;
- if not WAD.GetResource('TEXT', 'MODEL', pData, len) then
+ if not WAD.GetResource('TEXT/MODEL', pData, len) then
begin
WAD.Free();
Exit;
begin
WAD.Free();
Exit;
SetLength(Gibs, ReadInt('Gibs', 'count', 0));
if (Gibs <> nil) and
SetLength(Gibs, ReadInt('Gibs', 'count', 0));
if (Gibs <> nil) and
- (WAD.GetResource('TEXTURES', config.ReadStr('Gibs', 'resource', 'GIBS'), pData, lenpd)) and
- (WAD.GetResource('TEXTURES', config.ReadStr('Gibs', 'mask', 'GIBSMASK'), pData2, lenpd2)) then
+ (WAD.GetResource('TEXTURES/'+config.ReadStr('Gibs', 'resource', 'GIBS'), pData, lenpd)) and
+ (WAD.GetResource('TEXTURES/'+config.ReadStr('Gibs', 'mask', 'GIBSMASK'), pData2, lenpd2)) then
begin
for a := 0 to High(Gibs) do
if e_CreateTextureMemEx(pData, lenpd, Gibs[a].ID, a*32, 0, 32, 32) and
begin
for a := 0 to High(Gibs) do
if e_CreateTextureMemEx(pData, lenpd, Gibs[a].ID, a*32, 0, 32, 32) and
end
else
begin
end
else
begin
- if (Level in [2, 3]) and (FSlopSound > 0) then
+ if (Level in [2, 3, 5]) and (FSlopSound > 0) then
begin
g_Sound_PlayExAt('SOUND_MONSTER_SLOP', X, Y);
if FSlopSound = 1 then
begin
g_Sound_PlayExAt('SOUND_MONSTER_SLOP', X, Y);
if FSlopSound = 1 then
SetLength(TempArray, Length(TempArray)+1);
TempArray[High(TempArray)] := FDieSounds[a].ID;
end;
SetLength(TempArray, Length(TempArray)+1);
TempArray[High(TempArray)] := FDieSounds[a].ID;
end;
+ if (TempArray = nil) and (Level = 5) then
+ begin
+ g_Sound_PlayExAt('SOUND_MONSTER_SLOP', X, Y);
+ Result := True;
+ Exit;
+ end;
end;
if TempArray = nil then Exit;
end;
if TempArray = nil then Exit;