Syntax
2012-06-09 05:16:31
I thought I'd try to do it myself without using srl includes in simba. I thought this would work but it doesn't for some reason(detects ore).
Program Withdraw all;
{.include SRL\SRL.simba}
Var Pureessence, X, Y: integer;
begin
SetupSRL;
Pureessence := DTMFromString('m6wAAAHic42ZgYOBjQAABIGYGYnYoWxKIpYFYBsrmB2JBIOaCqpeEyskCsQQQiwAxDxCzAXFBdjaQZCISEw8YScBIAADEIgLM');
If findDTM(Pureessence, X, Y, MSX1, MSY1, MSX2, MSY2) then
Begin
Writeln('Found Pure Essence');
MMouse(x, y, 7, 7);
If IsUpText('ess') Then
Mouse(x, y, 0, 0, False);
WaitOption('with all', 500);
end;
FreeDTM(Pureessence);
end.