SCAR Code:
//By
//Redknight153
program AutoFletcher;
{.include SRL/SRL.scar}
var
a: Integer;
const
timestoloop = 25; //how many times the script will loop
Message1='27';
procedure OpenMyBank;
begin
Mouse(268,205, 3, 3, false); //opens bank options
Wait(500+random(250));
Mouse(270, 245, 3, 3, true); //opens bank quickly
Wait(1000+random(750));
end;
procedure ItemsIn;
begin
Mouse(622, 230, 3, 3, false); //opens (u) bow deposite options
Wait(500+random(250));
Mouse(600, 302, 3, 3, true); //banks all (u) bows
Wait(500+random(250));
end;
procedure ItemsOut;
begin
Mouse(142, 155, 3, 3, false); //opens withdrawl log options
Wait(500+random(250));
Mouse(139, 230, 3, 3, true); //takes out "All" logs
Wait(500+random(250));
end;
procedure CloseMyBank;
begin
Mouse(489, 44, 3, 3, true); //closes bank interface
Wait(500+random(250));
end;
procedure Fletch;
begin
Mouse(575, 227, 3, 3, true); //use knife...
Wait(500+random(250));
Mouse(622, 231, 3, 3, true); //...with log
Wait(500+random(250));
Mouse(263, 407, 3, 3, false); //fletching options
Wait(500+random(250));
Mouse(263, 478, 3, 3, true); //fletch "X"
Wait(500+random(250));
end;
procedure Fletch27;
begin
Wait(1000+random(100));
TypeSend(Message1); //types 27 for fletch "X" option
Wait(50000+random(2500));
end;
procedure AutoFletcher;
begin
repeat
OpenMyBank; //opens bank
ItemsIn; //deposites bows
ItemsOut; //withdrawls logs
CloseMyBank;//closes bank
Fletch; //starts to fletch
Fletch27; //types 27
inc(a); //increases the var "a"
until(a >= timestoloop);
end;
//Hope this really helps you out if you ever use it,
//I know i will ;D
//Only good unless you are at the computer or in an anti-random spot,
//maybe some day it will get anti-random??
begin
SetupSRL; //enables use of SRL
AutoFletcher; //Fletch away :P
end.