Simba Code:
program new;
{$i SRL/SRL.simba}
{$I P07Include.Simba}
function FindFloorColor0: Integer;
var
Point0 : TPointArray;
begin
if FindColorsTolerance(Point0,1480557 , P07_MMX1,P07_MMY1,P07_MMX2,P07_MMY2, 15) then
Result:= GetColor(Point0[0].X, Point0[0].Y);
end;
function FindFloorColor1: Integer;
var
Point1 : TPointArray;
begin
if FindColorsTolerance(Point1, 1343324, P07_MMX1,P07_MMY1,P07_MMX2,P07_MMY2, 15) then
Result:= GetColor(Point1[1].X, Point1[1].Y);
end;
function FindFloorColor2: Integer;
var
Point2 : TPointArray;
begin
if FindColorsTolerance(Point2, 1344360, P07_MMX1,P07_MMY1,P07_MMX2,P07_MMY2, 15) then
Result:= GetColor(Point2[2].X, Point2[2].Y);
end;
function FindFloorColor3: Integer;
var
Point3 : TPointArray;
begin
if FindColorsTolerance(Point3, 1343103, P07_MMX1,P07_MMY1,P07_MMX2,P07_MMY2, 15) then
Result:= GetColor(Point3[3].X, Point3[3].Y);
end;
function FindFloorColor4: Integer;
var
Point0 : TPointArray;
begin
if FindColorsTolerance(Point0, 1343342, P07_MMX1,P07_MMY1,P07_MMX2,P07_MMY2, 15) then
Result:= GetColor(Point0[0].X, Point0[0].Y);
end;
function FindFloorColor5: Integer;
var
Point0 : TPointArray;
begin
if FindColorsTolerance(Point0, 1210481, P07_MMX1,P07_MMY1,P07_MMX2,P07_MMY2, 15) then
Result:= GetColor(Point0[0].X, Point0[0].Y);
end;
function FindFloorColor6: Integer;
var
Point1 : TPointArray;
begin
if FindColorsTolerance(Point1, 1209204, P07_MMX1,P07_MMY1,P07_MMX2,P07_MMY2, 15) then
Result:= GetColor(Point1[1].X, Point1[1].Y);
end;
function FindFloorColor7: Integer;
var
Point2 : TPointArray;
begin
if FindColorsTolerance(Point2, 1211473, P07_MMX1,P07_MMY1,P07_MMX2,P07_MMY2, 15) then
Result:= GetColor(Point2[2].X, Point2[2].Y);
end;
function FindFloorColor8: Integer;
var
Point3 : TPointArray;
begin
if FindColorsTolerance(Point3, 1209429, P07_MMX1,P07_MMY1,P07_MMX2,P07_MMY2, 15) then
Result:= GetColor(Point3[3].X, Point3[3].Y);
end;
function FindFloorColor9: Integer;
var
Point3 : TPointArray;
begin
if FindColorsTolerance(Point3, 1209429, P07_MMX1,P07_MMY1,P07_MMX2,P07_MMY2, 15) then
Result:= GetColor(Point3[3].X, Point3[3].Y);
end;
function FindFloorColor10: Integer;
var
Point1 : TPointArray;
begin
if FindColorsTolerance(Point1, 1209204, P07_MMX1,P07_MMY1,P07_MMX2,P07_MMY2, 15) then
Result:= GetColor(Point1[1].X, Point1[1].Y);
end;
function FindFloorColor11: Integer;
var
Point2 : TPointArray;
begin
if FindColorsTolerance(Point2, 1211473, P07_MMX1,P07_MMY1,P07_MMX2,P07_MMY2, 15) then
Result:= GetColor(Point2[2].X, Point2[2].Y);
end;
function FindFloorColor12: Integer;
var
Point3 : TPointArray;
begin
if FindColorsTolerance(Point3, 1209429, P07_MMX1,P07_MMY1,P07_MMX2,P07_MMY2, 15) then
Result:= GetColor(Point3[3].X, Point3[3].Y);
end;
function FindFloorColor13: Integer;
var
Point3 : TPointArray;
begin
if FindColorsTolerance(Point3, 1209429, P07_MMX1,P07_MMY1,P07_MMX2,P07_MMY2, 15) then
Result:= GetColor(Point3[3].X, Point3[3].Y);
end;
function DDTMWalk(WalkNumber: Integer): Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: array[0..4] of TDTMPointDef;
TempTDTM: TDTM;
begin
case WalkNumber of
1: begin
dtmMainPoint.x := 612;
dtmMainPoint.y := 110;
dtmMainPoint.AreaSize := 1;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := FindFloorColor0;
dtmMainPoint.Tolerance := 50;
dtmSubPoints[0].x := 612;
dtmSubPoints[0].y := 110;
dtmSubPoints[0].AreaSize := 1;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := FindFloorColor0;
dtmSubPoints[0].Tolerance := 50;
dtmSubPoints[1].x := 616;
dtmSubPoints[1].y := 79;
dtmSubPoints[1].AreaSize := 1;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := FindFloorColor1;
dtmSubPoints[1].Tolerance := 50;
dtmSubPoints[2].x := 630;
dtmSubPoints[2].y := 142;
dtmSubPoints[2].AreaSize := 1;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := FindFloorColor2;
dtmSubPoints[2].Tolerance := 50;
dtmSubPoints[3].x := 647;
dtmSubPoints[3].y := 97;
dtmSubPoints[3].AreaSize := 1;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := FindFloorColor3;
dtmSubPoints[3].Tolerance := 50;
dtmSubPoints[4].x := 647;
dtmSubPoints[4].y := 118;
dtmSubPoints[4].AreaSize := 1;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := FindFloorColor4;
dtmSubPoints[4].Tolerance := 50;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
2:begin
dtmMainPoint.x := 618;
dtmMainPoint.y := 22;
dtmMainPoint.AreaSize := 1;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := FindFloorColor5;
dtmMainPoint.Tolerance := 10;
dtmSubPoints[0].x := 613;
dtmSubPoints[0].y := 22;
dtmSubPoints[0].AreaSize := 1;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := FindFloorColor5;
dtmSubPoints[0].Tolerance := 10;
dtmSubPoints[1].x := 643;
dtmSubPoints[1].y := 15;
dtmSubPoints[1].AreaSize := 1;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := FindFloorColor6;
dtmSubPoints[1].Tolerance := 10;
dtmSubPoints[2].x := 628;
dtmSubPoints[2].y := 50;
dtmSubPoints[2].AreaSize := 1;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := FindFloorColor7;
dtmSubPoints[2].Tolerance := 10;
dtmSubPoints[3].x := 604;
dtmSubPoints[3].y := 39;
dtmSubPoints[3].AreaSize := 1;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := FindFloorColor8;
dtmSubPoints[3].Tolerance := 10;
dtmSubPoints[4].x := 635;
dtmSubPoints[4].y := 43;
dtmSubPoints[4].AreaSize := 1;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := FindFloorColor8;
dtmSubPoints[4].Tolerance := 10;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
end;
end;
function Walk: Boolean;
var
WalkDTM,x ,y: integer;
begin
WalkDTM := DDTMWalk(1);
if FindDTM(WalkDTM, X, Y, MMX1,MMY1,MMX2,MMY2) then
begin
MMouse(X, Y, 5, 5);
ClickMouse2(mouse_left);
P07_FFlag;
end;
begin
WalkDTM := DDTMwalk(2);
if FindDTM(WalkDTM, X, Y, MMX1,MMY1,MMX2,MMY2) then
begin
MMouse(X, Y, 5, 5);
ClickMouse2(mouse_left);
end;
end;
end;
begin
SetupP07Include;
Walk;
end.