randy marsh
2008-09-17 14:55:51
Cant d/l tortoise svn the d/l links dont work?
could so one maybe send me the reflection folder?
could so one maybe send me the reflection folder?
2008-09-17 14:55:51
2008-09-17 16:40:43
2008-09-18 15:59:20
2008-09-18 18:55:22
Program New;
Var
Download: TStringArray;
Downloaded: Array[0..10] Of String;
IHI, Files: Integer;
currentver, currentversion: string;
const
thisversion = 98;
Procedure DownloadFiles;
Begin
For IHI := 0 To High(Download) Do
Begin
Downloaded[ihi] := GetPage('http://scarreflection.googlecode.com/svn/trunk/' + Download[ihi]);
WriteLn(download[ihi]);
End;
End;
Procedure Install;
Begin
For Ihi := 0 To High(Download) Do
Begin
Files := RewriteFile(AppPath + '\Includes\SRL\SRL\Reflection\' + Download[ihi], False);
WriteFileString(Files, Downloaded[ihi]);
CloseFile(Files);
End;
End;
Procedure AutoUpdate;
begin
Download := ['Changelog.txt', 'Characters.Scar', 'Core.scar',
'Depreciated.scar', 'Hooks.Scar', 'Objects.Scar', 'README.txt',
'Reflection.Scar', 'Walking.Scar', 'Items.scar'];
currentver := GetPage('http://scarreflection.googlecode.com/svn/trunk/');
currentversion := Between('<title>Revision ', ': /trunk', currentver);
WriteLn('Our current version is: '+inttostr(thisversion)+' and the latest version is: '+currentversion);
If (thisversion = strtoint(currentversion)) then
begin
WriteLn('We got the latest Reflection !');
exit;
end else
begin
DownloadFiles;
Install;
end;
end;
Begin
AutoUpdate;
End.
2008-09-18 19:16:24
2008-09-18 20:44:55
From: djcheater
tried that didnt see any reflction folders made after this!
2008-09-19 05:44:19