index a00982375150601c281aaae19232330e4405a027..a2ceab034c4c9739583be4a580241e1eeb6566ac 100644 (file)
MODELSOUND_PAIN = 0;
MODELSOUND_DIE = 1;
-
+
type
TModelInfo = record
Name: String;
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;