Results 1 to 6 of 6

Thread: buyer script

  1. #1
    Join Date
    Mar 2007
    Location
    tha ghettoo
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default buyer script

    well im trying to make my first script, been lookin at alot of other scripts too get to know a bit how it all works

    but i still wont get it how to let it walk somewhere and buy stuff and go back to bank and repeat it all

    im basically looking for someone who could help me learning a bit of scripting

    ive tried reading the tuts but im not that good in english so i dont get it all..

    the good thing is i learn fast if i get good explanations



    i hope someone can help me script a little(h)

  2. #2
    Join Date
    Oct 2007
    Location
    The deep web
    Posts
    2,496
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    if u attact the script ill give you a hand.
    Did someone say GDK?

  3. #3
    Join Date
    Mar 2007
    Location
    tha ghettoo
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how you mean attract the script ?

  4. #4
    Join Date
    Mar 2008
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    he meant attach, read some tutorials in the tutorial island section, use the search button after that

  5. #5
    Join Date
    Oct 2007
    Location
    The deep web
    Posts
    2,496
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    yeh sorry attatch
    Did someone say GDK?

  6. #6
    Join Date
    Mar 2007
    Location
    tha ghettoo
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    well ye i tried the tuts but im not good in english..
    id rather have someone explaining it to me so i understand better


    this is what i have so far
    i used a bit from an other buying script
    i dont know if it would work or even do anything

    alot still needs to be done too

    SCAR Code:
    program New;
    {----------------------------------------------}
    {---------Unl's bronze claw buyer--------------}
    {----------------------------------------------}

    {.include SRL/SRL/Misc/Smart.scar}
    {.include SRL/SRL.scar}

    Const
       SRLID  = '';    // your srl ID
       SRLPass =  '';   // your srl pass

       LoadsPerPlayer = 5;  // Loads to do before switching players
       SmartPrefix = 'world158'; // Smart world you want to use

    Procedure DeclarePlayers;
    Begin
      HowManyPlayers := 2;
      CurrentPlayer := 0;
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;

      Players[1].Name :='';
      Players[1].Pass :='';
      Players[1].Nick :='';
      Players[1].Active:=True;

    End;




    Procedure ToMartin;  // still needs to be done
     begin
     end;
       
       
    procedure FindMartin;   // still needs to be done
     begin
     end;

    Procedure BuyClaws;
     begin
      FindMartin;
       begin
        wait(random(2000));
        MouseBox(67, 110, 92, 127, 3) // isnt right i think
        if(IsUpText('Bronze claws'))then
         begin
          getmousepos(x, y)
          wait(100)
          Mouse(x,y,0,0,false)
          ChooseOption('Buy X')
          Wait(1000)
          Case Random(4) of
           0: TypeSend('29');
           1: TypeSend('32');
           2: TypeSend('45');
           3: TypeSend('55');
          end;
        end
        else
         begin
          MouseBox(50, 70, 116, 79, 1) // isnt right i think
          wait(random(600))
          BuyVials;
         end;
        Wait(400)
       end;
     end;

    Procedure ToBank;  // still needs to be done
     begin
     end;

    Procedure OpenBank;   // still needs to be done
     begin
     end;


    Procedure Deposit;
     begin
     if(BankScreen)then
      begin
       Flag;
       DepositAll;
       Claws := Claws + 27;
       wait(random(2000));
      end
     end;

    Procedure Setup;
     begin
      SetupSRL;
      Wait(1000)
      ActivateClient;
      Wait(2000)
      DeclarePlayers;
      if(not LoggedIn) then LoginPlayer;
      wait(1000)
      SetAngle(True);
      MakeCompass('N');
      wait(1000)
     end;

    Procedure ProgressReport;
    var TotalSpent, RateV, Sec : integer;
     begin
      TotalSpent := Claws * 15;
      Sec := GetTimeRunning div 1000+1;
      RateV := 3600 * Claws / Sec;
      begin
       Writeln('X=============================================X');
       Writeln('X               unls Claw Buyer               X');
       Writeln('X GP Spent: ' + IntToStr(TotalSpent) + 'gp.   X');
       Writeln('X Bought: ' + IntToStr(Vials) + ' Claws. [' +IntToStr(RateV)+' Claws p/h.] X');
       Writeln('X=============================================X');
       Writeln('X Ran For: ' + TimeRunning + '                X');
       Writeln('X                                             X');
       Writeln('X=============================================X');
      end;
     end;

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. This a good script to do?(vial filler,buyer)
    By BobboHobbo in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 03-05-2008, 04:09 AM
  2. First (feather buyer) script
    By Jacobdm0 in forum First Scripts
    Replies: 2
    Last Post: 07-16-2007, 10:28 PM
  3. Need help on my first script - item buyer
    By Timothegreat in forum OSR Help
    Replies: 10
    Last Post: 05-28-2007, 03:22 AM
  4. MY first script! (auto arrow buyer!)
    By 3Garrett3 in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 02-27-2007, 01:05 AM

Posting Permissions

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