Simba Code:
procedure finalPos;
var
x, y, timmeh, loops, timrr, timyr: Integer;
uptt: String;
tpt, tpts:Tpoint;
TPACheck, temppy: TBox;
TERP: Tpointarray;
Colors: TIntegerArray;
Uptexts: TStringArray;
begin
if(ItemInSlot(27)) then
begin
for loops := 25 to 28 do
begin
if(ItemInSLot(loops)) then
begin
tpts := MiddleBox(InvBox(loops));
Mouse(tpts, 5, 5, Mouse_Right);
uptt := GetUpText;
wait(randomrange(150, 350));
if(pos('2', uptt) <> 0) then
IncEx(curxp, 60)
else if(pos('50', uptt) <> 0) then
IncEx(curxp, 50)
else if(pos('5k', uptt) <> 0) then
IncEx(curxp, 75);
ChooseOption('rop');
end;
end;
//FinalPos;
end;
avgrad := 0;
avgangle := 0;
//Exit;
WriteLN('Repositioning');
SetCompass('n');
Wlk.WalkPath([Point(4499,4779)]);
SetAngle(0);
Colors := [6326696, 7117502, 5470357, 5997731, 6261162, 4349556, 3756646];
Uptexts := ['ine'];
loops := 5;
recovering := true;
timmeh := getInvCount;
marktime(timyr);
repeat
WriteLN('->Repeat');
while(not(TPAFinder(False, True, -35, 35, 5, 5, MSCY, MSCX, Colors, Uptexts, x, y, MSBox, TPACheck))) do
begin
Inc(loops);
AntiBan(0, 0, 0);
if(loops >= 15) then
begin
WriteLN('No bueno');
Wlk.WalkPath([Point(4495,4782)]);
finalPos;
Exit;
end;
end;
WriteLN('Treeteet');
Mouse([x, y], 0, 0, Mouse_Right);
wait(randomrange(75, 150));
ChooseOption('ine');
Marktime(timrr);
AntiBan(0, 0, 0);
if(isInvFull) then
begin
recovering := False;
setCompass(230);
avgrad := 0;
avgangle := 0;
Exit;
end;
while(not(timmeh < getInvCount) or (TimeFromMark(timrr) >= 9500)) do AntiBan(0, 0, 0);
until((timmeh < getInvCount) or (TimeFromMark(timyr) >= 20000));
if((TimeFromMark(timyr) >= 20000)) then
finalpos;
recovering := false;
setCompass(230);
avgrad := 0;
avgangle := 0;
end;