Simba Code:
Function FindButler: Boolean;
Var
NotedLogDTM,LogToBurnDTM,X,Y,XB,YB,H,H2,I,CTS,T: Integer;
pArray: TPointArray;
aPArray: T2DPointArray;
Begin
LogToBurnDTM:= DTMFromString('m1gAAAHic42JgYHBiYmDwAWI/IA6Ess2B2BGIzYDYGohdgZiTkYHhH1A9E5DmAmIBIBYCYhEgZgdiBqi8ux4XSBUGNlBQQOH/ZyAOMBKJEQAARvoHJA==');
NotedLogDTM := DTMFromString('mAAEAAHic42FgYOAFYhYgZmaAABDNBsTcQMwPxCJALArEwlDMClUH0sMJVccLxTxQPgdUnhGInbRBqpiIxv8ZSAOMJGJkAACCbgKF');
if FindDTM(NotedLogDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
Mouse(x,y,0,0,true);
Wait(RandomRange(800,1000));
end;
Result := False;
If(Not(LoggedIn)) Then
Exit;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.30, 1.21);
FindColorsSpiralTolerance(MSCX, MSCY, pArray, 1580857, 182,86,339,252, 12);
aPArray := TPAtoATPAEx(pArray, 20, 20);
If (Length(aPArray) = 0) Then
Begin
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
End;
H := High(aPArray);
If H < 4 Then
H2 := H Else
H2 := 4;
For I := 0 To H2 Do
Begin
MiddleTPAEx(aPArray[I], XB, YB);
MMouse(XB, YB, 4, 4);
If (WaitUpTextMulti(['utle','tler','Butl'],RandomRange(400,500))) Then
Begin
Writeln('FOUND BUTLER, CLICKING');
ClickMouse2(True);
Begin
MarkTime(T);
Repeat
Wait(Random(200));
Until ((FindNPCChatText('coins',Nothing)) Or (FindNPCChatText('cert', Nothing)) Or (TimeFromMark(T) > 8000));
If (FindNPCChatText('coins',Nothing)) Then
Begin
ClickContinue(True, True);
TypeSendEx('1',False);
Wait(RandomRange(800,1000));
TypeSendEx('0', False);
Wait(randomRange(900, 1100));
End;
If (FindNPCChatText('cert', Nothing)) Then
Begin
TypeSendEx('1',False);
Wait(RandomRange(1005,1050));
TypeSendEx('26',True);
Wait(RandomRange(200,500));
End;
End;
End;
FreeDTM(NotedLogDTM);
FreeDTM(LogToBurnDTM);
End;
end;