SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
No


What is your general programming knowledge?
Learning Pascal


Are you a member of any other communities?
Misc - Bodybuilding.com
MMOExchange
USAPL - USA Powerlifting
Lacrosse Forum


Tell us about yourself…

From: Heya69
My name is Duy, I just recently turn 17 (Dec 2)

Activities: lifting, wrestling, eating, sleeping, learning to script, playing lacrosse

I'm currently wrestling for my high school, this is currently my second year wrestling. I've been on Varsity since I first started, I am a captain this year. I currently hold 9 varsity letters( Lacrosse 3, Football 3, Wrestling 1, Track 2 )

I've always wanted to learn how to code and etc, I wanted to learn how to code when I started to play BYOND games but never could find anyone to help me, I'm glad I found this forum and it's helpful community.

I've been receiving a lot of help from YoHoJo and Flight, so I am grateful for that. I have included a script that I started off, and had them help me with fixing errors and giving me new ideas and etc.

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

program Playground;
{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i SRL\SRL\Misc\Debug.simba}

Var
  WeAttacked:Integer;
  RT:Integer;

Const
  Monster = 9619676;
  Monster1 = 9998993;
  Monster2 = 3830406;
  AttTime = 1500;


Procedure DeclarePlayers;
Begin
  NumberOfPlayers(1);
  CurrentPlayer := 0;
  LampSkill := 'Ranged';

 With Players[0] do
  Begin
    Players[0].Name :='';
    Players[0].Pass :='';
    Players[0].Active :=True;
    Players[ 0].Booleans[ 1] := True; //Would you like to have the XP Counter on?
    BoxRewards := ['lamp']
  End;
End;

Var
  OldXP, TimeSinceFight: Integer;

Function StillFighting: Boolean;
Begin
  Result := TimeFromMark( TimeSinceFight) < 4000;
End;

Procedure AntiBan;
Begin
  If Players[ CurrentPlayer].Booleans[ 1] Then
    ToggleXPBar( True);
  If IsXPBarOpen Then
  Begin
    If Not( GetXPBarTotal = OldXP) Then
    Begin
      OldXP := GetXPBarTotal;
      MarkTime( TimeSinceFight);
    End;
  End;
  case Random(2000)of
    0: HoverSkill('Ranged', False);
    1: SleepAndMoveMouse(7000 + Random(500));
    2: RandomMovement;
    3: PickUpMouse;
    4: BoredHuman;
    5..15: MakeCompass( RandomRange( -360, 360));
    16..60: Wait( Random( 3000));
  End;
End;

Procedure FailSafe(Reason: string);
Begin
  Writeln(Reason);
  Logout;
  TerminateScript;
End;


Procedure CheckRandoms;
Begin
  RT:=GetSystemTime;
  If FindNormalRandoms Then
    IncEx(WeAttacked,GetSystemTime - RT);
End;

Procedure MoveCamera;
Begin
  SetAngle(SRL_ANGLE_HIGH);
  Antiban;
  MakeCompass('N');
  RT:=GetSystemTime;
  If FindNormalRandoms Then
    IncEx(WeAttacked,GetSystemTime - RT);
End;

Procedure Attack;
  Var X, Y: Integer;
Begin
  If StillFighting Then
    Exit;
  if FindObjTPA(X, Y, Monster, 4, 1, 25, 25 ,100, ['gre']) Then
    Begin
      Writeln( 'Found Ogre');
      Mouse(x,y ,5,5, false);
      ChooseOption('ttack');
      Writeln('Raping Ogre');
      Wait( 2800);
      MarkTime( TimeSinceFight);
    End;
  End;


Begin
  MarkTime( TimeSinceFight);
  Smart_Server:=35
  Smart_Members := True;
  Smart_SuperDetail := False;
  SetUpSRL;
  DeclarePlayers;
  LogInPlayer;
  Repeat
    Antiban;
    CheckRandoms;
    Attack;
  until(false)
End.

Hes a nice and cool guy very willing to learn, I've talked to him on IM a lot and he's got the right attitude, but so far this is way too simple. Good Luck :D

I'm afraid this script is way too simple to be accepted and you have barely joined.
There are threads that explains pretty well what the scripts you apply with should contain, I suggest you to look them up.

EDIT: I didn't even voted.

Keep at it

-RM

No. Script is way too simple, and you're still new here.

Good standards but too simple. Keep at it :)

I see a lot of potential to be a good scripter in you, but this script was just too simple and didn't show enough knowledge of the SRL include.

I did vote a no this time, but if you keep trying and learning, I'm sure you'll be able to make a great script. Good luck in the future! :)

Hallow Mate, lookin' good , but sorry Mate this is quite too simple, get a bit more Active as well :).

Good Luck nex' time!

Looks like you will not get in this time.
You may try again in two weeks!