Originally Posted by
shought
Wizzup this is really a great script!!! I've already mined 3k ess with it in a few hours. Only i changed one thing myself and maybe you might do it to the original: Place an option in the setup to switch private chat(and maybe public too) off. Now i had to search the script before i could change it. And one more thing i noticed your script barely uses run. I adjusted the script and now it runs like this: Shop--->Bank...banking...Bank--->Shop and then just before it starts to search Aubury it turns run off.
Looks like this:
Function ToBank: Boolean;
Var
iX, iY, BankDTM, D, WalkMark, aMark : Integer;
AngleVar : Extended;
Begin
If Not LoggedIn Then Exit;
SetRun(True);
OpenDoor;
Mouse(687, 30, 4, 4, True);
Wait(100);
MarkTime(aMark);
Repeat
If Not FlagPresent Then
Begin
OpenDoor;
Mouse(687, 30, 4, 4, True);
MarkTime(WalkMark)
Repeat
FindColorSpiral(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2)
D := Distance(iX, iY, MMCX, MMCY);
Wait(100);
Until ((D > 15) Or (TimeFromMark(WalkMark) > 8000));
End
Else Break;
If TimeFromMark(aMark) > 120000 Then
Begin
WriteLn('ToBank took too long.. logging.');
LogOut;
Players[CurrentPlayer].Loc := 'ToBank2';
Exit;
End;
Until D > 15;
Wait(6000);
FFlag(10);
BankDTM:= DTMFromString('78DA636C666260486140016FDEBC61F80FA 41' +
'981F83F1030B603D5E4A0AA79FB96814103AA060418EB816A B251' +
'D57CFD8AAA0600B6210EA4');
If FindDTMRotated(BankDTM, iX, iY, MMX1, MMY1, MMX2, MMY2, -1.0, 2.0, 1, AngleVar) Then
Begin
Result := True;
Mouse(iX, iY + 1, 0, 0, True);
Wait(3000);
FFlag(0);
End
Else
Begin
LogOut;
Players[CurrentPlayer].Loc := 'ToBank2';
WriteLn('Bank not found');
Exit;
End;
FreeDTM(BankDTM);
SetRun(True); (U can leave this out if u want to i guess..)
End;
and then:
Function SpotAubury: Boolean;
// 10855856, 3005947, 2998011
Var
iX, iY, C: Integer;
Begin
SetRun(False);
Repeat
CloseWindow;
Wait(50);
If FindAuburyText Then
