Okay I decided to break it down a little simpler because what you told me via PM.
Okay so we start out with the basic script that I posted earlier:
program new;
{$i SRL/SRL.scar}
const
HowMuch = 500; //how many arrow heads
var
RAmount : integer;
procedure Combine;
begin
InvMouse(2, 1);
wait(350+random(200));
InvMouse(1, 1)
wait(350+random(250));
MouseBoxEx(x1, y1, x2, y2, Dist, 2 ); // needs to be filled out. x1, y1 = top corner of "box" for selection of the making options. x2, y2 = bottom corner of "box"
{*******************************************************************************
procedure MouseBoxEx(x1, y1, x2, y2: Integer; Dist,ClickType: Integer);
By: Raymond
Description: Does mouse stuff (ClickType), and uses a point that is within Dist from
the closest point between mouse and the box.
*******************************************************************************}
wait(350+random(250))
ChooseOption(txt: String) // needs to be filled out
{********************************************************v***********************
function ChooseOption(txt: String): Boolean;
By: Wizzup?
Description: Finds an option in a popup menu, then clicks on it.
******************************************************************************}
RAmount := RAmount + 10;
end;
begin
SetupSRL;
RAmount:= 0;
repeat
Combine;
wait(30+random(25))
findnormalrandoms;
wait(300+random(250))
until(RAmount >= HowMuch)
end.
Okay, so to get the coordinates that we need for the "Mousebox" (Just an imaginary box that creates a pseudo-boundary for where the mouse can travel within).
Key:
Red box - The pseudo-boundary for where the mouse can travel within
Black Arrow - x1, y1
Orange Arrow - x2, y2
Okay so then you can fill in "procedure MouseBoxEx(x1, y1, x2, y2: Integer; Dist,ClickType: Integer);"
with the following:
MouseBoxEx(235, 390, 283, 427, Dist, 2 );
'Dist' may confuse you a bit but don't let it, simply play with numbers between 1-50 and see what works good for you.
function ChooseOption(txt: String): Boolean; should be self explanatory.
So to throw it all together:
program new;
{$i SRL/SRL.scar}
const
HowMuch = 500; //how many arrow heads
var
RAmount : integer;
procedure Combine;
begin
InvMouse(2, 1);
wait(350+random(200));
InvMouse(1, 1)
wait(350+random(250));
MouseBoxEx(235, 390, 283, 427, 30, 2 );
wait(350+random(250))
ChooseOption('make 10')
RAmount := RAmount + 10;
end;
begin
SetupSRL;
RAmount:= 0;
repeat
Combine;
wait(30+random(25))
findnormalrandoms;
wait(300+random(250))
until(RAmount >= HowMuch)
end.
Very simple, very basic.
edit: I realize that I am combining arrow heads with headless arrows in the picture but the cords and everything are the same for making headless arrows (arrow shafts + feathers). Also why do you check out the tutorial section ;)