254 lines
6.5 KiB
ObjectPascal
Executable File
254 lines
6.5 KiB
ObjectPascal
Executable File
unit UnitScanMods;
|
|
|
|
interface
|
|
|
|
uses SysUtils, Classes, Dialogs;
|
|
|
|
function GetAllMods(eBaseDir: String; eSearchNames: Boolean): String;
|
|
function GetModPathName(eMod: String): String;
|
|
function ModIndex(Name: String; CheckName: Boolean): Integer;
|
|
|
|
var eMods: TStringList;
|
|
eModsPath: TStringList;
|
|
|
|
implementation
|
|
|
|
uses UnitFunctions;
|
|
|
|
// functions
|
|
|
|
function GetAllMods(eBaseDir: String; eSearchNames: Boolean): String;
|
|
var i: integer;
|
|
eDirectories: TStringList;
|
|
begin
|
|
eBaseDir := IncludeTrailingPathDelimiter(eBaseDir);
|
|
eDirectories := GetAllFiles(eBaseDir + '*.*', faDirectory, False, True, False);
|
|
|
|
if eDirectories.Count <> 0 then begin
|
|
for i := eDirectories.Count -1 downto 0 do begin
|
|
if (ModIndex(eDirectories[i], True) = -1) then
|
|
eDirectories.Delete(i)
|
|
else
|
|
eDirectories[i] := eMods[ModIndex(eDirectories[i], True)];
|
|
end;
|
|
Result := eDirectories.Text;
|
|
end
|
|
else
|
|
Result := '';
|
|
eDirectories.Free;
|
|
end;
|
|
|
|
function GetModPathName(eMod: String): String;
|
|
var i: integer;
|
|
begin
|
|
Result := '';
|
|
for i := 0 to eMods.Count -1 do begin
|
|
if LowerCase(eMod) = LowerCase(eMods[i]) then begin
|
|
Result := eModsPath[i];
|
|
break;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function ModIndex(Name: String; CheckName: Boolean): Integer;
|
|
var i: integer;
|
|
begin
|
|
Result := -1;
|
|
for i := 0 to eMods.Count -1 do begin
|
|
if (LowerCase(eModsPath[i]) = LowerCase(Name)) then begin
|
|
Result := i;
|
|
break;
|
|
end
|
|
else if (LowerCase(eMods[i]) = LowerCase(Name)) and (CheckName) then begin
|
|
Result := i;
|
|
break;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
// misc...
|
|
|
|
initialization
|
|
|
|
// Create objects on start
|
|
eMods := TStringList.Create;
|
|
eModsPath := TStringList.Create;
|
|
// Add mods ...
|
|
eMods.Add('Action Half-Life');
|
|
eMods.Add('Adrenaline Gamer Steam');
|
|
eMods.Add('Adrenalinegamer 3.x');
|
|
eMods.Add('Adrenalinegamer 4.x');
|
|
eMods.Add('Arg!');
|
|
eMods.Add('Azure Sheep');
|
|
eMods.Add('The Battle Grounds');
|
|
eMods.Add('Bot');
|
|
eMods.Add('Bumper Cars');
|
|
eMods.Add('BuzzyBots');
|
|
eMods.Add('Counter-Strike 1.3');
|
|
eMods.Add('Counter-Strike');
|
|
eMods.Add('CS 1.5 for Steam');
|
|
eMods.Add('Condition Zero');
|
|
eMods.Add('Desert Crisis');
|
|
eMods.Add('Deathmatch Classic');
|
|
eMods.Add('Day of Defeat');
|
|
eMods.Add('Digital Paintball');
|
|
eMods.Add('Dragon Mod Z');
|
|
eMods.Add('Earth''s Special Forces');
|
|
eMods.Add('Existence');
|
|
eMods.Add('Firearms');
|
|
eMods.Add('Retro Firearms');
|
|
eMods.Add('Freeze');
|
|
eMods.Add('Frontline Force');
|
|
eMods.Add('GangstaWars');
|
|
eMods.Add('Gangwars');
|
|
eMods.Add('Opposing Force');
|
|
eMods.Add('Global Warfare');
|
|
eMods.Add('Goldeneye');
|
|
eMods.Add('HL-Rally');
|
|
eMods.Add('Holy Wars');
|
|
eMods.Add('Hostile Intent');
|
|
eMods.Add('International Online Soccer');
|
|
eMods.Add('Judgement');
|
|
eMods.Add('Kanonball');
|
|
eMods.Add('Monkeystrike');
|
|
eMods.Add('Morbid Inclination');
|
|
eMods.Add('Natural Selection');
|
|
eMods.Add('Natural Selection Beta');
|
|
eMods.Add('OeL Half-Life');
|
|
eMods.Add('Over Ground');
|
|
eMods.Add('Outlawsmod');
|
|
eMods.Add('Operations 1942');
|
|
eMods.Add('Open-Source Jailbreak');
|
|
eMods.Add('Out Break');
|
|
eMods.Add('Oz Deathmatch');
|
|
eMods.Add('Paintball');
|
|
eMods.Add('Public Enemy');
|
|
eMods.Add('Phineas Bot');
|
|
eMods.Add('Point of No Return');
|
|
eMods.Add('Pirates, Vikings and Knights');
|
|
eMods.Add('Rocket Crowbar 2');
|
|
eMods.Add('Retro Counter-Strike');
|
|
eMods.Add('Gunman Chronicles');
|
|
eMods.Add('Ricochet');
|
|
eMods.Add('Rocket Crowbar');
|
|
eMods.Add('Rival Species');
|
|
eMods.Add('Scientist Hunt');
|
|
eMods.Add('The Ship');
|
|
eMods.Add('Science & Industry');
|
|
eMods.Add('Snow-War');
|
|
eMods.Add('StargateTC');
|
|
eMods.Add('Sven Coop');
|
|
eMods.Add('Swarm');
|
|
eMods.Add('Team Fortress Classic');
|
|
eMods.Add('The Wastes');
|
|
eMods.Add('Project Timeless');
|
|
eMods.Add('Tour of Duty');
|
|
eMods.Add('Train Hunters');
|
|
eMods.Add('The Terrorist Revenge');
|
|
eMods.Add('The Specialists');
|
|
eMods.Add('The Specialists');
|
|
eMods.Add('The Trenches');
|
|
eMods.Add('Underworld Bloodline');
|
|
eMods.Add('Half-Life Deathmatch');
|
|
eMods.Add('VampireSlayer');
|
|
eMods.Add('Wanted!');
|
|
eMods.Add('Wasteland');
|
|
eMods.Add('Weapon Wars');
|
|
eMods.Add('Wizard Wars');
|
|
eMods.Add('WormsHL');
|
|
eMods.Add('Zombie Panic!');
|
|
eMods.Add('Earth''s Special Forces');
|
|
// ... and their pathes ...
|
|
eModsPath.Add('action');
|
|
eModsPath.Add('ag');
|
|
eModsPath.Add('ag3');
|
|
eModsPath.Add('aghl');
|
|
eModsPath.Add('arg');
|
|
eModsPath.Add('asheep');
|
|
eModsPath.Add('bg');
|
|
eModsPath.Add('bot');
|
|
eModsPath.Add('bumpercars');
|
|
eModsPath.Add('buzzybots');
|
|
eModsPath.Add('cs13');
|
|
eModsPath.Add('cstrike');
|
|
eModsPath.Add('csv15');
|
|
eModsPath.Add('czero');
|
|
eModsPath.Add('dcrisis');
|
|
eModsPath.Add('dmc');
|
|
eModsPath.Add('dod');
|
|
eModsPath.Add('dpb');
|
|
eModsPath.Add('dragonmodz');
|
|
eModsPath.Add('esf');
|
|
eModsPath.Add('existence');
|
|
eModsPath.Add('firearms');
|
|
eModsPath.Add('firearms25');
|
|
eModsPath.Add('freeze');
|
|
eModsPath.Add('frontline');
|
|
eModsPath.Add('gangstawars');
|
|
eModsPath.Add('gangwars');
|
|
eModsPath.Add('gearbox');
|
|
eModsPath.Add('globalwarfare');
|
|
eModsPath.Add('goldeneye');
|
|
eModsPath.Add('hlrally');
|
|
eModsPath.Add('holywars');
|
|
eModsPath.Add('hostileintent');
|
|
eModsPath.Add('ios');
|
|
eModsPath.Add('judgedm');
|
|
eModsPath.Add('kanonball');
|
|
eModsPath.Add('monkeystrike');
|
|
eModsPath.Add('MorbidPR');
|
|
eModsPath.Add('ns');
|
|
eModsPath.Add('nsp');
|
|
eModsPath.Add('oel');
|
|
eModsPath.Add('og');
|
|
eModsPath.Add('ol');
|
|
eModsPath.Add('ops1942');
|
|
eModsPath.Add('osjb');
|
|
eModsPath.Add('outbreak');
|
|
eModsPath.Add('oz');
|
|
eModsPath.Add('paintball');
|
|
eModsPath.Add('penemy');
|
|
eModsPath.Add('phineas');
|
|
eModsPath.Add('ponreturn');
|
|
eModsPath.Add('pvk');
|
|
eModsPath.Add('rc2');
|
|
eModsPath.Add('retrocs');
|
|
eModsPath.Add('rewolf');
|
|
eModsPath.Add('ricochet');
|
|
eModsPath.Add('rockcrowbar');
|
|
eModsPath.Add('rspecies');
|
|
eModsPath.Add('scihunt');
|
|
eModsPath.Add('Ship');
|
|
eModsPath.Add('si');
|
|
eModsPath.Add('snow');
|
|
eModsPath.Add('stargatetc');
|
|
eModsPath.Add('svencoop');
|
|
eModsPath.Add('swarm');
|
|
eModsPath.Add('tfc');
|
|
eModsPath.Add('thewastes');
|
|
eModsPath.Add('timeless');
|
|
eModsPath.Add('tod');
|
|
eModsPath.Add('trainhunters');
|
|
eModsPath.Add('trevenge');
|
|
eModsPath.Add('TS');
|
|
eModsPath.Add('TS');
|
|
eModsPath.Add('tt');
|
|
eModsPath.Add('underworld');
|
|
eModsPath.Add('valve');
|
|
eModsPath.Add('vs');
|
|
eModsPath.Add('wantedhl');
|
|
eModsPath.Add('wasteland');
|
|
eModsPath.Add('weapon_wars');
|
|
eModsPath.Add('wizwars');
|
|
eModsPath.Add('wormshl');
|
|
eModsPath.Add('zp');
|
|
eModsPath.Add('esforce');
|
|
|
|
finalization
|
|
|
|
// Free them...
|
|
eMods.Free;
|
|
eModsPath.Free;
|
|
|
|
end.
|