Simba Code:
Procedure ClickAltar6;
var
a,t: Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
MP : TPoint;
tmpCTS : Integer;
Box : TBox;
begin
if(not(LoggedIn))then Exit;
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.84, 0.28);
//Find the color on mainscreen except your character, I know its crappy
if not FindColorsTolerance(TPA, 6906726, 0, 0, 231, 338, 2) then
begin
writeln('Trying to find area2');
if not FindColorsTolerance(TPA, 6906726, 0, 198, 515, 337, 2) then
begin
writeln('Trying to find area3');
if not FindColorsTolerance(TPA, 6906726, 274, 0, 515, 337, 2) then
begin
writeln('Trying to find area4');
if not FindColorsTolerance(TPA, 6906726, 0, 0, 515, 141, 2) then
begin
writeln('Cant find altar again omggggg');
writeln('Terminating Script');
TerminateScript;
end else
begin
writeln('Found in area4');
end;
end else
begin
writeln('Found in area3');
end;
end else
begin
writeln('Found in area2');
end;
end else
begin
writeln('Found in area1');
end;
SortTPAFrom(TPA, Point(MSCX, MSCY));
ATPA := TPAtoATPAEx(TPA, 15, 15);
for a := 0 to High(ATPA) do
begin
MP := MiddleTPA(ATPA[a]);
Box := IntToBox((MP.X - 20), (MP.Y - 20), (MP.X + 20), (MP.Y + 20));
{$IFDEF SMART}
SMART_DrawBoxEx(True, Box, clYellow);
{$ENDIF}
MMouse(MP.X, MP.Y, 4, 4);
if WaitUptext('raft', 2000) then
begin
ClickMouse2(mouse_Left);
writeln('Crafting Runes');
MarkTime(t)
repeat
wait(500);
until WaitInvMaxCount(8, 2000) or (TimeFromMark(t) > 4000);
writeln('Crafted runes');
end else
begin
writeln('Y NO ALTAR?!?!');
TerminateScript;
end;
{$IFDEF SMART}
SMART_ClearCanvas;
{$ENDIF}
Break;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;