SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
laurenssie0 - SRL Member Application Form
laurenssie0

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
Little VB6… VBS, and DOS. And scar

Other Communitys
These are mostly dutch

How Long have You Played Runescape
Started @ 4th July 2004 16 PM dutch time, so thats 1415 days :-) => almost 4 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I am 14 yrs old, IQ 131, and can do nice things with computers @ school =]
I live in Holland, in the little village of Zwijndrecht. Thats close to Rotterdam, maybe some of you know Rotterdam at all. My sport is Korfball (example @ youtube: http://www.youtube.com/watch?v=H4QqZdYxte0 (No, i dont appear in this movie :D)). I am at that kinda school where you learn Latin and Greek. (Don't know what it's called in USA :))

I have lots of spare time, and in that spare time I learned some SCAR scripting, every week 5 functions or so. I have about 6 weeks of school to go, so I won't be very active any more cuz I want to pass, so I thought this is a good moment to apply, before I forget.

Now a little about computer tricks, here in Holland adults (and especially the ones at our school) are lame-o. All ways to hack are open, even changing your marks. (hope school doesnt read this)

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program GetTarForMe;
{.include SRL/SRL.scar}
var
  RedDot, SwampTar, InvSwampTar, SwampTarCount, RandomRightClick, HoverSkillHerblore, MakeCompassRandom,
  RandomWait, RandomMovementCount, HoverSkillRandom, OpenQuestsTab : integer;

const
  StartPlayer = 0;                 // What player you want to start?

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;               // How many players?.
  NumberOfPlayers(HowManyPlayers);   // Array Length set;
  CurrentPlayer := StartPlayer;      // CurrentPlayer => Array Index

  Players[0].Name := 'Freddy1990';            //Username (duh!)
  Players[0].Pass := 'iMadeSCAR';            //password (duh!)
  Players[0].Nick := 'ade';            //3 or 4 letters of your user name(NOT First letter)
  Players[0].Active := True;            //Wanna use?
  Players[0].Integers[0] := 20;     //How much u want?
end;

procedure DeclareDTMs;
begin
  RedDot := DTMFromString('78DA639CC5CCC0C0C1C80002CC0C10F0878D8' +  // @ minimap
       'D811F483342F98CB38132EC04D4CCC254F34F4101D31C34BB3E02' +
       '314CCD7F20000030040B24');
  SwampTar := DTMFromString('78DA637CC5C0C050C70006CC108AC1CCC8888' +  //swamp tar look on ground
       '11F483342F98C2F814415AA1A237D7D54356F804423AA1A2B3333' +
       '54356F81442DAA1A35656554352F30DD636B690957F31F0800100' +
       '10E54');
  InvSwampTar := DTMFromString('78DA637466626078CA0006CC108A414B5D9D8' +  //swamp tar look in inventory
       '11F483342F98C1640350F50D5D85A5AA2AAB102AA7981AA46515E' +          //Counting still to come
       '1E558D1350CD5B5435566666A86A7C806A1EE356F31F08006ABE0' +
       'CFD');
end;



procedure AntiRandom;
begin
  FindNormalRandoms;
  FindInventoryRandoms;
  FindNonInventoryRandoms;
end;

procedure AntiBan;
begin
  case Random(10) of
    0 :
    begin
      HoverSkill('herblore', false);
      HoverSkillHerblore := HoverSkillHerblore + 1;
    end;
    1 :
    begin
      MakeCompass('random');
      MakeCompassRandom := MakeCompassRandom + 1;
    end;
    2 :
    begin
      Wait(1000+Random(200));
      RandomWait := RandomWait + 1;
    end;
    3 :
    begin
      RandomMovement;
      RandomMovementCount := RandomMovementCount + 1;
    end;
    4 :
    begin
      RandomRClick;
      RandomRightClick := RandomRightClick + 1;
    end;
    5 :
    begin
      HoverSkill('random', false);
      HoverSkillRandom := HoverSkillRandom + 1;
    end;
    6 :
    begin
      GameTab(3);
      OpenQuestsTab := OpenQuestsTab + 1;
    end;
  end;
end;

procedure RedDotMiniMap;
var
  x, y : integer;
begin
  if (not LoggedIn) then exit;
  AntiRandom;
  case Random(3) of
    0: SetRun(True);
  end;
  x := MMCX;
  y := MMCY;
  if (FindDTM(RedDot, x, y, MMX1, MMY1, MMX2, MMY2)) then
  begin
    Mouse(x, y, 0, 0, true);//pulled ranx and rany away!
    Flag;
    Wait(200+Random(100));
  end;
end;

procedure PickUpSwampTar;
var
  x, y, i : integer;
begin
  if (not LoggedIn) then exit;
  AntiRandom;
  x := MSCX;
  y := MSCY;
  Flag;
  Wait(300+Random(100));
  for i:=0 to 2 do
  begin
    if (FindDTM(SwampTar, x, y, MSCX-80, MSCY-60, MSCX+80, MSCX+60)) then
    begin
      MMouse(x, y, 1, 1);
      Wait(100+Random(100));
      if (IsUpText('wamp')) then
      begin
        GetMousePos(x, y);
        Mouse(x, y, 0, 0, false);
        Wait(100+Random(100));
        ChooseOption('wamp');
        SwampTarCount := SwampTarCount + 1;
        Flag;
        Wait(300+Random(200));
      end else
      begin
        {Writeln('DTM gevonden, geen tekst'); }
      end;
    end else
    begin
      if (FindColorTolerance(x, y, 3092274, MSCX-80, MSCY-60, MSCX+80, MSCX+60, 15)) then
      begin
        MMouse(x, y, 1, 1);
        Wait(100+Random(100));
        if (IsUpText('wamp')) then
        begin
          GetMousePos(x, y);
          Mouse(x, y, 0, 0, false);
          Wait(100+Random(100));
          ChooseOption('wamp');
          SwampTarCount := SwampTarCount + 1;
          Flag;
          Wait(300+Random(200));
        end else
        begin
          {Writeln('Kleur gevonden, geen tekst'); }
        end;
      end;
    end;
  end;
end;


procedure ProgressReport;
begin
  ClearDebug;
  Writeln('[Swamp Tar Gatherer]');
  Writeln('['+TimeRunning+']');
  Writeln('[Gathered '+IntToStr(SwampTarCount)+'Pieces of Swamp Tar]');
  Writeln('[Useless things below here]');
  Writeln('[Random RightClicks:= '+IntToStr(RandomRightClick)+' times]');
  Writeln('[Hover Herblore:= '+IntToStr(HoverSkillHerblore)+' times]');
  Writeln('[Random Compass Change:= '+IntToStr(MakeCompassRandom)+' times]');;
  Writeln('[Random Wait:= '+IntToStr(RandomWait)+' times]');
  Writeln('[RandomMovement:= '+IntToStr(RandomMovementCount)+' times]');
  Writeln('[Hover RandomSkill:= '+IntToStr(HoverSkillRandom)+' times]');
  Writeln('[Open Quests Tab:= '+IntToStr(OpenQuestsTab)+' times]');
end;

procedure Setup;
begin
  SetupSRL;
  ClearDebug;
  Writeln('[Swamp Tar Gatherer]');
  DeclarePlayers;
  DeclareDTMs;
  ActivateClient;
  if (not LoggedIn) then LoginPlayer;
end;
  

begin
  Setup;
  repeat
    RedDotMiniMap;
    PickUpSwampTar;
    AntiBan;
  until (SwampTarCount>(Players[CurrentPlayer].Integers[0]));
  ProgressReport;
  LogOut;
end.

——————————————————
<!– END TEMPLATE: formanswers –>

Ignore the things like {Writeln('Kleur gevonden, geen tekst'); }, just notes for me when testing

until (SwampTarCount>(Players[CurrentPlayer].Integers[0]));
  ProgressReport;
  LogOut;
end.

might want to do

  until (SwampTarCount>(Players[CurrentPlayer].Integers[0])) or Not LoggedIn;
  ProgressReport;
  LogOut;
end.
 

also this is not multiplayer.

you should make an second loop.

i hope you pass your exams, and even better is you pass them honestly, seeing that you have such a high IQ. i also hope that once summer starts you'll have more time to work on your scar coding and not forget to apply as you said you might.

Also, FindNormalRandoms already uses FindInventoryRAndoms and FindNonInventoryRandoms

~RM

From: Rasta Magician
i hope you pass your exams,
i wont probably :)

