SRL Archive - SRL Archives

Just wanted to add it here, made mostly bay SantaClause :P

function ClickedPlayRunescape : Boolean;  //Thanks to SantaClause! :)
var
  ClickHereToPlay,x,y:integer;
begin
  if not(LoggedIn) then
  begin
    LoginPlayer;
    Exit;
    Exit;
  end;
  ClickHereToPlay := BitmapFromString(33, 1, 'z78DA758E510E80300843' +
    'AF54C0E2F6E94CB8FF9134123392693FFA41FA4A23A6F0888443D' +
    '26DC000A7DCE7F458F23EE444E721444B6A0F53D58FE44F4365B7' +
    '067D37AC3D95AADF2F50962C79');
  if FindBitmap(x, y, ClickHereToPlay) then
  begin
    Mouse(X, Y, 3, 3, True);
    Wait(5000+Random(5000));
    WriteLn('RS lagged- logged back in! :) ');
    FreeBitmap(ClickHereToPlay);
    Exit;
    Exit;
  end;
end;

Just call something with if not (loggedIn) then some where in your script and have it run this procedure.

Origional Post here: http://www.villavu.com/forum/showthread.php?t=19826?p=251146#post251146

nice one, usefull in anti randoms. my laptop need that slover :D

why exit; exit;?

and why r u allways posting some other one's work rofl :D

EDIT:

if this is used for srl, get the IF NOT LOGGEDIN THEN thing out.

IDK, in my scripts they fail a lot unless I do exit;'s :S

And I like sharing around good code, if it is not priviate/members, it should be shared with everyone.

Hmm, it only clears the bitmap if you did lag… =\

How bout somthing like this?

Procedure CatchALag;
Var SS1, SS2 : String or Integer or whatever;
    LBH1, LBH2, Trys : Integer;
Begin
  LagButtonHere := BitmapFromString(33, 1, 'z78DA758E510E80300843' +
    'AF54C0E2F6E94CB8FF9134123392693FFA41FA4A23A6F0888443D' +
    '26DC000A7DCE7F458F23EE444E721444B6A0F53D58FE44F4365B7' +
    '067D37AC3D95AADF2F50962C79');
  SS1 := GetScreenPixles(MSX1, MSY1, MSX2, MSY2);
  Wait(5000+random(1000));
  SS2 := GetScreenPixles(MSX1, MSY1, MSX2, MSY2);
  If SS1 = SS2 Then
  Begin
    Writeln('Lag Detected!!!');
    Writeln('Waiting For Connection To Restablish');
    Repeat
      Wait(5000+random(5000));
    Until FindBitMap(LBH1, LBH2, LagButtonHere);
    Writeln('Entering Game');
    Mouse(LBH1, LBH2, 5, 5, True);
    repeat
      Wait(1000);
      Trys := Trys + 1;
    until (LoggedIn) or (Trys >= 600);
    Writeln('Entered Game!');
    Trys := 0;
    Exit;
  end;
  If FindBitMap(LBH1, LBH2, LagButtonHere) Then
  Begin
    Writeln('Lag Detected!!!');
    Writeln('Connection Already Re - Stablished! :D');
    Writeln('Entering Game');
    Mouse(LBH1, LBH2, 5, 5, True);
    repeat
      Wait(1000);
      Trys := Trys + 1;
    until (LoggedIn) or (Trys >= 600);
    Writeln('Entered Game!');
    Trys := 0;
  end;
  FreeBitMap(LagButtonHere)
end;

function ClickedPlayRunescape : Boolean;  //Thanks to SantaClause! :)
var
  ClickHereToPlay,x,y:integer;
begin
  if not(LoggedIn) then
  begin
    LoginPlayer;
    FreeBitmap(ClickHereToPlay);
    Exit;
  end;
  ClickHereToPlay := BitmapFromString(33, 1, 'z78DA758E510E80300843' +
    'AF54C0E2F6E94CB8FF9134123392693FFA41FA4A23A6F0888443D' +
    '26DC000A7DCE7F458F23EE444E721444B6A0F53D58FE44F4365B7' +
    '067D37AC3D95AADF2F50962C79');
  if FindBitmap(x, y, ClickHereToPlay) then
  begin
    Mouse(X, Y, 3, 3, True);
    Wait(5000+Random(5000));
    WriteLn('RS lagged- logged back in! :) ');
    FreeBitmap(ClickHereToPlay);
  end;
end;

Wow…people are starting to use my functions…

function ClickedPlayRunescape : Boolean;  //Thanks to SantaClause! :)
var
  ClickHereToPlay,x,y:integer;
begin
  if not(LoggedIn) then
  begin
    LoginPlayer; //Some crappy scripts only logout, and dont turn the active player false
    FreeBitmap(ClickHereToPlay); //Will give access violation as ClickHereToPlay isnt loaded yet
    Exit;
  end;
  ClickHereToPlay := BitmapFromString(33, 1, 'z78DA758E510E80300843' +
    'AF54C0E2F6E94CB8FF9134123392693FFA41FA4A23A6F0888443D' +
    '26DC000A7DCE7F458F23EE444E721444B6A0F53D58FE44F4365B7' +
    '067D37AC3D95AADF2F50962C79');
  if FindBitmap(x, y, ClickHereToPlay) then
  begin
    Mouse(X, Y, 3, 3, True);
    Wait(5000+Random(5000));
    WriteLn('RS lagged- logged back in! :) ');
    FreeBitmap(ClickHereToPlay); //Doesnt free when we dont log in...
  end;
end;

Ooo dang, I just realised before I saw your post.

function ClickedPlayRunescape : Boolean;
var
  ClickHereToPlay,x,y:integer;
begin
  ClickHereToPlay := BitmapFromString(33, 1, 'z78DA758E510E80300843' +
    'AF54C0E2F6E94CB8FF9134123392693FFA41FA4A23A6F0888443D' +
    '26DC000A7DCE7F458F23EE444E721444B6A0F53D58FE44F4365B7' +
    '067D37AC3D95AADF2F50962C79');
  if not(LoggedIn) then
  begin
    NextPlayer(False);
    FreeBitmap(ClickHereToPlay);
    Exit;
  end;
  if FindBitmap(x, y, ClickHereToPlay) then
  begin
    Mouse(X, Y, 3, 3, True);
    Wait(5000+Random(5000));
    WriteLn('RS lagged - logged back in! :) ');
    if LoggedIn then
      Result := True;
  end;
  FreeBitmap(ClickHereToPlay);
end;