SRL Archive - Reflection Discussion

I need the latest reflection. I heard something about them being convereted to constants… so i need to be up to date with reflection

someone wanna fill me in??

Program New;

Var
  Download: TStringArray;
  Downloaded: Array[0..10] Of String;
  IHI, Files: Integer;
  currentver, currentversion: string;

const
  thisversion    = 97;



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.

Run that. Then you may want to read this http://www.villavu.com/forum/showthread.php?t=35341 to keep it auto updateable.

thanks much man :D

omg thank you

09-16-2008, 06:55 PM

Closed