{.Script Info:
# ScriptName  = PROPERFLECHER
# Author      = PROPERHACKER
# Description = logs 2 bows
# Version     = 2.1
# Date        = 10/9/2006
# Comments    = IT WORKS!!
/Script Info}
{simple script to cut your logs into bows.

 ----

Visit my website for updates

 http://properhacker.googlepages.com/

Post here http://forum.scar-scripts.com/showthread.php?t=354 if doesnt work!!

 to keep from using an ugly hack, i simply assume you won't be
 macroing the creation of normal short long or stocks
 ----
 knife in first inventory slot,
 logs in first bank slot.
 face north or south in the seers bank(with current settings)
 only problem it allways picks what ever item is in the top left bank box even if it isnt your logs
 and it changes position everytime you flech
 it does push close on the bank booth!!
 ----
 written by PROPERHACKER
 
 CHANGE LOG
 
 1-realeased
 2-Fixed most bugs
 2.1-faster bank booth closing
}
program pdFletcher;
{.include Si.scar}

const     BowType = 1;                 // 0 = short, 1 = long, 2 = stock
          TotalLogs = 280;
          LogOutWhenDone = true;

const     siUsername = '';
          siPassword = '';
          siLoggedIn = 120;            // mins to run before sleeping
          siLoggedOut = 60;            // mins to sleep before restarting
          siRunDirection = 'S';        // I use seer's
          siLampSkill = 'Fletching';   // skill to use lamp on
          siTakeScreens = true;        // do you want screens of randoms?

var       TotalDone, MakeX, count : integer;

procedure LoadBmps;
begin;
  MakeX := BitmapFromString(42, 3, 'z78DA33753135313137'      +
         '05936E48C0000C4C91648957430C492D73A865A31B06C02F3B' +
         'B4FC8E692F7EDFE10743DDEF00D948ACB1');
end;

procedure HandleRandoms;
begin
  CheckRandoms(1, siLampSkill, siRunDirection, false, siTakeScreens, [rtText, rtBox, rtLamp, rtPlant, rtLeveled]);
end;

procedure closebank;
begin
  if(BankScreen)then
  wait(200+random(200));
  mouse(486,42,2,2,true)
end;

procedure WithdrawLogs;
begin
  if(not(BankScreen))then
  OpenBank;
  wait(200+random(200));
  Mouse(476,77,2,2,true);
  wait(200+random(200));
  Withdraw(1, 1, 0);
  wait(200+random(200));
  closebank;
end;

procedure DepositBows;
begin
  OpenBank;
  wait(600+random(400));
  Deposit(1, 2, 0);
  wait(400+random(600));
end;

procedure CutBows;
var x, y: integer;
begin
  UseItem(1);
  UseItem(2);
  wait(900+random(300));

  // no error checking. let's hope you got it right.
  case BowType of
    0:   ClickTextCoords('Make X', 105, 403, 3, 3);
    1:   ClickTextCoords('Make X', 251, 407, 3, 3);
    2:   ClickTextCoords('Make X', 416, 401, 3, 3);
  end;

  wait(500+random(1500));
  SendText('55'+chr(13));     // 5 has a raised bump on the numpad.
  wait(500+random(500));
  HandleRandoms;
  SleepAndMoveMouse(12000+random(2000));
  HandleRandoms;
  SleepAndMoveMouse(12000+random(2000));
  HandleRandoms;
  SleepAndMoveMouse(12000+random(2000));
  HandleRandoms;
  SleepAndMoveMouse(12000+random(2000));
  HandleRandoms;
  TotalDone := TotalDone + 27;
end;

procedure ScriptInit;
begin
  LoadInclude('', false);
  LoadBmps;
  SetAccount(1, siUsername, siPassword);
  ChatsOff;

  TotalDone := 0;
end;

begin
  ScriptInit;

  repeat
  begin
    AntiBan(siLoggedIn, siLoggedOut, 1);
    WithdrawLogs;
    HandleRandoms;
    CutBows;
    HandleRandoms;
    DepositBows;
  end;
  until(TotalDone >= TotalLogs);
  CloseWindow;

  if(LogOutWhenDone)then
    LogOut;
end.