Code:
program FireMaker;
{$DEFINE SMART}
{$I SRL-6/SRL.simba}
{$I SPS/lib/SPS-RS3.Simba}
// Go To shantay. Set preset 2 with logs you want to burn (any type)
// Put the logs you want to burn on slot "0". Start.
// This Script uses DIRECTX
var
loadsdone: integer;
procedure declarePlayers();
begin
setLength(players, 1);
with players[0] do
begin
loginName := '';
password := '';
isActive := true;
isMember := true;
World := 100;
end
currentPlayer := 0;
end;
function FindFire(): boolean;
var
x, y, i, r: integer;
TPA: TPointArray;
ATPA: T2DPointArray;
begin
if findColorsSpiralTolerance(x, y, TPA, 3125185, mainScreen.getBounds(), 13, colorSetting(2, 0.19, 0.88)) then
begin
writeLn('We Found a Bonfire!');
result := true;
writeLn('We Found a Bonfire!');
end else
begin
result := false;
writeLn('We Didnt Find a Bonfire, Making One');
end;
end;
function notMoving(): boolean;
begin
result := not minimap.isPlayerMoving();
print('Function notMoving() result: ' + boolToStr(result));
end;
function AddingToBonfire(): boolean;
var
count1, count2, count3: integer;
begin
count1 := tabBackpack.count();
wait(randomRange(5500, 6000));
count2 := tabBackpack.count();
count3 := (count1 - count2);
if count3 >= 1 then
result := true;
if count3 <1 then
result := false;
print('Function AddingToBonfire() result: ' + booltostr(result));
end;
procedure LightFire();
var
mybox: tbox;
mybox2: tbox;
begin
myBox := intToBox(162, 187, 206, 224);
myBox2 := intToBox(265, 106, 300, 124);
repeat
begin
mouseBox(mybox2, MOUSE_LEFT);
if notmoving() then
begin
SendKeys('0', 50, 30);
wait(randomRange(3000, 4000));
mouseBox(mybox, MOUSE_LEFT);
tabBackpack.waitForShift(1000);
wait(randomRange(7000, 10000));
end;
end;
until findfire();
end;
procedure clickchest();
var
x, y, i: integer;
TPA: TPointArray;
ATPA: T2DPointArray;
begin
if not isLoggedIn() then
exit;
repeat
findColorsSpiralTolerance(x, y, TPA, 6587300, mainScreen.getBounds(), 3, colorSetting(2, 0.25, 0.84));
if (Length(TPA) < 1) then
exit;
ATPA := TPA.toATPA(30, 30);
ATPA.sortFromMidPoint(mainscreen.playerPoint);
smartImage.debugATPA(ATPA);
for i := 0 to high(ATPA) do
begin
mouse(middleTPA(ATPA[i]), MOUSE_MOVE);
if isMouseOverText(['hest'], 500) then
begin
fastClick(MOUSE_LEFT);
wait(randomrange(3000, 4000));
smartImage.clear();
break;
end;
end;
until bankscreen.isopen;
end;
procedure preset2();
begin
sleepAndMoveMouse(1000 + random(500));
bankScreen.clickButton(BANK_BUTTON_PRESET_1);
wait(randomrange(655, 1000));
end;
procedure antiban();
begin
case randomRange(1,102) of
1..30: begin
writeLn('Simulating Checking Social Networks');
mouseOffClient(OFF_CLIENT_RANDOM);
wait(randomRange(40000, 50000));
end;
31..41: begin
writeLn('Simulating Bored Human');
boredHuman();
wait(randomRange(5000, 10000));
end;
42..102: begin
writeLn('Simulating Small afk');
sleepAndMoveMouse(500 + random(1000));
wait(randomRange(8000, 12000));
pickUpMouse();
end;
end;
end;
procedure AddTobonfire();
var
mybox: tbox;
begin
myBox := intToBox(362, 187, 407, 224);
repeat
if not AddingToBonfire() then
begin
if tabBackpack.isEmpty then
begin
break;
exit;
end;
SendKeys('0', 50, 30);
wait(randomRange(3000, 4000));
mouseBox(mybox, MOUSE_LEFT);
mouseOffClient(OFF_CLIENT_RANDOM);
wait(randomRange(9000, 15000));
antiban();
end;
until AddingToBonfire();
end;
// main loop
begin
smartPlugins := ['d3d9.dll'];
clearDebug();
smartEnableDrawing := true;
smartShowConsole := false;
setupSRL();
declarePlayers();
disableSrlDebug := false;
repeat
if not isLoggedIn() then
begin
players[currentPlayer].login();
exitSquealOfFortune();
mainScreen.setAngle(MS_ANGLE_HIGH);
minimap.setAngle(MM_DIRECTION_NORTH);
end;
if tabBackpack.isEmpty then
begin
clickchest();
Preset2();
end;
addtobonfire();
until (false)
end.
Undorak7