Simba Code:
{$I Socks.Simba}
const
URL = 'https://raw.githubusercontent.com/officerBarbrady/SSInclude/master/Soulsplit';
MainFiles = ['Files.txt', 'Soulsplit.simba', 'Updater.simba'];
CoreFiles = ['bank', 'chatbox', 'dtm', 'gametab', 'globals', 'interface', 'inventory',
'login', 'mainscreen', 'math', 'minimap', 'mouse', 'prayer', 'tDirectory',
'text', 'tfile', 'timing'];
MiscFiles = ['Simba', 'debug'];
MiscDataTypeFiles = ['extended', 'extendedarrays', 'integer', 'integerarrays', 'string',
'stringarrays', 't2dstringarray', 'tbox', 'tpoint', 'tpointarrays', 'typemath', 'types'];
Directories = ['C:/Simba/Includes/SoulSplit', '/core', '/misc', '/misc/datatypes'];
Function WriteFile(Path: String; Buffer: String): Boolean;
var
hFile: Integer;
Begin
hFile := RewriteFile(Path, false);
if (hFile > -1) then
begin
WriteFileString(hFile, Buffer);
CloseFile(hFile);
end;
End;
Function GetSoulsplit: Boolean;
var
I: Integer;
HT: Array Of HTTPS;
Begin
CreateDirectory(Directories[0]);
CreateDirectory(Directories[0] + Directories[1]);
CreateDirectory(Directories[0] + Directories[2]);
CreateDirectory(Directories[0] + Directories[3]);
SetLength(HT, Length(MainFiles));
For I := 0 To High(MainFiles) Do
Begin
HT[i].Create(URL + '/' + MainFiles[i], 443);
WriteFile(Directories[0] + '/' + MainFiles[i], HT[i].GetPage);
HT[i].Free;
End;
SetLength(HT, 0);
SetLength(HT, Length(CoreFiles));
For I := 0 To High(CoreFiles) Do
Begin
HT[i].Create(URL + '/core/' + CoreFiles[i] + '.simba', 443);
WriteFile(Directories[0] + Directories[1] + '/' + CoreFiles[i] + '.simba', HT[i].GetPage);
HT[i].Free;
End;
SetLength(HT, 0);
SetLength(HT, Length(MiscFiles));
For I := 0 To High(MiscFiles) Do
Begin
HT[i].Create(URL + '/misc/' + MiscFiles[i] + '.simba', 443);
WriteFile(Directories[0] + Directories[2] + '/' + MiscFiles[i] + '.simba', HT[i].GetPage);
HT[i].Free;
End;
SetLength(HT, 0);
SetLength(HT, Length(MiscDataTypeFiles));
For I := 0 To High(MiscDataTypeFiles) Do
Begin
HT[i].Create(URL + '/misc/datatypes/' + MiscDataTypeFiles[i] + '.simba', 443);
WriteFile(Directories[0] + Directories[3] + '/' + MiscDataTypeFiles[i] + '.simba', HT[i].GetPage);
HT[i].Free;
End;
End;
begin
GetSoulsplit;
end.