SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
No


What is your general programming knowledge?
Java, python, basic… I can mod almost any language by looking at it if it makes sense to me.


Are you a member of any other communities?
Not anymore, was a member of rscheata for like 8 years or more… I was on RSBot with qauters and speljohan but left after qauters sold to the gold farmers. I've been around here for a while just in the background mostly.


Tell us about yourself…

From: Dyhrkopp
I like to learn things and talk to people about programming. I want to be a member here because I do not like the other immature sites.

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

Seagull Killer for 2007 Runescape...

program SeagullKiller;
{.include SRL/SRL.scar}
 
const
  {+++  SETUP +++}
  Username='';
  Password='';
  NickName='Drag';//4 letters from your username. As appear in chatbox
  TotalSeagulls = 100000;       // total seagulls you want to kill.
  FightInterface = 2;  // 1 - attack , 2 - strength , 3 - controlled , 4 - defensive
  ReportTime = 60;    // how often to print out progress report. (in seconds).
  {+++ COLOR +++}
 Seagull = 7305851;
 GreenStatusColor = 65280;
  {+++ END +++}
 
 
var
 KillCount : integer;
 SeagullsKilled : integer;
procedure CheckStatus;
var
 x,y : integer;
begin
 repeat
  wait(1000+random(500));
 until(not(FindColorSpiral(x,y,GreenStatusColor,240,140,290,175)));
end;
 
procedure FightSeagull;
var
 x,y : integer;
begin
 if(FindObj(x,y,'Att',Seagull,30)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,true);
   WaitTillFlag;
   CheckStatus;
   KillCount := KillCount+1;
 end;
end;
 
Function LoggedIn2:Boolean;
Begin
  result:= true;
  if(GetColor(312,249)=65535)and(GetColor(419,291)=16777215)then
    result:= false;
End;
 
Procedure Login2;
 Begin
  If(Not(LoggedIn2))Then
  Begin
  ClickOption('Exist',1);
    Sleep(100);
   ClickOption('Username', 1)
    TypeSend(Username);
     Wait(100+Random(100));
     Mouse(327, 272, 0, 0, True);
    TypeSend(Password);
   Wait(100+Random(100));
    ClickOption('Login',1);
     Repeat
      Wait(1000+Random(500));
     Until (GetColor(351,340)=16777215) And (GetColor(467, 336)=16777215);
   Mouse(382+Random(20),328,2,2,True);
   SetFightMode(FightInterface)
 End;
End;
 
procedure UsaRandoms;
  begin
   CloseWindow;
   Wait(1);
   FindTalk;
   Wait(1);
   FindDead;
   Wait(1);
   FindMime;
   Wait(1);
   FindMaze;
   Wait(1);
   FindQuiz;
   Wait(1);
   FindScapeRune;
   Wait(1);
   ClickToContinue;
   Wait(1);
   FindFrog;
   Wait(1);
   FindTalk;
 Wait(10+Random(50));
end;
 
procedure ProgressReport;
begin
 SetTimeout(ReportTime,'ProgressReport');
 SeagullsKilled := KillCount;
 Writeln('.-----[ The Seagull Killer! V.2007 RS - by:Dyhrkopp ]------->');
 Writeln('|');
 Writeln('| -> Killed '+inttostr(SeagullsKilled)+' out of '+inttostr(TotalSeagulls)+' Seagulls.');
 Writeln('| -> Total time spent: '+TimeRunning);
 Writeln('|');
 Writeln('`--------------------------------->');
 Writeln('');
end;
 
begin
 SetupSRL;
 ActivateClient;
 KillCount := 0;
 GameTab(1);
 SetFightMode(FightInterface);
 SetTimeout(ReportTime,'ProgressReport');
 Writeln('--> I love 07scape! <--')
  repeat
   CheckStatus;
   Login2;
   UsaRandoms;
   wait(500);
   FightSeagull;
  until((KillCount = TotalSeagulls) or (WeAreDead));
 Writeln('############ ('+inttostr(KillCount)+'/'+inttostr(TotalSeagulls)+' Seagulls killed)############)');
 Writeln('--->Dyhrkopp's seagull killer~ <---')
 Wait(9000+random(1000));
 Logout;
end.

Object finding is very basic, could you show any more advanced methods?

You are also mixing several SRL functions that will not work on 07Scape, such as gametab and FindObj, showing you know little of the SRL Include

You Call

MMouse(x,y,2,2);
Mouse(x,y,2,2,true);

both have randomness, so do it like

MMouse(x,y,2,2);
ClickMouse2(mouse_left);

You should also be using

{$I Srl/Srl.simba}

It's a good start but I don't think your quite ready for Member yet, holding my vote for a bit anyway ;)

I am still learning I still need to convert and test the script from the PS I wrote it on. I'll just rewrite it after researching more what you have in your include DannyRS

No, sorry. My reasoning is activity, you are brand new in terms of posting you may have an old account but the actual amount of posts/time is really low (5 posts/6 years) you may be new here but still 5 posts is just too low I can't judge character in 5 posts; I like to see a minimum of 100.

My second reason is the script it just isn't up to SRL member standards and you should def apply again when you feel you have a better grasp.

Voting no because:

1. Way to new to the forums, unless you have the greatest script we have ever seen your not going to get in being so new.

2. The script is very simple I recommend looking into more advanced finiding methods like TPA's, BMP's or DTM's and walking is always a boost for an application.

3. Some parts of your script just don't make sense like Danny pointed out.

Try to learn some of the basics and then more complex material and try again once you have a strong script to apply with.

No sorry. I'm with Xol here. I would like to see greater activity and a higher standard of script.

Sorry and good luck on your next attempt.

Please take the advice given above and check out the tutorial section to learn some more advanced techniques. Also involve yourself in the community and get to know us! That is a big part of being a member at SRL.

Feel free to try again in 4 weeks. :)

Closed