PDA

View Full Version : Properflecher



properhacker
09-19-2006, 10:05 PM
PROPERFLECHER


I HAVE NOT HAD ONE PERSON THAT SAYS THIS DOESNT WORK


This gets logs from bank and puts them back as unstrung bows

DOWNLOAD NOW! (http://dakotastorm.sslpowered.com/villu-reborn.com/attachment.php?attachmentid=945&d=1158703881)


PROPERWEB (http://properhacker.googlepages.com/)

Pyro
09-19-2006, 10:20 PM
I thought i remembered those comments somewhere in a fletcher that ive used before. And my asumption was correct after reading the program name. This is pds fletcer from way back. Maybe you updated iunno fully but no credit given? And just for the fact it still uses Si although a reat include. Hasnt been updated in yonks

12751
09-19-2006, 10:28 PM
This is a relatively old script written by philodespotos, dont try claim it for your own.

Leecher pl0x?

At least you updated the close window procedure...

Here's the original for everyone else's benefit.

{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 bows, ie you will only use
normal logs for arrow shafts. get over it.
----
knife in first inventory slot,
logs in first bank slot.
----
written by philodespotos
}
program pdFletcher;
{.include Si.scar}

const BowType = 2; // 0 = shafts, 1 = short, 2 = long
TotalLogs = 1;
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' +
'05936E48C0000C4C91648957430C492D73A865A31B06C02F3 B' +
'B4FC8E692F7EDFE10743DDEF00D948ACB1');
end;

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

procedure WithdrawLogs;
begin
if(not(BankScreen))then
OpenBank;
wait(200+random(200));
Withdraw(1, 1, 0);
wait(200+random(200));
CloseWindow;
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', 102, 403, 3, 3);
1: ClickTextCoords('Make X', 172, 407, 3, 3);
2: ClickTextCoords('Make X', 391, 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.

properhacker
09-19-2006, 10:34 PM
ok sorry to philodespotos

i have credited him, the old one didnt work so i changed it so it would work

properhacker
09-19-2006, 10:39 PM
i did do quite a few small things, eg


goto top of bankscreen
close bank
cross bow stocks
and more

12751
09-19-2006, 11:07 PM
I noticed, credit where credits due... its a pretty good script, anyone tried to SRLise it?
I have my own edited version but am still getting to grips with SRL scripting :duh:

dandaman
11-12-2006, 02:47 AM
i will attempt to srl this, give me some time

Wizzup?
11-12-2006, 07:10 AM
I noticed, credit where credits due... its a pretty good script, anyone tried to SRLise it?
I have my own edited version but am still getting to grips with SRL scripting :duh:

I don't think it is such a great script, a fletcher should totally be based off bitmaps and inventory count checks.

Fruity
11-28-2006, 07:57 PM
Awesome, I fletched 3k Longs With almost NO problems Gj :)

grey_stealth
12-01-2006, 09:55 PM
Im pretty new to srl and scar but im getting the hang of it. Hopeully ill be usuing all the scar scripts and perhaps even make 1 :)