Results 1 to 6 of 6

Thread: Help with feather buyer

  1. #1
    Join Date
    Mar 2006
    Posts
    67
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help with feather buyer

    Ok I wrote a featherbuyer and I need some help with it. It's not my first script but it might as well be because my last few were completely terrible lol. Anyways, I took a huge chunk of it from phantom bmxs buyer so sorry for that but the script is just for learning purposes so I hope you wont get upset. I get a dumb error when I compile because I think somethings wrong with my SRL. Anyways, I pretty much filled in the gaps of what I didnt know how to do in the script with what I though woudl go there, lol. I know it is riddled with mistakes, errors, and fauls ( especially in the main loop) so I would appreciate any help that you could give me, thanks.

    Code:
    //           ---    Feather Buyer   ---
    //[ Start in fishing shop logged in, and thats it]
    
    
    
    
    
    program Feathers;
    function FindGerrant:Boolean;  //taken from delux feather buyer.
    var a,b:integer;
    begin
      if(GetColor(342, 44)=2070783)then
        begin
          Result:=True;
          Exit;
        end;
      a:=246;
      b:=163;
      if(FindColorSpiralTolerance(a,b,6785945,10,10,500,330,3))or
        (FindColorSpiralTolerance(a,b,7708590,10,10,500,330,3))or
        (FindColorSpiralTolerance(a,b,7444904,10,10,500,330,3))then
        begin
          Mouse(a,b,0,0);
          Wait(100+random(50));
          if(Option2('Talk'))or
            (IsUpText('Talk'))then
            begin
              Mouse(a,b,0,0,false);
              IdleWait(100+random(20));
              ChooseOption(a,b,'Trade');
              Flag;
              IdleWait(1000+Random(1000));
            end;
    Procedure Buyfeather;
      if(ShopScreen)=true then
        begin
        Mouse(500+random(20), 287+random(20),false);
        if(isuptext('Buy 10')) then
          begin
          Mouse(486+random(20), 356+random(20),true);
        end;
    
      Begin
       if(FindGerrant) = true then
        repeat
        Buyfeather;
         until
       end;
    end.

  2. #2
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok, well i edited a bit and it compiles now not sure if it works tho.

    PHP Code:
    //           ---    Feather Buyer   ---
    //[ Start in fishing shop logged in, and thats it]





    program Feathers;
    {.include 
    SRL/SRL.scar}
    function 
    FindGerrant:Boolean;  //taken from delux feather buyer.
    begin
      
    if(GetColor(34244)=2070783)then
        begin
          Result
    :=True;
          Exit;
        
    end;
      
    x:=246;
      
    y:=163;
      if(
    FindColorSpiralTolerance(x,y,6785945,10,10,500,330,3))or
        (
    FindColorSpiralTolerance(x,y,7708590,10,10,500,330,3))or
        (
    FindColorSpiralTolerance(x,y,7444904,10,10,500,330,3))then
        begin
          Mouse
    (x,y,3,3,False);
          
    Wait(100+random(50));
          if(
    Option2('Talk'))or
            (
    IsUpText('Talk'))then
            begin
              Mouse
    (x,y,3,3,false);
              
    Sleep(100+random(20));
              
    ChooseOption(x,y,'Trade');
              
    Flag;
              
    Sleep(1000+Random(1000));
            
    end;
            
    end;
            
    end;
    Procedure Buyfeather;
        
    begin
        Mouse
    (5002872020,false);
        if(
    isuptext('Buy 10')) then
          begin
          Mouse
    (4863562020,true);
        
    end;
        
    end;

      
    Begin
      SetupSRL
    ;
      
    Repeat
       
    if(FindGerrant truethen
        Buyfeather
    ;
         
    until(false)
    end

  3. #3
    Join Date
    Mar 2006
    Posts
    67
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks, but I'm redoing it with a littel code from the previous script. Anyways I have another question now. If I use the "amount" function, what exacly do I put in for the peramiters. Like would I put in 'shop' or 'feather', and what is the integer for? Example; if I wanted it to buy the feathers when it got to 960 or more woudl I do this, if amount('shop', 960) >= 960 then?

  4. #4
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I have no idea . If i did i'd probably be an srl member lol.

  5. #5
    Join Date
    Nov 2006
    Location
    California, USA
    Posts
    336
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    PHP Code:
    {*******************************************************************************
    function 
    Amount(areaStringiInteger): Integer;
    Bymasquerader
    Description
    Returns the ammount of an item specified by i in an area.
    *******************************************************************************}

    function 
    Amount(areastringiInteger): Integer;
    //i= position
    var
      
    coordstpoint;
    begin
      result 
    := 0;
      if (
    checkarea(area)) then
      begin
        coords 
    := amountcoords(areai);
        
    result := getamount(coords.xcoords.y);
      
    end;
    end
    Always use your SRL manual first to check for things.

    Amount calls CheckArea so you need to know what that is:

    PHP Code:
    {*******************************************************************************
    function 
    CheckArea(areaString): Boolean;
    Bymasquerader
    Description
    Checks if the given interface is opened.
    *******************************************************************************}

    function 
    CheckArea(areastring): Boolean;
    begin
      
    case lowercase(areaof
        
    'inv''inventory':
          
    begin
      
    //automatically tab 4 in all of these cases i think..
            
    if (bankscreen or shopscreen or tradescreen or tradescreen2then
              result 
    := true
            
    else if (gametab(4)) then
              result 
    := true;
          
    end
          
    'shop':
          
    begin
            
    if (shopscreenthen
              result 
    := true;
          
    end;
        
    'bank':
          
    begin
            
    if (bankscreenthen
            begin
              fixbank
    ;
              
    result := true;
            
    end;
          
    end;
        
    'trade''your trade':
          
    begin
            
    if (tradescreenthen
              result 
    := true;
          
    end;
      else 
    invalidoption(area);
      
    end;
      if (
    result falsethen
        writeln
    ('PROBLEM: ' area ' interface not open');
    end

  6. #6
    Join Date
    Mar 2006
    Posts
    67
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ohhhhh I get it, thanks both of you +rep.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Feather buyer
    By Ramage in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 06-12-2007, 10:03 PM
  2. Feather Buyer
    By rscheater13 in forum RS3 Outdated / Broken Scripts
    Replies: 14
    Last Post: 05-22-2007, 01:22 AM
  3. My Feather Buyer
    By I Pick Axes in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 10-02-2006, 03:41 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •