SRL Archive - Research & Development Lounge

SRL Logout procedure fixed.

Open up Login.scar in your Core folder. Find the original Logout procedure and copy and paste this one for it.

Thanks. Also to get Login working refer to
http://www.villavu.com/forum/showthread.php?t=32076

And do the same thing.

Logout Procedure:

function Logout: Boolean;
var
  c, i: Integer;
begin
  Result := (not (LoggedIn));
  if Result = True then
    Exit;
  Wait(200 + Random(100));
  while (LoggedIn) or (c < 10) do
  begin
    Inc(c);
    MouseBox(744, 4, 759, 18, 1);
    if(ClickText('here', UpChars, MIX1, MIY1, MIX2, MIY2, True))then
      for i := 0 to 10 do
      begin
        Wait(1000);
        if not(LoggedIn)then
        begin
          Result := True;
          Exit;
        end;
      end;
  end;
end;

Nice. Already got this fixed by myself btw.

while (LoggedIn) or (c < 10) do

Repeats while either logged in or c < 10, so, it will repeat until C > 10 even if you were logged out, or repeat until not logged in even if C > 10.

Change it to and :)

so change this line to while (LoggedIn) and (c < 10) do ?

thanks alot m8!

rep for u :)
i think u have to overwrite lines 25 - 49?