SCAR Code:
program LumbridgeYewCutter;
{.Include SRL/SRL.Scar}
{.include srl\srl\skill\WoodCutting.scar}
const
YewColorSymbol= 379178;
YewColor= 4355472;
BankSymbolColor= 5365754;
ExclamationPointcolor= 2765055;
var
xs,ys: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 17;
NumberOfPlayers(HowManyPlayers);
CurrentPLayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := True;
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := True;
Players[4].Name := '';
Players[4].Pass := '';
Players[4].Nick := '';
Players[4].Active := True;
Players[5].Name := '';
Players[5].Pass := '';
Players[5].Nick := '';;
Players[5].Active := True;
Players[6].Name := '';
Players[6].Pass := '';
Players[6].Nick := '';
Players[6].Active := True;
Players[7].Name := '';
Players[7].Pass := '';
Players[7].Nick := '';
Players[7].Active := True;
Players[8].Name := '';
Players[8].Pass := '';
Players[8].Nick := '';
Players[8].Active := True;
Players[9].Name := '';
Players[9].Pass := '';
Players[9].Nick := '';
Players[9].Active := True;
Players[10].Name := '';
Players[10].Pass := '';
Players[10].Nick := '';
Players[10].Active := True;
Players[12].Name := '';
Players[12].Pass := '';
Players[12].Nick := '';
Players[12].Active := True;
Players[13].Name := '';
Players[13].Pass := '';
Players[13].Nick := '';
Players[13].Active := True;
Players[14].Name := '';
Players[14].Pass := '';
Players[14].Nick := '';
Players[14].Active := True;
Players[15].Name := '';
Players[15].Pass := '';
Players[15].Nick := '';
Players[15].Active := True;
Players[16].Name := '';
Players[16].Pass := '';
Players[16].Nick := '';
Players[16].Active := True;
end;
Procedure StartScript;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
end;
procedure GoToYew;
begin
MoveMouse(700,73);
Wait(100);
ClickMouse(700,73,true);
if(FindColorSpiral(xs,ys,ExclamationPointColor,1,1 ,696,101))then
begin
Movemouse(696,101);
Wait(100);
ClickMouse(696,101,true);
MoveMouse(704,58);
Wait(100);
ClickMouse(704,58,true);
if(FindColorSpiral(x,y,YewColorSymbol,1,1,837,28))then //invalid parameters
begin
MoveMouse(837,280);
Wait(100);
ClickMouse(837,280,true);
end;
end; //needed anoter end.
end; //and another one...
procedure CutYew;
begin
if(FindColorSpiral(xs,ys,Yewcolor,1,1,337,128))then
begin
MoveMouse(337,128)
Wait(100)
ClickMouse(337,128,true)
end; //another one...
end;
procedure GoToBank;
begin
MoveMouse(703,299)//syntax...
Wait(100)
ClickMouse(703,299,true)
if(FindColorSpiral(xs,ys,ExclamationPointColor,1,1 ,712,324))then //another syntax
begin
MoveMouse(712,324)
Wait(100)
ClickMouse(712,324,true)
MoveMouse(719,259)
Wait(100)
ClickMouse(719,259,true)
if(FindColorSpiral(xs,ys,BankSymbolColor,1,1,727,313))then
begin
MoveMouse(727,313)
Wait(100)
ClickMouse(727,313,true)
end;
end;
end;
procedure BankYew;
begin
openbank;
deposit(1,2,0)
deposit(1,3,0)
end;
begin
SetupSRL;
repeat
GoToYew;
CutYew;
GoToBank;
BankYew;
until(false)
end.