Reflate

[ShadowEagle]

I`m using recent script from Yener90.

I only found these lines:

if (GetValStrES('FreeArcFile' + IntToStr(i)) <> '') and (MyError = False) then begin
            repeat
              Arcs:=ArcDecode(GetValStrES('FreeArcFile' + IntToStr(i)))
              if ((Arcs[4] = '') or (UpperCaser(Arcs[4]) = ActLangShort)) and (ComponentsCheckFA(Arcs[5])) then begin
                if not FileExists(PathEdit.Text + '\' + Arcs[0]) then
                  ShowRDForm;
                if MyError = False then begin
                  if Arcs[3] = '0' then begin
                    if not ISArcExtract ( 0, 0, PathEdit.Text + '\' + Arcs[0], Arcs[1], '', false, Arcs[6], ExpandConstant('{tmp}\arc.ini'), Arcs[1], false) then MyError := True;
                  end else begin
                    if not ISArcExtract ( 0, 0, PathEdit.Text + '\' + Arcs[0], Arcs[1], '', false, Arcs[6], '', Arcs[1], false) then MyError := True;
                    if MyError = True then break;
                    if not ISSRepExtract   ( 0, 0, Arcs[1] + '\' + Copy (ExtractFileName(PathEdit.Text + '\' + Arcs[0]), 0, Pos('.', ExtractFileName(PathEdit.Text + '\' + Arcs[0]))) + 'srep',Arcs[1] + '\' + Copy (ExtractFileName(PathEdit.Text + '\' + Arcs[0]), 0, Pos('.', ExtractFileName(PathEdit.Text + '\' + Arcs[0]))) + 'pcf', true) then  MyError := True ;
                    if MyError = True then break;
                    if not ISPrecompExtract( 0, 0, Arcs[1] + '\' + Copy (ExtractFileName(PathEdit.Text + '\' + Arcs[0]), 0, Pos('.', ExtractFileName(PathEdit.Text + '\' + Arcs[0]))) + 'pcf',Arcs[1] + '\' + Copy (ExtractFileName(PathEdit.Text + '\' + Arcs[0]), 0, Pos('.', ExtractFileName(PathEdit.Text + '\' + Arcs[0]))) + 'arc', true) then MyError := True ;
                    if MyError = True then break;
                    if not ISArcExtract ( 0, 0,  Arcs[1] + '\'  + Copy (ExtractFileName(PathEdit.Text + '\' + Arcs[0]), 0, Pos('.', ExtractFileName(PathEdit.Text + '\' + Arcs[0]))) + 'arc', Arcs[1], '', true, Arcs[6], '', Arcs[1], false) then MyError := True;
                  end;
                end;
              end;
              if MyError = True then break ;
              i:= i + 1
            until GetValStrES('FreeArcFile' + IntToStr(i)) = ''
          end;

How to modify these to get relfate working? Thanks in advance Razor.