rsbots2013
2013-05-24 13:38:38
Can someone help me get these 2 to work.
program new;
{$I SRL-OSR/SRL.Simba}
{$I P07Include.Simba}
var
BalancingRopeColor1, BalancingRopeColor2, BalancingRopeColor3, BalancingRopeColor4 : integer;
procedure BalancingRope;
var
x, y : integer;
aFound : extended;
begin
if FindColorSpiralTolerance( x, y, BalancingRopeColor1, 397, 106, 455, 257, 5) or
FindColorSpiralTolerance( x, y, BalancingRopeColor2, 397, 106, 455, 257, 5) or
FindColorSpiralTolerance( x, y, BalancingRopeColor3, 397, 106, 455, 257, 5) or
FindColorSpiralTolerance( x, y, BalancingRopeColor3, 397, 106, 455, 257, 5) then
begin
Wait(1000);
P07_GetUpText(['on','balan','cing','ope'],100);
Wait(1000);
P07_ChooseOptionMulti('walk');
Wait(1000);
writeln('Found Obstacle Net 2');
Mouse( x, y, 1, 1, True);
end else
begin
Writeln('Balancing Rope NOT found... Attempting to retry...');
Wait(1000);
BalancingRope;
end;
end;
begin
DeclarePlayers;
SetupSRL;
LoadColor;
SetAngle(SRL_ANGLE_HIGH);
MouseSpeed:= 20;
MakeCompass('n');
BalancingRope;
end;