///////////////////////////////////////////////////////////////////////////
///this will buy silk and bank them, improvements can be PMed to me on
///villavu.com/forums made by: ub3r l<1ll3r
///////////////////////////////////////////////////////////////////////////
///in al-kharid bank, go to the most northern bankbooth that is available
///put your money in first bank slot
///Put nothing in the last slot
///low quality
///put all chats to OFF
program silkbuyer;
{.Include SRL\SRL.scar}
{version info:
V1:very unstable[unreleased]
V1.9:a lot more stable with double clicking[unreleased]
V1.95: tested and being released
V2: more stable and with symbol to symbol
V3: fixed up a lot of walking, much more faster
V4:will now log off after 20 loads and has anti-randoms and will do this 6 times until the script will end (100 loads)
V5: now with a progress report}
var
N : string;
H, poop : Integer;
///////////////SETUP////////////////////////////
Const
bankcolors = 5232879;/// bank symbol color
silkcolors = 7936176;///silk color symbol
man = 8875380;/// color of the seller's pants
cabab = 9880041;///color of the cabab symbol near the bank
sword = 3674381;///the sword (go for the bluish color on the handle)
tree = 603198;///color of the tree surrounded by cacti (the brown part)(mini map)
pin = 5946;///put your pin here if neccesary, leave to 0 for no pin
User =''; ////////your username must go here//////////
Pass =''; ////////your password must go here//////////
loggg = True; /// are you logged in or not? True or False
////////Thats all folks!////////////////////////////
///////////////////////////////////////////////////////////////////////////////
//////////////////THE LINE/////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
procedure MoveSilk;
begin
WriteLn ('facing north and going to the silk buyer!');
wait(2000)
Face(N)
if(FindColorTolerance(x, y, cabab, 628, 19, 703, 53, 3))then
Mouse(x,y,1,1,True);
else
WriteLn('color(s) not found! restart script!');
if(FindTalk = True) then
TalkToRand;
wait(14000)
if(FindColorTolerance(x, y, sword, 678, 34, 719, 66, 3))then
Mouse(x,y,1,1,true);
else
WriteLn('color(s) not found! restart script!');
wait(13000)
if(FindColorTolerance(x, y, silkcolors, 597, 26, 709, 118, 8))then
Mouse(x,y,1,1,True);
else
WriteLn('color(s) not found! restart script!');
if(FindTalk = True) then
TalkToRand;
wait(13000)
end;
procedure Buy;
begin
poop:=0
repeat
if (findcolortolerance(x,y,man,4,4,514,336,8)) then
Mouse(x,y,0,0,True);
Mouse(x,y,0,0,True);
if (FindTalk = True) then
TalkToRand;
Wait(3000);
MMouse(224,444,1,0);
Wait(800);
Mouse(224,444,1,0,True);
Mouse(224,444,1,0,True);
Wait(1000);
MMouse(270,395,1,0);
Wait(800);
Mouse(270,395,1,0,True);
Mouse(270,395,1,0,True);
Wait(1000)
MMouse(203,448,1,0)
wait(800)
Mouse(203,448,1,0,True)
Mouse(203,448,1,0,True)
wait(1000)
MMouse(280,446,1,0)
Mouse(280,446,1,0,True)
Mouse(280,446,1,0,True)
wait(2000)
MMouse(238,432,1,0)
Mouse(238,432,1,0,True)
Mouse(238,432,1,0,True)
wait(1000)
MMouse(217,445,1,0)
Mouse(217,445,1,0,True)
wait(1000)
MMouse(290,447,1,0)
Mouse(290,447,1,0,True)
Mouse(290,447,1,0,True)
poop:=poop+1
writeln('we have '+IntToStr(poop)+' silk(s) for this load!')
TalkToRand;
wait(2000)
Until(FindColorTolerance(x, y, 8625060, 703, 434, 724, 454, 8))
end;
procedure GoBack;
begin
Face(N)
wait(1000)
if(FindColorTolerance(x, y, tree, 596, 90, 656, 129, 3))then
Mouse(x,y,1,1,True)
TalkToRand;
wait(6000)
if(FindColorTolerance(x, y, sword, 610, 80, 654, 104, 3))then
Mouse(x,y,1,1,True)
TalkToRand;
wait(7000)
if(FindColorTolerance(x, y, tree, 615, 118, 662, 139, 3))then
Mouse(x,y,1,1,True)
TalkToRand;
wait(13000)
if(FindColorTolerance(x,y,cabab,594,84,649,106,3))then
Mouse(x,y,1,1,True)
TalkToRand;
wait(8000)
if(FindColorTolerance(x, y, bankcolors, 604, 113, 644, 160, 8)) then
Mouse(x,y,1,1,True)
TalkToRand;
wait(14000)
OpenBank2(pin);
wait(3000)
Deposit(5,6,2)
wait(5000)
end;
procedure Login;
begin
WriteLn('logging in...');
Mouse(450, 286, 1, 1, True);
Wait(2000);
SendKeys(User);
SendKeys(chr(13));
SendKeys(Pass);
Wait(1000);
Mouse(298, 323, 1, 1, True);
Wait(5000);
Mouse(495, 341, 1, 1, True);
end;
begin
SetupSRL;
if(Loggg = false)then
Login;
repeat
repeat
MoveSilk;
Buy;
GoBack;
H:=H+1
until(H>=20)
Login;
until(false)
end.
its hard to explain i revised it a little?
Edit: shit i didnt do the constants… ah just put a space before the so its like
const
var = true
var = true
/////////the lines or w/e/////////////