SCAR Code:
program Buyoakvorrock;
{.include SRL/SRL.scar}
//TRENCH COAT\\
//Living by Natural Selection\\
// starts at east vorrock bank walks to general shop buys logs walks back to bank
{----------Const---------}
Const
Shopkeeper1 = 3048062; //color of Shop keeper
Shopkeeper2 = 4219692; //color of Shop keeper
Shopkeeper3 = 9145494; //color of Shop keeper
Shopassistant1 = 666; //color Shop assistant
Shopassistant2 = 666; //color Shop assistant
Shopassistant3 = 666; //color Shop assistant
Mspeed = 20; // Mouse speed
Log= 4551315; // color of logs you want to buy oak willow e.x.t
Shopkeepname= 'Shop keeper';
Shopassistant= 'Shop assistant';
Var
rvbbitm,mittlebitm,Xmod,Ymod: Integer;
{============START============}
{MAP Bitmaps}
procedure LoadBmps;
Begin
rvbbitm := BitmapFromString(17, 17, 'z78DA33301812C09008111' +
'2809BA9ABAB9B31161219E050438CF9AE6040BBE018357FF0D842' +
'7CAA18B565D496515B68610B0083584EEE');
mittlebitm := BitmapFromString(31, 23, 'z78DA33301805A360E0' +
'811B116070BA9616EA07D6B5C4C711ADDD3C14CD1F8A2EA74FCA1' +
'CBA2EA7AE5DF42F0DA8EBF2812AC186969B475D3EEAF291E072CA' +
'4BB3A158AA0C94CBA9DB961B5AA13DEAF25100010055683B92');
end;
//====Walk to Shop====//
procedure click1;
begin
if(FindBitMapIn(rvbbitm, x, y, 5, 5, 755, 25))then
begin
MoveMouse(x+random(10),y+random(20))
Wait(700+random(230));
end;
end;
Procedure arrow;
Begin
If(FindSymbol ( x, y, 'arrow' ) ) Then
Begin
Repeat
Wait ( 500 + random ( 150 ) );
Until ( FindSymbol ( x, y, 'arrow' ) )
Mouse ( x, y, 5, 5, true )
FFlag ( 0 );
end;
end;
procedure click2;
begin
if(FindBitMapIn(mittlebitm, x, y, 5, 5, 755, 25))then
begin
MoveMouse(x+random(10),y+random(20))
Wait(500+random(230));
end;
end;
Procedure WalkToShop;
Begin
If(FindSymbol ( x, y, 'shop' ) ) Then
Begin
Repeat
Wait ( 200 + random ( 100 ) );
Until ( FindSymbol ( x, y, 'Shop' ) )
Mouse ( x, y, 5, 5, true )
FFlag ( 0 );
end;
end;
//Trade with shop keeper//
Procedure Tradeshop;
Begin
MouseSpeed:= Mspeed;
If(FindColorSpiralTolerance(x,y,Shopkeeper1,MSX1,MSY1,MSX2,MSY2,15)) Or
(FindColorSpiralTolerance(x,y,Shopkeeper2,MSX1,MSY1,MSX2,MSY2,10)) Or
(FindColorSpiralTolerance(x,y,Shopkeeper3,MSX1,MSY1,MSX2,MSY2,15)) Or
(FindColorSpiralTolerance(x,y,Shopassistant1,MSX1,MSY1,MSX2,MSY2,10)) Or
(FindColorSpiralTolerance(x,y,Shopassistant2,MSX1,MSY1,MSX2,MSY2,15)) Or
(FindColorSpiralTolerance(x,y,Shopassistant3,MSX1,MSY1,MSX2,MSY2,10)) Then
If IsupTextMulti('Talk','xam','alk-to') Then
Begin
Mouse(X, Y, 0, 0, False);
ChooseOption(X, Y, 'Trade');
end;
end;
//to buy logs //
// Walk back//
Procedure walkback1;
begin
RadialWalk( 6579563 , 93, 453, 40, Xmod, Ymod);
RadialRoadWalk(6579563, 93, 453, 40, Xmod, Ymod);
Wait ( 500 + random ( 350 ) );
end;
Procedure walkback2;
begin
RadialWalk( 6579563 , 99, 459, 58, Xmod, Ymod);
RadialRoadWalk(6579563, 99, 459, 58, Xmod, Ymod);
Wait ( 600 + random ( 150 ) );
end;
Procedure walkbank;
Begin
If(FindSymbol ( x, y, 'bank' ) ) Then
Begin
Repeat
Wait ( 400 + random ( 300 ) );
Until ( FindSymbol ( x, y, 'bank' ) )
Mouse ( x, y, 5, 5, true )
FFlag ( 0 );
OpenBank;
end;
end;
Procedure loop;
begin
LoadBmps;
click1;
arrow;
WalkToShop;
Tradeshop;
walkback1;
walkback2;
walkbank;
end;
begin
loop;
end.