moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-21 08:45:06 -05:00
Code Issues Releases Wiki Activity

Updatesszzzz

Browse Source
This commit is contained in:
Raymond 2010-11-10 20:05:39 +01:00
parent f14f484c28
commit 8dc542e9e8
2 changed files with 129 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Projects/ScriptManager/scriptmanager.lfm
View File

@ -21,7 +21,6 @@ object Form1: TForm1
Width = 414
end>
IconOptions.Arrangement = iaLeft
ItemIndex = -1
LargeImages = ImageList1
ScrollBars = ssAutoBoth
SmallImages = ImageList1

140
Projects/ScriptManager/scriptmanager.pas
View File

@ -21,6 +21,12 @@
Script Manager for the Simba project.
}
{
Raymond`, 11-9-2010 20:26:27:
ScriptManager/General/Settings.xml (Lijst van alle geinstaleerde scripts)
ScriptManager/General/<Scriptname>/Info.xml (Informatie over het script)
ScriptManager/<ScriptName>/<Files> (Alle files die het script nodig heeft)
}
unit scriptmanager;
{$mode objfpc}{$H+}
@ -77,25 +83,34 @@ type
TLSimbaScript = class(TSimbaScript) //Installed Script (Local Simba Script)
public
AutoCheckUpdates : boolean;
OnlineScript : TSimbaScript;
procedure LoadFromFile(const filename : string);
function LoadFromName(const ScriptName,maindir : string) : boolean; //Maindir = maindir of ScriptManager
procedure SaveToFile(const FileName : string);
procedure Save(const MainDir : string); //MainDir = maindir of ScriptManager
constructor create;
end;
{ TScriptManager }
TScriptManager = class (TObject)
private
FMaindir: string;
FScripts : TList; //Array of the online scripts
FLScripts: TList; //Array of the local scripts
FVersion : String;
FUpdating : boolean;
function GetLScriptCount: integer;
function GetMainDir: string;
function GetScriptCount: integer;
public
MainDir : string;
procedure Update; //Gets the new online scripts
property MainDir : string read GetMainDir write FMaindir;
procedure Update; //Gets the online scripts
procedure LUpdate; //Loads the local scripts, uses MainDir
function NewVersion(Script : integer) : boolean; //Checks for updates for Script
procedure InstallNewScript(Script : integer); //Installs Script (Online -> Local)
procedure UpdateScript(Script : integer); //Updates all the info/files of local script
procedure LSave; //Saves the local scripts, uses MainDir
property LScriptCount : integer read GetLScriptCount; //LScript = Local Script = Installed Script
property ScriptCount : integer read GetScriptCount; //Online script
@ -272,6 +287,11 @@ begin
result := FLScripts.Count;
end;
function TScriptManager.GetMainDir: string;
begin
result := IncludeTrailingPathDelimiter(FMainDir);
end;
function TScriptManager.GetScriptCount: integer;
begin
result := FScripts.Count;
@ -285,7 +305,7 @@ var
Node,Script : TDOMNode;
Subs : TStringList;
Down : TDownloadThread;
SimbaScript : TLSimbaScript;
SimbaScript : TSimbaScript;
begin
if FUpdating then
exit;
@ -309,29 +329,104 @@ begin
script := Node.FirstChild;
while Script <> nil do
begin
SimbaScript := TLSimbaScript.Create;
SimbaScript := TSimbaScript.Create;
SimbaScript.LoadFromNode(Script);
FLScripts.Add(SimbaScript);
FScripts.Add(SimbaScript);
SimbaScript.Dbg;
Script := Script.NextSibling;
end;
end;
SimbaScript.SaveToFile('c:\testme.xml');
XMLDoc.Free;
FUpdating := false;
end;
procedure TScriptManager.LUpdate;
var
XMLDoc : TXMLDocument;
Node,Script : TDOMNode;
Subs : TStringList;
Down : TDownloadThread;
SimbaScript : TLSimbaScript;
begin
if DirectoryExists(MainDir) = false then
exit;
if FileExists( IncludeTrailingPathDelimiter(maindir) + 'General' + DirectorySeparator+
'scripts.xml') then
if FileExists(maindir + 'General' + DirectorySeparator+ 'scripts.xml') then
begin
ReadXMLFile(XMLDoc,maindir + 'General' + DirectorySeparator+ 'scripts.xml');
Node := XMLDoc.FirstChild.FindNode('Scripts');
if node <> nil then
begin
script := Node.FirstChild;
while Script <> nil do
begin
SimbaScript := TLSimbaScript.Create;
SimbaScript.LoadFromName(Node.TextContent,maindir);
FLScripts.Add(SimbaScript);
SimbaScript.Dbg;
Script := Script.NextSibling;
end;
end;
XMLDoc.Free;
end;
end;
function TScriptManager.NewVersion(Script: integer): boolean;
var
Scrpt : TLSimbaScript;
I : integer;
begin
Scrpt := TLSimbaScript(FLScripts[Script]);
if Scrpt.OnlineScript = nil then
for i := 0 to ScriptCount-1 do
if TSimbaScript(FScripts[i]).Name = Scrpt.Name then
begin
Scrpt.OnlineScript = TSimbaScript(FScripts[i]);
Break;
end;
result := Scrpt.OnlineScript.Version <> Scrpt.Version;
end;
procedure TScriptManager.InstallNewScript(Script: integer);
var
Scrpt : TSimbaScript;
LScrpt: TLSimbaScript;
Dir : string;
begin
Scrpt := TSimbaScript(FScripts[Script]);
LScrpt := TLSimbaScript.create;
FLScripts.Add(LScrpt);
LScrpt.Name:= Scrpt.Name;
LScrpt.OnlineScript := Scrpt;
Dir := MainDir + LScrpt.Name + DirectorySeparator;
if DirectoryExists(dir) then
Writeln('Directory already exists, yet continue?');
if not CreateDir(Dir) then
Writeln('Failed to create dir..');
UpdateScript(FLScripts.Count - 1);
end;
procedure TScriptManager.UpdateScript(Script: integer);
var
LScript : TLSimbaScript;
Scrpt : TSimbaScript;
begin
LScript := TLSimbaScript(FLScripts[Script]);
if not NewVersion(Script) then
Exit;
Scrpt := LScript.OnlineScript;
with LScrpt do
begin
Version:= Scrpt.Version;
Name:= Scrpt.Name;
Author := Scrpt.Author;
Description:= Scrpt.Version;
Tags.Assign(Scrpt.Tags);
Files.Assign(Scrpt.Files);
end;
LScrpt.Save(MainDir); //Saves the setting file, now we only need to update the files
//Download files & write to folder
end;
procedure TScriptManager.LSave;
var
XMLDoc : TXMLDocument;
@ -354,8 +449,7 @@ begin
XMLDoc.AppendChild(node);
for i := 0 to FLScripts.Count - 1 do
AddTextElement(node,'Script', TLSimbaScript(FLScripts[i]).Name);
WriteXMLFile(XMLDoc,IncludeTrailingPathDelimiter(maindir) + 'General' + DirectorySeparator+
'scripts.xml');
WriteXMLFile(XMLDoc,maindir + 'General' + DirectorySeparator+ 'scripts.xml');
XMLDoc.Free;
end;
@ -391,6 +485,20 @@ var
begin
ReadXMLFile(XMLDoc,filename);
Self.LoadFromNode(XMLDoc.FirstChild);
XMLDoc.Free;
end;
function TLSimbaScript.LoadFromName(const ScriptName,MainDir : string) : boolean;
begin
Result := false;
if FileExists(MainDir + 'General' + DirectorySeparator + ScriptName +
'info.xml') then
begin
Result := true;
LoadFromFile(MainDir + 'General' + DirectorySeparator + ScriptName +
'info.xml');
end;
end;
procedure TLSimbaScript.SaveToFile(const FileName: string);
@ -416,6 +524,7 @@ begin
AddTextElement(node,'Author',Author);
AddTextElement(node,'Version',Version);
AddTextElement(node,'Description',description);
AddTextElement(node,'AutoCheckUpdates', BoolToStr(AutoCheckUpdates,true));
SubNode := XMLDoc.CreateElement('Tags');
Node.AppendChild(SubNode);
for i := 0 to Tags.Count - 1 do
@ -430,7 +539,16 @@ end;
procedure TLSimbaScript.Save(const MainDir: string);
begin
if not DirectoryExists(MainDir + 'General' + DirectorySeparator + Name) then
CreateDir(MainDir + 'General' + DirectorySeparator + Name);
SaveToFile(MainDir + 'General' + DirectorySeparator + Name + DirectorySeparator +
'info.xml');
end;
constructor TLSimbaScript.create;
begin
inherited;
AutoCheckUpdates:= true;
end;
end.