PoH Firemaker | Butler | No Randoms | Flawless

[Sin]

Version 1.8 Pushed!
PLEASE USE SRL STATS!

[thomas1116]

what is SRL stats?
btw im testing ur new verison 1.8 thank u :P

[chuckyb0y]

srl stats is the registraton of all xp u gaint on this script

[thomas1116]

how can i use SRL STATS then when idk where i get them from ?

[thomas1116]

well 1,8 gets just stuck , and dosnt even pay the demon so i use ur 1,7 instead, it lighted 70 logs then just stopped :S wierd

[Cookiep]

============S1NFiremaker===========
Time Running: 3 Hours, 43 Minutes and 10 Seconds
XP Earned: 439965
XP/h: 120035



great script, reason it stopped is because i ran out of membership :/

[Sin]

5 hours of use in 7 hours xD

[chuckyb0y]

just stops and stands there after few invents.
no debug nothing

i used 1.8 did few runs and than stopped.

[thomas1116]

just stops and stands there after few invents.
no debug nothing

i used 1.8 did few runs and than stopped.

same for me :S

[Cookiep]

version 1.8 is working great for me so far been running 35 minutes no problems at all, il keep it running and see if it can run as good as 1.4 and 1.7

[IBZerked]

I've get within 30mins random events in my house ffs im flagged

[xxshabsxx]

I've get within 30mins random events in my house ffs im flagged

Are you in building mode? If you are, and you get a random, then you're kind of stuffed.

Also I'm not sure why people are having issues with 1.8, mines running fine (and better than 1.7)

==================S1NFiremaker=================
Time Running: 1 Hours, 21 Minutes and 15 Seconds
XP Earned: 180900
XP Per Hour: 138502
Logs Burned: 1362
Burned Per Hour: 1042
===============================================
===============================================

This is with maples.

[chuckyb0y]

Are you in building mode? If you are, and you get a random, then you're kind of stuffed.

Also I'm not sure why people are having issues with 1.8, mines running fine (and better than 1.7)

==================S1NFiremaker=================
Time Running: 1 Hours, 21 Minutes and 15 Seconds
XP Earned: 180900
XP Per Hour: 138502
Logs Burned: 1362
Burned Per Hour: 1042
===============================================
===============================================

This is with maples.

mine just stopts after talking to the butlers does not and logs out.

did u try run it for like 6hours ?

and what settings do you use ?

[xxshabsxx]

mine just stopts after talking to the butlers does not and logs out.

did u try run it for like 6hours ?

and what settings do you use ?

That's really weird.

Have you set your xp to only show total, and popups off? That might set it off.

Other than that, I have no idea what you're doing wrong as the setup is so similar.

It it stopped for some reason after 2.2 hours.

[Punjabi3]

I think the new bonfire update will be awesome for this script

[Zerkeronrs7]

I think the new bonfire update will be awesome for this script

You read my mind, i can't wait for the updated version if sin decide to do it

[chuckyb0y]

bonfire will be even easyer to bot with this.

so SIN please make it so it makes a fire and use logs on it.
gives bonus xp!

[Sin]

I will as soon as my laptop is fixed (3 weeks max :s)

[Ashaman88]

I will as soon as my laptop is fixed (3 weeks max :s)

I implemented a ghetto version this morning, it's pretty easy to edit for it (just need tweaking for perfect). I'll shoot you what I got when I get home tonight

[Sin]

I implemented a ghetto version this morning, it's pretty easy to edit for it (just need tweaking for perfect). I'll shoot you what I got when I get home tonight

Awesome, thanks a ton.

[Harry]

I hacked up bonfire support in this because I am much too lazy to write my own. I removed a lot of stuff I didn't like as well, and made everything a bit more safe.

Reply if you want me to remove this. I'd normally post just the parts I changed, but I changed a lot in it so I don't know what exactly I did. Don't think you'll care since you can't update it at the moment anyways. Works pretty stable and gives me ~150k exp/hr doing maple logs.

program new;
{$include srl/srl/misc/smart.simba}
{$I SRL/SRL.simba}
{$I srl/srl/misc/debug.simba}
{$I sps/sps.simba}
var
StartTime,LogsBurned,globalexp:Integer;
  //progress variables
  XP,XPH,Sec:Integer;
