SCAR Code:
Function FindFourBankers(Direction:string):Tpoint;
var myy,myx,dist,DTMBankers:integer;
angle:extended;
begin
DTMBankers := DTMFromString('78DA636C66626058CB8002FEFFFFCFF01F483' +
'342D8FF195B116A98A06AFEFC81B018A17CC64622D47411A1A69A' +
'B01A005E1515EC');
if not FindDTMRotated(DTMBankers,myx,myy,mmx1,mmy1,mmx2,mmy2,0,180,2.0,angle) then
begin
exit;
freedtm(DTMBankers);
end;
freedtm(DTMBankers);
angle:=rs_GetCompassAngleDegrees;
case lowercase(Direction[1]) of
'e': angle:=angle-270.0;
'w': angle:=angle-90.0;
's': angle:=angle-180.0;
end;
dist:=5+random(7);
result.x:=myx+round((dist)*sin(radians(angle)));
result.y:=myy-round((dist)*cos(radians(angle)));
end;
FindFourBankers('e'); // al kharid
Works at any angle. Compass independency FTW!