SRL Archive - First Scripts

Hope You like it i havent recently made any scripts so tell me if this is for the new or old version Need good review:cartman: http://rapidshare.com/files/62437206/Fletcher.scar.html <<< Ignore That Scroll Down i copyed n pasted

file?

xxyashagothkidxx,, please make the file a attachment. ;)

edit –>> go advanced –>> scroll down. –>> click on ''Mange Attachment'' ;)

what???? i just saved then downloaded it to rapidshare what else?

my bad let me just copy n paste it



{.Script Info:
# ScriptName = YashaFLECHER
# Author = Xxyashagothkidxx
# Description = logs 2 bows
# Version = 2.1
# Date = 10/9/2007
# Comments = IT hope it works i used old one to make it
/Script Info}
{simple script to cut your logs into bows.

—-


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 xxyashagothkidxx

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.

BTW: How wud som1 use it if they have a bank pin (Lyk if i wanted to use it for my main)?

Also, what about the moly random or the maze? I doubt the maze can be solved using an auto so shudnt u have a log out if for example the floor colour is different? (Credit for that idea is NOT mine, read it sumwhere….)