PDA

View Full Version : Simple Arrow Maker[First Script]



burden
03-11-2013, 05:01 AM
Got tired of putting together arrows so i made this. Nothing fancy

Attaches feathers to shafts, and then arrow heads to the headless arrows.
You have to set up the inventory a bit which is explained in the script.
Doesn't detect when you level up, but aside from that I've fletched around 50k arrows no problems.
The code is a bet messy looking at parts and i don't think it goes in line with the standards, my bad.
-Some anti-ban
-2 lines with Anti-Leach(very easy)

*This is set up to use smart 8, so edit it accordingly.

awesomem8
04-19-2013, 04:14 AM
can you please post it? or can youy modify this outdated script:

program New;
{$DEFINE SMART}
{$DEFINE SRL5}
{$i srl/srl.simba}

// SETUP !!! Read nubcakes :P
// - have your arrow shafts and feathers or headless arrows and arrowtips
// in Inventory spots 1 and 2
// - have atleast 1 arrow shaft or arrow in Inventory spot 3 (depending on
// what your making)
// - run :D
// - sometimes you gotta run the script twice once SMART has loaded, i dunno why :p
// - feedback, how long you ran it for, rep etc all appreciated.

Var
InitialArrows: Integer;

procedure DeclarePlayers;

begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name:= ''; // character's username
Pass:= ''; // characte'r password
Active:= True;
end;
loginplayer;
end;


procedure AntiBan;

begin
case Random(1000) of
1: begin
PickUpMouse;
end;
2: begin
BoredHuman;
end;
3: begin
RandomMovement;
end;
4..7: begin
wait(RandomRange(200, 5000));
end;
8: begin
HoverSkill('Summoning', false);
GameTab(25);
MMouse(0, 0, 730, 460);
end;
end;
end;

function ArrowCount: Integer;

var
amount: Integer;

begin
amount := GetAmount(663, 230);
if amount = 0 then
begin
Logout;
TerminateScript;
end;
Result:= amount;
end;



procedure Arrow;

var
previousarrows: Integer;

begin
While (ExistsItem(1) and ExistsItem(2)) do
begin
previousarrows:= ArrowCount;
MouseItem(1,1);
MouseItem(2,1);
Wait(1050 + RandomRange(200,400));
MouseBox(219, 403, 299, 455, 1);
Wait(1000 + RandomRange(100,200));
Repeat
wait(100 + randomRange(150, 300));
AntiBan;
if previousarrows = ArrowCount then
Break;
if not(ExistsItem(1) and ExistsItem(2)) then
Break;
Until(ArrowCount = (previousarrows + 150));
end;
end;

begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetUpSRL;
ActivateClient;
DeclarePlayers;
InitialArrows:= ArrowCount
Arrow;
Writeln('Arrows made: ' + IntToStr(ArrowCount - InitialArrows));
Writeln('Time Ran: ' + TimeRunning);
Writeln('Job Complete :D');
Logout;

end.

wegginger
04-24-2013, 08:09 AM
i want this script!

kriss1993
06-13-2013, 12:25 PM
Why did u make it so complex and hard to use I just made easyer and more advanced version with just 63 lines also very user friendly took me like 15 mins to write it tho.. I may release it here
what it does:
puts feathers to arrow safts then puts arrow heads to the headless arrows.
it can make 21k arrows per hour
or it can put 42k feathers to safts or 42k arrow tips to headless arrows per 1 hour.
if any1 is interested of the script let me know.

bartjuhh93
06-21-2013, 03:08 PM
Why did u make it so complex and hard to use I just made easyer and more advanced version with just 63 lines also very user friendly took me like 15 mins to write it tho.. I may release it here
what it does:
puts feathers to arrow safts then puts arrow heads to the headless arrows.
it can make 21k arrows per hour
or it can put 42k feathers to safts or 42k arrow tips to headless arrows per 1 hour.
if any1 is interested of the script let me know.

i am interested

kickassmagee
06-29-2013, 11:52 AM
would this also put feathers onto bolts?

God Elohim
08-21-2014, 07:45 PM
For such thing i recommend just a Macro recorder into the SMART <It's a based mouse recorder for such actions,it goes by quick and it's not complicated at all>

Record > Repeat Infinity