Originally Posted by
Mateusz777
If you guys want this script to work longer and better, just change the wait of the opentrapdoor and walktotrap just increase the wait untill it stops freezing at trap door.
If you guys want it to collect the tokens and not drop them but it wont bank them, and I only tried it with infernal ashes, not sure if it works for you guys, then just change this
procedure DropTokens;
begin
If FindDTMRotated(Tokenss,x,y,MIx1,MIy1,MIx2,MIy2,-Pi/4, Pi/4, Pi/60, aFound)then
begin
Mouse(x, y, 5, 5, false);
ChooseOption('Drop');
Writeln('Tokens Have been Droped');
Wait(1000 + random(500));
AntiRandomS;
end
else
Stuck := 1;
end;
TO THIS
procedure DropTokens;
begin
If FindDTMRotated(Tokenss,x,y,MIx1,MIy1,MIx2,MIy2,-Pi/4, Pi/4, Pi/60, aFound)then
begin
//do nothing
end
else
Stuck := 1;
end;