jkrules22
2012-04-17 18:27:01
Ok so Im trying to climb up to the lummy bank. Ive tried dtms, that wasnt working, and I realy seem not to be able to find a way to climb up the stairs, any help would be appreciated.
2012-04-17 18:27:01
2012-04-17 18:28:35
2012-04-18 01:10:19
Procedure StairClimber;
Var
x, y:Integer;
StairColor : Array [0..1] of Integer;
i :Integer;
Begin
StairColor[0]:=11186354;
StairColor[1]:=3095366;
//StairColor[2]:=6777708;
//StairColor[3]:=3885913;
//StairColor[4]:=9804700;
//StairColor[5]:=6514536;
Begin
If (not (Loggedin)) then
Exit;
Begin;
For i:= 0 to 1 do
If FindObjCustom(x,y,['Climb, up'],[StairColor[i]],1) then
GetMousePos(x, y);
Begin
If IsUpText('Clim, sta,air, ase') then
Begin
Mouse(x, y, 5, 5, False);
WaitOption('Climb, up');
end;
end;
End;
End;
End;
2012-04-18 01:52:10
From: jkrules22
ok so i made a tpa for the stairs and it just keeps searching for them, ANd it executes without clicking them after it finaly does
Procedure StairClimber;
Var
x, y:Integer;
StairColor : Array [0..1] of Integer;
i :Integer;
Begin
StairColor[0]:=11186354;
StairColor[1]:=3095366;
//StairColor[2]:=6777708;
//StairColor[3]:=3885913;
//StairColor[4]:=9804700;
//StairColor[5]:=6514536;
Begin
If (not (Loggedin)) then
Exit;
Begin;
For i:= 0 to 1 do
If FindObjCustom(x,y,['Climb, up'],[StairColor[i]],1) then
GetMousePos(x, y);
Begin
If IsUpText('Clim, sta,air, ase') then
Begin
Mouse(x, y, 5, 5, False);
WaitOption('Climb, up');
end;
end;
End;
End;
End;
2012-04-18 03:37:49
2012-04-18 05:14:58
2012-04-18 14:19:35
2012-04-18 15:45:04