pyryny
2013-03-02 12:12:37
How Long have You Played Runescape?
7 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
I have started programming in Simba for about 2 months, but other than that, I'm a newbie.
Are you a member of any other communities?
rune-server.org
Tell us about yourself…
Please show us one (or multiple) of your scripts.
7 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
I have started programming in Simba for about 2 months, but other than that, I'm a newbie.
Are you a member of any other communities?
rune-server.org
Tell us about yourself…
From: pyryny
I'm a 20 years old medical school student living in Quebec, Canada. I speak french :) and my passion for computer games has slowly decreased over the years as I grew up, but I still find myself coming back to Runescape from time to time. I'm pretty busy with my studies but I still make time to play a bit.
Anyways, other than that I enjoy movies (I'm more of an addict in that sense), reading, and drawing.
Recently, I discovered your website and I found it pretty fascinating to learn slowly about programming (the basics) and got myself started with some basic scripts. I don't have much time to dedicate to scripting, but it's still interesting and pretty distracting. I like the fact that you have to check and double-check everything to find out what's the little hold-up bugging the whole thing out.
Please show us one (or multiple) of your scripts.
//This is something I did yesterday to help my fletching progress in 07Scape :
program willowfletcher;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
var
x, y: Integer;
Procedure bank;
Begin
If P07_FindObjCustom(x, y, ['se', 'ank'], [3625827], 5) Then
Begin
ClickMouse2(mouse_right);
Wait(RandomRange(250, 500));
P07_ChooseOptionMulti(['quickly']);
Wait(1300);
End
Else
Begin
writeln('Random Event');
PlaySound('C:\Users\Jeremie\Desktop\crank.wav');
TerminateScript;
End;
End;
Procedure depot;
Begin
MMouse(RandomRange(621 - 7, 621 + 7), RandomRange(230 - 7, 230 + 7), 0, 0);
Wait(RandomRange(75, 150));
ClickMouse2(mouse_right);
Wait(RandomRange(200, 300));
P07_ChooseOptionMulti(['All']);
Wait(RandomRange(500, 675));
End;
Procedure takelogs;
Begin
MMouse(RandomRange(423 - 7, 423 + 7), RandomRange(79 - 7, 79 + 7), 0, 0);
Wait(RandomRange(200, 400));
ClickMouse2(mouse_right);
Wait(RandomRange(175, 360));
P07_ChooseOptionMulti(['All']);
Wait(RandomRange(350, 600));
MMouse(486, 42, 3, 3);
Wait(RandomRange(150, 250));
ClickMouse2(mouse_left);
End;
Procedure fletch;
Begin
MMouse(RandomRange(578 - 7, 578 + 7), RandomRange(230 - 7, 230 + 7), 0, 0);
Wait(RandomRange(75, 150));
ClickMouse2(mouse_left);
Wait(RandomRange(300, 450));
MMouse(RandomRange(621 - 7, 621 + 7), RandomRange(230 - 7, 230 + 7), 0, 0);
Wait(RandomRange(75, 150));
ClickMouse2(mouse_left);
Wait(RandomRange(500, 675));
MMouse(RandomRange(260 - 17, 260 + 17), RandomRange(412 - 17, 412 + 17), 0, 0);
Wait(RandomRange(75, 150));
ClickMouse2(mouse_right);
Wait(RandomRange(200, 300));
P07_ChooseOptionMulti(['X']);
Wait(RandomRange(700, 800));
P07_TypeFast('99');
Wait(RandomRange(150, 200));
P07_UseKey(13);
Case Random(3) of
1: Begin
Wait(1000);
MMouse(RandomRange(416 - 100, 416 + 100), RandomRange(225 - 75, 225 + 75), 0, 0);
Wait(RandomRange(48000, 49250));
End;
2: Begin
Wait(2000);
MMouse(RandomRange(416 - 100, 416 + 100), RandomRange(225 - 75, 225 + 75), 0, 0);
Wait(RandomRange(47000, 48250));
End;
3: Begin
Wait(3000);
MMouse(RandomRange(416 - 100, 416 + 100), RandomRange(225 - 75, 225 + 75), 0, 0);
Wait(RandomRange(46000, 47250));
End;
End;
End;
Procedure antiban;
Begin
Case Random(8) of
1: P07_HoverSkill('fletching', 3000);
2: Wait(RandomRange(1000, 2000));
3: Wait(RandomRange(500, 3000));
End;
End;
begin
SetupP07Include;
Repeat
bank;
depot;
takelogs;
fletch;
antiban;
Until(False);
end.