program SRLUpdater; {.INCLUDE ..\Extensions\Updater.sei} function CheckSRL(Name: string; I: integer): boolean; var X: integer; begin Result := True; for X := 0 to Length(UpdaterArr) do if (UpdaterArr[X].Name = 'Plugins') then begin if (Name = 'Check') then Tick(UpdaterArr[X].CheckMenuItem) else Tick(UpdaterArr[X].Timer); Exit; end; end; procedure OpenDefScript(Sender: TObject); var Script: TStringArray; begin SetLength(Script, 6); Script[0] := 'program Untitled;'; Script[1] := '//{$DEFINE SMART} //Uncomment for SMART'; Script[2] := '{.include SRL/SRL.scar}'; if (TMenuItem(Sender).Parent.Caption = 'Reflection') then begin SetLength(Script, 7); Script[1] := '{$DEFINE SMART}'; Script[3] := '{.include Reflection/Reflection.scar}'; end; Script[Length(Script) - 3] := ''; Script[Length(Script) - 2] := 'begin'; Script[Length(Script) - 1] := 'end.'; WriteLn('Opening ' + TMenuItem(Sender).Parent.Caption + ' Default Script...'); OpenScript('', Implode({$IFDEF WIN}#13+{$ENDIF}#10, Script), False); end; function OpenDefMenu(const Blank: string; const ID: integer): boolean; var OpenMenuItem: TMenuItem; begin OpenMenuItem := MoveMenuItem(UpdaterArr[ID].MainMenu, GetIndex(UpdaterArr[ID].MainMenu, GetMenuByName('Open', UpdaterArr[ID].MainMenu)), GetIndex(UpdaterArr[ID].MainMenu, GetMenuByName('Update', UpdaterArr[ID].MainMenu))); OpenMenuItem.OnClick := @OpenDefScript; OpenMenuItem.Visible := True; end; function BeforePlugins(NotNeeded: string; I: integer): boolean; begin Result := ForceDirectories(UpdaterArr[I].Folder); end; function SuccessPlugins(Cont: string; I: integer): boolean; var X: integer; Files: TStringArray; Overwrite: boolean; begin Files := GetFiles(UpdaterArr[I].Folder, {$IFDEF WIN}'dll'{$ELSE}'so'{$ENDIF}); Overwrite := True; for X := 0 to High(Files) do if (FileExists(PluginPath + Files[X])) then begin Overwrite := (MessageDlg('SRL Updater', 'Do you want to overwrite the plugins?', mtConfirmation, [mbNo, mbYes], 0) = mrYes); Break; end; Result := UnTarEx(Cont, PluginPath, Overwrite); end; procedure Init; var SRL, Plugins, Refl: integer; begin if (AddUpdater('SRL', 'http://wizzup.org/static/srl/srl.tar.bz2', 'http://wizzup.org/static/srl/srl_version', IncludePath, True, True, SRL)) then begin UpdaterArr[SRL].Hooks[CHECK_FOR_UPDATE] := @CheckSRL; UpdaterArr[SRL].Hooks[ATTACH_HOOK] := @OpenDefMenu; end; if (AddUpdater('Plugins', 'http://wizzup.org/static/srl/simba_plugins.tar.bz2', 'http://wizzup.org/static/srl/plugins_version', IncludePath + 'SRL/SimbaPlugins/', False, False, Plugins)) then begin UpdaterArr[Plugins].Hooks[BEFORE_UPDATE] := @BeforePlugins; UpdaterArr[Plugins].Hooks[SUCCESS_UPDATE] := @SuccessPlugins; end; if (AddUpdater('Reflection', 'http://wizzup.org/static/srl/srlref.tar.bz2', 'http://wizzup.org/static/srl/srl_refl_version', IncludePath, True, True, Refl)) then begin UpdaterArr[Refl].Hooks[ATTACH_HOOK] := @OpenDefMenu; end; end; function GetName: string; begin Result := 'SRL Updater'; end; function GetVersion: string; begin Result := '0.1'; end; begin end.