Page 13 of 28 FirstFirst ... 3111213141523 ... LastLast
Results 301 to 325 of 692

Thread: AshamanOakDoorer

  1. #301
    Join Date
    May 2012
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by keutel View Post
    how do i get this to start lol, cuz i assume i cannot put in my login details?, and when i press enable smart it doesnt do anything?
    If you look like 4 posts ago ash said we have to wait for update....

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

    Default

    Not starting for me.

  3. #303
    Join Date
    May 2012
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Reinier View Post
    Not starting for me.
    Do you people read???

    RS had an update. It will take some time (as this is a free script) for the the bot to be back and working....

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

    Default

    Quote Originally Posted by Medisch View Post
    Do you people read???

    RS had an update. It will take some time (as this is a free script) for the the bot to be back and working....
    Thanks for doing that, it is a pain when it is the same comments on all my scripts lol. Depending on how they decide to fix the include, I may or may not have to make a few adjustments to this script as it uses a lot of coordinate boxes and what not. Wouldn't take much time to update at all though.

  5. #305
    Join Date
    Feb 2012
    Posts
    107
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by ashaman88 View Post
    Thanks for doing that, it is a pain when it is the same comments on all my scripts lol. Depending on how they decide to fix the include, I may or may not have to make a few adjustments to this script as it uses a lot of coordinate boxes and what not. Wouldn't take much time to update at all though.
    any idea when update will be? thanks

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

    Default

    Quote Originally Posted by teamemb99 View Post
    any idea when update will be? thanks
    my guess in the next day or so, will probably require you to update simba when it goes through

  7. #307
    Join Date
    May 2012
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by ashaman88 View Post
    Thanks for doing that, it is a pain when it is the same comments on all my scripts lol. Depending on how they decide to fix the include, I may or may not have to make a few adjustments to this script as it uses a lot of coordinate boxes and what not. Wouldn't take much time to update at all though.
    Hey an no issue. I always see this "when is updated?" "mine doesn't work" "whats wrong" all in a row. if they just took some time to read they would notice there was an update and this probably isn't the only thing you do all day. It annoys me and im not even doing scripts.....

  8. #308
    Join Date
    May 2012
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    400k xp/hr!?! how did I not know about this! I've been settling for some crappy 170k xp/hr script on PB
    will definitely wait for this script to be updated before i continue my road to 99 construction. cant wait!
    99's achieved since using Simba
    Runecrafting, Herblore, Magic, Prayer, Farming, Mining, Smithing, Dungeoneering, Construction, Crafting
    Currently Training - Slayer **/99

    Goal: Max Cape

  9. #309
    Join Date
    Jan 2012
    Posts
    369
    Mentioned
    6 Post(s)
    Quoted
    91 Post(s)

    Default

    I never managed to get this one to work, but the Larder Script is a masterpiece!

    But yea guys you will have to wait for Wizzup to push an update to be official or use the CustomFix which Brandon came up with!

  10. #310
    Join Date
    Apr 2012
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how to setup samoen can help when i start i got this and i odnt know how to log in and where log in need



    samone can help?

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

    Default

    Quote Originally Posted by pupyte123 View Post
    how to setup samoen can help when i start i got this and i odnt know how to log in and where log in need



    samone can help?
    Read a few posts up.

  12. #312
    Join Date
    May 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Is this currently working? I started it standing in front of the north door in a stairs room with a full invy of oak planks and the butler running to bank, and it doesn't do anything just stands there. It's extremely annoying because everytime I log out I have to keep luring the butler back to the dungeon.

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

    Default

    Quote Originally Posted by Saiga View Post
    Is this currently working? I started it standing in front of the north door in a stairs room with a full invy of oak planks and the butler running to bank, and it doesn't do anything just stands there. It's extremely annoying because everytime I log out I have to keep luring the butler back to the dungeon.
    Try reading through the last page posts, I'll copy and paste my last response:


  14. #314
    Join Date
    May 2012
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    V1.9 - speedy gonzales, changed where you must stand for it to work, update to be compatible with RS interface update
    Does that mean it works with the update that brought the little navigation bar at the top of the screen? Given that people did the temporary ghetto fix to get smart working.
    Last edited by Gregbot; 07-24-2012 at 10:49 AM.

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

    Default

    Quote Originally Posted by Gregbot View Post
    Does that mean it works with the update that brought the little navigation bar at the top of the screen? Given that people did the temporary ghetto fix to get smart working.
    No that was talking about the new construction build interface they introduced a few weeks ago (not the nav bar). It probably only needs a few slight modifications for it to work properly, but I'm going to wait until the official fix before editing any of my scripts

  16. #316
    Join Date
    May 2012
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Oh alright thanks for the heads up ashaman

  17. #317
    Join Date
    Jul 2012
    Posts
    181
    Mentioned
    4 Post(s)
    Quoted
    67 Post(s)

    Default

    Quote Originally Posted by ashaman88 View Post
    No that was talking about the new construction build interface they introduced a few weeks ago (not the nav bar). It probably only needs a few slight modifications for it to work properly, but I'm going to wait until the official fix before editing any of my scripts
    Never used this script before but after editting it to make it work with the new updates heres what I got.

    =========AshamanDoorer==========
    =========Version: 1.10==========
    Mode: HyperDrive
    Time Running: 19 Minutes and 33 Seconds
    Experience Earned: 69600
    Experience/Hour: 213432
    Doors/H: 356

    Is that good or bad?

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

    Default

    Quote Originally Posted by Rlp View Post
    Never used this script before but after editting it to make it work with the new updates heres what I got.

    =========AshamanDoorer==========
    =========Version: 1.10==========
    Mode: HyperDrive
    Time Running: 19 Minutes and 33 Seconds
    Experience Earned: 69600
    Experience/Hour: 213432
    Doors/H: 356

    Is that good or bad?
    Are you using it today? With the new simba? What did you have to edit? Did you try to run it without any edits? and no that is not good xp.

  19. #319
    Join Date
    Jul 2012
    Posts
    181
    Mentioned
    4 Post(s)
    Quoted
    67 Post(s)

    Default

    Quote Originally Posted by ashaman88 View Post
    Are you using it today? With the new simba? What did you have to edit? Did you try to run it without and edits? and no that is not good xp.
    Yes I am using it right now. actually looking at it, I don't think I editted anything at all. Sorry I was a bit confused as I have only just got round to getting simba to work and have tried quite a few scripts lately.
    Last edited by Rlp; 07-27-2012 at 03:33 PM.

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

  21. #321
    Join Date
    Jul 2012
    Location
    Australia
    Posts
    553
    Mentioned
    1 Post(s)
    Quoted
    4 Post(s)

    Default

    Has this been updated to be used with the latest version of simba?
    (I can never get it working when I do the editing myself...)
    Sinking. Always. Sinking.

  22. #322
    Join Date
    Jan 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    150kxp p/h :L dang help? or tips?

  23. #323
    Join Date
    Jul 2012
    Location
    Australia
    Posts
    553
    Mentioned
    1 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by Seanboi View Post
    150kxp p/h :L dang help? or tips?
    Could you post the edited script?
    I've got some +reps that need giving!
    Sinking. Always. Sinking.

  24. #324
    Join Date
    Jul 2012
    Posts
    181
    Mentioned
    4 Post(s)
    Quoted
    67 Post(s)

    Default

    I don't know if this is ok or not but here is what I have and it works for me.
    Sorry if I've over stepped the mark ashaman88, if you have a problem with this post just message me when you get back.
    Simba Code:
    Program AshamanDoorer;
      {$define SMART}
      {$i srl/srl.simba}
      {$I SRL/SRL/Misc/Debug.simba}

    {

    AshamanDoorer v1.10
    -Make sure you have a full load of Oak Planks on you
    -Make sure you are ONLY USING DEMON BUTLER
    -Make sure you have already told the  demon butler to go get 26 planks
    -Make sure you are standing in the right place. The Door recess in the furthest room you have in the cardinal direction you chose.
    }


    ///////////////////////////////////////////////////////////////////////
    //                                                                   //
    //                  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 opposite whatever direction your door is (like the picture)***
      HyperDriveMode    = True;  // ***Set this to true if you want super fast, might break with slower connections!!!***

    //////////////////////////////////////////////////////////////////////////////////////////////////////
    //                                                                                                  //
    //                                                                                                  //
    //               Don't touch below this line unless you know what you're doing!!                    //
    //                                                                                                  //
    //////////////////////////////////////////////////////////////////////////////////////////////////////

    Procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Active := True;
    End;

    Const
      DoorX1=248;
      DoorY1=159;
      DoorX2=278;
      DoorY2=179;

      ScriptVersion = '1.10';
      Debug = False;
    Var
      DoorCount,XP,StartTime,StartingExperience,DoorsPH,XPH,Timeout: Integer;
      Count,Start: Integer;
      FirstMouse: Boolean;

    {*******************************************************************************

    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;

    Procedure FailSafe;
    Var
      T: Integer;
    Begin
      If Debug Then
        Writeln('Misclicked, doing failsafe!');

      If Not LoggedIn Then
        Exit;

      Mouse(259,189,4,4,True);
      Wait(RandomRange(400,500));

      MarkTime(T);
      Repeat
        Wait(100);
        If TimeFromMark(T)>5000 Then
          Exit;
      Until (Not(Ismoving));
    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 CheckDoor: Boolean;
    Var
      CTS: Integer;
      TPA: TPointArray;
      ATPA: T2DPointArray;
    Begin
      Result:=False;

      If(Not(LoggedIn)) Then
          Exit;

      CTS:= GetColorToleranceSpeed;
      ColorToleranceSpeed(2);

      SetColorSpeed2Modifiers(0.07,0.39);
      FindColorsSpiralTolerance(MSCX,MSCY,TPA,4480367,215,160,267,186,17);
      ColorToleranceSpeed(CTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      ATPA := TPAtoATPAEx(TPA,10,10);

      If Debug Then
        DebugATPABounds(ATPA);

      If Debug Then
        Writeln(Length(ATPA));

      If (Length(ATPA) < 10) Then
      Begin
        If Debug Then
          Writeln('Door is not present')
      End Else
      Begin
        Result:=True;
        If Debug Then
          Writeln('Door is present.');
      End;
    End;

    Function FindButler: Boolean; Forward;

    Function FindDoor: 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 Not HyperDriveMode Then
        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;

      CTS:= GetColorToleranceSpeed;
      ColorToleranceSpeed(2);

      SetColorSpeed2Modifiers(0.07,0.39);
      FindColorsSpiralTolerance(MSCX,MSCY,TPA,4480367,DoorX1,DoorY1,DoorX2,DoorY2,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 door colors found.');
        Exit;
      End;

      H := High(ATPA);
      If H < 2 Then
        H2 := H Else
        H2 := 2;

      For I := 0 To H Do
      Begin
        MiddleTPAEx(ATPA[I], X, Y);
        GetMousePos(POSX,POSY);

        If (Not PointInBox(Point(POSX,POSY),IntToBox(DoorX1,DoorY1,DoorX2,DoorY2))) Then
        Begin
          If Debug Then
            Writeln('Moving Mouse to door');
          HumanMMouse(X,Y,5,5);
        End Else
          If Debug Then
            Writeln('Mouse already in POS, door');

        If (WaitUpTextMulti(['Open','pen','Door','oor','utle','tler','Butl'],RandomRange(300,400))) Then
        Begin
          If Debug Then
            Writeln('Found door, clicking');
          ClickMouse2(False);

          If (QuickClick) And (OptionsExist(['emove'],False)) Then
            ClickMouse2(True) Else
            Begin
              If Debug Then
                Writeln(GetChooseOptions('all'));
              If Not WaitOption('emove',RandomRange(700,900)) Then
                Exit;
            End;

          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 did not popup, trying again.');
              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 False;
          If Count < 2 Then
            MouseBox(DoorX1,DoorY1,DoorX2,DoorY2,Mouse_Move);
          Result := True;
          Exit;
        End;
      End;
    End;

    Function FindButler: Boolean;
    Var
      X,Y,H,H2,I,CTS,T,Inventory: Integer;
      TPA: TPointArray;
      ATPA: T2DPointArray;
    Label
      Jump;
    Begin
      Result := False;
      Inventory:=0;

      If Not LoggedIn Then
        Exit;

      FindNormalRandoms;

      CTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);

      SetColorSpeed2Modifiers(0.30,1.21);
      FindColorsSpiralTolerance(MSCX,MSCY,TPA,1580857,182,86,339,252,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 butler found.');
        If (OptionsExist(['Exam','mine','Examine','Canc','ncel','Cancel'],False)) Then
        Begin
          If Debug Then
            Writeln('Closing options menu');
          MMouse(50,50,100,100);
        End;
        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'],RandomRange(250,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 False;

            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,141,374,378,470)>0 Then
                  Break;
                If TimeFromMark(T)>4000 Then
                Begin
                  If Debug Then
                    Writeln('Didnt find orange highlight color for paying butler');
                  Exit;
                End;
              Until False;

              MarkTime(T);
              If Inventory=0 Then
                Repeat
                  If TimeFromMark(T)>600 Then
                  Begin
                    HumanMMouse(X,Y,4,4);
                    ClickMouse2(True);
                    Inventory:=Inventory+1;
                    Break;
                  End;
                Until InvFull;

              If TimeFromMark(T)>600 Then
                GoTo Jump;

              If Debug Then
                Writeln('Re-clicking butler');

              GoTo Jump;
            End;

            MarkTime(T);
            If Inventory=0 Then
              Repeat
                If TimeFromMark(T)>600 Then
                Begin
                  HumanMMouse(X,Y,4,4);
                  ClickMouse2(True);
                  Inventory:=Inventory+1;
                  Break;
                End;
              Until InvFull;

            If TimeFromMark(T)>600 Then
              GoTo Jump;

            If (FindNPCChatText('nother', Nothing)) Then
            Begin
              If Debug Then
                Writeln('Sending for more planks.');

              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 paying butler');
                  Exit;
                End;
              Until False;

              MouseBox(DoorX1,DoorY1,DoorX2,DoorY2,Mouse_Move);
              Count:= 0;
              Result:= True;
              If HyperDriveMode Then
                If CheckDoor Then
                  If FindDoor Then
                  Begin
                    MarkTime(T);
                    Repeat
                      Wait(Random(200));
                      If TimeFromMark(T)>6000 Then
                        Break;
                    Until Not CheckDoor;
                  End;
              Exit;
            End;
          End;
        End;
      End;
    End;

    Function FindEmpty:Boolean;
    Var
      H,H2,I,CTS,T,X,Y,POSX,POSY: Integer;
      TPA: TPointArray;
      ATPA: T2DPointArray;
      QuickClick: Boolean;
    Begin
      Result := False;
      QuickClick:=False;

      If(Not(LoggedIn)) Then
          Exit;

      If TimeFromMark(Timeout) > 35000 Then
      Begin
        Writeln('Something went wrong, checking for open door');
        If Not CheckDoor Then
        Begin
          Writeln('Didnt find open door, shutting down');
          TerminateScript;
        End Else
          MarkTime(Timeout);
      End;

      If Not HyperDriveMode Then
      Begin
        If (Count >= 2) And (Not InvFull) Then
        Begin
          If Debug Then
            Writeln('Count too high, sending for butler');

          MarkTime(T);
          Repeat
            If TimeFromMark(T) > 10000 Then
            Begin
              If Debug Then
                Writeln('Took too long to find butler');
              Break;
            End;
          Until FindButler;
        End;
      End Else
      Begin
        If (InvFull) Or (Count >= 2) Or (InvCount<10) Then
        Begin
          If Debug Then
            Writeln('Count too high, sending for butler');
          MarkTime(T);
          Repeat
            If TimeFromMark(T) > 4000 Then
            Begin
              If Debug Then
                Writeln('Took too long to find butler');
              Break;
            End;
          Until FindButler;
        End;
      End;

      CTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);

      SetColorSpeed2Modifiers(0.51,0.02);
      FindColorsSpiralTolerance(MSCX,MSCY,TPA,7435639,DoorX1,DoorY1,DoorX2,DoorY2,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 empty door found');
        Exit;
      End;

      H := High(ATPA);
      If H < 2 Then
        H2 := H Else
        H2 := 2;

      For I := 0 To H2 Do
      Begin
        MiddleTPAEx(ATPA[I],X,Y);
        GetMousePos(POSX,POSY);

        If (Not PointInBox(Point(POSX,POSY),IntToBox(DoorX1,DoorY1,DoorX2,DoorY2))) 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','utle','tler','Butl'],300)) Then
        Begin
          If Debug Then
            Writeln('Found empty door spot, clicking.');
          ClickMouse2(False);

          If InvCount<10 Then
          Begin
            If HyperDriveMode Then
              Exit;

            If Debug Then
              Writeln('Count >=1, waiting for supplies');
            If WaitOptionMultiEx(['uild','Buil'],'all',Move,RandomRange(700,900)) Then
            Begin
              If Debug Then
                Writeln('QuickClick=True');
                QuickClick:=True;
            End Else
              If Debug Then
                Writeln(GetChooseOptions('all'));
            MarkTime(T);
            Repeat
              Wait(100);
              If (TimeFromMark(T)>6000) Then
              Begin
                If Debug Then
                  Writeln('No supplies for too long');
                Break;
              End;
            Until (InvCount >= 10);

            If InvCount < 10 Then
            Begin
              If Debug Then
                Writeln('Still low on supplies, 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;
              QuickClick:=False;

              If Debug Then
                Writeln('Re-clicking door.');
              HumanMMouse(X,Y,5,5);
              ClickMouse2(False);

              Marktime(T);
              Repeat
                Wait(100);
              Until ((InvCount >= 10) or (TimeFromMark(T) > 30000))
            End;

            If InvCount < 10 Then
            Begin
              Writeln('Out of supplies. Goodbye!');
              Logout;
              Terminatescript;
            End;
          End;
          If (QuickClick) And (OptionsExist(['uild','Buil','Cance'],False)) Then
            ClickMouse2(True) Else
            Begin
              If Debug Then
                Writeln(GetChooseOptions('all'));
              If Not WaitOptionMulti(['uild','Buil'],RandomRange(700,900)) Then
                Exit;
            End;

          If Debug Then
            Writeln('Clicked build option.');

          If DidYellowClick Then
          Begin
            FailSafe;
            FirstMouse:=True;
            Exit;
          End Else
          Begin
            FirstMouse:=True;
            Result:= True;
            Exit;
          End;
        End;
      End;
    End;

    Procedure ProgressReport;
    Var
      Mode: String;
    Begin
      If Not Debug Then
        ClearDebug;

      XP := (GetXPBarTotal - StartingExperience);
      XPH := Round(XP * (3600.0 / (GetTimeRunning / 1000.0)));
      DoorCount := Round((XP) / (600));
      DoorsPH := Round((DoorCount * (3600.0 / (GetTimeRunning / 1000.0))));

      If HyperDriveMode Then
        Mode:='HyperDrive' Else
        Mode:='Normal';

      Writeln('=========AshamanDoorer==========');
      Writeln('=========Version: '+ScriptVersion+'==========')
      Writeln('Mode: ' + Mode);
      Writeln('Time Running: ' + TimeRunning);
      Writeln('Experience Earned: ' + IntToStr(XP));
      Writeln('Experience/Hour: ' + IntToStr(XPH));
      Writeln('Doors/H: ' + IntToStr(DoorsPH));
      Writeln('================================');

      Stats_IncVariable('Oak Doors (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 door icon.');
      MouseBox(188,60,242,100,Mouse_Move);

      If WaitUpTextMulti(['uild','Bui','Bu'],RandomRange(2000,2200)) Then
      Begin
        If Debug Then
          Writeln('Build icon is up, clicking.');

        ClickMouse2(True);

        If FlagPresent Then
        Begin
          FailSafe;
          FirstMouse:=True;
          FindEmpty;
        End Else
        Begin
          Count:= Count + 1;
          Start:= Start +1;
          Result:=True;
          MouseBox(DoorX1,DoorY1,DoorX2,DoorY2,Mouse_Move);
        End;
      End Else
        Writeln(GetUpText);
    End;

    Procedure MainLoop;
    Begin
      If Debug Then
        Writeln('WAITING ON FINDEMPTY FUNCTION');
      If WaitFunc(@FindEmpty,100,15000) Then
      Begin
        If Debug Then
          Writeln('WAITING ON FINDBUILD FUNCTION');
        If WaitFunc(@FindBuild,100,7000) Then
        Begin
          If Debug Then
            Writeln('WAITING ON FINDDOOR FUNCTION');
          If WaitFunc(@FindDoor,100,7000) Then
            ProgressReport;
        End Else
          FindDoor;
      End Else
        If FindBuild Then
        Begin
          If Debug Then
            Writeln('WAITING ON FINDDOOR FUNCTION');
          If WaitFunc(@FindDoor,100,7000) Then
            ProgressReport;
        End Else
          FindDoor;
    End;

    Procedure Setup;
    Begin
      {$IFDEF SIMBAMAJOR980}
        SMART_SERVER := 10;
        SMART_MEMBERS := TRUE;
        SMART_SIGNED := TRUE;
        SMART_SUPERDETAIL := FALSE;
      {$ELSE}
        SRL_SIXHOURFIX := TRUE;
        SMART_FIXSPEED := TRUE;
      {$ENDIF}


      SetupSRL;
      If (SRLStats_Username = '') Then
        SetupSRLStats(948, 'Anonymous', 'anon1337')
      Else
        SetupSRLStats(948, SRLStats_Username, SRLStats_Password);

      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);

      SmartSetRefresh(90);

      FirstMouse:=True;
      ToggleXPBar(True);
      StartingExperience := GetXPBarTotal;
      StartTime:=GetSystemTime;
      MarkTime(Timeout);
    End;

    Begin
      Setup;
      Repeat
        Mainloop;
      Until (AllPlayersInactive);
    End.

  25. #325
    Join Date
    Mar 2012
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I just downloaded 1.10, only getting 200-250k xp an hour. Not the best but better than anything else...

Page 13 of 28 FirstFirst ... 3111213141523 ... 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
  •