laakerules
2012-03-14 22:37:23
Which one, since atpa seems to be slower for me. if theres any way to speed up i would like to know also.
2012-03-14 22:37:23
2012-03-14 22:47:25
2012-03-14 22:54:39
2012-03-14 22:54:40
Function TalkingToMagesR: Boolean;
Var
TPAA: T2DPointArray; //Declare the variables
TPA: TPointArray;
CTS, I, T: Integer;
Begin
MageTalk := MageTalk + 1;
if (MageTalk = 4) then
begin
MageTalk := 0;
MovingToFindMage;
Exit;
end;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1384080, MSX1, MSY1, MSX2, MSY2, 80);
ColorToleranceSpeed(CTS);
TPAA := SplitTPA(TPA,1);
SortATPASize(TPAA, True);
HpCheckEmergency ;
For I := 0 To High(TPAA) Do
If GetArraylength(TPAA[i]) > 0 Then
Begin
MiddleTPAEx(TPAA[i], X, Y);
MMouse(X, Y, 1, 1);
wait(100 + random(100));
if (IsUpTextMultiCustom(['age', 'amorak'])) then
Begin
GetMousePos(X, Y);
mouse(x,y,0,0,false);
HpCheckEmergency ;
wait(100 + random(200));
if (ChooseOption('elep')) then
begin
ChooseOption('elep');
wait(1000 + random(1000));
Marktime(T);
repeat
wait(50 + random(100));
until (FindDTMRotated(FailSafe[2],x,y,MSX1,MSy1,MSx2,MSY2, -Pi/4, Pi/4, Pi/60, afound) or (TimeFromMark(t) > 6000));
Writeln('We are Getting Inside');
Result := true;
Exit;
end else
begin
TalkingToMagesR;
end;
end else
begin
TalkingToMagesR;
Break;
end;
end else
begin
MovingToFindMage;
Exit;
end;
end;
2012-03-14 23:17:51
2012-03-14 23:20:18