Results 1 to 14 of 14

Thread: Nathan's Larderer

  1. #1
    Join Date
    Nov 2011
    Posts
    255
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default Nathan's Larderer

    This is a script you should babysit.
    This is not the greatest script I've written, it's very simple and doesn't feature a whole lot of antiban. I needed 71-75 construction, and this did the trick just fine. So be careful with it. I'm not planning on updating the script unless I decided I need to train construction higher.

    It worked flawlessly (or it fixed any flaws itself) for my training, but that was 71-75.

    Reqs: House set up exactly like this:

    Your demon butler must be beside you, and you must have already selected him to bring you 24 oak planks.

    No guarantees the script will work for you, it worked for me, the only reason I'm releasing is because there is not a working construction script currently.

    Simba Code:
    program NathansLarder;
      {$DEFINE SMART}
      {$i srl/srl.simba}

    var
      X,Y,TimesGreedy,lardersbuilt:integer;

    function ClickObj(x, y: Integer; HMod, SMod: Extended; color,tol,clicktype:Integer; UpText:TStringArray):Boolean;
    var
      init, I: Integer;
      TPA: TPointArray;
      ATPA: Array of TPointArray;
    begin
      init:=GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(HMod, SMod);
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, color, MSX1, MSY1, MSX2, MSY2, tol);
      ColorToleranceSpeed(init);
      ATPA:=TPAToATPAEx(TPA, 25, 25);
      for i:=0 to High(ATPA) do
        begin
          MiddleTPAEx(ATPA[i], x, y);
          MMouse(x, y, 2, 2);
          sleep(100+random(100));
          If(IsUpTextMultiCustom(UpText)) then
              begin
                Result := True;
                GetMousePos(x, y);
                Mouse(x,y,0,0,clicktype);
                sleep(150+random(150));
                Break;
            end;
        end;
    end;

    function ClickObjNorth(x, y: Integer; HMod, SMod: Extended; color,tol,clicktype:Integer; UpText:TStringArray):Boolean;
    var
      init, I: Integer;
      TPA: TPointArray;
      ATPA: Array of TPointArray;
    begin
      init:=GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(HMod, SMod);
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, color, 0,0,513,142, tol);
      ColorToleranceSpeed(init);
      ATPA:=TPAToATPAEx(TPA, 25, 25);
      for i:=0 to High(ATPA) do
        begin
          MiddleTPAEx(ATPA[i], x, y);
          MMouse(x, y, 2, 2);
          sleep(100+random(100));
          If(IsUpTextMultiCustom(UpText)) then
              begin
                Result := True;
                GetMousePos(x, y);
                Mouse(x,y,0,0,clicktype);
                sleep(150+random(150));
                Break;
            end;
        end;
    end;

    procedure GreedyBastard;
    begin
      TimesGreedy:=TimesGreedy+1;
      writeln('GreedyBastard');
      TypeSend(' ');
      sleep(500+random(150));
      TypeSend('1');
      writeln('Our butler has been greedy: ' + inttostr(TimesGreedy));
    end;

    procedure HandleButler;
    var breakout:Integer;
    begin
      if(ClickObj(x,y,0.069,0.4378,5857667,30,0,['emon'])) then
        begin
        if(ChooseOption('from')) then
          begin
          sleep(400+random(150));
          if(FindColorTolerance(x,y,8388608,307,424,307,424,10)) then
            GreedyBastard;
            if(FindColorTolerance(x,y,13158600,154,386,154,386,10)) then
              begin
                TypeSend('1');
                MarkTime(BreakOut);
                while(InvCount < 8) do
                  begin
                    if(TimeFromMark(Breakout) > 12000) then
                      Exit;
                    if(FindColorTolerance(x,y,8388608,307,424,307,424,10)) then
                      GreedyBastard;
                  end;
              end;
          end;
        end;
    end;


    function BuildWindow:boolean;
    begin
    result:= FindColorTolerance(x,y,2070783,144,34,144,34,5);
    end;

    procedure BuildWindowFail;
    begin
      if(BuildWindow) then
        MouseBox(465,32,477,43,1);
        sleep(500+random(100));
    end;

    Function HandleBuiltLarder:boolean;
    begin
      if(ClickObjNorth(x,y,0.2598,0.8094,4417150,20,0,['rder'])) then
        begin
          sleep(100+random(100));
          if(ChooseOption('move')) then
          begin
            sleep(400+random(150));
            if(FindColorTolerance(x,y,13158600,229,405,229,405,10)) then
              begin
                SendKeys('1');
                result:=true;
              end;
          end;
        end;
    end;

    Function HandleEmptyLarder:boolean;
    begin
      if(InvCount > 7) then
        begin
          if(ClickObjNorth(x,y,0.0927,0.1689,11383999,40,0,['more'])) then
            begin
              sleep(100+random(100));
              if(ChooseOption('Build Larder')) then
              begin
              end else
               begin
               writeln('fail, try again');
               ClickObjNorth(x,y,0.0927,0.1689,11383999,40,0,['more']);
               sleep(100+random(100));
               ChooseOption('Build Larder');
               sleep(200+random(100));
               end;
             end;
             sleep(350+random(100));
             if(BuildWindow) then
              begin
                MouseBox(95,125,125,153,1);
                lardersbuilt:=lardersbuilt+1;
                sleep(200+random(200));
                result:=true;
              end else
                begin
                  sleep(400+random(100));
                  if(BuildWindow) then
                     begin
                       MouseBox(95,125,125,153,1);
                       lardersbuilt:=lardersbuilt+1;
                       sleep(200+random(200));
                       result:=true;
                     end;
                end;
          end;
    end;

    Function IsLarderEmpty:boolean;
    begin
      BuildWindowFail;
      if(CountColorTolerance(12633037,246,72,313,149,8) > 250) then
        begin
          result:=true;
        end else
          result:=false;
    end;

    begin
      Smart_Server := 114;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
      while(true) do
        begin
          if(InvCount < 8) then
            HandleButler;
          if(IsLarderEmpty) then
            begin
              HandleEmptyLarder;
            end else
              HandleBuiltLarder;
            sleep(550+random(100));
            ClearDebug;
            writeln('Nathan''s Larderer');
            writeln('Has been running for: ' + TimeRunning);
            writeln('We have built: '+ IntToStr(lardersbuilt) + ' larders.');
            writeln('We have gained: ' + IntToStr(lardersbuilt*480) + ' construction experience.');
            writeln('Our greedy butler has demanded: ' + IntToStr(TimesGreedy*7500) + ' coins.');
        end;
    end.
    Last edited by [Nathan]; 01-10-2012 at 02:50 AM.

  2. #2
    Join Date
    Dec 2011
    Location
    Kosovo
    Posts
    831
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    You can take anti-ban from a SRL member script. Ask them first

  3. #3
    Join Date
    Nov 2011
    Posts
    255
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Quote Originally Posted by begginer View Post
    You can take anti-ban from a SRL member script. Ask them first
    If you look at my other scripts I know how to make anti-ban pretty well This script is just very basic, and not really meant for a leacher to get 99 construction with. Its a very solid base for someone who can read a tutorial to add a little bit to and have a very quality script.

  4. #4
    Join Date
    Dec 2011
    Posts
    505
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    How about to change it for a *Butler? I suppose as well a different withdraw planks number

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

    Default

    Too bad it doesn´t work for me.

  6. #6
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    Lights me neither I made my own.
    Might upload tonight.
    Mat



    ^^

  7. #7
    Join Date
    Nov 2011
    Posts
    255
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Sorry guys, it was a quick hack up that worked well for me at the time that I thought I'd share but because of the colors it wasn't as stable as I had hoped. I'm not planning on training construction again anytime soon, so not really planning on updating

  8. #8
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    Okay no problem Nathan I'll upload mine tonight.
    Mat



    ^^

  9. #9
    Join Date
    Dec 2011
    Posts
    505
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    Quote Originally Posted by [Nathan] View Post
    Sorry guys, it was a quick hack up that worked well for me at the time that I thought I'd share but because of the colors it wasn't as stable as I had hoped. I'm not planning on training construction again anytime soon, so not really planning on updating
    Then why make the thread with your script in the Construction public list?
    Seriously if you make a script just for making it not updating it then make that under first scripts. This section: http://villavu.com/forum/forumdisplay.php?f=99


    Public list is more for scripts that will be actively updated & stable

  10. #10
    Join Date
    Nov 2011
    Posts
    255
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Quote Originally Posted by blinkblink View Post
    Then why make the thread with your script in the Construction public list?
    Seriously if you make a script just for making it not updating it then make that under first scripts. This section: http://villavu.com/forum/forumdisplay.php?f=99

    Public list is more for scripts that will be actively updated & stable
    Well fine, if you want to be so condescending, don't expect anymore public releases from me. I guess I shouldn't release the gilded altar script (another skill that doesn't have a public working script) that has gotten me 70-93 in the last 24 hours because I'll never use it again after I get to 95? I thought the script would be beneficial because there was no working construction script at the time of release. I released it to fill a void until someone who had more time to spend on one could release theres.

  11. #11
    Join Date
    Dec 2011
    Posts
    505
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    Quote Originally Posted by [Nathan] View Post
    Well fine, if you want to be so condescending, don't expect anymore public releases from me. I thought the script would be beneficial because there was no working construction script at the time of release. I released it to fill a void until someone who had more time to spend on one could release theres.
    You took it pretty hard, sorry. Its just the reality next time make sure to release it on First scripts(its a testing area, which is great for people to learn from), only release on public list if you do have plans on updating it.

  12. #12
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    Wow Nice to see someone being a hard core lecher:P His Script mate he can choose to update and when he updates doesn't matter if you don't like if you don't make your own.
    Mat



    ^^

  13. #13
    Join Date
    Dec 2011
    Posts
    505
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    Quote Originally Posted by Aligndude View Post
    Wow Nice to see someone being a hard core lecher:P His Script mate he can choose to update and when he updates doesn't matter if you don't like if you don't make your own.
    Mat
    Why are you calling me a leecher? I do not make scripts so in no way does anything or anyone else can call me that since I always provide Scripts Progress feedbacks. Please go find threads I have posted in(that is if i ran the script) & you will always find progress reports from me.

    Now, apparently you do not know how to read, he clearly stated he had no plans updating the script. so your statement "His Script mate he can choose to update and when he updates doesn't matter if you don't like if you don't make your own" its wrong.
    I'm not planning on training construction again anytime soon, so not really planning on updating
    Please make sure to read correctly before making such post, I clearly stated if he had no plans on making updates for the script he should have not released it under public scripts, period(public scripts is made for scripts which are updated/active - not a script which is abandoned"sorry its an exaggerated word, don't know a simpler one to use" after released). He should have simply made the script inside the First Scripts section since that is the area for people to test scripts or used for others to learn from their script codes to make new ones based from these ideas... and on that area there is no problem for not making an update on the script.

    I respect his script work, this one looks great: http://villavu.com/forum/showthread.php?t=70417
    If you would understand the purpose of my posting you would understand why I made such post, its not saying he made a bad script etc... its a forum script placement thing which is what I am talking about... which obviously has nothing at all for you to call me a leech.

  14. #14
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    Adding to the Public section if he says he not really planning updating, its not saying he won't update maybe someone will modify it or do what I did and made another one of my own , It was harsh calling you a lecher sorry :/
    Mat



    ^^

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
  •