yeahbaby44
2013-04-11 22:48:05
program FGiants;
{$i srl/srl.simba}
var
x, y: Integer;
PickupCasket, x1, y1: Integer;
procedure RightClickCasket;
begin
PickupCasket := DTMFromString('mbQAAAHicY2VgYBBlZGC4BqRvAHEAkO0LxA uBeDaUXgrEc4H4/wQHhtgQd4b///9DaCCfH6gHHTNiwWAAAMeUDmg=');
if FindColorSpiralTolerance(x, y, 610410, 1, 0, 511, 337, 5) or
FindColorSpiralTolerance(x, y, 1208211, 1, 0, 511, 337, 5) or
FindColorSpiralTolerance(x, y, 1206669, 1, 0, 511, 337, 5) or
FindColorSpiralTolerance(x, y, 11313312, 1, 0, 511, 337, 5) then
begin
Wait(500)
MoveMouse(x, y);
Wait(1000);
ClickMouse(x, y, mouse_Right);
end;
end;
procedure LeftClickCasket;
begin
if FindDTM(PickupCasket, x1, y1, 1, 0, 511, 337) then
begin
MoveMouse(x1, y1);
Wait(400);
ClickMouse(x1, y1, mouse_Left);
end else
begin
MoveMouse(1, 0);
repeat
RightClickCasket;
LeftClickCasket;
until(false);
end;
FreeDTM(PickupCasket);
end;
begin
RightClickCasket;
repeat
RightClickCasket;
LeftClickCasket;
until(false);
end.
Questions: 1. How would I get this bot to work.
2. how would this script work.
3. can you fix it.