SRL Archive - Archive

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?
Java, HTML, php, mysql database


Are you a member of any other communities?
Yes; RSBuddy (Dead), Powerbot, RSBots


Tell us about yourself…

From: ~Justin
Im a relaxed kind of guy, I work as a IT Admin at a school, finished my schooling, currently 19.
I enjoy listing to music and socialization

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

program BanditHelper;

  {.include SRL/SRL/Misc/Smart.scar}
  {.include SRL/SRL.scar}
  {$i SRL/SRL/SKILL/prayer.scar}
  {$i sps/sps.simba}
  {$i SRL/SRL/Misc/stats.simba}
  {$i SRL/SRL/misc/paintsmart.scar}
  {.include SRL/SRL/Skill/Fighting.scar}

Var
x, y :Integer;
Colours, PrayerPotColours: TIntegerArray;

Const
Version = 1;
NCPColour1 = 15788788;
NCPColour2 = 1250879;
NCPColour3 = 14014175;
PrayerPot1 = 9741932;
PrayerPot2 = 8762422;
PrayerPot3 = 8762166;
PrayerPot4 = 9948222;



procedure DeclarePlayers;
begin

  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active := True;

end;

Procedure CheckRandoms;
begin
FindNormalRandoms;
If Not(LoggedIn) Then
  begin
        LoginPlayer;
    FindNormalRandoms;
    If Not(LoggedIn) Then
      begin
        TerminateScript;
      end
  end;
end;


  function GetPrayerPoints: Integer;
var
  TmpStr: string;
begin
  Result := GetMMLevels('prayer', TmpStr);
end;
Procedure CheckPrayer;
Var
    c, i: integer;
begin
     if(GetPrayerPoints < 503) then
     begin
     WriteLn('We are low in prayer... drinking a potion!');
     c := 0;
     i := 0;
     if not InvEmpty then
      for c := 0 to 2 do
        for i := 1 to 28 do
        if ExistsItem(i) then
        begin
          MMouseItem(i);
          GetMousePos(x, y);
         if ItemActivated(i) then
         begin
          Mouse(x,y,0,0,true);
           end;
        if WaitUptext('Vial', 400) then
          begin
            DropItem(I);
            Wait(1000);
              end;
          if WaitUptext('Drink', 800) then
          begin
            Mouse(x,y,0,0,true);
            Wait(1500);
         if WaitUptext('xtreme', 800) then
          begin
            Mouse(x,y,0,0,true);
            Wait(1500);
            end;
      if WaitUptext('Vial', 400) then
          begin
            DropItem(I);
            Wait(2000);
              end;
              exit;
           end
        end;
end
end;



Procedure Attack;
begin

  If(srl_InFight) then
  begin
   x := random(100)
    case x of
      2: HoverSkill('Defence', False);
      3: HoverSkill('hitpoints', False);
      16..25: RandomMovement;
      34: RandomAngle(True);
      46..50: Wait(1000+Random(20000));
    end;
    Wait(2000);
  end
end;

begin
  Colours := [NCPColour1,NCPColour2,NCPColour3]
  PrayerPotColours := [PrayerPot1,PrayerPot2,PrayerPot3,PrayerPot4];
  Smart_Server := 124;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  cleardebug;
  DeclarePlayers;
  LoginPlayer;
  SPS_Areas := ['11_9'];
  SPS_Setup(RUNESCAPE_SURFACE, SPS_Areas);

  Repeat
    Attack;
    CheckRandoms;
    CheckPrayer;
  until(false)
end.

Too simple buddy, you still have much more to learn!
Check out other people's scripts and tutorial section and keep on a learning!
You can do it, and good luck!

All what yoho said
good to see you have been here along time tho
just get more hands on with the community and scripting you have great potential

Very useful script mate:P But unfortunately its too simple, but your are not far off. Just learn some more and make a epic(er) script then come back, its not too hard and you can have fun at it, or you could just keep on learning and make some elite scripts for yourself.

I'll hold my vote for now but I have a feeling that you will come again with a sexy script :P

Okay thanks for the feedback guys! I'll be working on some more scripts and then i'll re-apply!