SRL Archive - Bugs

So today i noticed that 810 was out and being a noob that i am - i simply thought it would just be easier to unistall simba and reinstall - enable the extentions get msi and boom ready to roll :)

But little did i know i ran into a couple of problems.

When i downloaded Simba from http://villavu.com/forum/showthread.php?t=47714

It installed fine but its missing Reflection, the Extension and the Includes Reflection folder - it doesn't exist.
So maybe i have to enable the extensions first and then it will download them - when i went there there was no extensions for reflection. So i only enabled associate - msi - srl.

What i did notice is that i had a Reflection drop down menu

I closed the extensions window, i went over to the MSI drop down menu and i hit "check for update"
in return : "You have a new update available for MSI! MSI Updater: Local Version - "1" | Remote Version = "518" MSI Updater: Update File - "http://wizzup.org/static/srl/msi.tar.bz2" MSI Updater: Downloading… MSI Updater: Decompressing… MSI Updater: Extracting… MSI Update Successful!"

I went over to do the same for Reflection and i get: "No Reflection update available."

I went over to do it for SRL and i get: "You have a new update available for SRL! SRL Updater: Local Version - "1" | Remote Version = "703" SRL Updater: Update File - "http://wizzup.org/static/srl/srl.tar.bz2" SRL Updater: Downloading… SRL Updater: Decompressing… SRL Updater: Extracting… SRL Update Successful! "

So im not sure whats going on there :spot:

so i decided to install a fresh copy and instead of opening Simba; my objective was to get reflection off of someone who had it running - for this case IPwnz helped me a lot - helped me step by step, total luck charm. Anyhow he gave me his reflection folder and the reflection.sex so, i placed those in the correct location and then i opened Simba - enabled the extensions (reflection was there) it asked me if i wanted to install updates, so i did. but i had to do SRL and MSI manually. i wanted to see if it was good and ready to go so i hit Msi -> run and i got an error: "Running MSI… Exception in Script: Plugin(irokiplugin32) has not been found"

Even though i checked my plugins and i have both of the plugins.
so then i tried MSI -> open -> then i hit play and it was able to compile and it gave me the setup window. i quickly set it up to see if it would bot and its running the MSI EV yews.

This is my experience reinstall Simba -Hopefully this helps in finding the bugs that Ive encountered while installing.

Carlito

Yea there are a few people having the problem.. all with new installs / reinstalls

wizzup will probably fix that real fast when he's on

So did the reflection.sex extension you got from IPwns work? If so, can you attach it to a post please?

From: Coh3n
So did the reflection.sex extension you got from IPwns work? If so, can you attach it to a post please?

Well i opened the reflection.sex with simba and copied and pasted it here, hopefully thats what you meant.

program ReflectionUpdater;
var
  MainMenuItem, MenuCheck, MenuUpdate,AutoUpdate : TMenuItem;
  started: Boolean;
  Timer : TTimer;
  Updating : boolean;
  LocalR,OnlineR: Integer;

  F: TForm;
  Memo: TMemo;
  but: TButton;


function GetNumbers(const str : string) : string;
var
  i : integer;
begin;
  for i := 1 to length(str) do
    case str[i] of
      '0'..'9': result := result + str[i];
    end;
end;
  
procedure GetOnlineVersion(out RefVersion : integer);
begin
  RefVersion := strtointdef(GetNumbers(getpage('http://wizzup.org/static/srl/srl_refl_version')),-1);
end;

procedure GetLocalVersion(out RefVersion : integer);
begin
  RefVersion := StrToIntDef(Settings.GetKeyValueDef('RefVersion','-1'),-1);
end;


function UpdateRef: boolean;
var
  Contents : String;
  DeContents : string;
  Failed : boolean;
begin
    Memo.Lines.Add('Downloading Reflection...');
    Contents := GetPage('http://wizzup.org/static/srl/srlref.tar.bz2');
    Failed := True;
    Memo.Lines.Add('Uncompressing Reflection...');
    if DecompressBZip2(Contents,DeContents,4096) then
      if UnTarEx(DeContents,IncludePath,true) then
        Failed := False;
    if not Failed then
      Settings.SetKeyValue('RefVersion',inttostr(OnlineR));
    if Result then
      Result := Failed;
    if not Failed then
  begin
    Memo.Lines.Add('Succesfully updated your Reflection!');
      Writeln('Succesfully updated your Reflection!');
  end;
end;

procedure DoUpdate(Sender: TObject);
begin
  if LocalR < OnlineR then
  begin
    Memo.Lines.Add('Reflection update. Old version: ' + IntToStr(LocalR) +
                   ' New version: ' + IntToStr(OnlineR));
    UpdateRef;
  end;
  F.ModalResult := mrOk;
end;


function Update : boolean;
var
   OpenForm: Boolean;
begin
  Result := false;
  if Updating then
    Exit;
  Updating := True;

  if (LocalR < OnlineR) then
  begin
       case MessageDlg('Reflection Updater', 'Updates are available. '+
                      'Do you want to open the Updater now?',
                      mtConfirmation, [mbNo,mbYes],0) of
           mrYes : OpenForm := True;
      else
           OpenForm := False;
      end;
    if not OpenForm then
    begin
      Updating := False;
      Exit;
    end;
    Result := True;
    f.ShowModal;
  end else
  begin
    writeln('No Reflection update');
  end;

  Updating := False;

