SRL Archive - Archive

How Long have You Played Runescape?
6 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
VisualBasics (A LEVEL COMPUTING)
AND
LANGUAGE SIMBA USES -Pascal-( It's very similar to vb)


Are you a member of any other communities?
Sythe


Tell us about yourself…

From: Artski
I Am currently on college (UK) and I want to learn more about scripting .

Please show us one (or multiple) of your scripts.

program MTAARENA;
{$DEFINE SMART8}
{$i SRL-OSR-master/Srl.simba}
{$i SRL-OSR\SRL\skill\magic.simba}   //Editted version I found that was made for osr
{$i sps/sps-osr.simba}  //Tried to Add walking but didn'really want to work :(
Procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
End;
Procedure PickupCubes;
var x, y: integer;
begin repeat
if FindObj(x, y, 'ake-from', 2921394, 10) then
 begin
     Mouse(x, y, 0, 0, true);
     ChooseOption('ake-from');
     wait(500+random(200));

end;Until (invfull)
end;
Procedure CastEnchant;
var count :integer  ;

 begin repeat
castspell('37');
wait(800+random(200))
InvMouse(28,1)
 count := count + 1
Until  count=25
end;
procedure SPSCheck;

var
  Myloc:TPoint;

begin

 SPS_AnyAngle := True;
SPS_Setup(RUNESCAPE_OTHER,['enchantmentmap']);
 MyLoc:=sps_getMyPos;
 writeln('SPS returns '+inttostr(myloc.x)+','+inttostr(myloc.y));
end;
  procedure  WalkToCentre;
Var
  WalkCentrePath:TPointArray;
begin
SPS_Setup(RUNESCAPE_OTHER,['enchantmentmap']);
WalkCentrePath:=[Point(36, 33), Point(37, 36), Point(39, 38), Point(40, 39), Point(43, 42), Point(43, 45), Point(46, 48), Point(46, 50), Point(50, 56), Point(51, 57), Point(52, 57), Point(54, 62), Point(56, 65), Point(59, 69), Point(64, 74), Point(69, 77), Point(71, 79), Point(73, 80), Point(75, 84), Point(77, 87), Point(80, 90), Point(83, 92), Point(88, 94), Point(92, 98), Point(93, 98), Point(96, 99), Point(98, 98)]
SPS_WalkPath(WalkCentrePath)
end;
procedure WalkBack;
Var
  WalkBackPath:TPointArray;
begin
SPS_Setup(RUNESCAPE_OTHER,['enchantmentmap']);
WalkBackPath:=[Point(98, 98), Point(96, 99), Point(93, 98), Point(92, 98), Point(88, 94), Point(83, 92), Point(80, 90), Point(77, 87), Point(75, 84), Point(73, 80), Point(71, 79), Point(69, 77), Point(64, 74), Point(59, 69), Point(56, 65), Point(54, 62), Point(52, 57), Point(51, 57), Point(50, 56), Point(46, 50), Point(46, 48), Point(43, 45), Point(43, 42), Point(40, 39), Point(39, 38), Point(37, 36), Point(36, 33)]
SPS_WalkPath(WalkBackPath)
end;
procedure DepositBalls;
var x, y: integer;
begin
wait(3000)
if FindObj(x, y, 'eposit', 1052692, 10) then
 begin
     Mouse(x, y, 0, 0, true);
     wait(2000)
     end
     end;
 procedure repeatscript;
        var count :integer  ;
        begin
repeat
  pickupcubes;
  castenchant;
  walktocentre;
  DepositBalls;
  walkback;
until count =1
  end;

begin


  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  repeatscript;




end.

Definitely not advanced enough, sorry.

Hey man. Nice to see that you want to learn, but unfortunately your script isn't up to the standard of SRL Members. Also, you've been registered for well over a year now and still only have 4 posts, one being your application. Members is as much of a community rank as it about scripting, so for better chances of getting in next time get a bit more involved on the forums and read over a few guides in the tutorial section :)

What advanced stuff do I need to include :(?

Check out this guide: http://villavu.com/forum/showthread.php?t=74195
It sums up what you can do to better your chances of being accepted.

Not advanced enough, not active enough.

From: Rich
Check out this guide: http://villavu.com/forum/showthread.php?t=74195
It sums up what you can do to better your chances of being accepted.

This.

Didn't make it this time. Take the suggestions given to you above, check out the tutorial island section and feel free to apply in 4 weeks time. Good start though.

Cheers
Hobbit