and even better is you pass them honestly
Lol you cant fake tests, seeing that you have such a high IQ. i also hope that once summer starts you'll have more time to work on your scar coding and not forget to apply as you said you might.
Dont mind my English, I said I live in Holland :-)

Also, FindNormalRandoms already uses FindInventoryRAndoms and FindNonInventoryRandoms
ow.

~RM

…

i'm not complaining about your English, i'm just saying i disapprove of this attitude:

"so I thought this is a good moment to apply, before I forget."

~RM

Lol i will be very busy. You know what that is? :)

-laurens

Looks like I won't be SRL Member… yet :(

Sorry, the script is a bit too basic to be member-worthy. Keep learning, you're on the right track. If I were you, I'd take a look at some of the threads that tell you what you need to become an SRL Member.

Btw my IQ pwns you - 132 :D, but I'm only 12 :p

@Runescapian:: Lol :p And I'll take a look at that forums

Yeah, sorry.. Too basic for me, only a few procedures and no multiplayer.. It's a no from me. Look over some tutorials on other ways to find objects and on how to use multiplayer.

No, sorry, rather basic and I think you should add some more fail safes :). Also, to count the swamp tars in your inventory do:

CountInvDTM('DTM';integer);

Someone please correct me on that if its wrong, but it is in the Inventory.scar include. :)

Nava2

I'm sorry, you're not getting in this time.
You may try again in one month, good luck.
Closed.