Flummi/amxmodx
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed yet another bug

Browse Source
This commit is contained in:
Christian Hammacher 2006-05-19 22:09:43 +00:00
parent 3d932c8a36
commit 444e2caa68
4 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
installer/installer/AMXInstaller.exe
View File

Binary file not shown.

2
installer/installer/UnitFunctions.pas
View File

@ -84,7 +84,7 @@ begin
if DirectoryExists(ePath) then begin
if FindFirst(ePath + '*.*', faAnyFile, eSearch) = 0 then begin
repeat
if (eSearch.Attr and faDirectory = faDirectory) and (eSearch.Name <> '.') and (eSearch.Name <> '..') and (LowerCase(eSearch.Name) <> 'sourcemods') then
if (eSearch.Attr and faDirectory = faDirectory) and (eSearch.Name <> '.') and (eSearch.Name <> '..') then
Result.Add(eSearch.Name)
until FindNext(eSearch) <> 0;
end;

2
installer/installer/UnitScanMods.pas
View File

@ -34,7 +34,7 @@ begin
Result := eDirectories;
end
else
Result := nil;
Result := TStringList.Create; // bad but prevents exception!
end;
function GetModPathName(eMod: String): String;

21
installer/installer/UnitfrmMain.pas
View File

@ -415,14 +415,16 @@ begin
for i := 0 to Count -1 do begin
SteamPath := ePath + Strings[i] + '\dedicated server\';
if DirectoryExists(SteamPath) then begin
CurNode := trvMods.Items.Add(nil, Strings[i]);
eStr := GetAllMods(SteamPath, False);
for k := 0 to eStr.Count -1 do
trvMods.Items.AddChild(CurNode, eStr[k]);
eStr.Free;
if eStr.Count <> 0 then begin
CurNode := trvMods.Items.Add(nil, Strings[i]);
CurNode.Expand(False);
for k := 0 to eStr.Count -1 do
trvMods.Items.AddChild(CurNode, eStr[k]);
eStr.Free;
CurNode.Expand(False);
end;
end;
end;
end;
@ -467,14 +469,14 @@ begin
for i := 0 to Count -1 do begin
SteamPath := ePath + Strings[i] + '\';
if DirectoryExists(SteamPath) then begin
eStr := GetAllMods(SteamPath, False);
CurNode := trvMods.Items.Add(nil, Strings[i]);
eStr := GetAllMods(SteamPath, False);
for k := 0 to eStr.Count -1 do
trvMods.Items.AddChild(CurNode, eStr[k]);
eStr.Free;
CurNode.Expand(False);
CurNode.Expand(False);
if DirectoryExists(SteamPath + 'half-life') then begin
eStr := GetAllMods(SteamPath + 'half-life', False);
@ -482,6 +484,9 @@ begin
trvMods.Items.AddChild(CurNode, eStr[k]);
eStr.Free;
end;
if CurNode.Count = 0 then
CurNode.Free;
end;
end;
end;