SCAR Code:
function ClimbStairs(UpDown : string) : Boolean;
var
X, Y, I, Tries : Integer;
StairColors : TIntegerArray;
begin
if(not LoggedIn)then
Exit;
begin
StairColors := [3817023, 8226183, 8555148, 3224629];
FindObjTPA(x, y, StairColors[i], 5, -1, 15, 15, 3, ['tair', 'Stai', 'air']);
Wait(100 + Random(100));
Mouse(x, y, 5, 5, False);
Wait(100 + Random(100));
ChooseOption('limb-' +Lowercase(UpDown));
Wait(randomrange(1000,1500));
Result := True;
end
if(not Result)then
begin
while(Result = False)do
repeat
MakeCompass(IntToStr(Random(360)));
Wait(3000 + Random(1500));
Inc(Tries);
until (Result = True) or (Tries >= 5);
if (Tries >= 5) then
begin
LogOut;
NextPlayer(False);
LoginPlayer;
Inc(Errors);
end;
end;
end;