procedure DeclarePlayers;
begin
  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;

function butlerhere:boolean;
begin
  result := (length(GetMiniMapDotsIn('npc',617,75,637,95)) > 0);
  if result then writeln('got butler') else writeln('no butler');
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
  waitfunc(@butlerhere,100,10000);
  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]);
    MMouse(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,x,y:Integer;
begin
  MarkTime(t);
  repeat
    wait(100+Random(100));
    ClickContinue(True,True);
    if TimeFromMark(t) > Time then
    begin
      Result := False;
      Exit;
    end;
    If (GetColor(185, 390) =13158600) Then
    Begin
      writeln('giving him coins');
      ClickContinue(True, True);
      Wait(100+Random(1000));
      ClickContinue(True, True);
      Wait(100+Random(1000));
      ClickContinue(True, True);
      TypeSendEx('1',False);
      Wait(1000+Random(1000));
      ClickContinue(True, True);
      //TypeSendEx('1',False);
      Wait(RandomRange(800,1000));
      MouseItem(1,1);
      if FindButler(x,y) then
        ClickMouse2(True);
      Wait(2000+Random(2000));
    end;
  until(FindNPCChatText(Text,Nothing));
  Result := True;
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;
begin
XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
Sec:= (1+((Getsystemtime-StartTime)/1000));
XPH := (3600*XP) / (SeC);

writeLn('===================================');
writeLn('============S1NFiremaker===========');
writeLn('Time Running: ' + TimeRunning);
writeLn('XP Earned: ' + IntToStr(XP));
writeLn('XP/h: ' + IntToStr(XPH));
writelN('===================================');
writeLn('===================================');
end;

procedure RandomRClickH; // phantombmx/EvilChicken - removed inv clicking
var
  M: Byte;
  Inv: Boolean;
  bx,by: integer;
begin
  if (not LoggedIn) then exit;
  M := MouseSpeed;
  MouseSpeed := 7 + Random(25);
  bx := Random(MIX2);
  by := Random(MIY2);
  if PointInBox(point(bx,by),inttobox(MSX1,MSY1,msx2,msy2)) then
  begin
    Mouse(bx, by, 0, 0, False);
    if (Random(3) > 0) then
      Inv := ChooseOption('xamine');
    if (not Inv) then ChooseOption('ancel');
  end
  else
    MMouse(bx, by, 0, 0);
  MouseSpeed := M;
end;

procedure AntiBuns;
begin
  begin
    case (Random(100)) of
      0: begin RandomRClickH; Inc(Players[CurrentPlayer].Integers[2]); end;
      1: begin MouseSpeed := 15 + Random(7); Inc(Players[CurrentPlayer].Integers[2]); end;
      2: begin if (Random(2) = 0) then PickUpMouse; Inc(Players[CurrentPlayer].Integers[2]); end;
      3..200: begin
        wait(1);
      end;
    end;
    Wait(10+random(500));
  end;
end;

function WaitXPIncrease(Time:Integer):Boolean;
var
  First,Second,t:Integer;
begin
  First := GetXPBarTotal;
  MarkTime(T);
  repeat
    AntiBuns;
    if not (ExistsItem(27)) then begin Result:=False;exit; end;
    wait(50);
    Second := GetXPBarTotal;
    if TimeFromMark(t) > Time then
    begin
      Result := False;
      Exit;
    end;
  until(Second > First);
  Result := True;
end;

function FireExists:Boolean;
var
  x,y:Integer;
begin
  Result := FindColorSpiralTolerance(x,y,FireColor,196, 117, 323, 223, 3);
  if Result then WriteLn('Fire exists') else WriteLn('Fire does not exist');
end;

function readytype: boolean;
var x,y:integer;
begin
  result := FindColorSpiralTolerance(x,y,9877449,MCX1,MCY1,MCX2,MCY2,38);
end;

function GetLogs(Amount:Integer):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('cert',4000) then
    begin
      TypeSendEx('1',False);
      wait(750 + random(200));
      if waitfunc(@readytype,100+Random(100),2000) then
      begin
        wait(250+random(1000));
        TypeSend('26');
        wait(50+Random(700));
        if WaitInvCountInc(10000) then
          Result := True;
      end;
    end;
  end;
end;

function GetLogsFast(Amount:Integer):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
      TypeSendEx('1',False);
      Wait(1000+Random(1000));
      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
      TypeSendEx('1',False);
      wait(750 + random(200));
      if waitfunc(@readytype,100+Random(100),2000) then
      begin
        wait(250+random(1000));
        TypeSend('26');
        //wait(50+Random(700));
        if WaitInvCountInc(10000) then
          Result := True;
      end;
    end;
  end;
end;

function WhatToDo: boolean;
begin
  Result := (GetColor(333, 364) = 16777215);
end;

function Light(Slot:Integer;TypeOfBurn:string):Boolean;
begin
  if (TypeOfBurn <> 'tinder') then
    MouseItem(Slot,mouse_Left)
  else
  begin
    MouseItem(Slot,Mouse_Right);
    WaitOption('ight ', 750);
  end;
  if (TypeOfBurn <> 'tinder') then
    if WaitFunc(@WhatToDo, 100, 2000) then
    begin
      if (TypeOfBurn <> 'tinder') then
        MouseBox(316, 403, 392, 454, Mouse_Left)
      else
        MouseBox(128, 403, 199, 455, Mouse_Left);
    end else
    begin
      WriteLn('Choosing Option for bonfire failed!');

      Exit;
    end;

  if (TypeOfBurn = 'tinder') then
  begin
    if WaitFunc(@FireExists, 100, 5000) then
    begin
      WriteLn('Tinderbox worked, now gonna add bonfire!');
      Light(slot+1,'bonfire');
      Exit;
    end else
      Writeln('tinderbox failed!');
  end;

  if FindBlackChatMessage('here') then
  begin
    WriteLn('you can''t light a log here, too lazy to handle this atm, bye!');
    terminatescript;
  end;
  if FindBlackChatMessage('range') then
  begin
    WriteLn('No bonfires, wut?');

  end;
end;


function Relocate:Boolean;
var
  x,y:Integer;
begin
  if InvCount < 3 then
    GetLogs(26);
  // Wait(250 + random(2000));
end;

{function gotthelogs:boolean;
begin
  result:=(invcount>6);
end;}

procedure BurnLogs;
var bakas: integer;
begin
  findspinticket;
  bakas := 1;
  repeat
    bakas := bakas+1;
    if ExistsItem(bakas) then
      Break;
  until (bakas > 27);
  if (bakas > 27) then
  begin
    WriteLn('No logs! Getting some more!');
    Relocate;
    Exit;
  end;
  if not FireExists then
    Light(bakas, 'tinder')
  else
    Light(bakas, 'bonfire');

  repeat
    if not WaitXPIncrease(4000) then  // you might want to increase this if you're on a laggy world
    begin
      WriteLn('Exp failsafe resulted, breaking out.');
      Break;
    end;
  until not (ExistsItem(27));

  Proggy;
  findspinticket;

  //waitfunc(@gotthelogs,100,5000);

 // if InvCount < 3 then
    Relocate;
end;

begin
 ClearDebug;
  SetupLogin;
  DeclarePlayers;
  LoginPlayer;
  MouseSpeed := RandomRange(22,25);
  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;

  if InvCount = 1 then
    GetLogs(26);
  repeat
    BurnLogs;
  until not loggedin;
end.

[pure ftw52]

where you start ?

[blinkblink]

where you start ?

Are you serious?
Since you are blind that you couldn't read the main thread post....

Requirements:
Demon butler
Any firemaking level
Noted logs in first inventory slot
Clothes that DO NOT LOOK LIKE A FIRE
Money to pay the butler
Start character in the MOST south eastern place

View this screenshot -


Start in same area, where clothes like mine (Stuff that doesn't have yellow/orange)
Set camera angle to the highest.
^.^

[chuckyb0y]

Got problem it wont give the demon butler the coins in my case 7500 it stops and says no butler. and later on it sayed no logs try butler over and over again

[MiroMiro]

doesn't work for me