This is my first script. It's quite basic stringer, it doesn't (atleast not yet) have antirandoms but it moves mouse and rightclicks randomely while stringing.
SCAR Code:
//This is my first script so it's quite basic but it works! -Simsaladin
//HOW TO USE: Have the bows(u) and the bowstrings in two first slots in your bank and Set Up line 16
program SimpleStringer;
{.include srl/srl/misc/Smart.scar}
{.include SRL/SRL.scar}
var
x, y, BowCount, Loads:integer;
const
Swordcolor = 10264383; //Used to check is bow combined with string
LoadsToDo = 50; //Declare how many loads you want to do
procedure bank;//Banks all in inv and takes 14 bows and bowstrings
begin
Writeln('banking...')
OpenBankQuiet('veb');//change the bank you are in://'feb' (Falador East Bank)
wait(700+random(200)); //'fwb' (Falador West Bank)
DepositAll; //'veb' (Varrock East Bank)
Withdraw(1,1,14); //'vwb' (Varrock West Bank)
Withdraw(2,1,14); //'db' (Draynor Bank)
CloseBank; //'eb' (Edgeville Bank)
Writeln('Banking done'); //'akb' (Al-Kharid Bank)
end;
procedure stringbow;//strings the bows
begin
repeat
Mouse(576, 229, 5, 5, true);
wait(700+random(200));
Mouse(705, 445, 5, 5, true);
wait(700+random(200));
until(findColorTolerance(x,y,Swordcolor,33, 370,39, 376 ,7));
wait(700+random(200));
Mouse(258, 421, 5, 5, false);
wait(600+random(150));
ChooseOption('All');
writeln('Stringing...');
SleepAndMoveMouse(6000+random(400));
RandomRClick;
SleepAndMoveMouse(11000+random(400));
Writeln('Stringing done');
Loads:= (Loads + 1);
BowCount:= (BowCount + 14);
end;
procedure ProgressReport;//Progress Report
begin
ClearDebug;
Writeln('/\/\/\/\/\ProgressReport/\/\/\/\/\/\/\/\');
Writeln('/\ /\');
Writeln('/\ Time Running | ' + TimeRunning);
Writeln('/\ Loads done | ' + IntToStr(Loads));
Writeln('/\ Bows Strung | ' + IntToStr(BowCount));
Writeln('/\ Exp earned | ' + IntToStr(BowCount * 75));
Writeln('/\ /\');
Writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\')
end;
begin//Mainloop
SetupSRL;
Smartsetupex(138, true, true, false);
Settargetdc(smartgetdc);
repeat
wait(100);
until(SmartGetColor(253, 233)<>1118604);
repeat
bank;
stringbow;
ProgressReport;
until(Loads = LoadsToDo);
end.