apocalypsefu
2009-09-21 01:10:33
How Long have You Played Runescape?
4 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
Not much, I do know HTML and have been learning PHP but right now I am trying to learn how to script in scar.
Are you a member of any other communities?
Sythe
Tell us about yourself…
Please show us one (or multiple) of your scripts.
4 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
Not much, I do know HTML and have been learning PHP but right now I am trying to learn how to script in scar.
Are you a member of any other communities?
Sythe
Tell us about yourself…
From: apocalypsefu
Well, my name is Art. I am a Junior in High School and I plan on going to the University of Illinois for engineering or DeVry for 3D modeling. I enjoy to run and bike. I am on the cross country and track teams. I enjoy playing video games and hanging out with friends. I am learning how to make scar scripts and have made a few basic ones. Not real advanced just some basic mouse movements and clicks. And thats really all that there is about me, not to much.
Please show us one (or multiple) of your scripts.
program PrivServCutFletchNDrop;
{.include SRL/SRL.scar}
var
b:integer;
l:integer;
const
treex= 320; //set to the trees x position
treey= 110; //set to the trees y position
knifex= 717; //knife must be in last slot
knifey= 436; //same as above
logx= 665; //do not touch
logy= 440; //do not touch
procedure fletch;
begin
if(invfull) then
begin
repeat
MoveMouse(knifex,knifey);
wait(100);
ClickMouse(knifex,knifey,true);
wait(100);
MoveMouse(logx,logy);
wait(100);
ClickMouse(logx,logy,true);
inc(l);
until(l=27)
l:=1;
end;
end;
procedure cuttree;
begin
MoveMouse(treex,treey);
wait(100);
ClickMouse(treex,treey,true);
end;
procedure dropbows;
begin
repeat
dropitem(b);
inc(b);
until(b>=27) or (invcount<=2)
b:=1;
end;
begin
repeat
cuttree;
if(invfull) then
begin
fletch;
end;
dropbows;
until(false)
end.
-----
For that one, I couldn't get it to realize that the inventory was full and move on, also it was for just a private server, I've made a few more, they are just on my other computer and if you want to see them just let me know somehow =)
-----