SCAR Code:
program RAM_RUNECabbagePicker;
{MADE IN USA by RAM_RUNE}
{start at draynor village bank logged out}
{Will pick a full load of Cabbages in the field}
{to the Northwest and bank them in Draynor village}
{.include SRL/SRL.scar}
{.include SRL\SRL\Extended\Obsolete.Scar}
var
cabbage,tripsdone,stile: Integer;
Const StartPlayer = 0;
amounttrips=2;
{---------------------------------declare your players-------------------------}
Procedure DeclarePlayers;
begin
HowManyPlayers:=3;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := StartPlayer;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='';
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Loc :='';
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Loc :='';
Players[2].Active:=True;
end;
procedure setup;
begin
setupsrl;
end;
procedure login1;
begin
if(not(LoggedIn)) then LoginPlayer;
end;
{--------------------------------cabbage and stile dtms------------------------}
procedure loaddtm;
begin
cabbage:= DTMFromString('78DA6334656460E0016220E00062106BF3B51' +
'4063928FB3F103022A98101901A06A81A306D026489A1AA496A53' +
'C254C38AAA26BDD916558D1D90C58BAAA664BE26AA1A5D4C35312' +
'566286A009F510E13');
stile:= DTMFromString('78DA639CC9C8C07007888180158841AC102F0' +
'B060128FB3F103082D43C84A88181841007300D13659C0A64DD44' +
'559319E386AA662E90751B554D80BB29AA9AE940D669543520F72' +
'0AB0100E1800FD5');
end;
{----------------------------antirandoms/antiban-------------------------------}
procedure antirandoms;
begin
Findnormalrandoms;
AntiBan;
RandomChatEvery( 3 );
LeaveScreenEvery( 1 );
end;
{-----------------------------findbank-----------------------------------------}
procedure findbank1;
begin
if (FindSymbol(x,y, 'bank')) then
Ftwait(2002 + random(6 * 6 / 2 + 5 - 2));
MMouse(x, y, 0, 0);
end;
{-------------------------------getting from bank to cabbage field-------------}
procedure BankToCabbageField;
begin
if ( not ( LoggedIn )) then Exit;
MakeCompass('N');
RadialRoadWalk(RoadColor, 50, 10, 70, -1, 0);
RadialRoadWalk(RoadColor, 60, 140, 70, -1, 0);
RadialRoadWalk(RoadColor, 320, 400, 60, -1, 0);
antirandoms;
end;
{------------------------------entering cabbage field via stile----------------}
procedure FindStile;
begin
if(finddtm(stile,x,y, 335, 235, 492, 242 )) then
Mouse(x,y,2,3,true);
Ftwait(200);
Mouse(x,y, 2,3,true);
antirandoms;
end;
{------------------------------picking cabages---------------------------------}
procedure PickCabbage;
begin
repeat
if(finddtm(cabbage,x,y, 335, 235, 492, 242 )) then
Mouse(x,y,2,3,true);
Ftwait(3000);
Mouse(x,y,2,3,true);
until(InvFull) Writeln('Inventory full, going to bank')
FindStile;
Ftwait(1000 +random(200));
antirandoms;
end;
{-------------------------------walking from cabbage field back to bank--------}
procedure CabbageFieldToBank;
begin
if ( not ( LoggedIn )) then Exit;
MakeCompass('N');
RadialRoadWalk(RoadColor, 50, 90, 70, -1, 0);
RadialRoadWalk(RoadColor, 60, 140, 70, -1, 0);
RadialRoadWalk(RoadColor, 22, 200, 30, -1, 0);
antirandoms;
end;
{---------------------------------banking cabbages-----------------------------}
procedure BankCabbage;
begin
OpenBank3;
DepositAll;
CloseBank;
antirandoms;
SetRun(true);
tripsdone:=tripsdone+1;
cabbage:=cabbage+28
end;
{-------------------------------progress report--------------------------------}
procedure progressreport;
begin
writeln('@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@');
writeln('@ RAM_RUNE CABBAGE PICKER PROGRESS REPORT @');
writeln('@ WORKED FOR '+intToStr(Players[CurrentPlayer].Worked)+' @');
writeln('@ MADE '+inttostr(tripsdone)+' TRIPS SO FAR @');
writeln('@ PICKED '+inttostr(cabbage)+ 'CABBAGES SO FAR @');
writeln('@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@');
SRLRandomsReport;
end;
{-------------------------------------set up and main loop---------------------}
Procedure SetUpScript;
begin
DeclarePlayers;
Reincarnate := True;
SymbolAccuracy := 0.6;
BenMouse := False;
MouseSpeed := 15;
LoginPlayer;
end;
begin
repeat
setup;
DeclarePlayers;
login1;
loaddtm;
antirandoms;
findbank1;
BankToCabbageField;
FindStile;
PickCabbage;
CabbageFieldToBank;
BankCabbage;
progressreport;
SetUpScript;
until
(tripsdone=amounttrips);
logout;
end.