SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
I know a little PHP, HTML, VB6 and SIMBA.


Are you a member of any other communities?
Hackforums.net, Cyberdunk.com, Talkdep.com


Tell us about yourself…

From: begginer
Hey there,
I am a 16 Years old boy. I got very good grades on school and I learn much. I am not a nerd btw, I have a social life too. My dad owns a shop. I work there before/after school and on weekends all day. A bit tiring. I left some studies to learn simba coding. I am not married neither engaged. It doesn't mean I don't have a Girlfriend.

BTW, could attach my script :/

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

// by begginer. thanks for using it. Enjoy it :)

program AttackGoblin;
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i SRL/SRL/skill/fighting.simba}
     var
   x: Integer;
const
  SRLStats_Username = '';   //Insert your SRL stats username here.
  SRLStats_Password = '';   //Insert your SRL stats password here.
  BreakEvery        = 120;  //How many minutes before breaking?
  BreakFor          = 5;    //How many minutes to break for?
  Version           = '0.12';
  NumbOfPlayers     = 1;    //How many players are you using?
  StartPlayer       = 0;    //Which player will you start with? (0 means first)

procedure DeclarePlayers;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := 0;

  Players[0].Name     :='';     //Insert player username here.
  Players[0].Pass     :='';     //Insert player password here.
  Players[0].Active   := True;  //Leave True to use this player.
end;


function FightGoblin:Boolean;
var
  x, y: Integer;
begin
  if FindObjCustom(x, y, ['att', 'ack', 'Flesh', 'Crawle'], [929072], 5) then
  Mouse(x, y, 3, 3, True);
     wait(5000+Random(5000));
  Writeln('We found a goblin. Attacking it');
end;

procedure AntiBan;
begin
  x := Random(500)  case x of 0: HoverSkill('Attack', false);
    1:
      HoverSkill('Strength', false);
    2:
      HoverSkill('Defence', false);
    3:
      HoverSkill('hitpoints', false);
    12..15:
      PickUpMouse;
    16..25:
      RandomMovement;
    26..27:
      RandomRClick;
    28..32:
      BoredHuman;
    33:
      ExamineInv;

  end;
  Wait(RandomRange(800, 1200));
end;

procedure EatIfLow;
var
  MMColor: string;
  x, y, Lobster: Integer;
  begin
  Lobster := DTMFromString('mlwAAAHicY2dgYJjPxMCwGIoXAvFMIF4AxEuAuJ8RgicB8XQg7oLiDiDm4+NjKLcRZJjtJ86wJVqaYV2EFMP8AHGGbTHSDFxAc3FhRjwYCgD3pg8b');

begin
  GetMMLevels('hp', MMColor);
  if (MMColor = 'Red') then
  repeat
    if FindDTM(Lobster, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
      InvMouse(CoordsToItem(x, y), 3);
      if WaitUpText('Eat Lobster', 100) then
      begin
        ClickMouse2(true);
        Wait(RandomRange(350, 525));
      end;
    end else
      Break;
    GetMMLevels('hp', MMColor)
  until((MMColor = 'Green'))
 end;
 FreeDTM(Lobster);
end;



begin
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
  EatIfLow;
  repeat
    FightGoblin;                // this will be for repeating action
    EatIfLow;                   // this will be for repating eating
    AntiBan;
  until(false);

end.

You're active, but wayyyyyyyyyyy too simple.

I like your activity, but as S1N said it is too simple.

Try to look into TPA's for object finding, and only resorting to FindObj(and variations) as a failsafe. I like that you used DTM's.

Also, try to add some sort of walking with failsafes, such as DTM walking with SPS backup.

I'm sorry, but I'm going to have to vote No on this one. I love that you've taken the initiative to learn how to script, but as others have said, it's pretty simple and not worth SRL Members in my opinion.

FindObjCustom is that the best way to find objects, but it does work. I suggest TPA's like PatDuffy said, and I hope to see how much you advance! :)

Thanks for feedback, I will be making more scripts these days. The problem is that I couldn't find TPA tutorial explained good. And there is no need of walking :p. Again thanks for suggestions. I will try to fulfill the requests. :)

Close this please. I will reapply when I think I am ready. I will be applying with a private script. Thanks

ok.