{|             Fletch0r v1           |]
[|              by helix             |]
[| Have all logs in 1st bank slot    |]
[| Strings in 2nd, bows in 3rd       |]
[| Knife in 1st inv. slot if cutting |]
[| SS low detail, or RS2 low detail  |]
[| Enjoy :)                          |}


program fletch0r;
{.include RSCI.txt}
const
bamount = 900; // Amount of bows to fletch, 0 for none
samount = 900; // Amount of bows to string, 0 for none
bowtype = 2; // 1 for shorts, 2 for longs
randomphrase = 0; // Randomdly Talk

{| COLORS |}
bankcolor = 9412259; // Upper right corner of the bank window (the white line)
knife = 7369081; // Knife color
var x,y,bnumber,snumber:integer;

procedure helixopenbank;
var trys:integer;
begin
if not (findcolorspiral(x,y,2070783,182,34,242,47))then
if(findcolorspiral(x,y,bankcolor,262,102,293,131)) or (findcolorspiral(x,y,bankcolor,205,108,329,123)) or (findcolorspiral(x,y,bankcolor,125,110,363,124)) then
begin
mouse(x,y,0,0,false)
wait(150+random(100))
mouse(x-2,y+40,0,0,true)
trys:=0
repeat
wait(100+random(100))
trys:=trys+1
until (findcolorspiral(x,y,2070783,182,34,242,47)) or (trys>=50)
wait(300+random(100))
end
else
terminatescript;
end;

procedure helixwithdraw(col,row,amount:integer);
var ax,ay,bx,by:Integer;
begin
bx:=42;
by:=37;
ax:=bx+(col*49);
ay:=by+(row*39);
if (amount = 0) then
begin
Mouse(ax+random(3),ay+random(3),3,3,false);
Wait(800+random(100));
Mouse(ax-23+random(3),ay+71+random(3),3,3,true);
Wait(1000+random(100));
end
else
begin
Mouse(ax+random(3),ay+random(3),3,3,false);
wait(450);
Mouse(ax+12+random(3),ay+91+random(3),3,3,true);
wait(250+random(250))
repeat
Wait(100+random(100));
until(GetColor(213,393)=0)
wait(200+random(200));
SendKeys(inttostr(amount))
wait(500+random(100))
SendKeys(chr(13));
Wait(1000+random(100));
end;
end;

procedure randomspeak;
var b:integer;
begin
if (randomphrase = 1) then
begin
b:=random(500)
if (b = 200) then
TypeSend('this is fun' + chr(13))
if (b = 42) then
TypeSend('omg almost there' + chr(13))
if (b = 72) then
TypeSend('this can get boring' + chr(13))
if (b = 97) then
TypeSend('fun fun fun' + chr(13))
if (b = 364) then
TypeSend('my fletching will be so high' + chr(13))
end;
end;

function CheckLeveled1:Boolean;
var
  x, y: Integer;
begin
  if(FindColor(x,y,16711680,114,358,494,454))or
  (FindColor(x,y,16777215,114,358,494,454))then
  begin
    result:=true;
    Mouse(x,y,0,0,true);
    Wait(500);
    if(FindColor(x,y,16711680,114,358,494,454))or
    (FindColor(x,y,16777215,114,358,494,454))then
    begin
      Mouse(x,y,0,0,true);
      Wait(300);
    end;
  wait(1000+random(250));
  end;
end;

procedure cut;
begin
mouse(585+random(4),228+random(4),0,0,true);
wait(500+random(250));
mouse(712+random(4),445+random(4),0,0,true);
wait(500+random(250));
if(bowtype = 1) then
begin
wait(500+random(250));
mouse(138+random(8),438+random(8),0,0,false);
wait(500+random(250));
mouse(123+random(2),428+random(2),0,0,true);
wait(500+random(250));
end
else
begin
wait(500+random(250));
mouse(378+random(8),431+random(8),0,0,false);
wait(500+random(250));
mouse(369+random(2),427+random(2),0,0,true);
wait(500+random(250));
end;
wait(250+random(250))
TypeSend('27' + chr(13))
wait(250+random(250))
repeat
checkleveled1;
if (checkleveled1 = true) then
cut;
randomspeak;
wait(1500+random(250));
until(findcolorspiral(x,y,4345174,701,444,709,451))
end;

procedure helixclose;
begin
wait(300+random(50))
mouse(440+random(10),41+random(3),0,0,true)
wait(300+random(50))
end;

procedure bank;
begin
helixopenbank;
wait(100+random(100));
mouse(629+random(5),228+random(5),0,0,false);
wait(100+random(100));
mouse(604+random(3),298+random(3),0,0,true);
wait(100+random(100));
helixwithdraw(1,1,0);
helixclose;
end;

procedure endbank;
begin
helixopenbank;
wait(100+random(100));
mouse(629+random(5),228+random(5),0,0,false);
wait(100+random(100));
mouse(604+random(3),298+random(3),0,0,true);
wait(100+random(100));
end;

procedure findknife;
begin
if(findcolorspiral(x,y,knife,566,213,600,245))then
wait(100+random(250))
mouse(585+random(4),228+random(4),0,0,true);
wait(100+random(250))
end;

procedure sbank;
begin
helixopenbank;
wait(100+random(100));
mouse(629+random(5),228+random(5),0,0,false);
wait(100+random(100));
mouse(604+random(3),298+random(3),0,0,true);
wait(100+random(100));
end;

procedure fletch;
begin
if(bamount <> 0)then
begin
bnumber:=0
helixopenbank;
helixwithdraw(1,1,0);
helixclose;
repeat
cut;
bank;
bnumber:=bnumber+27
until(bnumber>=bamount)
endbank;
end;
end;

procedure strang;
begin
wait(250+random(250))
MMouse(585,226,1,1);
wait(250+random(250));
HoldMouse(585,226,true);
wait(250+random(250));
MMouse(665,445,1,1);
wait(500+random(250));
ReleaseMouse(665,445,true);
repeat
mouse(671+random(5),443+random(5),1,1,true);
mouse(711+random(5),446+random(5),1,1,true);
until(Invcount = 14);
end;

procedure str1ng;
begin
if(samount <> 0)then
begin
snumber:=0
helixopenbank;
findknife;
repeat
helixwithdraw(2,1,14);
helixwithdraw(3,1,0);
helixclose;
strang;
sbank;
snumber:=snumber+14
until(snumber>=samount)
end;
end;

procedure ending;
begin
writeln('.__           .__  .__        ');
writeln('|  |__   ____ |  | |__|__  ___');
writeln('|  |  \_/ __ \|  | |  \  \/  /');
writeln('|      \  ___/|  |_|  |>    < ');
writeln('|___|  /\___  >____/__/__/\_ \');
writeln('     \/     \/              \/');
end;

begin
chatsoff;
fletch;
str1ng;
ending;
helixclose;
logout;
end.