Simba Code:
program FireRuns; //By Wopey
{$DEFINE SMART8}
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
{$I SRL/srl/misc/SmartGraphics.simba}
var
x, y: Integer;
ChestDTM, MtsDTM, AlterDTM: Integer;
procedure LoadDTMs;
begin;
ChestDTM := DTMFromString('mwQAAAHic42SAAGkglgVieSCWA2JhIOYFYi4gZoGqAYnxAzE3ELMDMSsUs0CxmooKQ05KCkNRdjZDalwsg4uDA0OgtxdDmL8/Q0RQEENseDgDM1AdIcxIBIYDAAZGCcY=');
MtsDTM := DTMFromString('mwQAAAHic6hAAGkglgVieSCWA2JhIOYFYi4gZoGqAYnxAzE3ELMDMSsUs0CxmooKQ05KCkNRdjZDalwsg4uDA0OgtxdDmL8/Q0RQEENseDgDM1AdIcxIBIYDAAZGCcY=');
AlterDTM := DTMFromString('mwQAAAH6y42SAAGkglgVieSCWA2JhIOYFYi4gZoGqAYnxAzE3ELMDMSsUs0CxmooKQ05KCkNRdjZDalwsg4uDA0OgtxdDmL8/Q0RQEENseDgDM1AdIcxIBIYDAAZGCcY=');
end;
procedure Bank;
begin
writeln('Looking For Bank');
If findDTM(ChestDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
P07_MakeCompassEast;
P07_MakeCameraAngleHigh;
writeln('Getting Some Ze Essence');
MMouse(422,74,5,5);
wait(randomrange(15,50));
ClickMouse2(mouse_right);
wait(randomrange(400,600));
P07_chooseOptionMulti(['Withdraw All']);
wait(randomrange(500,800));
Mmouse(484,39,5,5);
wait(randomrange(15,100));
ClickMouse2(Mouse_Left);
end;
end;
procedure Teleport1;
begin
writeln('Teleporting To The Fire Station');
MMouse(323, 23, 2, 2);
wait(randomrange(15,50));
ClickMouse2(mouse_left);
wait(randomrange(15,50));
MMouse(422, 24, 2, 2);
wait(randomrange(15,50));
ClickMouse2(mouse_right);
wait(randomrange(15,50));
MMouse(424, 24, 0, 0);
wait(randomrange(15,50));
MMouse(233, 42, 1, 1);
wait(randomrange(15,50));
ClickMouse2(mouse_left);
end;
procedure FreeDTM2;
begin
FreeDTMs(['ChestDTM', 'MtsDTM', 'AlterDTM']);
end;
procedure MoveAlter;
begin
Mmouse(424, 24, 1, 1);
wait(randomrange(15,50));
ClickMouse2(mouse_left);
wait(10000);
if findDTM(MtsDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Mmouse(313, 313, 1, 1);
ClickMouse2(mouse_left);
wait(randomrange(15,50));
Mmouse(x, y, 3, 3);
ClickMouse2(mouse_left);
wait(randomrange(15,50));
end;
end;
begin
SetupSrl;
Setupp07Include;
ActivateClient;
LoadDTMs;
repeat
Bank;
wait(randomrange(50,100));
Teleport1;
Addonterminate('FreeDTM2');
until(false);
terminatescript();
end.