Simba Code:
program SuperGlassMaker;
{$i SRL/SRL.scar}
procedure ClicktheBank;
var
x, y:integer;
begin
if FindColorSpiralTolerance(x, y, 5924981, 243, 122, 273, 134, 10)then
begin
MoveMouse(x, y);
ClickMouse(x, y, 1);
wait(1200 + random(200));
end;
end;
procedure WithdrawMaterials;
begin
Mouse(145, 106, 7, 7, false);
Mouse(140, 182, 1, 1, true);
Wait(500 + random(200));
Mouse(186, 108, 7, 7, false);
Mouse(183, 184, 1, 1, true);
end;
procedure MaketheGlass;
begin
Mouse(488, 35, 3, 3, true);
Mouse(634, 372, 3, 3, true);
Wait(3000 + random(200));
end;
procedure BanktheGlass;
var
x, y:integer;
begin
if FindColorSpiralTolerance(x, y, 5924981, 243, 122, 273, 134, 10)then
begin
Mouse(x, y, 15, 15, true);
wait(1200 + random(200));
Mouse(580, 267, 7, 7, false);
Mouse(581, 372, 4, 4, true);
Wait(700 + random(200));
end;
end;
begin
ClicktheBank
repeat
WithdrawMaterials
MaketheGlass
BanktheGlass
until(false)
end.