Results 1 to 11 of 11

Thread: Oak larder maker

  1. #1
    Join Date
    Dec 2011
    Location
    Lithuania
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Oak larder maker

    Makes oak larders, fetchs from butler 20 oak planks. Start near larder, it has to be already built. At end of script, there is written until(sr=100), set number how many larders you want to make.

    Attachment 13272


    -When script or you manualy login, pause script and walk to oak larder.
    -Destroys Strange Rock if found.
    -No antiban, so use at your own risk.
    -Wear green dhide, wizzard robes or any clothing, which has no similar colors to black or red servant and larder.
    -Sometimes it makes one larder ant stops, re-run script.
    Last edited by SantWrong; 01-21-2012 at 11:30 AM.

  2. #2
    Join Date
    Dec 2011
    Posts
    202
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i maybe test it today.

  3. #3
    Join Date
    Dec 2011
    Location
    Lithuania
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Maybe a better timing to run a bit more reliable, but slower. Constructive feedback always welcomed

  4. #4
    Join Date
    Dec 2011
    Location
    USA USA USA!!!
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Seems to have it when i have a larder built already it goes and makes butler fetch planks from bank then after he comes back it builds 1-3 larders depending on if i already had an extra 4 planks in inv or not, then when it fetchs again it removes the larder tries to built again, In game says "you don't have enough materials to build this" then freaks out and clicks in room to left and walks there...

  5. #5
    Join Date
    Dec 2011
    Location
    Aus
    Posts
    62
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by TwoClover View Post
    Seems to have it when i have a larder built already it goes and makes butler fetch planks from bank then after he comes back it builds 1-3 larders depending on if i already had an extra 4 planks in inv or not, then when it fetchs again it removes the larder tries to built again, In game says "you don't have enough materials to build this" then freaks out and clicks in room to left and walks there...
    Your post made me lol^^

    Same happens to me here, it keeps building to the point it has no planks left.

  6. #6
    Join Date
    Dec 2011
    Location
    Lithuania
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I have rewritten script, but I met first time this problem. I'll fin out it and repair. Thanks for feedback

    EDIT

    I'll uploau rewritten form as soon as new SRL update will be pushed and I can test script. There should some improvement. Last version misclicked, because I wanted to make it run faster and minimised waiting betwen operations. Later I tested with longer waiting time - it ran smoothly for hour.
    Last edited by SantWrong; 01-18-2012 at 11:19 PM.

  7. #7
    Join Date
    Dec 2011
    Location
    Lithuania
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Added rewritten version, still antiban needed. Feedback is welcomed!

  8. #8
    Join Date
    Dec 2011
    Location
    Aus
    Posts
    62
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Will give it a try =)

    Edit: It works ! I had to delete 2 liines of code which were responsible for printing out experience I guess.

    [Hint] (69:5): Variable 'LCOLORS' never used at line 68
    [Error] (174:26): Unknown identifier 'Write' at line 173
    Compiling failed.

    It seems to wiggle a bit before starting to build a larder but I´ll try a darker house decoration setup because atm I use wood and maybe it´s because of this.
    Last edited by Lights; 01-21-2012 at 07:57 PM.

  9. #9
    Join Date
    Dec 2011
    Posts
    496
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Should really add an antiban, use the search button and use someone else's (with their permission ofc)

  10. #10
    Join Date
    Dec 2011
    Posts
    97
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Added antiban

    Simba Code:
    program Con;
    {$define SMART}
    {$i srl/srl.scar}
    //At the end of script (line 153), where   until(sr=30), set sr to how many ladders you want to make
    var
      xSer, ySer, x, y, sr, LarderCount :integer;
      LoadBack :Boolean;
    procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      With Players[0] Do
      Begin
        Name        := '';     //Player username.
        Pass        := '';     //Player password.
        Nick        := ''; //Player nickname - 3-4 letters of Player username.
        Active      := True;
      End;
    End;

    procedure Startup;
    begin
      Smart_Server := 6;
      Smart_Members:= true;
      Smart_Signed := true;
      Smart_SuperDetail := false;
      SetupSRL;
      DeclarePlayers;
      LogInPlayer;
      wait(100+random(100));
    end;

    Procedure Setup;
      begin
      ToggleXPBar( True);
      Wait(500);
      LoadBack:= False;
      LarderCount:=0;
      end;

    Procedure SRock;
    var xSR, ySR:integer;
    Begin
    if FindObjEx(xSR, ySR, ['trange'], [7171954], 15, 30, 570, 210, 720, 460) then
      Begin
        Mouse(xSR, ySR, 2, 2, false);
        Wait(RandomRange(100,200));
        ChooseOption('estroy');
        Wait(RandomRange(100,200));
        Mouse(RandomRange(345,405), RandomRange(395,410), 2, 2, True);
      end;
    end;

    Procedure Servant;
    begin
      Wait(100);
      Mouse(xSer, ySer, 2, 2, false);
      Wait(RandomRange(100,200));
      ChooseOption('etch');
      Wait(RandomRange(600,800));
      If FindNPCChatText('If', Nothing) then
        begin
        ClickToContinue;
        Wait(RandomRange(800,1000));
        FindNPCChatText ('coins.', ClickLeft);
        Wait(RandomRange(190,290));
        Mouse(xSer, ySer, 2, 2, false);
        Wait(RandomRange(400,700));
        ChooseOption('etch');
        Wait(600);
        end;
      If not FindNPCChatText ('etch', nothing) then
        begin
        Wait(RandomRange(100,200));
        FindNPCChatText ('Oak', ClickLeft);
        Wait(500)
        TypeSend('20');
        end;
      FindNPCChatText ('etch', ClickLeft);
      LoadBack:=False;
      Wait(500 + Random(300));
      end;

    Procedure FServant;
    var SColors: TIntegerArray;
        i: integer;
    begin
      SColors:= [989748, 1451339, 2174831, 1845343, 1779290];
      For i:=0 to 4 do
      begin
        FreeSRLBitmaps;
      If FindObjTPA(xSer, ySer, SColors[i], 30, -1, 10, 15, 1, ['utler', 'Butler']) then
        begin
        Servant;
        Break;
        end;
        end;
    end;


    Procedure FLadder;
    var LColors:TIntegerArray;
        t:integer;
    begin
    Inc(x); Inc(y);
        LColors:=[4613503, 2838371, 2574426];
        Writeln('Search ladder');
        if FindObjCustom(x, y, ['earch', 'Larder'], [2904421, 8423046], 5)then
        begin
        Mouse(x, y, 2, 2, false);
        Wait(RandomRange(100,150));
        ChooseOptionMultiEx(['Remove','emove'], 'Object', ClickLeft);
        Wait(RandomRange(750,850));
        FindNPCChatText ('Yes', ClickLeft);
        Wait(RandomRange(830,1000));
        end;
    end;

    Procedure Build;
    var OXP, NXP:integer;
    begin
      Inc(x); Inc(y);
      Mouse(x, y, 2, 2, false);
      Wait(RandomRange(150,250));
      ChooseOptionMultiEx(['Build','uild'], 'Object', ClickLeft);
      Wait(RandomRange(600,700));
      Mouse(RandomRange(105,115), RandomRange(135,145) , 2, 2, True);
      Wait(RandomRange(450,600));
    end;

    Procedure AntiBan;
    Begin
      case Random(2000)of
        0: HoverSkill('Construction', False);
        1: SleepAndMoveMouse(7000 + Random(500));
        2: RandomMovement;
        3: PickUpMouse;
        4: BoredHuman;
        5..15: MakeCompass( RandomRange( -360, 360));
        16..60: Wait( Random( 3000));
      End;
    End;

    begin
        Startup;
      sr:=1;
       Inc(x); Inc(y);
      repeat
        If CountItemsArea ('inv')<16 then FServant;
        Wait(RandomRange(500,700));
        if CountItemsArea ('inv')>7 then
        begin
        FLadder;
        Wait(RandomRange(300,500));
        Build;
        Wait(600);
        SRock;
        AntiBan;
        end;
        If Not LoadBack then
        begin
        Repeat
        Wait(1000)
        if CountItemsArea ('inv')>19 then LoadBack:= True;
        Until(LoadBack);
        end;
        sr:=sr+1;
      until(sr=100);
    end.

  11. #11
    Join Date
    Dec 2011
    Location
    Lithuania
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for adding Anti Ban, I've been quite busy this weekend so I couldn't make it to the end. Well good luck using, if any bugs please post it here. Besides cause it is working and has antiban it may be moved to construction section from first scripts

    EDIT 24/01/2012: Going to add reporting system on wekend.
    Last edited by SantWrong; 01-24-2012 at 10:47 AM.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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