end;

procedure OnReflectionCheckClick(Sender: TObject);
var
  LocalR,OnlineR : integer;
begin
  GetLocalVersion(LocalR);
  GetOnlineVersion(OnlineR);

  if (LocalR < OnlineR) then
  begin
    Writeln('A new Reflection version is available');
    Update;
  end;
end;

procedure SetAutoUpdate(Sender: TObject);
begin
  AutoUpdate.Checked := not AutoUpdate.Checked;
  Timer.Enabled := AutoUpdate.Checked;
  if LowerCase(Settings.GetKeyValueDef('AutoUpdate','True')) = 'true' then
    Settings.SetKeyValue('AutoUpdate', 'False')
  else
    Settings.SetKeyValue('AutoUpdate', 'True');
end;

procedure OnReflectionUpdateClick(Sender: TObject);
begin
  GetLocalVersion(LocalR);
  GetOnlineVersion(OnlineR);

  if (OnlineR <= LocalR) then
    MessageDlg('Reflection Updater', 'No Reflection update' ,mtConfirmation, [mbYes],0)
  else
    Update;
end;

procedure OnUpdateTimer(Sender: TObject);
begin;
  Timer.Interval := 30 * 60 * 1000; //Every half hour
  GetLocalVersion(LocalR);
  GetOnlineVersion(OnlineR);
  Update;
end;

procedure Init;
begin;
  MainMenuItem := TMenuItem.Create(Simba_MainMenu);  
  MainMenuItem.Caption := 'Reflection';
  Simba_MainMenu.Items.Add(MainMenuItem);

  MenuCheck := TMenuItem.Create(MainMenuItem);
  MenuCheck.Caption := 'Check for new Reflection';
  MenuCheck.OnClick := @OnReflectionCheckClick;
  MainMenuItem.Add(MenuCheck);

  MenuUpdate := TMenuItem.Create(MainMenuItem);
  MenuUpdate.Caption := 'Update Reflection';
  MenuUpdate.OnClick := @OnReflectionUpdateClick;
  MainMenuItem.Add(MenuUpdate);

  AutoUpdate := TMenuItem.Create(MainMenuItem);
  AutoUpdate.Caption := 'Automatically update';
  AutoUpdate.OnClick := @SetAutoUpdate;
  AutoUpdate.Checked := LowerCase(Settings.GetKeyValueDef('AutoUpdate','True')) = 'true';
  MainMenuItem.Add(AutoUpdate);
 
  Timer := TTimer.Create(Simba);
  Timer.Interval := 5000;
  Timer.OnTimer := @OnUpdateTimer;
  Timer.Enabled :=AutoUpdate.Checked;

  F := TForm.Create(nil);
  With F Do
    begin
      Visible := False;
      Width := 300;
      Height := 300;
      BorderStyle := bsSingle;
      Caption := 'Reflection Updater - Updates Available';
    end;

  but := TButton.Create(F);

  with but do
    begin
      Parent := F;
      Left := 10;
      Top := 10;
      Caption := 'Update';
      Width := 280;

      OnClick := @DoUpdate;
    end;

  Memo := TMemo.Create(F);

  with Memo do
    begin
      Parent := F;
      Left := 10;
      Top := 40;
      Width := 280;
      Height := 250;
    end;

  started := True;
end;

procedure Free;
begin
  if (started) then
     Timer.Enabled := False;//Freeing the components is not needed, as they will be freed upon the freeing of Simba.
{  if F <> nil then
    F.Free; }
end;

procedure Attach;
begin;
  Writeln('From now on, you shall be alerted as to when your Reflection is out of date!');
  MainMenuItem.Visible := True;
  Timer.Enabled := AutoUpdate.Checked;
end;

Procedure Detach;
begin
  Timer.Enabled := False;
  MainMenuItem.Visible := False;
end;

function GetName : string;
begin;
  result := 'Reflection Updater';
end;

function GetVersion : string;
begin;
  result := '1.0';
end;

begin
end.

There's little real difference in the old and new reflection updater; it was an error on the server side. So it should work once I figure that problem out.

From: Wizzup?
There's little real difference in the old and new reflection updater; it was an error on the server side. So it should work once I figure that problem out.

I just sent him my copy of reflection that I had in my Simba folder, I'd assume it was just the old rev 750 version, but it's running fine for me.

Im having the same problem when running MSI though.

From: yago
Im having the same problem when running MSI though.

What exactly is the problem now? I'm can't tell from you're first post.

From: yago
Im having the same problem when running MSI though.

Try reinstalling Simba from ground zero - Follow Coh3ns guide on how to.

http://villavu.com/forum/showthread.php?t=47714

make sure you update MSI, SRL, and Reflection. Then try to see if you can get MSI running correctly.

I reinstalled it from the ground zero before. Ill try 1 more time and let you know

Yeah it worked now. Thank-you