PDA

View Full Version : [SRL][RS2]PROPERFLETCHER 3.0 Revamped!



Youngt191
10-04-2006, 09:36 PM
Well, I took the PROPERFLETCHER which was originally made by PROPERHACKER and also updated by philodespotos and I made it into an SRL Include. It worked fine for me and hopefully it works OK for you too! :D .

If you are wondering why it says that it was updated by KillerPlatinum/Youngt191...The reason is because I have to forum names. On fagex I am known as KillerPlatinum. On Sythe and Villu-Reborn I am known as Youngt191.

[CHANGE LOG]

1.0 - Realeased
2.0 - Fixed most bugs
2.1 - Faster bank booth closing
3.0 - Totaly re-coded by KillerPlatinum/Youngt191 and included SRL

UPDATE: 3.1
{.Script Info:
# ScriptName = PROPERFLECHER
# Author = philodespotos, KillerPlatinum/Youngt191 and PROPERHACKER
# Description = Logs 2 bows
# Version = 3.0
# Date = 10/4/2006
# Comments = SRL Updated
/Script Info}
{simple script to cut your logs into bows.
----
properhacker.googlepages.com

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 philodespotos, inproved by PROPERHACKER and Youngt191/KillerPlatinum(hope you dont mind, just for the recent changes)

[CHANGE LOG]

1.0 - Realeased
2.0 - Fixed most bugs
2.1 - Faster bank booth closing
3.0 - Totaly re-coded by KillerPlatinum/Youngt191 and included SRL
3.1 - Fixed bugs which messed up the script. Made it compatable with
other bows other than willow longs! :P My bad!
}
program pdFletcher;
{.include SRL\SRL.scar}
{.include SRL\misc\PlayerForm.scar}

const BowType = 1; // 0 = short, 1 = long, 2 = stock
TotalLogs = 2000;
LogOutWhenDone = true;
BowColor = 3047559; //Color of the bow AFTER it's made. Default = Willow Long

Pin = '1993'; // Your bank pin if you have one...

var TotalDone, MakeX, count,lx,ly : integer;

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

procedure AntiRandoms;
begin
SRLRandomsReport;
FindNormalRandoms;
if(WeAreDead)then
begin
Logout;
Writeln('We have died...Sorry!');
TerminateScript;
end;
if(FindMod)then
begin
LogOut;
Writeln('Found Moderator...Waiting 60 seconds');
Wait(60000+random(3165));
LoginPlayer;
end;
AntiBan;

end;

procedure WithdrawLogs;
begin
Openbank3;
InPin(Pin);
FixBank;
Withdraw(1,1,27);
repeat
if(BankScreen)then
CloseBank;
until(not(BankScreen))
end;

procedure DepositBows;
begin
OpenBank3;
InPin(Pin);
FixBank;
wait(100+random(400));
Deposit(2,28,2);
wait(100+random(300));
end;

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

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

ClickOption('Make X',3);
Wait(1000+random(313));
TypeSend('27');

repeat
Wait(431+random(531));
RandomRClick;
LeaveScreenEvery(2);
GameTab(4);
HoverEvery(3,'Fletching');
GameTab(4);
until(FindColorRightTol(x,y,BowColor,693, 433,725, 454,10))
TotalDone := TotalDone + 27;
end;

Procedure Hi;
begin
Writeln('Proper Fletcher officially made by PROPERHACKER');
Writeln('Revamped by KillerPlatinum/Youngt191 with SRL');
Writeln('Hope you dont mind!');
Writeln('');
Writeln('Version Number: 3.0');
End;

procedure ScriptInit;
begin
SetupSRL;
LoadBmps;
SetupPlayers;
ClearDebug;
LoginPlayer;

TotalDone := 0;
end;

begin
ScriptInit;
Hi;

repeat
begin
AntiRandoms;
WithdrawLogs;
AntiRandoms;
CutBows;
AntiRandoms;
DepositBows;
end;
until(TotalDone >= TotalLogs);
CloseWindow;

if(LogOutWhenDone)then
LogOut;
end.

Snubb Gubb
11-24-2006, 11:25 PM
Looks nice, i'll be testing this.

fircommander
12-10-2006, 03:45 AM
im gonna give it a go