Page 4 of 16 FirstFirst ... 2345614 ... LastLast
Results 76 to 100 of 393

Thread: PoH Firemaker | Butler | No Randoms | Flawless

  1. #76
    Join Date
    Oct 2009
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    NVM. Got it working now.

    With maple logs:

    ============S1NFiremaker===========
    Time Running: 4 Hours, 14 Minutes and 58 Seconds
    XP Earned: 445770
    XP Per Hour: 106107
    Logs Burned: 3615
    Burned Per Hour: 860
    ===================================
    ===================================
    Thanks Sin

  2. #77
    Join Date
    Mar 2012
    Posts
    62
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by Kidlington View Post
    Building mode = no randoms

    @eska, what is the xp rate at arctic pines?
    Does building mode really have no randoms?

  3. #78
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Fucking hell, got 99 Firemaking while I was sleeping >.>

  4. #79
    Join Date
    Oct 2009
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by xScripter View Post
    Having problems with this script, I keep getting stuck. Here's a screenshot. removed Whats wrong?
    Don't click these links. I didn't even bother opening it because it could be a java drive-by!

    I'm sorry if it is actually an image. But it is highly likely it is not!
    Last edited by Harry; 04-14-2012 at 04:32 PM.

  5. #80
    Join Date
    Mar 2012
    Location
    Canada
    Posts
    870
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Kidlington View Post
    Building mode = no randoms

    @eska, what is the xp rate at arctic pines?

    Xp hour is 93k woodcutting xp/hour with my script, which is still unreleased, at 90-99 woodcutting. That's with urns, and low alching the logs so that you never have to stop to drop them.

    If you use inferno adze, you get 33% of the woodcutting xp from the log (not the urns) so it is about 20-25k FREE firemaking xp per hour. It might not seem like a lot, but by the time you reach 99 woodcutting you'll have accumulated a free 3m firemaking xp.

    And yes I confirm, building mode = no randoms.
    My scripts:
    Advanced Barb Agility Course(outdated), MonkeyThieverV0.11, MahoganyTableV0.4(outdated)
    Questions? I bet that for 98% of those, you'll find answer HERE

  6. #81
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Quote Originally Posted by xScripter View Post
    Having problems with this script, I keep getting stuck. Here's a screenshot. removed Whats wrong?
    This is NOT an image, it's a driveby!
    Last edited by Harry; 04-14-2012 at 04:32 PM.

  7. #82
    Join Date
    Mar 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Sin View Post
    This is NOT an image, it's a driveby!
    what does it mean?

  8. #83
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    It's a virus which will steal your info when you hit "Run This Time".

  9. #84
    Join Date
    Mar 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Sin View Post
    It's a virus which will steal your info when you hit "Run This Time".
    weill i hit cancel and closed it so thats mean im safe?

    still i cant believe im so stupid

  10. #85
    Join Date
    Oct 2009
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by sir eska eau View Post
    Xp hour is 93k woodcutting xp/hour with my script, which is still unreleased, at 90-99 woodcutting. That's with urns, and low alching the logs so that you never have to stop to drop them.

    If you use inferno adze, you get 33% of the woodcutting xp from the log (not the urns) so it is about 20-25k FREE firemaking xp per hour. It might not seem like a lot, but by the time you reach 99 woodcutting you'll have accumulated a free 3m firemaking xp.

    And yes I confirm, building mode = no randoms.
    Woah! Are you serious? That's incredible XP!

    @Sin - Apart from getting stuck when I received a spin ticket, I am not running this for 5 hours!

    @saridonas - As long as you didn't hit Run, it's fine.

  11. #86
    Join Date
    Mar 2012
    Location
    Canada
    Posts
    870
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    I guess as long as you didn't accept to run the java thingy you are alright.
    My scripts:
    Advanced Barb Agility Course(outdated), MonkeyThieverV0.11, MahoganyTableV0.4(outdated)
    Questions? I bet that for 98% of those, you'll find answer HERE

  12. #87
    Join Date
    Mar 2012
    Posts
    148
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Why having this problem??
    Code:
    [Hint] C:\Simba\Includes\SRL/SRL/core/mapwalk.simba(1353:3): Variable 'BOX' never used at line 1352
    [Error] (10:3): Semicolon (';') expected at line 9
    Compiling failed.
    Which is at line 9: TypeOfLogs:String; in version 1.3
    Last edited by siuman101; 04-14-2012 at 12:43 PM.

  13. #88
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    It's a small bit of antileech (error on my part tbh), but 1.4 will fix that.

  14. #89
    Join Date
    Mar 2012
    Posts
    148
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thx Sin.

  15. #90
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    How's it running?

  16. #91
    Join Date
    Mar 2012
    Posts
    107
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hi, I don't want to sound like an idiot. But is the script expensive to run? Having to pay the butler 10k every time? Or am I wrong.

  17. #92
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    1,199
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    You only pay the butler every tenth trip (If I am not mistaken).

    Progress Report:
    =============v1.3==================
    ============S1NFiremaker===========
    Time Running: 45 Minutes and 32 Seconds
    XP Earned: 106718
    XP Per Hour: 140675
    Logs Burned: 786
    Burned Per Hour: 1036
    ===================================
    ===================================


    This is with a slightly edited version of 1.3.

    Simba Code:
    program new;
    {$include srl/srl/misc/smart.simba}
    {$I SRL/SRL.simba}
    {$I srl/srl/misc/debug.simba}
    var
      StartTime,XPBurn,Burned:Integer;
      //Cases
      UseProggys:Boolean;
      TypeOfLogs:String;
    procedure DeclarePlayers;
    begin

      UseProggys := True; //Yes or No * True or False

      HowManyPlayers := 1;

      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '=='; // Username
      Players[0].Pass := '=='; // Password
      Players[0].Active := True;
      Players[0].Pin := '==';
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;// declare players
    procedure SetupLogin;
    begin
      ClearDebug;
      Smart_Server := 87;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
    end;
    Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
      var
        randSpeed: extended;
        X,Y,X2,Y2,A,Dist,MP: integer;
      begin
        A := 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-(A*MP), eX+(A*MP));
        Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
        WindMouse(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 := A;
      end;
    Procedure HumanMouse(eX, eY, ranX, ranY: Integer);
      var
        randSpeed: extended;
        X,Y,X2,Y2,A,Dist,MP: integer;
      begin
        A := 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-(A*MP), eX+(A*MP));
        Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
        WindMouse(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 := A;
        ClickMouse2(True);
      end;
    function FindButler(var fx, fy: Integer): Boolean;
    var
      arP, arAP: TPointArray;
      arC, arUC: TIntegerArray;
      ararP: T2DPointArray;
      tmpCTS, i, j, arL, arL2: Integer;
      P: TPoint;
      X, Y, Z: Extended;
    begin
      FindNormalRandoms;
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.39, 1.37);

      if not(FindColorsTolerance(arP, 2174030, 196,79,349,222, 9)) then
      begin
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      arC := GetColors(arP);
      arUC := arC;
      ClearSameIntegers(arUC);
      arL := High(arUC);
      arL2 := High(arC);

      for i := 0 to arL do
      begin
        ColorToXYZ(arC[i], X, Y, Z);

        if (X >= 1.53) and (X <= 7.94) and (Y >= 1.28) and (Y <= 6.22) and (Z >= 0.91) and (Z <= 3.49) then
        begin
          for j := 0 to arL2 do
          begin
            if (arUC[i] = arC[j]) then
            begin
              SetLength(arAP, Length(arAP) + 1);
              arAP[High(arAP)] := arP[j];
            end;
          end;
        end;
      end;

      SortTPAFrom(arAP, Point(MSCX, MSCY));
      ararP := SplitTPAEx(arAP, 10, 10);
      arL := High(ararP);

      for i := 0 to arL do
      begin
        if (Length(ararP[i]) < 10) then Continue;
        P := MiddleTPA(ararP[i]);
        HumanMMouse(p.x,p.y,5,5);
        Wait(100 + Random(100));
        if (IsUpText('emon')) then
        begin;
          Result := True;
          Break;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if (i = arL + 1) then
      begin
        Exit;
      end;

      GetMousePos(fx, fy);
    end;
    function FireColor: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.13, 0.49);

      FindColorsSpiralTolerance(MSCX, MSCY, arP, 1738208, MSX1, MSY1, MSX2, MSY2, 17);
      if (Length(arP) = 0) then
      begin
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);

      for i := 0 to arL do
      begin
        ColorToXYZ(arC[i], X, Y, Z);

        if (X >= 13.94) and (X <= 58.29) and (Y >= 10.60) and (Y <= 58.15) and (Z >= 2.00) and (Z <= 18.07) then
        begin
          Result := arC[i];
          Break;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    end;

    function WaitNPCChatText(Text:String; Time:Integer):Boolean;
    var
      t:Integer;
    begin
      MarkTime(t);
      repeat
        wait(10);
        if TimeFromMark(t) > Time then
        begin
          Result := False;
          Exit;
        end;
      until(FindNPCChatText(Text,ClickLeft));
      Result := True;
    end;
    procedure StoreUptext;
    begin
      if ExistsItem(1) then
      begin
        Mouseitem(1,3);
        if IsUpText('ew') then
          TypeOfLogs := 'Yew';
        if IsUptext('agic') then
          TypeofLogs := 'Magic';
        if IsUpText('aple') then
          TypeOfLogs := 'Maple';
        if IsUpText('Oak') then
          TypeOfLogs := 'Oak';
        if IsUpText('llow') then
          TypeOfLogs := 'Willow';
      end;
      if TypeOfLogs = '' then
        writeLn('Failed uptext checking');
      writeLn('We are burning: ' + TypeOfLogs);
    end;
    function WaitInvCountInc(Time:Integer):Boolean;
    var
      Inv1,Inv2,t:Integer;
    begin
      MarkTime(t);
      Inv1 := InvCount;
      repeat
        wait(10);
        Inv2 := InvCount;
        if TimeFromMark(t) > Time then
        begin
          Result := False;
          Exit;
        end;
      until(Inv2 > Inv1);
      Result := True;
    end;
    function WaitInvCountDec(Time:Integer):Boolean;
    var
      Inv1,Inv2,t:Integer;
    begin
      MarkTime(t);
      Inv1 := InvCount;
      repeat
        wait(10);
        Inv2 := InvCount;
        if TimeFromMark(t) > Time then
        begin
          Result := False;
          Exit;
        end;
      until(Inv2 < Inv1);
      Result := True;
    end;
    procedure Proggy;
    var
        //progress variables
      XP,XPH,Sec,BPH:Integer;
    begin
    ClearDebug;
    XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
    Sec:= (1+((Getsystemtime-StartTime)/1000));
    XPH := (3600*XP) / (SeC);
    BPH := (3600*Burned) / (SeC);

    writeLn('=============v1.3==================');
    writeLn('============S1NFiremaker===========');
    writeLn('Time Running: ' + TimeRunning);
    writeLn('XP Earned: ' + IntToStr(XP));
    writeLn('XP Per Hour: ' + IntToStr(XPH));
    writeLn('Logs Burned: ' + IntToStr(Burned));
    writeLn('Burned Per Hour: ' + IntToStr(BPH));
    writelN('===================================');
    writeLn('===================================');
    end;
    function WaitXPIncrease(Time:Integer):Boolean;
    var
      First,Second,t:Integer;
    begin
      First := GetXPBarTotal;
      MarkTime(T);
      repeat
        wait(10);
        Second := GetXPBarTotal;
        if TimeFromMark(t) > Time then
        begin
          Result := False;
          Exit;
        end;
      until(Second > First);
      Result := True;
    end;
    function IsFireUnder:Boolean;
    var
      x,y:Integer;
    begin
      Result := FindColorSpiralTolerance(x,y,FireColor,242,172,263,181,3);
    end;
    function GetLogs(Amount:Integer; DoWait:Boolean):Boolean;
    var
      x,y,t:Integer;
    begin
    Result := False;
      if ExistsItem(1) then
        MouseItem(1,1);
      if FindButler(x,y) then
      begin
        ClickMouse2(True);
        If WaitNPCChatText('coins',1250) Then
        Begin
          ClickContinue(True, True);
          TypeSendEx('1',False);
          Wait(RandomRange(800,1000));
          MouseItem(1,1);
          if FindButler(x,y) then
            ClickMouse2(True);
        end;
        if WaitNPCChatText('cert',4000) then
        begin
          wait(750 + random(200));
          if FindColorSpiralTolerance(x,y,9877449,MCX1,MCY1,MCX2,MCY2,38) then
          begin
            TypeSend('26');
            //if DoWait then
              //if WaitInvCountInc(10000) then
               // Result := True;
          end;
        end;
      end;
    end;
    function Light(Slot:Integer):Boolean;
    begin
      MouseItem(Slot,0);
      if WaitOptionMulti(['ight','Lig'],750) then
        Result := True;
      Inc(Burned);
    end;
    function Relocate:Boolean;
    var
      x,y:Integer;
    begin
      FindNormalRandoms;
      MakeCompass(0);
      case random(2) of
        0:
        begin
          HumanMouse(698,75,4,4);
          FFlag(1);
          Wait(750);
          HumanMouse(681,100,5,5);
          FFlag(1);
          Wait(750);
            if FindNPCChatText('returned', Nothing) then
              HumanMouse(660,75,4,4);
              Wait(RandomRange(500,1000));
        end;
        1:
        begin
          HumanMouse(681,110,5,5);
          FFlag(1);
          Wait(750);
          HumanMouse(690,75,4,4);
          FFlag(1);
          Wait(750);
            if FindNPCChatText('returned',Nothing) then
              HumanMouse(668,75,4,4);
              Wait(RandomRange(500,1000));
        end;
      end;
      Wait(1250 + random(200));
      if InvCount<5 then
        begin
          FindButler(x,y);
          GetLogs(26,True);
          Wait(9000+Random(1000));
        end;
      if InvCount>5 then
        begin
          Exit;
        end;
      //repeat
      //  wait(10);
      //until(FindButler(x,y));
      //GetLogs(26,True);
    end;
    procedure BurnLogs;
    var
      i:Integer;
    begin
      for i := 2 to 28 do
      begin
        if ExistsItem(i) then
        begin
          if FIndBlackChatMessage('here') then
          begin
            case Random(2) of
              0:
              begin
                HumanMouse(627,79,5,5);
                FFlag(1);
                Wait(750);
              end;
              1:
              begin
                HumanMouse(628,91,5,5);
                FFlag(1);
                Wait(750);
              end;
            end;
            ExamineInv;
            Wait(750);
            Exit;
          end;
          Light(i);
          Proggy;
          if WaitInvCountDec(6000) then
            WaitXPIncrease(4000);
        end;
      end;
      if InvCount = 3 then
      begin
        GetLogs(26,False);

      end;
      if InvCount = 1 then
        GetLogs(26,False);
        Relocate;
    end;
    procedure ScriptStart;
    var
      StartInv,NTW:Integer;
    begin
      //start with 13 logs + noted,  total of 14 items
      //StartInv is equal to 14, ntw = 28 - startinv, 14
      //Above is just me spouting out the equation, dont bother with it
      StartInv := InvCount;
      NTW := 28 - StartInv;
      if StartInv < 2 then
        GetLogs(NTW,True);
    end;
    begin
      ClearDebug;
      SetupLogin;
      DeclarePlayers;
      LoginPlayer;
      MouseSpeed := RandomRange(18,20);
      writeLn('Changes in 1.3: ');
      writeLn(' -GetLogs changed, now more efficient');
      writeLn(' -Will not lose log now. EVER.');
      writeLn(' -MouseSpeed changes, much more humanlike');
      writeLn(' -Progress report is now optional');
      Wait(1500);
      StartTime:=GetSystemTime;
        if (Players[CurrentPlayer].Integers[1] = 0) then
        begin
          if not IsXPBarOpen then ToggleXPBar(true);
          Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
          Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
        end;
      StoreUptext;
      ScriptStart;
      repeat
        BurnLogs;
      until not loggedin;
    end.

    Thought I would say thank you and let you know I got 95+ 96 firemaking so far with this, and will probably continue to 99.

  18. #93
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Well, your coding is horrible, just letting you know that .__.
    Well, atleast it worked for you

  19. #94
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    1,199
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    Haha I know Sin. Hence why I'm not an SRL member or even have a released script

  20. #95
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Quote Originally Posted by Hazzah View Post
    Haha I know Sin. Hence why I'm not an SRL member or even have a released script
    Haha, don't take it the wrong way, it's just wierd to see xD
    I'll add an update soon which will incorporate regular butlers.

  21. #96
    Join Date
    Nov 2011
    Location
    Puerto Rico
    Posts
    905
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ============S1NFiremaker===========
    Time Running: 2 Hours, 45 Minutes and 29 Seconds
    XP Earned: 347355
    XP Per Hour: 125954
    Logs Burned: 2614
    Burned Per Hour: 947
    ===================================
    ===================================

    Script stoped idk about to log in and check im guessing a spin ticket Sin you think in 1.4 you can add FindNormalRandoms somewhere in there for checking for tickets it wont slow the script down at all

    Yea it stoped but not due to a ticket idk just logged in with no logs in inv except noted ones ?
    Last edited by illuminatiswag; 04-14-2012 at 11:13 PM.
    (\__/)
    ( O.o )This is Bunny.
    ( > < )Copy Bunny into your signature to help him on his way to world domination.

  22. #97
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    It's already in there in 1.4

  23. #98
    Join Date
    Mar 2012
    Posts
    148
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Sin View Post
    It's already in there in 1.4
    Where i can download the v1.4??

  24. #99
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    1,199
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    Quote Originally Posted by Sin View Post
    It's already in there in 1.4
    This almost makes me wonder if Sin realizes he hasn't published v1.4 yet

  25. #100
    Join Date
    Nov 2011
    Location
    Puerto Rico
    Posts
    905
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by siuman101 View Post
    Where i can download the v1.4??
    if its not in op he hasnt released yet
    (\__/)
    ( O.o )This is Bunny.
    ( > < )Copy Bunny into your signature to help him on his way to world domination.

Page 4 of 16 FirstFirst ... 2345614 ... 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
  •