SRL Archive - Outdated / Broken

{.Include SRL\SRL.Scar}

const
Coin = 5428219 ;

Function IsUpTextAcc(Text : String) : Boolean;
begin
  if (Option2    ( Text )) or
     (GetOption =  Text )  or
     (GetUpText =  Text )  or
     (ReadUpText ( Text )) or
     (IsUpText   ( Text )) then
                 Result:=True;
end;

Procedure FindCoin;
begin
  if (FindColorTolerance(x, y, Coin, 0, 0, 515, 336, 3)) then
    begin
      MMouse(x, y, 2, 2)
      if (IsUpTextAcc('Coins') = True) then
        Mouse(x, y, 0, 0, False)
        ChooseOption(x, y, 'Coins')
    end;
  wait(5000+random(234))
end;

begin
  SetupSRL;
  ActivateClient;
  Wait(3000)
  repeat
    FindNormalRandoms;
    FindCoin;
    FindNormalRandoms;
  until(false)
end.

picks up coins actully anywhere but i run it in edgevill dungeouns… behind the secret wall.. were the two rats are were money spawns…

Or dwarf mines by the picaxe there is a 3 spots that spawn 1 coin each. Soon we will be rich…

Yay, few gps per min… you can get about 300gp per hour or so :) sweet money…