SCAR Code:
program WillowCutter;
{.include Osi.txt}
{.include srl/srl.scar}
{.include srl/srl/skill/Woodcutting.scar}
//=*=*=*= Colors =*=*=*=\\
const
WillowLog1=2052699; //try to pick you own color of the logs if it dosen't drop the logs
WillowLog2=4089712; //The same as above
wc=('20');// what level you are
str=('5');// what level you are
att=('5');// what level you are
def=('5');// what level you are
howmanytocut= ;//how many you want
procedure DeclarePlayers;
Begin {dont touch this!}
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer := 0; // CeurrentPlayer = Array Index
{just touch this!}
Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //3 or 4 letters username
Players[0].Active := True;
Players[1].Name:='';
Players[1].Pass:='';
Players[1].Nick:='';
Players[1].Active := false;
Players[2].Name:='';
Players[2].Pass:='';
Players[2].Nick:='';
Players[2].Active :=false;
Players[3].Name:='';
Players[3].Pass:='';
Players[3].Nick:='';
Players[3].Active :=false;
Players[4].Name:='';
Players[4].Pass:='';
Players[4].Nick:='';
Players[4].Active :=false;
Players[5].Name:='';
Players[5].Pass:='';
Players[5].Nick:='';
Players[5].Active :=false;
end;
procedure login;
begin
loginplayer;
end;
procedure CutWillow;
begin
if
findcolor(x,y,923929,50,42,455,281)
or
findcolor(x,y,2308414,50,42,455,281)
then
wait(random(50)+500)
MoveMouseSmooth(x,y)
wait(random(100)+200)
clickmouse(x,y,false)
wait(random(200)+500)
if findcolor(x,y,16776960,40,70,427,275)
then movemousesmooth(x,y)
clickmouse(x,y,true)
wait(random(200)+2500)
howmanycut= howmanycut+1
end;
procedure hatetherandoms;
begin
FindNormalRandoms;
if (FindTalk) then
begin
Writeln('talking or found a talk');
randomfound:=randomfound+1
if (FindMime) then
begin
writeln('lucky you, a mime!');
randomfound:=randomfound+1
if (FindMaze) then
begin
writeln('found maze');
randomfound:=randomfound+1
if (SolveFrog) then
begin
writeln('solved frog');
randomfound:=randomfound+1
if (Findmod)then
begin
writeln('its the mod!,AHHH!');
typesend('Hey Mod ')
mods:=mods+1
if (solvepinball)then
begin
writeln('solved a pinball...');
randomfound:=randomfound+1
if (findforester) then
begin
writeln('found forester');
randomfound:=randomfound+1
if(findscaperune)then
begin
createscaperune;
writeln('found scape rune');
randomfound:=randomfound+1
end;
end;
end;
end;
end;
end;
end;
end;
end;
procedure proggy;
begin
Writeln('Working for ' + (timerunning));
Writeln('found,traded,declined and chatted ' + inttostr(traded));
Writeln('found passes, solved or did stuff to ' + inttostr(randomfound));
Writeln('Other stuff: mods found=' + inttostr (mods);
end;
procedure hello;
begin
if inchat('hello')or
inchat('hi')or
inchat('hey')or
inchat('yo')or
inchat(name)then
typesend('hey')
end;
procedure whatsup;
begin
if inchat('whats up')or
inchat('whats new')or
inchat('whats the 411')then
typesend('nothing')
end;
procedure friends;
begin
if inchat('friends')or
inchat('frends')or
inchat('buddys')or
inchat('add')or
inchat('add me')then
typesend('sorry,got lots of them')
end;
procedure talklvl;
begin
if inchat('str lvl')or
inchat('str level')or
inchat('stre lvl')or
inchat('strength lvl')or
inchat('strength level')then
typesend(str)
if inchat('att lvl')or
inchat('att level')or
inchat('atack lvl')or
inchat('atack level')or
inchat('attack lvl')or
inchat('attack level')then
typesend(att)
if inchat('def lvl')or
inchat('def level')or
inchat('defenc lvl')or
inchat('defence level')or
inchat('defenc level')or
inchat('defence level')then
typesend(def)
If inchat('wc level')or
inchat('woodcut lvl')or
inchat('cut level')or
inchat('Woodcutting level')or
inchat('wc ')then
typesend(wc)
end;
procedure hatenoobcallers;
begin
if inchat('noob')or
inchat('noobie')or
inchat('nub')or
inchat('choob')or
inchat('froobie')or
inchat('choobie')or
inchat('froob')or
inchat('nubie')then
typesend('so i dont care,i play it for a reason.')
end;
procedure nextplayer;
If(Not(LoggedIn)) then
loginplayer;
end;
procedure DropWillow;
begin
if findcolor(x,y,WillowLog1,574,214,730,458)
then movemousesmooth(x,y)
wait(random(100)+2000)
Dropcolor(WillowLog1);
dropcolor(WillowLog2);
wait(random(200)+1000)
end;
procedure chattersetter;
begin
setchat('on',1)
wait(430 + ((random)70)
setchat('on',2)
wait(430 + ((random)70)
setchat('on',3)
end;
begin
activateclient;
setupsrl;
cleardebug;
proggyintro;
login;
chattersetter;
srlrandomsreport;
repeat
hatenoobcallers;
wizardbam;
talklvl;
hatetherandoms;
whatsup;
chattersetter;
friends;
hello;
Findnormalrandoms;
until(cut = Howmanytocut)
if(cut = howmanytocut) then
begin
proggy;
logout;
TerminateScript;
end;
end.