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?
I learned how to program in java in a computer science course at my local college. I learned SRL just by applying it to Java, and learning it through comparison. I've also dwelled in HTML and PHP, but I have little knowledge in those languages.


Are you a member of any other communities?
No


Tell us about yourself…

From: Im fkn rare
My name is Caleb, I'm 17 years old. I'm a junior at my highschool, currently enrolled in College Courses. (I'm graduating half a semester early, so I'm taking college courses that my school offers now.)

I enjoy wrestling for my school, playing baseball, basketball for fun. I started programming in java about 2 years ago, when I took a computer science course.

I've just recently learned SRL in the past month or two. I have heard of many people getting 12+ hour proggies, and this is the best combat script in Old School Scripts at the moment.

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

program RareFightCave;

{$DEFINE SMART}
{$i SRL/Srl.simba}
{$i P07Include.Simba}


const caveTol = 2; //if 0 works, keep at 0!
const npcTol = 1; //if 0 works, keep at 0!
                  //Changing it, will flip the mouse, and your actions will resemble a bot.

var failSafe, counter, caveEntrances : integer;

var npcArray, caveEntranceWhite: TIntegerArray;

procedure P07_DeclarePlayers;
begin
  P07_PlayerName := '';
  P07_PlayerPass := '';
end;

procedure P07_SetRun(Run: Boolean);
var
  x, y: integer;
begin
  if not P07_TabInventoryTab(12) then
    Exit;
  if (FindColor(x, y, 4342852, 627, 416, 658, 444)) then
  begin
    mouse(x, y, 1, 1, 1);
  end;
  P07_TabInventoryTab(4)
end;
//This function below checks if your character is in combat.
function inCombat:boolean;
var x,y:integer;
begin
result:=FindColor(X, Y, 65280, 220, 110, 330, 220)
//Writeln('Color found') //debug to make sure the boolean is giving result, successful!
end;


procedure RareFightCaveSleep;
var x , y, sleepTime : integer;
    loop : boolean;
begin
    loop := true;
    sleepTime := RandomRange(1000, 2500);
    while loop do begin
      if P07_FindObjCustom(x, y, [' '], caveEntranceWhite, caveTol) then begin
        loop := false;
        writeln('We see cave entrance');
      end else if (sleepTime - counter > 0) and loop = true then begin
       wait(10);
       counter := (counter + 10);
      end else begin
        loop := false;
        end;
    end;
end;

function Dots: integer;
var
  MinimapDots: Integer;
begin
  MiniMapDots := P07_CountMiniMapDots('yellow');
  result := MiniMapDots;
end;

procedure RareFightCave;
var x, y : integer;
begin
    if P07_FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) then begin
        writeln('Found correct cave !');
        ClickMouse2(true);
        while P07_FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) do begin
            ClickMouse2(true);
            wait(RandomRange(500, 1000));
          end;
          if RandomRange(1, 10) > 8 then
            P07_SetRun(true);
          caveEntrances := (caveEntrances + 1);
          writeln('Entered cave');
          ClearDebug;
          Writeln('-*              RareFightCave');
          Writeln('-*                                       ');
          Writeln('-*         Entered ' + intToStr(caveEntrances));
          Writeln('-*         Runtime : ' + TimeRunning);
          begin
    if inCombat then
        Writeln('-*         In Combat: True')
    else
    Begin
          wait(randomrange(100, 200));
          ClickMouse2(mouse_right);
          wait(randomrange(800, 1000));
          P07_ChooseOptionMulti(['ttack']);
    end;
end;


          wait(RandomRange(4000, 5000));
          failSafe := 0;
          P07_MakeCameraAngleHigh;


    end else if not P07_FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) and (P07_FindObjCustom(x, y, ['ttack', 'alk here'], npcArray, npcTol) and (Dots > 0)) then begin
      MoveMouse(x, y);
      ClickMouse2(false);
      if P07_ChooseOptionMulti(['ttack']) then begin
         counter := 0;
          RareFightCaveSleep;
          failSafe := 0;
         end;
  end else P07_MakeCompassSouth;
end;

begin //Main loop
  P07_DeclarePlayers;
  SetUpSRL;
  SetupP07Include;
  P07_SetRun(true);

  npcArray := [1731029, 2358, 1191036, 1322621, 1125246, //Small birds
              3611467, 3742287, 3873873, 1975669, 1871595, //Fat NPC
              1534666, 1732562, 1869030 //Small fat NPC
              ];
  caveEntranceWhite := [7763583, 8553356];

  MouseSpeed := 15;
    while(true) do begin
      if(not P07_LoggedIn) then
        begin
          P07_LogInPlayer;
          P07_SetRun(true);
          P07_MakeCompassSouth;
        end;
        inCombat;
        RareFightCave;
    end;
end.

Hi there.

Sorry, but the script is just too simple. It's great that you're interested in making scripts, but unfortunately this one isn't up to the standard we expect from applications. A few of the things we like to see are (D)DTMs, (A)TPAs and good knowledge of the SRL include, so a bit more time spent in the tutorial would definitely benefit your application.

It's a no from me,
Richard.

Hello,

A nice script you got there. I can see how it is thought out ;). I will however have to vote no. The script is a good script but doesn't utilizes more advanced techniques like Rich pointed out. Keep learning, I am sure you will be able to make it soon!

Gr,
Bart

In addition to the comments above, may I also point out that your attitude and willingness to help others around the forums also plays a big part in a membership application. Take at look at Daniel's guide on becoming a SRL member.

You are doing great so far, don't give up yet! :)

I would like to see a greater activity - you've been here a little over a year and it's still only 35 posts. It's a no from me sorry.

Please take the suggestions given by the users and check out the tutorial section to learn some more advanced techniques. This is a good start though, keep it up :)

You may apply again in 4 weeks.

Cheers
Hobbit