Simba Code:
program CastroScript;
{$DEFINE SMART}
{$DEFINE PAINT}
{$i srl/srl/misc/smart.simba}
{$i SRL/srl.simba}
{$i SRL\SRL\Misc\PaintSmart.simba}
{$i ObjectDTM\ObjDTMInclude.simba}
procedure login;
var email, x, y:integer;
begin
email := DTMFromString('mQwAAAHicY2aAABMglmJABWlJSXDMCuTDMCMSBgIAiuAD4g==');
if FindDTM(email, x, y, MSX1, MSY1, MSX2, MSY2)then
begin
MMouse(312, 185, 1, 1);
Mouse(x, y, 312, 185, true);
TypeSend(''); //Username
wait(5000 +random(200));
MMouse(312, 232, 1, 1);
Mouse(x, y, 312, 232, true);
TypeSend(''); //Password
wait(5000 +random(200));
MMouse(373, 461, 1, 1);
Mouse(x, y, 373, 461, true);
end;
end;
procedure mineCopper;
var
copper, copperInventory, x, y:integer;
begin
copper := DTMFromString('mLgAAAHicY2KAAD4gZoSyyxqrGG7VODGwAtnKUHGIHABLKQNF');
copperInventory := DTMFromString('m6wAAAHic42ZgYHBhYmDwA+JAIHYFYkcgtgBiYyhtxwRR4wvET4DqbwHxQyB+BcSfgPgNED8D4rtAfBWIb0DFdmZbAUkmojArkCQWM5KAkQAAts4OdA==');
repeat
if FindDTM(copper, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
writeln('Found ore!');
MMouse(x, y, 7, 7);
end;
if IsUpText('opper') then
begin
Mouse(x, y, 7, 7, true);
wait(500 + random(500));
end;
until(FindDTM(copperInventory, x, y, MIX1, MIY1, MIX2, MIY2));
end;
procedure dropInventory;
var
copperInventory, x, y:integer;
begin
copperInventory := DTMFromString('m6wAAAHic42ZgYHBhYmDwA+JAIHYFYkcgtgBiYyhtxwRR4wvET4DqbwHxQyB+BcSfgPgNED8D4rtAfBWIb0DFdmZbAUkmojArkCQWM5KAkQAAts4OdA==');
if FindDTM(copperInventory, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
MMouse(x,y, 10,10)
Mouse(x,y,10,10,false)
ChooseOption('rop')
wait(150 + random(500))
end;
end;
var i:integer;
begin
SetUpSRL;
login;
for i:= 0 to 200 do //aantal keer dat je dit wilt doorlopen
begin
mineCopper;
dropInventory;
end
end.