The Man's Report:You have:
runs:=100; //How many runs to the wheel?
and
Players[0].Integers[1] := 0; //Amount of Loads you want Banked, Change to zero if
//you want to stop once gained a certain amount of 'levels'.
You only need 1 ;)
Also you have:
PinNumber:=1234; //Replace these numbers with your pin number
and
Players[0].Pin := ''; //Leave blank if you dont have one.
Again you only need one.
For both of the above, I suggest keeping the Players[Blah] one, for ease of use.
procedure Banking;
begin
ClickNorth(true);
repeat
if not OpenBankNPC then
if not OpenBank('lb',false,false) then
if not FindBank('lb') then
if not OpenBankGlass('lb', false, false) then
OpenBankFast('lb');
if PinScreen then InPin(IntToStr(PinNumber));
until BankScreen;
FindNormalRandoms;
//if InvCount>0 then //this is temporarily broken, using substitute below
//begin
//DepositAll;
//wait(1000+random(1000));
//end;
mouse(397,307,10,10,true); //Substitute for InvCount and DepositAll
wait(1000+random(1000));
//end;
mouse(53,107,10,10,false); //Rightclick on flax
getmousepos(xx,yy);
wait(500+random(500));
mouse(xx,yy+103+random(2),30,0,true); //Left click on withdraw all
wait(500+random(500));
CloseBank;
end;
Here is my version of yours:
procedure Banking;
begin
ClickNorth(true);
repeat
OpenBankFast('lb');
if PinScreen then InPin(IntToStr(PinNumber));
until BankScreen;
FindNormalRandoms;
if FindDTM(StringDTM, x, y, MIX1, MIY1, MIX2, MIY2) then // make a string DTM
if IsUpText('tring') then
begin
Mouse(x, y, 0, 0, False);
WaitOption('it-All', 250));
end;
if FindDTM(FlaxDTM, x, y, MBX1, MBY1, MBX2, MBY2) then
begin
Mouse(x, y, 0, 0, False);
WaitOption('aw-All', 250));
end;
CloseBank;
end;
Make the DTM's and it should be good.
I didn't make the failsafes for you though.
For
Procedure RunToStairs;
Use RadialWalk.
Again, for
procedure ClickOnWheel;
Use a DTM.
Your version of Spin
procedure Spin;
begin
mouse(265,125,28,34,false); //rightclick bowstring
getmousepos(xx,yy);
mouse(xx,yy+60,5,2,true); //click on "make all"
wait(4000+random(20000));
makecompass('S');
repeat
wait (1000+random(100));
until not findcolortolerance(x,y,11710030,560,210,725,460,10); //until no flax left in inventory
end;
My version of Spin
procedure Spin;
begin
if FindDTM(MSStringDTM, x, y, MSX1, MSY1, MSX2, MSY2) then //New String DTM for MainScreen?
begin
Mouse(x,y,0,0,False);
WaitOption('ke-All', 250));
end;
makecompass('S');
repeat
wait (1000+random(100));
until not FindDTM(FlaxDTM, x, y, MIX1, MIY1, MIX2, MIY2); //Using DTM instead of color.
end;
Again for
procedure GoBackUpstairs;
Use RadialWalk.
Also a DTM or BMP or TPA for stairs.
Use RadialWalk for:
procedure RunToBank;
Apart from that nice script :)
Scripting Notes:
Learn DTMs (If you haven't already)
Also, if you have the patience learn TPAs (Probably most important and useful thing in scripting :) )
Get used to RadialWalk :)
If you have any questions or dont understand something, just shoot me a PM.
T~M