index a00982375150601c281aaae19232330e4405a027..7cb1eda9e73daef7156d92e48cb59b49b497cb09 100644 (file)
+{$MODE DELPHI}
unit g_playermodel;
interface
uses
- g_textures, g_basic, e_graphics, WADEDITOR,
- WADSTRUCT, g_weapons;
+ g_textures, g_basic, g_weapons, e_graphics, wadreader;
const
A_STAND = 0;
MODELSOUND_PAIN = 0;
MODELSOUND_DIE = 1;
-
+
type
TModelInfo = record
Name: String;
cc: TDirection;
config: TConfig;
pData, pData2: Pointer;
- WAD: TWADEditor_1;
+ WAD: TWADFile;
s: string;
prefix: string;
ok: Boolean;
Result := False;
- WAD := TWADEditor_1.Create;
+ WAD := TWADFile.Create;
WAD.ReadFile(FileName);
- if WAD.GetLastError <> DFWAD_NOERROR then
+ if {WAD.GetLastError <> DFWAD_NOERROR} not WAD.isOpen then
begin
WAD.Free();
Exit;
WAD.Free();
Exit;
end;
-
+
config := TConfig.CreateMem(pData, len);
FreeMem(pData);
config.Free();
WAD.Free();
Exit;
- end;
+ end;
SetLength(PlayerModelsArray, Length(PlayerModelsArray)+1);
ID := High(PlayerModelsArray);
for a := WEAPON_SAW to WEAPON_SUPERPULEMET do
for b := W_POS_NORMAL to W_POS_DOWN do
for c := W_ACT_NORMAL to W_ACT_FIRE do
- e_DeleteTexture(WeaponID[a][b][c]);
+ e_DeleteTexture(WeaponID[a][b][c]);
e_WriteLog('Releasing models...', MSG_NOTIFY);
for b := 0 to High(Gibs) do
begin
e_DeleteTexture(Gibs[b].ID);
- e_DeleteTexture(Gibs[b].MaskID);
+ e_DeleteTexture(Gibs[b].MaskID);
end;
end;