juunhoad
2013-03-01 17:57:35
Right now I have this code just for testing. I want to know why it doesn't walk to the first point [0]?
program Walker;
{$i SRL/SRL.simba}
{$I P07Include.Simba}
var
x, y, i: Integer;
Q: Array [0..4] of Integer;
aFound: Extended;
procedure SetDTM;//DTM Defining procedure.
begin
Q[0] := DTMFromString('mggAAAHicY2NgYFjJxMCwAYpXQvEiIF4LlFsFxDuAeDkQb2GAiEVWyDHE1iswRNfIgTGIH1oix4ALMOLAEAAAzrUN2A==');
Q[1] := DTMFromString('mbQAAAHicY2VgYNjNxMCwgwlCbwHis0A8Byg+FYiXA/ESIJ4GxDElcgwJhdJgOhmKsQFGLBgMAF/cC4g=');
Q[2] := DTMFromString('mbQAAAHicY2VgYHjKxMBwHYg/APF7IH4IxHMZILgfiS4skGZITZFgyCqRYygplmPIKZRmwAYYsWAwAACtowxc');
Q[3] := DTMFromString('mggAAAHicY2NgYLjHxMBwDYhfAPEtKA0SqwTK1TJA6CIobgDinEJpOC4sgGAQGxdgxIEhAAD1vA4A');
Q[4] := DTMFromString('mbQAAAHicY2VgYLjOxMBwHorfA/EbIO4Dik8C4g4gbmeA8CvyCxjyMzLAeGJHB0OWsQgDNsCIBYMBANeiDUk=');
end;
procedure FrDTM;//DTM Freeing procedure.
begin
FreeDTM(Q[0]);
FreeDTM(Q[1]);
FreeDTM(Q[2]);
FreeDTM(Q[3]);
FreeDTM(Q[4]);
end;
begin
SetupP07Include;
P07_MakeCompassNorth;
MouseSpeed := 18;
if FindDTMRotated(Q[0], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
begin
MMouse(x, y, 3, 3);
ClickMouse2(mouse_left);
FFlag(6);
end;
end.