SCAR Code:
Program BoneCollector;
{.Include SRL/SRL.Scar}
Var
X, Y : Integer;
Const
HouseColor = 2311011;//Pick The Brown Color Of The House On Mini-Map.
Procedure CheckDoor;
Begin
MakeCompass('N');
If(FindObj(x, y, 'lose', 2637128, 5))Then
Mouse(x, y, 1, 1, True);
Wait(5000+random(5000));
WriteLn('Door Is Closed, Opening Door');
End Else
If(Not(FindObj(x, y, 'lose', 2637128, 5)))And(Not(FindObj(x, y, 'pen', 2637128, 5)))Then
WriteLn('Door Not Found, Looking For Door Again');
MakeCompass('E');
If(FindObj(x, y, 'lose', 2637128, 5))Then
Mouse(x, y, 1, 1, True);
Wait(5000+random(5000));
WriteLn('Door Is Closed, Opening Door');
End Else
If(Not(FindObj(x, y, 'lose', 2637128, 5)))And(Not(FindObj(x, y, 'pen', 2637128, 5)))Then
WriteLn('Door Not Found, Looking For Door Again');
MakeCompass('S');
If(FindObj(x, y, 'lose', 2637128, 5))Then
Mouse(x, y, 1, 1, True);
Wait(5000+random(5000));
WriteLn('Door Is Closed, Opening Door');
End Else
If(Not(FindObj(x, y, 'lose', 2637128, 5)))And(Not(FindObj(x, y, 'pen', 2637128, 5)))Then
WriteLn('Door Not Found, Looking For Door Again');
MakeCompass('W');
If(FindObj(x, y, 'lose', 2637128, 5))Then
Mouse(x, y, 1, 1, True);
Wait(5000+random(5000));
WriteLn('Door Is Closed, Opening Door');
End Else
If(Not(FindObj(x, y, 'lose', 2637128, 5)))And(Not(FindObj(x, y, 'pen', 2637128, 5)))Then
WriteLn('Door Not Found Anywhere Near By, Exiting');
Exit;
TerminateScript;
End;
Procedure WalkToHouse;
Begin
PerfectNorth;
HighestAngle;
Begin
If(FindSymbol(x, y, 'furnace'))Then
Mouse(x, y, 1, 1, True);
Flag;
WriteLn('Found Furnace, Walking To Furnace');
Begin
ClickExactMMColorTol(HouseColor, 5);
Flag;
WriteLn('Found House, Walking To House');
Begin
CheckDoor;
End;
End;
End;
End;
Begin
SetUpSRL;
Begin
WalkToHouse;
End;
End.