Hey321
2007-03-04 20:20:42
program ChooseItemOptionCheck;
{.include SRL/SRL.scar}
Procedure ChooseItemOption(ItemName, Option: String; ColorToFind, ToleranceUsed: Integer);
Begin
If(FindColorTolerance(x, y, ColorToFind, MIX1, MIY1, MIX2, MIY2, ToleranceUsed))Then
Begin
MMouse(x, y, 3, 3);
Wait(500)
If(IsUpText(ItemName))Then
Begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
Wait(500)
ChooseOption(x, y, Option);
TerminateScript;
end;
end
end;
begin
SetupSRL;
Repeat
ChooseItemOption('Gold ore', 'All', 1482692, 5);
Wait(1000)
Until(False)
end.Ever hated having to put out all that chooseoption crap? Here's your fix :O.