SCAR Code:
program PacStringer;
{.Include srl/srl.scar}
//Make sure the bows and strings are in the first two bank spots
//It doesn't matter which one is in which, as long as they are
//in the first and second bank slots
//This was all made by me, except for the random finder from
//Buckley'sInDaHouse Fletcher. This does work with the new
//fletching system.
//And make sure that your bank pin, if you have one, has already
//been put in...
begin
Writeln('Happy Fletching: From The_Pac_Man')
end.
procedure UseBank;
begin
MakeCompass('N')
if FindObj(x, y,'Banker', 7445450, 5, False);
wait(100);
then
ChooseOption(x,y,'Bank');
wait(1200+Random(50));
Mouse(94, 127, 2, 2, False);
wait(150+Random(30));
ChooseOption(x,y,'Withdraw All');
wait(150+Random(40));
Mouse(627, 266, 2, 2, False);
wait(200+Random(20));
ChooseOption(x,y,'Deposit All');
wait(175+Random(20));
Mouse(144, 125, 2, 2, False);
wait(200);
ChooseOption(x,y,'Withdraw All');
Mouse(485, 88, 2, 2, True);
end;
procedure Stringbows;
begin
Mouse(628, 386, 2, 2, True)
Wait(Random(50))
Mouse(670, 385, 2, 2, True)
Wait(Random(65))
Mouse(255, 461, 2, 2, False)
ChooseOption(x,y,'Make All')
wait(15550+Random(35))
end;
begin
repeat
UseBank;
Stringbows;
Until(False)
end.[SCAR]
[/SCAR]