Page 23 of 40 FirstFirst ... 13212223242533 ... LastLast
Results 551 to 575 of 999

Thread: AshamanConstruction

  1. #551
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

    Default

    Quote Originally Posted by PlatinumSif View Post
    I can't get it to work at all.
    I have the graphcis set up, I'm facing the larder with oaks sent to get 26 and push start and nothing happens.
    Da srl include is brokens you see....you see....they are taking the hobbits to isengard!

    Gotta wait for devs to fix

  2. #552
    Join Date
    Feb 2012
    Posts
    40
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    I have this script updated and working flawlessly after the social slayer update if anybody want's it.

    Will upload with ashaman's permission

  3. #553
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

    Default

    Quote Originally Posted by Okea View Post
    I have this script updated and working flawlessly after the social slayer update if anybody want's it.

    Will upload with ashaman's permission
    Are you using the temp fix? I don't mind you posting it, but I probably won't update the OP until a definite fix is pushed by the devs. Did you just have to update the mouseboxes and search zones?

  4. #554
    Join Date
    Feb 2012
    Posts
    40
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by ashaman88 View Post
    Are you using the temp fix? I don't mind you posting it, but I probably won't update the OP until a definite fix is pushed by the devs. Did you just have to update the mouseboxes and search zones?
    I just updated the mouseboxes and backwards compatability, For some reason it had a little error where it doesn't actually send the butler, I'm not sure why.

    This isn't too much of a problem with the demon butler as you get enough planks to wait 2 more attempts to then ask for more planks, but with the normal butler it causes the script to close every 10 minutes.

    Code:
    Program AshamanLarder;
    {$DEFINE SMART}
    {$I SRL/SRL.Simba}
    {$IFDEF SIMBAMAJOR980}
      {$I SRL/SRL/Misc/PaintSmart.Simba}
    {$ELSE}
      {$I SRL/SRL/Misc/SmartGraphics.Simba}
    {$ENDIF}
      {$I SRL/SRL/Misc/Debug.Simba}
    
    {
    
    AshamanLarder v6.0
    -Make sure you have a full load of Oak Planks on you
    -Make sure you have already told the Butler to get 20 Oak Planks or if using demon butler, 26
    }
    
    ///////////////////////////////////////////////////////////////////////
    //                                                                   //
    //                  Begin of user setup                              //
    //                Fill in the fields below                           //
    //                                                                   //
    ///////////////////////////////////////////////////////////////////////
    
    Const
      SRLStats_Username = '';     // ***Leave blank if you don't have a stats account***
      SRLStats_Password = '';
      Direction         = 'S';    // ***Set this to whatever direction your larder is facing so that your butler will be on your right, and you are up against the wall (like the picture)***
      DemonButler       = true;  // ***Set to true if you are using the demon butler (False if you are using regular butler)***
    
    Procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      Players[0].Name := '';      // ***Username***
      Players[0].Pass := '';      // ***Password***
      Players[0].Active := True;
    End;
    
    ///////////////////////////////////////////////////////////////////////////////////////////
    //                                                                                       //
    //                            End of user setup                                          //
    //           Don't touch below this line unless you know what you're doing!!             //
    //                                                                                       //
    ///////////////////////////////////////////////////////////////////////////////////////////
    
    Var
      LarderCount,XP,StartTime,Timeout,StartingExperience,LardersPH,XPH:Integer;
      Count,Start,Counts,Color,Tolerance: Integer;
      Hue,Sat: Extended;
      FirstMouse: Boolean;
    
    Const
      LarderX1=251;
      LarderY1=141;
      LarderX2=277;
      LarderY2=159;
    
      ButlerX1=284 ;
      ButlerY1=210;
      ButlerX2=305;
      ButlerY2=231;
    
      ScriptVersion = '6.0';
      Debug = False;
    
     {*******************************************************************************
    
    All of these mouse movements are credited to bENland100 and flight
    
    *******************************************************************************}
    
    
    //By Bandland100, modified to shift mouse speeds after every step
    Procedure SuperWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);
    Var
      veloX,veloY,windX,windY,veloMag,dist,randomDist,lastDist,step: extended;
      lastX,lastY,MSP,W: integer;
      sqrt2,sqrt3,sqrt5: extended;
    Begin
      MSP  := MouseSpeed;
      sqrt2:= sqrt(2);
      sqrt3:= sqrt(3);
      sqrt5:= sqrt(5);
      While hypot(xs - xe, ys - ye) > 1 Do
      Begin
        dist:= hypot(xs - xe, ys - ye);
        wind:= minE(wind, dist);
        If dist >= targetArea Then
        Begin
          windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
          windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
        End Else
        Begin
          windX:= windX / sqrt2;
          windY:= windY / sqrt2;
          If (maxStep < 3) Then
          Begin
            maxStep:= random(3) + 3.0;
          End Else
          Begin
            maxStep:= maxStep / sqrt5;
          End;
        End;
        veloX:= veloX + windX;
        veloY:= veloY + windY;
        veloX:= veloX + gravity * (xe - xs) / dist;
        veloY:= veloY + gravity * (ye - ys) / dist;
        if hypot(veloX, veloY) > maxStep then
        Begin
          randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
          veloMag:= sqrt(veloX * veloX + veloY * veloY);
          veloX:= (veloX / veloMag) * randomDist;
          veloY:= (veloY / veloMag) * randomDist;
        End;
        lastX:= Round(xs);
        lastY:= Round(ys);
        xs:= xs + veloX;
        ys:= ys + veloY;
    
        Case Random(50) Of
          1..25: W := (MSP + (Random((MSP/4))));
          26..50: W := (MSP - (RandomRange((MSP/2), MSP-1)));
        End;
        If (W < 1) Then
          W := 1;
    
        If (lastX <> Round(xs)) Or (lastY <> Round(ys)) Then
          MoveMouse(Round(xs), Round(ys));
    
        step:= hypot(xs - lastX, ys - lastY);
        //W := round((maxWait - minWait) * (step / maxStep) + minWait);
        wait(W);
        lastdist:= dist;
      end;
    
      If (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) Then
        MoveMouse(Round(xe), Round(ye));
    
      MouseSpeed := MSP;
    End;
    
    Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
    Var
      randSpeed: extended;
      X,Y,X2,Y2,j,Dist,MP: integer;
    Begin
      j := MouseSpeed;
      GetMousePos(X, Y);
      Dist := Distance(X, Y, eX, eY);
      MP := Round(Dist/150);
      If MP < 0 Then
        MP := 1;
    
      randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
      X2 := RandomRange(eX-(j*MP), eX+(j*MP));
      Y2 := RandomRange(eY-(j*MP), eY+(j*MP));
      SuperWindMouse(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
      GetMousePos(X, Y);
      MMouse(eX, eY, ranX, ranY);
      MouseSpeed := j;
    End;
    
    Function FailSafe: Boolean;
    Var
      CTS,T:Integer;
      TPA: TPointArray;
      ATPA: T2DPointArray;
    Begin
      Result:=False;
    
      If Debug Then
        Writeln('ENTERING FAILSAFE FUNCTION');
    
      Mouse(249,177,4,4,True);
      Wait(RandomRange(300,400));
    
      MarkTime(T);
      Repeat
        Wait(100);
        If TimeFromMark(T)>5000 Then
          Exit;
      Until (Not(Ismoving));
    
      CTS:= GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
    
      SetColorSpeed2Modifiers(Hue,Sat);
      FindColorsSpiralTolerance(MSCX,MSCY,TPA,Color,ButlerX1,ButlerY1,ButlerX2,ButlerY2,Tolerance);
      ColorToleranceSpeed(CTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      ATPA := TPAtoATPAEx(TPA,20,20);
    
      If Debug Then
        DebugATPA(ATPA,'');
    
      If (Length(ATPA) = 0) Then
      Begin
        If Debug Then
          Writeln('No Butler found.');
        Exit;
      End Else
      Begin
        If Debug Then
          Writeln('Butler found.');
        Result:=True;
      End;
    End;
    
    Procedure TypeFast(Text: String);
    Var
      I: Integer;
    Begin
      For I:=1 to Length(Text) Do
        {$IFDEF SIMBAMAJOR980}
        SendKeys(Text[I], 10 + Random(2));
        {$ELSE}
        SendKeys(Text[I], 10 + Random(2), 10 + Random(2));
        {$ENDIF}
    End;
    
    Function FindButler: Boolean;
    Var
      X,Y,H,H2,I,CTS,T: Integer;
      TPA: TPointArray;
      ATPA: T2DPointArray;
    Label
      Jump;
    Begin
      Result := False;
    
      If Not LoggedIn Then
        Exit;
    
      FindNormalRandoms;
    
      If (OptionsExist(['Exam','mine','Examine','Canc','ncel','Cancel'],False)) Then
      Begin
        If Debug Then
          Writeln('Closing options menu');
        MMouse(50,50,100,100);
      End;
    
      CTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
    
      SetColorSpeed2Modifiers(Hue,Sat);
      FindColorsSpiralTolerance(MSCX,MSCY,TPA,Color,ButlerX1,ButlerY1,ButlerX2,ButlerY2,Tolerance);
      ColorToleranceSpeed(CTS);
      SetColorSpeed2Modifiers(0.2,0.2);
    
      ATPA := TPAtoATPAEx(TPA,20,20);
    
      If Debug Then
        DebugATPABounds(ATPA);
    
      If (Length(ATPA) = 0) Then
      Begin
        If Debug Then
          Writeln('No butler found.');
        Exit;
      End;
    
      H := High(ATPA);
      If H < 4 Then
        H2 := H Else
        H2 := 4;
    
      For I:= 0 To H2 Do
      Begin
        MiddleTPAEx(ATPA[I],X,Y);
    
        Jump:
        If Not (IsUpTextMultiCustom(['utle','tler','Butl'])) Then
          HumanMMouse(X,Y,4,4);
    
        If (WaitUpTextMulti(['utle','tler','Butl'],300)) Then
        Begin
          If Debug Then
            Writeln('Found Butler, Clicking.');
    
          ClickMouse2(False);
    
    
          If WaitOptionMulti(['etch','from','bank'],RandomRange(700,900)) Then
          Begin
            If Debug Then
              Writeln('Found fetch option.');
    
            If DidYellowClick Then
            Begin
              FailSafe;
              FirstMouse:=True;
              Exit;
            End;
    
            MarkTime(T);
            Repeat
              If CountColor(37083,141,374,378,470)=0 Then
                Break;
              If TimeFromMark(T)>4000 Then
              Begin
                If Debug Then
                  Writeln('Orange highlight color for paying butler didnt go away');
                Exit;
              End;
            Until Not LoggedIn;
    
            MarkTime(T);
            Repeat
              Wait(Random(200));
              If TimeFromMark(T) > 8000 Then
              Begin
                If Debug Then
                  Writeln('Didnt find butler chat option timeout');
                Break;
              End;
            Until ((FindNPCChatText('coins',Nothing)) Or (FindNPCChatText('nother', Nothing)));
    
            If FindNPCChatText('coins',Nothing) Then
            Begin
              If Debug Then
                Writeln('Paying butler');
    
              ClickContinue(True,True);
              TypeFast('1');
    
              MarkTime(T);
              Repeat
                If CountColor(37083,148,431,378,443)>0 Then
                  Break;
                If TimeFromMark(T)>4000 Then
                Begin
                  If Debug Then
                    Writeln('Didnt find orange highlight color for paying butler');
                  Exit;
                End;
              Until Not LoggedIn;
    
              If Debug Then
                Writeln('Re-clicking butler');
    
              GoTo Jump;
            End;
    
            If (FindNPCChatText('nother', Nothing)) Then
            Begin
              If Debug Then
                Writeln('Sending for more planks.');
    
              TypeFast('1');
    
              MarkTime(T);
              Repeat
                If CountColor(37083,148,431,378,443)>0 Then
                  Break;
                If TimeFromMark(T)>4000 Then
                Begin
                  If Debug Then
                    Writeln('Didnt find orange highlight color for paying butler');
                  Exit;
                End;
              Until Not LoggedIn;
    
              Count:= 0;
              Result:= True;
              Exit;
            End;
          End;
        End;
      End;
    End;
    
    Function FindEmpty:Boolean;
    Var
      H,H2,I,CTS,T,X,Y,POSX,POSY: Integer;
      TPA: TPointArray;
      ATPA: T2DPointArray;
    Begin
      Result:=False;
    
      If Not LoggedIn Then
        Exit;
    
      If TimeFromMark(Timeout) > 40000 Then
      Begin
        Writeln('Something messed up, shutting down');
        TerminateScript;
      End;
    
      CTS:= GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
    
      SetColorSpeed2Modifiers(0.25,0.18);
      FindColorsSpiralTolerance(MSCX,MSCY,TPA,10791346,LarderX1,LarderY1,LarderX2,LarderY2,12);
      ColorToleranceSpeed(CTS);
      SetColorSpeed2Modifiers(0.2,0.2);
    
      ATPA := TPAtoATPAEx(TPA,20,20);
    
      If Debug Then
        DebugATPABounds(ATPA);
    
      If (Length(ATPA) = 0) Then
      Begin
        If Debug Then
          Writeln('No empty larder spot found.');
        Exit;
      End;
    
      H:= High(ATPA);
      If H < 2 Then
        H2:= H Else
        H2:= 2;
    
      For I:= 0 To H2 Do
      Begin
        GetMousePos(POSX,POSY);
        MiddleTPAEx(ATPA[I],X,Y);
    
        If Not PointInBox(Point(X,Y),IntToBox(POSX-10,POSY-10,POSX+10,POSY+10)) Then
        Begin
          If Debug Then
            Writeln('Moving Mouse');
          HumanMMouse(X,Y,5,5);
        End Else
          If Debug Then
            Writeln('Mouse already in position');
    
        If (WaitUpTextMulti(['Wal','alk'],300)) Then
        Begin
          If Debug Then
            Writeln('Found empty spot, clicking.');
          ClickMouse2(False);
    
          If InvCount < 8 Then
          Begin
            Marktime(T);
            Writeln('Low on inventory, waiting for Butler.');
            Repeat
              Wait(100);
            Until ((InvCount > 8) or (TimeFromMark(T) > 8000));
          End;
    
          If InvCount < 8 Then
            Begin
              If Debug Then
                Writeln('Inventory low, sending for butler.');
    
              If (OptionsExist(['Exam','mine','Examine','Canc','ncel','Cancel'],False)) Then
              Begin
                If Debug Then
                  Writeln('Closing options menu');
                MMouse(50,50,100,100);
              End;
    
              FindButler;
    
              If Debug Then
                Writeln('Re-clickinglarder.');
    
              HumanMMouse(X,Y,5,5);
              ClickMouse2(False);
    
              Marktime(T);
              Repeat
                Wait(100);
              Until ((InvCount > 8) or (TimeFromMark(T) > 30000));
            End;
    
          If InvCount < 8 Then
          Begin
            Writeln('Out of supplies. Goodbye!');
            Logout;
            Terminatescript;
          End;
    
          If WaitOptionMulti(['uild','Buil'],RandomRange(700,900)) Then
          Begin
            If Debug Then
                Writeln('Clicking build option');
    
            If DidYellowClick Then
            Begin
              FailSafe;
              FirstMouse:=True;
              Exit;
            End;
            Result:= True;
            FirstMouse:=False;
            Exit;
          End;
        End;
      End;
    End;
    
    Procedure ProgressReport;
    Begin
      If Not Debug Then
        ClearDebug;
    
      XP := (GetXPBarTotal - StartingExperience);
      XPH := Round(XP * (3600.0 / (GetTimeRunning / 1000.0)));
      LardersPH := Round((LarderCount * (3600.0 / (GetTimeRunning / 1000.0))));
    
      Writeln('=========AshamanLarders==========');
      Writeln('==========Version: '+ScriptVersion+'==========')
      Writeln('Time Running: ' + TimeRunning);
      Writeln('Larders Made: ' + IntToStr(LarderCount));
      Writeln('Experience Earned: ' + IntToStr(XP));
      Writeln('Experience/Hour: ' + IntToStr(XPH));
      Writeln('Larders/H: ' + IntToStr(LardersPH));
      Writeln('==================================');
    
      Stats_IncVariable('Oak Larders (Constructed)', 1);
      Stats_Commit;
    
      MarkTime(Timeout);
    End;
    
    Function FindBuild:Boolean;
    Begin
      Result := False;
    
      If Not LoggedIn Then
        Exit;
    
      If Debug Then
        Writeln('Moving mouse to build icon');
    
      MouseBox(192,177,244,219,Mouse_Move);
    
      If WaitUpTextMulti(['uild','Bui','Bu','Oak','rder','lard'],RandomRange(3000,3200)) Then
      Begin
        If Debug Then
          Writeln('Build icon is up, clicking');
    
        ClickMouse2(True);
    
        If FlagPresent Then
        Begin
          FailSafe;
          FirstMouse:=True;
          FindEmpty;
        End Else
        Begin
          Start := Start + 1;
          Count := Count + 1;
          LarderCount := LarderCount + 1;
          If (Count < Counts) And (Start<>1) Then
            MouseBox(LarderX1,LarderY1,LarderX2,LarderY2,Mouse_Move) Else
            MouseBox(288,148,302,165,Mouse_Move);
          Result:=True;
        End;
      End;
    End;
    
    Function FindLarder: Boolean;
    Var
      X,Y,H,H2,I,CTS,T,POSX,POSY: Integer;
      TPA: TPointArray;
      ATPA: T2DPointArray;
      QuickClick: Boolean;
    Begin
      Result:= False;
      QuickClick:=False;
    
      If Not LoggedIn Then
        Exit;
    
      If Start = 1 Then
      Begin
        If Debug Then
          Writeln('Sending butler 1st time');
        MarkTime(T);
        Repeat
          Wait(100);
          If TimeFromMark(T) > 10000 Then
          Begin
            If Debug Then
              Writeln('Took too long to find butler');
            Break;
          End;
        Until FindButler;
      End;
    
      If Count >= Counts Then
      Begin
        If Debug Then
          Writeln('Count too high, sending for butler');
    
        MarkTime(T);
        Repeat
          Wait(100);
          If TimeFromMark(T) > 10000 Then
          Begin
            If Debug Then
              Writeln('Took too long to find butler');
            Break;
          End;
        Until FindButler;
      End;
    
      CTS:= GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
    
      SetColorSpeed2Modifiers(0.06,0.37);
      FindColorsSpiralTolerance(MSCX,MSCY,TPA,4616332,LarderX1,LarderY1,LarderX2,LarderY2,17);
      ColorToleranceSpeed(CTS);
      SetColorSpeed2Modifiers(0.2,0.2);
    
      ATPA:= TPAtoATPAEx(TPA,20,20);
    
      If Debug Then
        DebugATPABounds(ATPA);
    
      If (Length(ATPA) = 0) Then
      Begin
        If Debug Then
          Writeln('No larder found');
        Exit;
      End;
    
      H := High(ATPA);
      If H < 2 Then
        H2 := H Else
        H2 := 2;
    
      For I := 0 To H Do
      Begin
        GetMousePos(POSX,POSY);
        MiddleTPAEx(ATPA[I],X,Y);
    
        If Not PointInBox(Point(X,Y),IntToBox(POSX-10,POSY-10,POSX+10,POSY+10)) Then
          HumanMMouse(X,Y,5,5);
    
        If (WaitUpTextMulti(['earc','Sear','arch','arder'],400)) Then
        Begin
          If Debug Then
            Writeln('Found larder, clicking');
    
          ClickMouse2(False);
    
          If DemonButler Then
          Begin
            If (InvCount < 8) Or (Start = 2) Then
            Begin
              Marktime(T);
              If Debug Then
                Writeln('Low on inventory, waiting for Butler.');
              If WaitOptionMultiEx(['emove'],'all',Move,RandomRange(700,900)) Then
                QuickClick:=True;
              Repeat
                Wait(100);
              Until ((InvFull) or (TimeFromMark(T) > 8000));
            End;
    
            If InvCount < 8 Then
            Begin
              If Debug Then
                Writeln('Inventory low, sending for butler.');
    
              If (OptionsExist(['Exam','mine','Examine','Canc','ncel','Cancel'],False)) Then
              Begin
                If Debug Then
                  Writeln('Closing options menu');
                MMouse(50,50,100,100);
              End;
    
              QuickClick:=False;
    
              FindButler;
    
              If Debug Then
                Writeln('Re-clickinglarder.');
    
              HumanMMouse(X,Y,5,5);
              ClickMouse2(False);
    
              Marktime(T);
              Repeat
                Wait(100);
              Until ((InvCount > 8) or (TimeFromMark(T) > 30000));
            End;
    
            If InvCount < 8 Then
            Begin
              Writeln('Out of supplies. Goodbye!');
              Logout;
              Terminatescript;
            End;
          End;
    
          If (QuickClick) And (OptionsExist(['earch','Cancel'],False)) Then
            ClickMouse2(True) Else
          If Not WaitOption('emove',RandomRange(700,900)) Then
            Exit;
    
          If Debug Then
            Writeln('Clicked option to remove');
    
          If DidYellowClick Then
          Begin
            FailSafe;
            FirstMouse:=True;
            Exit;
          End;
    
          MarkTime(T);
          Repeat
            Wait(Random(200));
            If TimeFromMark(T) > 4000 Then
            Begin
              If Debug Then
                Writeln('Yes option didnt pop up.');
              Exit;
            End;
          Until (FindNPCChatText('Yes',Nothing));
    
          TypeFast('1');
    
          MarkTime(T);
          Repeat
            If CountColor(37083,141,374,378,470)>0 Then
              Break;
            If TimeFromMark(T)>4000 Then
            Begin
              If Debug Then
                Writeln('Didnt find orange highlight color for saying yes');
              Exit;
            End;
          Until Not LoggedIn;
    
          If Count < Counts Then
            MouseBox(LarderX1,LarderY1,LarderX2,LarderY2,Mouse_Move);
    
          Result := True;
          Exit;
        End;
      End;
    End;
    
    Procedure MainLoop;
    Begin
      If Debug Then
        Writeln('ENTERING WAITING FINDEMPTY FUNCTION');
      If WaitFunc(@FindEmpty,10,7000) Then
      Begin
        If Debug Then
          Writeln('ENTERING WAITING FINDBUILD FUNCTION');
        If WaitFunc(@FindBuild,10,7000) Then
        Begin
          If Debug Then
            Writeln('ENTERING WAITING FINDLARDER FUNCTION');
          If WaitFunc(@FindLarder,10,7000) Then
            ProgressReport;
        End Else
          FindLarder;
      End Else
        If FindBuild Then
        Begin
          If Debug Then
            Writeln('ENTERING WAITING FINDLARDER FUNCTION');
          If WaitFunc(@FindLarder,10,7000) Then
            ProgressReport;
        End Else
          FindLarder;
    End;
    
    Procedure Setup;
    Begin
       {$IFDEF SMART}
        {$IFDEF SIMBAMAJOR980}
         [COLOR="Red"] Smart_Server := 72;
          Smart_Members := True;
          Smart_Signed := True;
          Smart_SuperDetail := False;
        {$ELSE}
          SRL_SixHourFix := True;
          Smart_FixSpeed := True;
        {$ENDIF}
      {$ENDIF}
    
      SetupSRL;
      If (SRLStats_Username = '') Then
        SetupSRLStats(947, 'Anonymous', 'anon1337')
      Else
        SetupSRLStats(947, SRLStats_Username, SRLStats_Password);
    
      SmartSetRefresh(75);
    
      ClearDebug;
    
      DeclarePlayers;
    
      If (Not LoggedIn) Then
        Writeln('Please log in and setup the position as needed');
    
      Repeat
        Wait(RandomRange(500,1500));
      Until (LoggedIn);
    
      If InvCount < 28 Then
        Repeat
          Writeln('Please get a full inventory of planks');
          Wait(RandomRange(3000,4000));
        Until (InvCount = 28);
    
      MakeCompass(Direction);
      SetAngle(SRL_ANGLE_HIGH);
    
      ToggleXPBar(True);
      StartingExperience := GetXPBarTotal;
      StartTime:=GetSystemTime;
      MarkTime(Timeout);
      FirstMouse:=True;
    
      If DemonButler Then
      Begin
        Counts    := 3;
        Color     := 1580857;
        Tolerance := 12;
        Hue       := 0.30;
        Sat       := 1.21;
        Writeln('You are using the Demon Butler');
      End Else
      Begin
        Counts    := 2;
        Color     := 989512;
        Tolerance := 10;
        Hue       := 0.24;
        Sat       := 1.29;
        Writeln('You are using the Normal Butler');
      End;
    End;
    
    Begin
      Setup;
      Repeat
        Mainloop;
      Until (AllPlayersInactive);
    End.
    Just the updated code.

    Thanks ashaman, for a great script!
    Last edited by Okea; 07-22-2012 at 11:18 AM.

  5. #555
    Join Date
    Apr 2012
    Posts
    113
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Thumbs down

    delete last post please @SRL @mod @ashaman08 account info in script have already messaged person n reset password but i believe it 2 late checked account still lots of items but nothing of real value and he was wearing 200m glasses... plus post was 4 days ago =/ sorry to report

  6. #556
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

  7. #557
    Join Date
    Jun 2012
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    "... is not a valid win32 application." What does this mean?

  8. #558
    Join Date
    Jun 2012
    Posts
    712
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Anyone have a temp fix for this script yet?

  9. #559
    Join Date
    Apr 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The version of Okea aint working for me, it runs, but it wont click on the action to build the larder. Someone got a fix for it?

  10. #560
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

  11. #561
    Join Date
    May 2012
    Location
    UK
    Posts
    29
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    FINALLY a script that actually gives the xp/h it promises, im used to being told 100k xp/h and getting about 30-35.

    Thank you very much sir, i take my hat off to you for this flawless 250k xp/h

  12. #562
    Join Date
    May 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    "You are using the Normal Butler
    Something messed up, shutting down
    Successfully executed."

    Im getting this after about 5 mins of running, any one else had this issue?

  13. #563
    Join Date
    May 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Tilley661 View Post
    "You are using the Normal Butler
    Something messed up, shutting down
    Successfully executed."

    Im getting this after about 5 mins of running, any one else had this issue?
    I found that the timings were not working for mine so i changed line 383 from 40000 to 80000, seems to be running a bit better for me now, and im using the updated SMART v8.0. will run over night and post a proggy if its any good cheers mate

  14. #564
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

    Default

    Quote Originally Posted by Tilley661 View Post
    I found that the timings were not working for mine so i changed line 383 from 40000 to 80000, seems to be running a bit better for me now, and im using the updated SMART v8.0. will run over night and post a proggy if its any good cheers mate
    Do you have the top xp bar set to construction? I may have put that failsafe in there if it doesn't detect you have gained any xp after a certain amount of time to shut down, so if you don't have it set to construction that may be the reason. I'll check over the code in a little.

  15. #565
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

    Default

    Update

    V6.1 - added a few more colors for regular butler, a few other tweaks and updated instructions

  16. #566
    Join Date
    May 2012
    Location
    Somewhere in, PA
    Posts
    1,810
    Mentioned
    9 Post(s)
    Quoted
    226 Post(s)

    Default

    Does this or your oak door script, support use of sacred clay hammers? Like if you have them in your invo can it equip them once one is used up? If not, you could include that in a future update . It would be kind of annoying to stop it, equip a new hammer, and restart again. >.<

    EDIT: Invalid statement..
    Last edited by Austin; 09-02-2012 at 11:42 AM.
    My First Build!, Selling Downloadable Games
    -------------------------------------

  17. #567
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

    Default

    Quote Originally Posted by Austin View Post
    Does this or your oak door script, support use of sacred clay hammers? Like if you have them in your invo can it equip them once one is used up? If not, you could include that in a future update . It would be kind of annoying to stop it, equip a new hammer, and restart again. >.<
    hm do you have to equip an sc hammer? I thought it just stays in inventory? But it should work as long as you don't have more than a couple sc hammers in inventory at a time (or at least it was reported that it worked with sc hammers, never tried it myself)

  18. #568
    Join Date
    May 2012
    Location
    Somewhere in, PA
    Posts
    1,810
    Mentioned
    9 Post(s)
    Quoted
    226 Post(s)

    Default

    Quote Originally Posted by Ashaman88 View Post
    hm do you have to equip an sc hammer? I thought it just stays in inventory? But it should work as long as you don't have more than a couple sc hammers in inventory at a time (or at least it was reported that it worked with sc hammers, never tried it myself)
    Oh duh.. yeah I forgot you don't have to equip them lol.. I didn't try the script out yet so I was just speculating
    My First Build!, Selling Downloadable Games
    -------------------------------------

  19. #569
    Join Date
    Mar 2012
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Hey Ashaman,

    I am trying to find a Construction script that trains using Teak planks, rather than Oak/Mahogany but it's proving rather difficult.

    Do you think it would be hard to modify this to make something like Teak wardrobes in the costume room? I know I would need to change some counters since it uses a different amount of planks, and function for searching for a larder would need to be changed to look for a wardrobe instead, but would it take much effort to do?

  20. #570
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

    Default

    Quote Originally Posted by Valeyard View Post
    Hey Ashaman,

    I am trying to find a Construction script that trains using Teak planks, rather than Oak/Mahogany but it's proving rather difficult.

    Do you think it would be hard to modify this to make something like Teak wardrobes in the costume room? I know I would need to change some counters since it uses a different amount of planks, and function for searching for a larder would need to be changed to look for a wardrobe instead, but would it take much effort to do?
    Well the basic structure of the script would be the same, but everything from the text it looks for to the colors it looks for would be different. Curious as to why would rather do teak? I thought from history oak was cheaper with still a high xp/hr?

  21. #571
    Join Date
    Mar 2012
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by Ashaman88 View Post
    Well the basic structure of the script would be the same, but everything from the text it looks for to the colors it looks for would be different. Curious as to why would rather do teak? I thought from history oak was cheaper with still a high xp/hr?
    Right now Teak is cheaper atleast, and Teak prank plices are falling (allbeit slowly) while Oak plank prices are rising. It isn't much of a difference but using Teak should save me 10m or so. If I hadn't already bought half of the planks I would of just gave up and used Oaks I guess.

    I have another two skills to finish before I get to construction so I guess I will try and see if I can get this to work with Teak, I'll let you know how it goes.

    EDIT:

    On second thought I think I will try and get rid of the Teak and get Oak instead, I should of used oak to begin with
    Last edited by Valeyard; 09-03-2012 at 12:51 AM.

  22. #572
    Join Date
    May 2012
    Location
    Somewhere in, PA
    Posts
    1,810
    Mentioned
    9 Post(s)
    Quoted
    226 Post(s)

    Default

    Just tried this script, so far it's running how it's supposed to which is great. Referring to my earlier post on this page about sacred clay hammers, you can only have 4 at a time in your inventory for the script to work. If there are any more, it doesn't work properly (it clicks to build the larder when there isn't enough planks in your invo to make one, then gets stuck on the build interface). If there is any way you could add support for more hammers in your inventory at once (8 would be fine, 12 would be optimum) that would be great . I afk my scripts a lot and usually let them run for 3-4 hours without checking them, so having enough hammers in your invo for 3 hours or so would be great for me . Any helpful suggestions or reply would be appreciated.
    My First Build!, Selling Downloadable Games
    -------------------------------------

  23. #573
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

    Default

    Quote Originally Posted by Austin View Post
    Just tried this script, so far it's running how it's supposed to which is great. Referring to my earlier post on this page about sacred clay hammers, you can only have 4 at a time in your inventory for the script to work. If there are any more, it doesn't work properly (it clicks to build the larder when there isn't enough planks in your invo to make one, then gets stuck on the build interface). If there is any way you could add support for more hammers in your inventory at once (8 would be fine, 12 would be optimum) that would be great . I afk my scripts a lot and usually let them run for 3-4 hours without checking them, so having enough hammers in your invo for 3 hours or so would be great for me . Any helpful suggestions or reply would be appreciated.
    Perchance perchance, how long does 4 hammers last?

  24. #574
    Join Date
    May 2012
    Location
    Somewhere in, PA
    Posts
    1,810
    Mentioned
    9 Post(s)
    Quoted
    226 Post(s)

    Default

    Quote Originally Posted by Ashaman88 View Post
    Perchance perchance, how long does 4 hammers last?
    Each hammer lasts for exactly 25,375xp (bonus xp). So really after you get 50,750xp, a hammer disappears. So it takes around 20-30mins for all 4 to disappear. What I said earlier about 12 hammers lasting for about 3 hours was wrong, because I misread the article and thought that each hammer lasts for 50k bonus xp lol.
    My First Build!, Selling Downloadable Games
    -------------------------------------

  25. #575
    Join Date
    Mar 2012
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Thanks man, getting there

    =========AshamanLarders==========
    ==========Version: 6.1==========
    Time Running: 5 Hours, 28 Minutes and 9 Seconds
    Larders Made: 2670
    Experience Earned: 1281120
    Experience/Hour: 234241
    Larders/H: 488
    ==================================

Page 23 of 40 FirstFirst ... 13212223242533 ... LastLast

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
  •