SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
HTML, C#

Other Communitys


How Long have You Played Runescape
4 years

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

….. I am……
Niki =) sweet

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

program Powerminer;
{.Include SRL/SRL/MISC/SMART.SCAR}
{.Include SRL/SRL.SCAR}
{.Include SRL/SRL/REFLECTION/REFLECTION.SCAR}

const
  IronColor = 2569301; // IronOre Color
  LoadsToDo = 500;    // How many loads you want to do.
  Wielded = 2;       // Is your pickaxe wielded? 1 = true, 2 = false.

var
  ScriptStart: Boolean;

Procedure DeclarePlayers;
begin
  CurrentPlayer := 0;
  HowManyPlayers:= 1;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name        := ''; //<RuneScape username.
  Players[0].Pass        := '';      //<RuneScape password.
  Players[0].Nick        := 'crazy';           //<Nickname, 4-5 characters
  Players[0].Active      := True;           //<Will this character be used?
end;

Procedure SetupPlayer1;
begin
  wait(500 +random(500));
  if (not(LoggedIn)) then LoginPlayer;
  wait(500 +random(500));
  MouseSpeed := 12+random(2);
  wait(500 +random(500));
end;

Procedure SetUps;
var
  x, y: Integer;
begin
  SMARTSetUp('world62', True, True, False);//<World, safe mode, signed, RS-HD
  while not SmartActive do wait(1000);
  WriteLn('Successfully set up SMART.');
  SetTargetDC(SMARTGetDC);
  SetUpSRL;
  WriteLn('Successfully set up SRL.');
  Disguise('PowerMiner');
  DeclarePlayers;
  Status('Waiting for Runescape to load.');
  ScriptStart := true;
  SetupPlayer1;
  WriteLn('Successfully set up all includes.');
  begin
    WriteLn('Setting private chat and assistance off.');    //Private
    if not FindColor(x, y, 255, 187, 490, 220, 500) then
    begin
      Mouse(RandomRange(179, 225), RandomRange(484, 500), 0, 0, false);
      wait(200 +random(150));
      ChooseOption('Off');
      wait(500 +random(250));
    end;
    if not FindColor(x, y, 255, 360, 493, 387, 499) then    //Assist
    begin
      Mouse(RandomRange(351, 397), RandomRange(483, 499), 0, 0, false);
      wait(200 +random(150));
      ChooseOption('Off');
    end;
    MakeCompass('n');
    SetAngle(true);
  end;
end;

procedure AntiRandoms;
begin
  if (not(LoggedIn))then Exit;
  FindNormalRandoms;
  if FindFight then
  begin
    RunAway('n', true, 1, 7000);
  end;
end;

{*******************************************************************************
Procedure WaitWhileMine;
By: Orange
Description: Waits until you have mined the rock or until the time is up before
             continuing.
*******************************************************************************}
Procedure WaitWhileMine;
var
  IsMining: Integer;
begin
  wait(2494 +random(516));
  if FindBlackChatMessage('swing') then
  begin
    repeat
      wait(91 +random(58));
      Inc(IsMining);
    until FindBlackChatMessage('manage') or (IsMining > 50);
    wait(216 +random(38));
  end;
end;

procedure DropOre;
var
  Item: Integer;
begin
  for item:=Wielded to 28 do
  dropitem(item);
end;

procedure MineOre;
label
  Loads1;
var
  Loads, x, y: Integer;

begin
  Loads1:
  repeat
  wait(500);
    if FindColorTolerance(x, y, IronColor, 0, 0, 514, 336, 6) then
    begin
      MMouse(x, y, 6, 6);
      wait(120 +random(80));
      if IsUpText('ock') then
      begin
        Mouse(x, y, 0, 0, true);
        WaitWhileMine;
      end;
      AntiRandoms;
    end;
  until InvFull;
  wait(120 +random(80));
  if InvFull then
  begin
    DropOre;
  end;
  if Loads < LoadsToDo then
  begin
    goto Loads1;
  end;
  LogOut;
  TerminateScript;
end;

Procedure MainLoop;
begin
  SetUps;
  MineOre;
end;

begin
  MainLoop;
end.

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

You have your user/pass in the script, wouldnt worry too much cuz this is srl members but take it out ;) i vote no, does not use TPA's,DTM's does not walk anywhere, a very simple script, although i do like your use of labels, it is generally looked down on but i like them :D read some more tuts and apply again later…

No

The script is quite simple and doesn't show you know much (or any) about the more advanced functions of SRL. I'd like to see some walking, banking, and some more failsafes. Something with those included would show me that you really know what you're doing.

Sorry no:

Lacks dtms, even bitmaps.
Lacks tpas,
You use FindColor? Use FindColorsSpiralTolerance then MiddleTPA and that's your tpoint.

Sorry No,
Cut em2 it

yea bit short, maybe dtms and use of arrays and you would have my yes, Good luck next time.

sorry ^^

No.
And, that paragraph about you is lame.

From: Bam Bam
No.
that paragraph about you is lame.

Totally agreed. Write some stuff about yourself, not just your name.. Thats what it's ment for. And use some more advanced functions, like walking or (D)DTMs.

I'm going to have to give it a no also.

For setting the chats, SRL has procedures for that.

During both your mining and your dropping procedures, you don't use failsafes and also use very basic techniques. I would suggest reading some more scripting tutorials about more advanced techniques such as TPA's, check out tutorial island.

It seems like you're not getting in this time, sorry.
You may try again in one month.
Closed.