looks nice for a first release,
i haven't tested, but you can shorten up some code
Simba Code:
if(longbow = true)then
begin
Mouse(248,435,20,20,true);
end;
if(longbow = false)then
begin
Mouse(156,426,23,23,true);
end;
can be
Simba Code:
if longbow then
Mouse(248,435,20,20,true)
else
Mouse(156,426,23,23,true);
just little things like that, 
you can also change things like
Simba Code:
integer := integer + 1;
to
inc(integer); //increases the variable by one
or
incex(integer, 28); //increases variable by 28