Results 1 to 11 of 11

Thread: [Help] lumby shop fm

  1. #1
    Join Date
    Aug 2007
    Posts
    984
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    [Help] lumby shop fm

    Im working on my first script which i hope will buy trees - yews burn them and repeat.

    one problem at the moment XD

    SCAR Code:
    function OpenShopStock: Boolean;
    var
      x, y, f: Integer;
    begin
      Status('Trading Shopkeeper...');
      if not(LoggedIn) then exit;
      Flag;
      Wait(350 + random(150));
      if not ShopScreen then
        repeat
          if FindObjCustom(x, y, ['shop', 'assistant', 'shopkeeper'], [6057862,6057862], 5) then
            Mouse(x, y, 4, 4, False);
          Wait(250);
          if (ChooseOption('Trade'))then
     end;
    end;

    It talks to shop keeper trades and then.....

    the shop contains tabs and i'm new at this so ca any one help me out? thank you.


    and sorry if wronge section cant find a help section.. o.O
    SRL > Runescape

    Quote Originally Posted by brent8900 View Post
    when i download it its a FAWG.rar how to i get it to FAWG.exe

  2. #2
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just click the tab with co-ords with random x and y..

    SCAR Code:
    Mouse(166,76,20,8,true);
    (not proper co-ords)
    like that,

    Have you done the firemaking parts yet?. Buying is the easy part

    Search for DTM's of the logs you want, eg what level is the player, can they only burn oak?, whats best for the player (yew? etc). Then right click and buy 50.

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  3. #3
    Join Date
    Jul 2007
    Location
    America
    Posts
    421
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah, do what rogeruk said, or you could make a DTM or Bitmap of the tab (although that might be too hard if you're a beginning scripter).

    Can't find a help section? It's sort of right there....
    http://www.srl-forums.com/forum/scri...help-f140.html
    I dunno, those asians are pretty difficult to out-auto, legend has it they don't need sleep or food...~tim0suprem0
    Activity is on the decline - school's got me
    Check out my tutorial[s] on Color Finding!||Procedures and Functions!

  4. #4
    Join Date
    Aug 2007
    Posts
    984
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    I have been trying to figure out Radial Road Walk


    SCAR Code:
    RadialRoadWalk(RoadColor, 20, 30, 40, {Xmod}, {Ymod});

    i set road color and the first to cords that scare gives me when i use the color tool.
    but it always clicks some where else and i dont no what to put in for the last 3 numbers. i feel im doing it fully wrong.


    i have only started the buying part. ill work on the other part later.


    yes thank you i have the dtms i need.. i think





    SCAR Code:
    Var
    OakDTM,WillowDTM,YewDTM,MapleDTM

    procedure loadDTMs;
    begin

    OakDTM := DTMFromString('78DA8DD13B0A80301045D1491344145410FF1' +
           'FC4A5B82097E28EF5A60B163E077227C5214D5C6B66E144739D87' +
           'A56CC7B919577199EC352E2A3BBC3108B3924E989DD4C2E46414C' +
           '69346988D94C224A4FF610A6116920B33132F4CF898ECDB3C7206' +
           '078E');

      WillowDTM := DTMFromString('78DA63946460609062400151818A0C5C409A1' +
           '188FF0301A3049021C7800618914820CD07241408A861C3B40B43' +
           '8D0A909020A006648F0C116AF809A801795290801A65202142400' +
           'D3B613500B5D706BB');

      MapleDTM := DTMFromString('78DA631466606090604001B99EBC0C5C409A1' +
           '188FF030123485E86010D302291405A11488813500332839F801A' +
           '4E22EC62C67433861A903DF204D4C8020969026AD88184007E350' +
           '0A1120663');

      YewDTM := DTMFromString('78DA631461606010634001B16E9C0C5C409A1' +
           '188FF0301A3149021C9800618914820AD04248409A801C94B1350' +
           '03B2588A801A164C3763A89105127C04D47000097EFC6A009B370' +
           '60A');
    end;


    like you siad above the lvl thing is there a tut on that...? o.O
    SRL > Runescape

    Quote Originally Posted by brent8900 View Post
    when i download it its a FAWG.rar how to i get it to FAWG.exe

  5. #5
    Join Date
    Jul 2007
    Location
    America
    Posts
    421
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I think there's a pretty easy function like 'GetLevel' or something... search around, i g2g to bed.
    I dunno, those asians are pretty difficult to out-auto, legend has it they don't need sleep or food...~tim0suprem0
    Activity is on the decline - school's got me
    Check out my tutorial[s] on Color Finding!||Procedures and Functions!

  6. #6
    Join Date
    Aug 2007
    Posts
    984
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    ok thanks same. ill be looking around.
    SRL > Runescape

    Quote Originally Posted by brent8900 View Post
    when i download it its a FAWG.rar how to i get it to FAWG.exe

  7. #7
    Join Date
    Jun 2007
    Location
    NSW, Australia.
    Posts
    541
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Go something like this for the deciding part...

    SCAR Code:
    function BestLogs : Integer;  //1-Normal, 2-Oak, 3-Willow, 4-Yew.
    var FMLevel : Integer;
    begin
      FMLevel := GetSkillLevel('firemaking');
      if (FMLevel >= 60) then
      begin
        Result := 4;
        Exit;
      end;
      if (FMLevel < 60) and (FMLevel >= 30) then
      begin
        Result := 3;
        Exit;
      end;
      if (FMLevel < 30) and (FMLevel >= 15) then
      begin
        Result := 2;
        Exit;
      end;
      if (FMLevel < 15) then
      begin
        Result := 1;
        Exit;
      end;
    end;

    So basically, before you go into the shop window (because when you do the stats tab is disabled) go like:
    SCAR Code:
    case BestLogs of
        1:  LogsToBuy := 'Normal';
        2:  LogsToBuy := 'Oak';
        3:  LogsToBuy := 'Willow';
        4:  LogsToBuy := 'Yew';
      end;

    Quote Originally Posted by RAM View Post
    I sam sofa king wee todd did ! ~RAM
    My SRL Army Blog.


  8. #8
    Join Date
    Aug 2007
    Posts
    984
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Thank you is still working on the buy screen to get to the Player stock and the r. walker
    SRL > Runescape

    Quote Originally Posted by brent8900 View Post
    when i download it its a FAWG.rar how to i get it to FAWG.exe

  9. #9
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    To goto the player stock just click the tab.. it cant be any easier.

    Radial walking is easy, use the RadialWalkingAid in scripting tools.

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  10. #10
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Pancakes View Post
    Go something like this for the deciding part...

    SCAR Code:
    function BestLogs : Integer;  //1-Normal, 2-Oak, 3-Willow, 4-Yew.
    var FMLevel : Integer;
    begin
      FMLevel := GetSkillLevel('firemaking');
      if (FMLevel >= 60) then
      begin
        Result := 4;
        Exit;
      end;
      if (FMLevel < 60) and (FMLevel >= 30) then
      begin
        Result := 3;
        Exit;
      end;
      if (FMLevel < 30) and (FMLevel >= 15) then
      begin
        Result := 2;
        Exit;
      end;
      if (FMLevel < 15) then
      begin
        Result := 1;
        Exit;
      end;
    end;

    So basically, before you go into the shop window (because when you do the stats tab is disabled) go like:
    SCAR Code:
    case BestLogs of
        1:  LogsToBuy := 'Normal';
        2:  LogsToBuy := 'Oak';
        3:  LogsToBuy := 'Willow';
        4:  LogsToBuy := 'Yew';
      end;

    why you dont fill in whichlog:='yew'
    instead of that uneeded case (i mean to do the case in the level procedure
    ~Hermen

  11. #11
    Join Date
    Aug 2007
    Posts
    984
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    SCAR Code:
    //Boker's First Script
    //Buys Oaks - Yews from lumbrige shop and burns
    //Thank You srl tuts.. XD
    //Need lvl 15 to use Oak+

    program Firemaking;
    {.include srl/srl.scar}

    ////////////////////////////////////////////////////////////////////////////////
    var
     x,y:integer;


    Procedure DeclarePlayers;
    begin
      HowManyPlayers:= 1;               // Set Number of Players here.
      NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length
      CurrentPlayer:= 0;              // CurrentPlayer

      Players[0].Name    :='---';       //username
      Players[0].Pass    :='---';    //password
      Players[0].Nick    :='---';       //3-4 letters of username don't use first letter
      Players[0].Active  :=True        //is this player active true/false?

    end;

    ////////////////////////////////////////////////////////////////////////////////
    Var
    OakDTM,WillowDTM,YewDTM,MapleDTM,LogDTM : Integer;

    procedure LoadDTMs;
    begin
    LogDTM := DTMFromString('78DA638C676060F0634001EEA69C0C0F81342' +           //Logs
              '310FF0702C64420239C010D302291403A0C48441050E30F248208' +
              'A8C905128104D464821C49404D3A9008C5AF06005AEA0A55');

    OakDTM := DTMFromString('78DA8DD13B0A80301045D1491344145410FF1' +
           'FC4A5B82097E28EF5A60B163E077227C5214D5C6B66E144739D87' +
           'A56CC7B919577199EC352E2A3BBC3108B3924E989DD4C2E46414C' +
           '69346988D94C224A4FF610A6116920B33132F4CF898ECDB3C7206' +
           '078E');

      WillowDTM := DTMFromString('78DA63946460609062400151818A0C5C409A1' +
           '188FF0301A3049021C7800618914820CD07241408A861C3B40B43' +
           '8D0A909020A006648F0C116AF809A801795290801A65202142400' +
           'D3B613500B5D706BB');

      MapleDTM := DTMFromString('78DA631466606090604001B99EBC0C5C409A1' +
           '188FF030123485E86010D302291405A11488813500332839F801A' +
           '4E22EC62C67433861A903DF204D4C8020969026AD88184007E350' +
           '0A1120663');

      YewDTM := DTMFromString('78DA631461606010634001B16E9C0C5C409A1' +
           '188FF0301A3149021C9800618914820AD04248409A801C94B1350' +
           '03B2588A801A164C3763A89105127C04D47000097EFC6A009B370' +
           '60A');
    end;

    ////////////////////////////////////////////////////////////////////////////////
    function BestLogs : Integer;  //1-Normal, 2-Oak, 3-Willow, 4-Yew.
    var FMLevel : Integer;
    begin
      FMLevel := GetSkillLevel('firemaking');
      if (FMLevel >= 60) then
      begin
        Result := 4;
        Exit;
      end;
      if (FMLevel < 60) and (FMLevel >= 30) then
      begin
        Result := 3;
        Exit;
      end;
      if (FMLevel < 30) and (FMLevel >= 15) then
      begin
        Result := 2;
        Exit;
      end;
      if (FMLevel < 15) then
      begin
        Result := 1;
        Exit;
      end;
    end;

    ////////////////////////////////////////////////////////////////////////////////

    Procedure DoChats;

    Begin
      SetChat('On', 1);
      SetChat('On', 1);
      SetChat('Friends', 2);
      SetChat('Friends', 2);
      SetChat('On', 3);
      SetChat('On', 3);
    End;

    ////////////////////////////////////////////////////////////////////////////////

    Procedure Findkeeper;

    begin
      if (not(loggedIn))then exit;
      begin
      if FindObjCustom(x, y, ['shop', 'assistant', 'shopkeeper'], [6057862,6057862], 5) then
            Mouse(x, y, 4, 4, False);
          Wait(2500)
      if (ChooseOption('Trade'))then
      Wait(2220)
      begin
       Mouse(166,76,20,8,true);
        Wait(225)
         end;
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////
     function BuyLogs : Integer;
    var x, y, OakDTM, WillowDTM, YewDTM, MapleDTM, LogDTM : Integer;
     begin
        Mouse(x, y, 2, 2, False);
        Wait(50 + Random(100));
     case BestLogs of
        1:  LogDTM := 'buy 50';
        2:  OakDTM := 'buy 50';
        3:  WillowDTM := 'buy 50';
        4:  YewDTM := 'buy 50';
        Exit;
      end;
      Result := 0;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    begin
      SetupSrl;
      LoadDTMs
      DeclarePlayers;
      LoginPlayer;
      ClearDebug;
      DoChats;
      Findkeeper;
      BestLogs;
        BuyLogs
    end.

    ////////////////////////////////////////////////////////////////////////////////

    Thats what i have so far finds shop keeper opens to Player Stock but it will not buy...
    and the "case" gets error ever time

    SCAR Code:
    ////////////////////////////////////////////////////////////////////////////////
     function BuyLogs : Integer;
    var x, y, OakDTM, WillowDTM, YewDTM, MapleDTM, LogDTM : Integer;
     begin
        Mouse(x, y, 2, 2, False);
        Wait(50 + Random(100));
     case BestLogs of
        1:  LogDTM := 'buy 50';
        2:  OakDTM := 'buy 50';
        3:  WillowDTM := 'buy 50';
        4:  YewDTM := 'buy 50';
        Exit;
      end;
      Result := 0;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    Line 124: [Error] (14805:23): Type mismatch

    line 22=
    SCAR Code:
    1:  LogDTM := 'buy 50';
    SRL > Runescape

    Quote Originally Posted by brent8900 View Post
    when i download it its a FAWG.rar how to i get it to FAWG.exe

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. ANY shop buyer
    By EL_TYCHO in forum RS3 Outdated / Broken Scripts
    Replies: 14
    Last Post: 06-25-2007, 08:18 AM
  2. Randoms in shop?
    By Maxine in forum News and General
    Replies: 6
    Last Post: 05-28-2007, 07:35 PM
  3. [WOLF-] >/ Sig Shop \<
    By Wolf- in forum Semi Stupid Pictures
    Replies: 8
    Last Post: 05-23-2007, 09:07 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
  •