Simba Code:
program Falador_Firemaking; //V1.0
//{$define smart}
{$DEFINE WALKER}
{$i AeroLib/AeroLib.Simba}
//{.include SRL-OSR/SRL.simba}
//{$include_once srl-6/srl.simba}
var
Tinderbox, Willow_log, Maple_Log:TItem;
Procedure LoadItem;
begin
//Get Tinderbox
Tinderbox.DTM := DTMFromString('mlwAAAHicY2dgYOBjgAB2IJYAYmkgFoCKcQExNxCzQPk8QCwJxKJAPHviBCDJiBVzMeAG2HVAMBQAAPWRAoY=');
//Get Logs
Willow_log.DTM := DTMFromString('mlwAAAHicY2dgYBBggAARIJYEYhYglgViDiBmBmJOIOaBqmGC8vmB2N9NCkgyYsVcDLgBdh0QDAUAkUwBZg==');
Maple_log.DTM := DTMFromString('mlwAAAHicY2dgYNjFysBwAYg3A/E5IL4IxNuB+AwQdzEyMLQBcTMQ1wFxE5SuBmIGBkY8GDcgQhcAbfUJKw==');
end;
//Looks if Logs and Tinderbox are in the inventory.
Procedure CheckInventory;
var
log, box: Tpoint;
X,Y:Integer;
begin
if Maple_Log.findIn(Area_Inv, log) = true then
IntToStr(Maple_Log.GetSlot)
if Maple_Log.findIn(Area_Inv, log) = false then
writeln('No Logs, getting Logs. ');
if Tinderbox.findIn(Area_Inv, box) = true then
IntToStr(Tinderbox.GetSlot)
if Tinderbox.findIn(Area_Inv, box) = false then
writeln('No Tinderbox, getting Tinderbox. ');
end;
procedure Tinderbox_location
var
x,y,TinderboxX,TinderboxY,SumT :integer;
pnt,TinderP :Tpoint;
//Tinderbox location
begin
mouseSpeed := Random(30, 50);
CheckInventory();
//Tinderbox location
TinderboxX = 664;
TinderboxY = 332;
TinderP := [664,332];
FindDTM(Tinderbox.DTM, x,y, MIX1,MIY1,MIX2,MIY2);
pnt := [x,y];
SumT := (X + Y);
writeln(X,' ',Y);
writeln(SumT);
if SumT = 996 = true or SumT = 998 = true then
begin
wait(20);
writeln('Tinderbox slot 15, Okay!');
end;
if SumT <> 996 = false or SumT <> 998 = false then
begin
wait(20);
writeln('Tinderbox not in slot 15, moving Tinderbox!');
FindDTM(Tinderbox.DTM, x,y, MIX1,MIY1,MIX2,MIY2);
HumanMMouse(pnt,6,5);
HoldMouse(x, y, mouse_Left);
wait(Random(125,225));
HumanMMouse(TinderP,6,5);
wait(Random(75,125));
ReleaseMouse(x, y, mouse_Left);
end;
end;
begin
initAL;
LoadItem();
CheckInventory();
Tinderbox_location ();
FreeDTM(Willow_log.DTM);
FreeDTM(Tinderbox.DTM);
FreeDTM(Maple_log.DTM);
end.