Simba Code:
program PhasmatysBaller;
{$i srl/srl.simba}
{$i sps/sps.simba}
//Global variables
var
Booth:Integer;
Booth2:Integer;
Booth3:Integer;
clicklog:Integer;
//End of global variables
procedure bank;
var
x, y:Integer;
begin
Booth := DTMFromString('mWAAAAHicY2FgYPgExJyMDAz/gDQjkJYGYhkg1gBiESAurk1gqGxJYwiNU2WISDBgYAeqQ8aMaBgEAIzgBws=');
Booth2 := DTMFromString('mWAAAAHicY2FgYPgBxLyMDAxfgLQAkPaBYlcoLq1PYqhqSWeISjJkCI/TZ2AHqkPGjGgYBADAVAfi');
Booth3 := DTMFromString('mWAAAAHicY2FgYDgExLeB+CIQ3wLi50D8Aoi/AvE7IM7IC2HIL0lgCAwzYPALMmfgBoohY0Y0DAIAp2YLSg==');
if FindDTM(Booth, x, y, MSX1, MSY1, MSX2, MSY2) or
FindDTM(Booth2, x, y, MSX1, MSY1, MSX2, MSY2) or
FindDTM(Booth3, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
mouse(x, y, 3, 3, true);
end;
FreeDTM(Booth);
FreeDTM(Booth2);
FreeDTM(Booth3);
end;
//////////////////////////////////////////////////////////////////////
function open:boolean;
var
x, y:Integer;
clicklog:Integer;
clicklog2:Integer;
begin
clicklog := DTMFromString('mbQAAAHicY2VgYGBhZGB4AaSfAbE0kC0PxFeA+CIQXwXi81D+zp07GFwKxBlUvLkYohtMGLSCeBg4gHrQMSMWDAYANr4LaQ==');
clicklog2 := DTMFromString('mQwAAAHicY2ZgYGBhZGB4AaRlgPQlIL4MxBeB+N+/vwzWySIMTtliDIJAeRhmRMJAAABWvQgr');
if FindDTM(clicklog, x, y, 26, 380, 480, 480) then
begin
result :=true;
freeDTM(clicklog);
freeDTM(clicklog2);
end else
result :=false;
freeDTM(clicklog);
freeDTM(clicklog2);
end;
//////////////////////////////////////////////////////////////////////
procedure Clickgreen;
var
x, y:Integer;
green:Integer;
begin
green := DTMFromString('mbQAAAHicY2VgYGBhZGB4AaSfAbE0kC0PxFeA+CIQXwXi81D+zp07GFwKxBlUvLkYohtMGLSCeBg4gHrQMSMWDAYANr4LaQ==');
if FindDTM(Clicklog, x, y, 26, 380, 480, 480) then
begin
mouse(x, y, 4, 4, true);
end;
freeDTM(green);
end;
//////////////////////////////////////////////////////////////////
procedure FindBar;
var
x, y:Integer;
bar:Integer;
begin
bar := DTMFromString('mlwAAAHicY2dgYOiD4kYoPQ2KW4H4NBDfAOJLQHwCiE8C8VkgPgXEzbW1QJKJQVVZmSE5Ph7Mb29sBLO5gTK4MCMeDAUAnDMRBw==');
if FindDTM(bar, x, y, 0, 0, 500, 328) then
begin
mouse(x, y, 2, 2, false);
end;
freeDTM(bar);
end;
/////////////////////////////////////////////////////////////////////
begin
SetUpSRL;
bank
wait(2000);
repeat
open;
until(true);
wait(1000 + random(201));
Clickgreen
wait(1000 + random(512));
FindBar
end.