//Made byt Jraz
// Ok this is a fairly simple script so to work it all you have to do is have 14 unstrung bows on you and 14 bowstrings.
// be near a bank i use seers and make sure you have ur string and unstrung bows in slot 1 and 2 of bank. The script will
// open your bank automatically and deposite the bows after stringing them. Then it will withdraw them and start the cycle
// all over again. :) happy bow making.

program New;
var x,y,bank: Integer;

procedure LoadBmps;
begin
  //test := BitmapFromString(3, 4,
       //'8E898B8E898B928D8E8E898B8E898B918C8E8E898AACA8AA908B8C' +
       //'908B8C908B8C908B8C');
  bank := BitmapFromString(1, 1,
       '896C2F');
end;

begin
LoadBmps;
repeat
//FindColor(x,y, 11447471, 227,164, 292, 94)

wait(1500)
MoveMouseSmooth(720,446)
sleep(500)
ClickMouse(720,446,true)
wait(1500)
MoveMouseSmooth(626,331)
sleep(500)
ClickMouse(626,331,true)
sleep(500)
MoveMouseSmooth(720,446)
sleep(500)
ClickMouse(720,446,true)
wait(700)
MoveMouseSmooth(626,331)
sleep(500)
ClickMouse(626,331,true)
sleep(500)
MoveMouseSmooth(720,446)
sleep(500)
ClickMouse(720,446,true)
wait(700)
MoveMouseSmooth(626,331)
sleep(500)
ClickMouse(626,331,true)
sleep(500)
MoveMouseSmooth(720,446)
sleep(500)
ClickMouse(720,446,true)
wait(700)
MoveMouseSmooth(626,331)
sleep(500)
ClickMouse(626,331,true)
sleep(500)
MoveMouseSmooth(720,446)
sleep(500)
ClickMouse(720,446,true)
wait(700)
MoveMouseSmooth(626,331)
sleep(500)
ClickMouse(626,331,true)
sleep(500)
MoveMouseSmooth(720,446)
sleep(500)
ClickMouse(720,446,true)
wait(700)
MoveMouseSmooth(626,331)
sleep(500)
ClickMouse(626,331,true)
sleep(500)
MoveMouseSmooth(720,446)
sleep(500)
ClickMouse(720,446,true)
wait(700)
MoveMouseSmooth(626,331)
sleep(500)
ClickMouse(626,331,true)
sleep(500)
MoveMouseSmooth(720,446)
sleep(500)
ClickMouse(720,446,true)
wait(700)
MoveMouseSmooth(626,331)
sleep(500)
ClickMouse(626,331,true)
sleep(500)
MoveMouseSmooth(720,446)
sleep(500)
ClickMouse(720,446,true)
wait(700)
MoveMouseSmooth(626,331)
sleep(500)
ClickMouse(626,331,true)
sleep(500)
MoveMouseSmooth(720,446)
sleep(500)
ClickMouse(720,446,true)
wait(700)
MoveMouseSmooth(626,331)
sleep(500)
ClickMouse(626,331,true)
sleep(500)
MoveMouseSmooth(720,446)
sleep(500)
ClickMouse(720,446,true)
wait(700)
MoveMouseSmooth(626,331)
sleep(500)
ClickMouse(626,331,true)
sleep(500)
MoveMouseSmooth(720,446)
sleep(500)
ClickMouse(720,446,true)
wait(700)
MoveMouseSmooth(626,331)
sleep(500)
ClickMouse(626,331,true)
sleep(500)
MoveMouseSmooth(720,446)
sleep(500)
ClickMouse(720,446,true)
wait(700)
MoveMouseSmooth(626,331)
sleep(500)
ClickMouse(626,331,true)
sleep(500)
MoveMouseSmooth(720,446)
sleep(500)
ClickMouse(720,446,true)
wait(700)
MoveMouseSmooth(626,331)
sleep(500)
ClickMouse(626,331,true)

//open up bank :)

sleep(500)
FindBitmap(bank,x,y)
findcolorspiral(x,y,8749960,128,5,365,145)
MoveMouseSmooth(x,y)
sleep(500)
ClickMouse(x,y,true)
sleep(1500)
MoveMouseSmooth(341,444)
sleep(500)
ClickMouse(341,444,true)
sleep(1500)
MoveMouseSmooth(281,394)
sleep(500)
ClickMouse(281,394,true)
sleep(1500)

//now at bank screen

//deposite the bows

MoveMouseSmooth(584,225)
sleep(500)
ClickMouse(584,225,false)
sleep(1500)

MoveMouseSmooth(599,298)
sleep(500)
ClickMouse(599,298,true)
sleep(1500)

//deposited bows

//get out 14 bows
MoveMouseSmooth(99,77)
sleep(500)
clickmouse(99,77,false)
sleep(1500)
clickmouse(75,163,true)
sleep(1500)
sendkeys('14')
sendkeys(Chr(13));
sleep(1500)

//get 14 bow strings out
MoveMouseSmooth(142,78)
sleep(500)
ClickMouse(142,78,false)
sleep(1500)
MoveMouseSmooth(131,148)
sleep(500)
ClickMouse(131,148,true)
sleep(1500)

//close your bank
MoveMouseSmooth(470,42)
sleep(700)
ClickMouse(470,42,true)
until false
end.