//made by qcrist
//start in lumby bank(anywhere should be fine)
//have a full invtory of flax
//i recomend watching it
//change line 98 (ammofflax=_______) ________=amount of flax
//change 21-22 to usernameand pass
//anyproblems ask 4 help on my forum
//have fun
program New;
{.include SRL/SRL.scar}
var x,y,ammofflax:integer;
function login
begin
cleardebug;
ammofflax :=0;
setupsrl;
findrs
end;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := 'zcv';
Players[0].Active := True;
End;
begin
if notloggedin then
DeclarePlayers
login
//movemouse(454, 295)
//clickmouse(454, 295,true)
//wait(1000)
//typesend('')
//typesend('')
//clickmouse(305, 323,true)
//wait(10000)
mmouse(4418, 348,0,0)
mouse(418, 348,0,0true)
mouse(418, 348,0,0true)
mouse(418, 348,0,0true);
wait(4000)
repeat
function makemapright
wait(1000)
Makecompass ('N');
makecompass('N');
makecompass('N');
HighestAngle;
HighestAngle;
HighestAngle;
function gotostairs
clickmouse(643, 153,0,0,true);
wait(3000);
flag;
if findobj(x, y, 'tair', 537419, 25) then
GetMousePos(X,Y)
Mouse(x, y, 0, 0, true)
wait(5000);
//movemouse(272, 38) working on this aria from here
//wait(1000)
//clickmouse(272, 38,true)
//clickmouse(272, 38,true)
//clickmouse(272, 38,true) to here
wait(500)
flag;
funtion spin
if findobj(x,y,'pin',607848,15) then
GetMousePos(X,Y)
mmouse(x,y,0,0)
mouse(x,y,0,0,False)
wait(5000)
chooseoption('Spin')
wait(1000)
flag;
wait(1000)
wait(1000)
mmouse(262, 116,0,0)
wait(2000)
mouse(262, 116,0,0,false)
wait(2000)
ChooseOption(' X')
wait(4500)
typesend('28')
wait(51000)
function upstairs
mmouse(626, 109,0,0)
wait(5000)
mouse(626, 109,0,0,true)
mouse(626, 109,0,0,true)
wait(3000)
flag;
if findobj(x, y, 'tair', 606303, 25) then
GetMousePos(X,Y)
mouse(x,y,0,0False)
wait(1000)
chooseoption('-up')
function bank
wait(3000)
mmouse(658, 47,0,0)
mouse(658, 47,0,0,true)
mouse(658, 47,0,0,true)
wait(2000)
flag;
lowestAngle;
makecompass('E')
if findobj(x, y, 'ooth',543587, 25) then
getMousePos(x,y)
mouse(x,y,0,0,False)
wait(1000)
chooseoption('-qui')
wait(3000)
flag;
depositall;
mmouse(91, 77,0,0)
wait(2000)
mouse(91, 77,0,0,false)
getMousePos(x,y)
mouse(x,y,0,0,False)
wait(2000)
chooseoption('All')
if invfull then
ammofflax:=ammofflax+28
else logout
until ammofflax=33000
logout;
end.
dont know how well it works
fixed up a little
still working on it