SCAR Code:
program dumpsterdigger;
{.include SRL/SRL.scar}
{.include SRL/SRL/Extended/xantiban.scar}
//<><><><><><><><><><><><><><><> INSTRUCTIONS <><><><><><><><><><><><><>//
//1)Start in lumby general store with all your noobs. Have map facing north.
//2)Set box color.
//3)set shopkeeper's shoulder color.
//4)Select RS window
//5)start
//:::::::::::::::::::::::::::::: INFO :::::::::::::::::::::::::::::::://
//This was just an Idea I had for making some chum change for a noob. //
//report bugs on villu-reborn forums please. //
//Has antirandoms and SRL included! //
//SRL template <--credit to SRL. //
//************************ Set These Constants **************************//
const StartPlayer = 0; // Determines who will play first
const color1 = 3754080; //box color
const color2 = 3162200; // another box color
const color3 = 2239544; //yet, another box color
const storekeeper = 3367827; //storekeeper apron color
//************************************************************************//
const VersionNumber = '2'; // Compliant with Rev 568+
//************************************************************************//
var
boots : integer;
gloves : integer;
pot : integer;
Procedure DeclarePlayers;
begin
HowManyPlayers :=6; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=StartPlayer; // CurrentPlayer = Array Index
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='Loc1';
Players[0].Skill:='1';
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Loc :='Loc1';
Players[1].Skill:='1';
Players[1].Active:=true;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Loc :='Loc1';
Players[2].Skill:='1';
Players[2].Active:=true;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Loc :='Loc1';
Players[3].Skill:='1';
Players[3].Active:=true;
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Loc :='Loc1';
Players[4].Skill:='';
Players[4].Active:=false;
Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Loc :='Loc1';
Players[5].Skill:='';
Players[5].Active:=false;
writeln(inttostr(HowManyPlayers)+' Players');
end;
//<><><><><><><> end of SRL template, beginning of my script <><><><><><><><><//
procedure boxclick;
begin
findnormalrandoms;
if( findobjmulti('Sea',color1,color2,color3,10)) then
mouse(x,y,3,3,true)
wait(200+random(100))
end;
procedure loadBMPmasks;
begin boots := BitmapFromString(10, 10, 'z78DA33302016B881810' +
'189C00D09D04717A9AEA55C17317AF1FB88BCB0A55C2FA6DBA865' +
'1A0028037A4D');
gloves := BitmapFromString(7, 7, 'z78DA3330400037303020' +
'02E057892C8B8B8D5F3DF1E6936A027EBDB8D40300CEAD3EDD');
pot := BitmapFromString(15, 15, 'z78DA3330201FB8818101C' +
'D00EDCC1F8A268FBA7CD4E451930783C9986602008EB904EC');
end;
procedure shopkeepertrade;
begin
if(invfull)then
begin
if(FindObject(x,y,'Talk',storekeeper,8,true)) then
mouse(x,y,2,2,false)
ChooseOption(x,y,'Trade')
wait(2000)
end;
end;
procedure selljunk;
begin
if(invfull) then
begin
FindBitmapMaskTolerance(gloves,x,y,558,208,735,453,7,7)
mouse(x,y,1,1,false)
chooseoption(x,y,'10')
begin
FindBitmapMaskTolerance(pot,x,y,558,208,735,453,7,7)
mouse(x,y,1,1,false)
chooseoption(x,y,'10')
begin
FindBitmapMaskTolerance(boots,x,y,558,208,735,453,7,7)
mouse(x,y,1,1,false)
chooseoption(x,y,'10')
end;
end;
end;
end;
begin
setupsrl;
declareplayers;
CurrentPlayer := StartPlayer;
LoginPlayer;
repeat
boxclick;
shopkeepertrade;
loadBMPmasks;
selljunk;
until(false)
end.