SRL Archive - Help and Support

Ok i'm trying to make a death buyer.. And what i'm trying to do is get it to find the Aubury and then click trade i can do everything else but this (if its easier to trade betty than you can do that 2). :( And if you could send me in the right spot to find out how to make a world switcher or a tut on random world switching or something like this tell me as well please. Thanks if you can help.

From: whitevans1
Ok i'm trying to make a death buyer.. And what i'm trying to do is get it to find the Aubury and then click trade i can do everything else but this (if its easier to trade betty than you can do that 2). :( And if you could send me in the right spot to find out how to make a world switcher or a tut on random world switching or something like this tell me as well please. Thanks if you can help.

//---------------------------------------------------\\
const
  Betty =0;//Betty's Color(A Unique One)
//---------------------------------------------------\\

procedure TradeBetty;
begin
    if(FindObj(x, y, 'Trade', Betty, 5))then
    begin
      Writeln('Found betty');
      Mouse(x, y, 1, 1, true);
end;
  end;

The world switching will be difficulter. You will need to use DTM's or Bitmaps.

Anyways. I think Betty would be easier to find. Ex.(Not alot of people, more distinct colors). If you don't understand what I posted please ask.

program FindAubury;
{.include Squig2.txt}
//---------------------------------------------------\\
const
  Aubury = 1988989;//Aubury
//---------------------------------------------------\\
procedure FindAubury;
begin
    if(FindObject('Talk', Aubury,5))then
    begin
      Writeln('Found Aubury');
    end;
  end;
  
begin
ActivateClient;
FindAubury;
end.

Here, try this.
Excuse me for using squigs include, since i'm new to SRL :) Anyway try that color, seems like it works best of all :/

ok i found her now it won't like select her or trade or w/e :( i'm sorry i'm a big noob. but i'm trying to learn..

From: whitevans1
ok i found her now it won't like select her or trade or w/e :( i'm sorry i'm a big noob. but i'm trying to learn..

program New;
{.include SRL/SRL.Scar}

//---------------------------------------------------\\
const
  Betty =0;//Betty's Color(A Unique One)
//---------------------------------------------------\\

procedure TradeBetty;
begin
    if(FindObj(x, y, 'Trade', Betty, 5))then
    begin
      Writeln('Found betty');
      Mouse(x, y, 1, 1, false);//right clicks
      ClickOption('Trade', 1);//trades
   end;
end;

begin
  TradeBetty;
end;

Hopefully that may work, I didn't test it..

Heres my finished script so far… i was wondering if someone could tell me how to make it loop just for 20 times because all i know how is to make this one part loop forever…

/////////////////////////////////////////////////////////////////
//                   Death Rune Buyer                                         //
//                    By: Whitevans1                                           //
////////////////////////////////////////////////////////////////////////
//                     Instructions:                                              //
// 1. Start In Betty's Rune Shop                                          //
// 2. Get Betty's Unique Color                                              //
// 3. Fill In Username,Password, and Betty's Unique Color     //
// 4. Drag CrossHairs to Runescape Client                           //
// 5. Hit Run                                                                     //
// 6. Hit Ctrl+Alt+S to stop after you bought all runes           //
///////////////////////////////////////////////////////////////////////
program DeathRuneBuyer;
{.include SRL\SRL.scar}
//---------------------------------------------------\\
const
  username='';//username
  password='';//password
  Betty =6883691;//Betty's Color(A Unique One)
//---------------------------------------------------\\
begin
UpChars:= LoadChars2(AppPath + 'CharsRS22\');
MoveMouseSmooth(458, 288);
ClickMouse(458, 288, true);
Random(3);
Wait(500);
MoveMouseSmooth(370, 253);
Random(4);
Wait(300);
ClickMouse(370, 253, true);
SendKeysSilent(username)
MoveMouseSmooth(372, 426)
Wait(400);
ClickMouse(370, 270, true);
SendKeysSilent(password)
Wait(233);
MoveMouseSmooth(299, 321);
HoldMouse(299, 321, true);
Wait(450);
ReleaseMouse(299,321, true);
Wait(7000);
MoveMouseSmooth(509, 332);
HoldMouse(509, 332, true);
Wait(500);
ReleaseMouse(509, 332, true);
Wait(1093);
begin
FindObj(x, y, 'Trade', Betty, 5)
Mouse(x, y, 1, 1, false);
if (ClickOption('Trade', 1))then
wait(700);
while(true) do
begin
MoveMouseSmooth(421, 86);
wait(500);
ClickMouse(421, 86, false);
Random(10);
wait(900);
ClickMouse(379, 155, true);
wait(900);
end;
end;
end.

Try using Mouse and MMouse

i have another idea but need help i was wondering like how could i make my script stop when the death runes get to 0?? if you can help with this it would be awesome or tell me a function 2 do or something.

heres how to repeat a certain amount of times..

procedure Blah;
var loopcounter:Integer;
begin
  repeat
    stuff;
    loopcounter:= loopcounter + 1
  until(loopcounter = 20)
end;

you can incorporate that into the main loop fairly easy..

as for the other function.. find out if there is any unique spot on the zero that isnt the same color with any other number.. the numbers move if there are more digits or less.. like if it hits zero, does a pixel or two of the zero not intercept a number like 233.. if it doesnt intercept any other number, use this..

function ZeroDeaths:Boolean;
begin
  result:=false //makes it false until there are zero deaths
  if(findcolor(x,y,ColorOfZero,343,143,343,143))then //the 343,143,343,143 is the unique single pixel
    begin
      result:=true //results true if no more deaths
    end;
end;

also please make the unique point your own, i just gave that point for an example