Code:
program SmartTest;
{.include SRL/SRL/reflection/Refletion.scar}
{.include srl/srl/misc/Smart.scar}
{.include srl/srl.scar}
var
x,y,a,b:integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure antiban;
begin
begin
if inchat('Wc lvl') then
saycurrentlevels('woodcutting')
end;
case random(10) of
1:
begin
pickupmouse;
writeln('pickedupmouse');
end;
2:
begin
hoverskill('woodcutting',false)
wait(2344+random(342))
writeln('check skill')
end;
4:
begin
wait(500);
writeln('waited')
end;
end;
end;
procedure gt;
begin
Makecompass('n')
FindSymbolIn(x,y,'tree',601,107,650,150)
wait(30+random(300))
smartclickmouse(x+8,y-8,true)
flag;
end;
procedure gb;
begin
Makecompass('n')
FindSymbolIn(x,y,'tree',606,27,640,64)
wait(30+random(300))
smartclickmouse(x+8,y+8,true)
flag;
end;
procedure bank;
begin
makecompass('n')
findsymbolin(x,y,'tree',597,33,636,87)
wait(20+random(300));
smartclickmouse(x+8,y-20,true);
wait(10000)
flag;
findsymbol(x,y,'bank')
smartclickmouse(x+3,y,true)
wait(500);
findsymbol(x,y,'bank')
smartclickmouse(x+3,y,true)
flag;
wait(1500);
R_OpenBankBooth('eb')
wait(50)
wait(3500);
R_MouseItem(random(1-28),'all')
closebank;
smartclickmouse(595,130,true)
findsymbol(x,y,'tree')
smartclickmouse(x+8,y+8,true)
flag;
end;
procedure ct;
begin
DeclarePlayers;
loginplayer;
setangle(true)
repeat
repeat
findobjcustom(x,y,['ew','Ye','Yew'],[729120,268304,866352],5)
smartmovemouse(x,y)
antiban;
until (isuptext('ew')) or invfull
smartclickmouse(x,y,true)
repeat
wait(500)
until (not(isuptext('ew'))) or invfull
if invfull then
bank;
if (not(isuptext('ew'))) or invfull then
gt;
repeat
wait(500);
findobjcustom(x,y,['ew','Ye','Yew'],[729120,268304,866352],5)
smartmovemouse(x,y)
until (isuptext('ew'))
repeat
findobjcustom(x,y,['ew','Ye','Yew'],[729120,268304,866352],5)
smartmovemouse(x,y);
antiban;
until (isuptext('ew')) or invfull
smartclickmouse(x,y,true)
repeat
wait(200);
until (not(isuptext('ew'))) or invfull
if invfull then
bank;
if (not(isuptext('ew'))) or invfull then
gb;
repeat
wait(200);
findobjcustom(x,y,['ew','Ye','Yew'],[729120,268304,866352],5)
smartmovemouse(x,y)
until (isuptext('ew'))
until invfull;
bank;
end;
begin
ClearDebug;
SetupSRL;
activateclient;
DeclarePlayers;
loginplayer;
repeat
ct;
until false;
end.
does that help?