Can someone help me get these 2 to work.
Simba Code:
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;