SRL Archive - SRL Archives

{*******************************************************************************
function EnterRCAlter: Boolean;
By: Dankness, The Claw
Description:  Will Locate and Enter Rune Crafting Alters by looking for
              the pulsating purple light, Must wear a Tiera to work
              The Claw - Edited to make it work with talismans as well, it now
              also clicks on the altar to enter it instead of just putting the
              mouse over.
*******************************************************************************}

function EnterRCAlter: Boolean;
var
  cx, cy, c: Integer;
begin
  repeat
    if (not (LoggedIn)) then
      Exit;
    repeat
      c := c + 1;
      if (not (LoggedIn)) then
        Exit;
      Wait(25);
      if (c > 100) then
      begin
        Result := False;
        Exit;
      end;
    until (FindMSColorTol(cx, cy, 6243878, 20));
    MMouse(cx, cy, 5, 5);
    Wait(150 + Random(350));
  until (IsUpText('ysterious')) or (PopUp('Enter'));
  if(IsUpText('ysterious')) then
  begin
    Mouse(cx, cy, 1, 1, false);
    ClickOption('ysterious', 1);
  end;
  if(PopUp('Enter')) then
  begin
    Mouse(cx, cy, 1, 1, true);
  end;
  Result := True;
end;

I made an edit to the end of the function. I changed this -

until (PopUp('Enter'));
  Result := True;

To this -

until (IsUpText('ysterious')) or (PopUp('Enter'));
  if(IsUpText('ysterious')) then
  begin
    Mouse(cx, cy, 1, 1, false);
    ClickOption('ysterious', 1);
  end;
  if(PopUp('Enter')) then
  begin
    Mouse(cx, cy, 1, 1, true);
  end;
  Result := True;

So it now clicks on the altar and enters it, instead of just finding it. It also works with talismans, and it should work with tiaras, I havent been able to test it cause I have none. :p

Boreas told me to post it here so yeh.

Ok, but you need to update FindMSColor since that is searching the Mini-Map O_o

i dunno, it was just like that lol

It's in error in SRL, FindMSColorTol uses MMX1 ect..

so just use FindColorSpiralTolerance…

Runecrafting needs a majour overhaul. :p