SRL Archive - Archive

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

What is the meaning to life?
Having Fun!

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


Programming Knowledge
HTML, a bit PHP, and a bit Java.

Other Communitys
RaGEZONE

How Long have You Played Runescape
Over 5 years

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

Hello, i am a 12 (yes, 12) years old boy, with a great eager to learn.
At http://www.freewebs.com/floor69/ You can see an example of my HTLM knowledge.
(the site says im 10 years old, if ur smart enough u can know that i made the site when i was 10!)

After reading tutorials, studieng others' scripts, ive made my own script!

The last tutorial i took was for a MultiPlayer PowerChopper, i took some things of it, and made my own PowerMINER.

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

program PowerMinerByFloor66;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Mining.scar}

{*
I Suggest you start Logged Out, but Logged In is also working.
Setup at Line 20.
Best used in a place with mostly only the ore you want to mine.
Best to stand next to the ore you want to mine.
Will Log Out if no ore is found in 2mins.
Only for 'old' rocks, because it can only set one color


I (Floor66) made almost ALL of the script, except some. :P
*}



var
x, y: Integer;

{*///////////////////////////////////////////////////////////////////////////////////////////////////////
|                                   Start Of Setup                                                      |
////////////////////////////////////////////////////////////////////////////////////////////////////////*}

const
  MSpeed=20;                {*//Set MouseSpeed 1 For Slowest, 50 For Fastest.
  ^^^^^^^^^^                  //I recommend 20.*}
  LoadsPerPlayer = 10;        //Amounts of loads per player before switching.
  OreColor = 1844283;         //Fill in the orecolor here. (Standard is Iron).
  WaitPerOre = 7500;          //The time to wait while you are mining in Miliseconds.
  PickInInventory = False;    //False if you wield your pick, True if you have pick in inventory.
  RunDir='S';                 //Wich direction to run when in Fight?



procedure DeclarePlayers;
begin
  NumberOfPlayers(6);        // Set Amount of Players here
  CurrentPlayer := 0;        // Wich player starts?

  Players[0].Name := '';     //Username
  Players[0].Pass := '';     //Password
  Players[0].Nick := '';     //3-4 Letters of Username (e.x: sern)
  Players[0].Active := True; //Player Active?

  Players[1].Name := '';     //Username
  Players[1].Pass := '';     //Password
  Players[1].Nick := '';     //3-4 Letters of Username (e.x: sern)
  Players[1].Active := True; //Player Active?

  Players[2].Name := '';     //Username
  Players[2].Pass := '';     //Password
  Players[2].Nick := '';     //3-4 Letters of Username (e.x: sern)
  Players[2].Active := True; //Player Active?

  Players[3].Name := '';     //Username
  Players[3].Pass := '';     //Password
  Players[3].Nick := '';     //3-4 Letters of Username (e.x: sern)
  Players[3].Active := True; //Player Active?

  Players[4].Name := '';     //Username
  Players[4].Pass := '';     //Password
  Players[4].Nick := '';     //3-4 Letters of Username (e.x: sern)
  Players[4].Active := True; //Player Active?

  Players[5].Name := '';     //Username
  Players[5].Pass := '';     //Password
  Players[5].Nick := '';     //3-4 Letters of Username (e.x: sern)
  Players[5].Active := True; //Player Active?

end;

{*///////////////////////////////////////////////////////////////////////////////////////////////////////
|                                   End Of Setup                                                        |
////////////////////////////////////////////////////////////////////////////////////////////////////////*}

procedure AntiRandomAll;
begin
  if  (FindNormalRandoms = True) then
  begin
  FindNormalRandoms;
  end;
  if (FindTalk = True) then
  begin
  SolveChatRandom;
  end;
  if (FindBox = True) then
  begin
  SolveBox;
  end;
  if (FindFrogCave = True)then
  begin
  SolveFrog;
  end;
  if (FindFight = True)then
  begin
  MakeCompass(RunDir);
  Gametab(11);
  if (FindColor(x, y, 1711220, 622, 415, 662, 452))then
  Mouse(x, y, 2, 2, true);
  end;
  Mouse(642, 12, 1, 1, true);
  end;



procedure MineTheOre;
var x, y, MyMark: Integer;
begin
  if not LoggedIn then Exit;
  MarkTime(MyMark);
  repeat
   if FindObj(x, y, 'ine', OreColor, 30) then
   begin
   Mouse(x, y, 0, 0, False);
   if ChooseOption('ine') then
   GasCheck(x, y);
   Wait(WaitPerOre);
   Exit;
   end;
   if TimeFromMark(MyMark) > (2 * 60 * 1000) then
   begin
     LogOut;
     Exit;
   end;
  until(false);
end;



////////////////////////////////////////////////////////////////////////////////
{///////////////////////////////////////////////////////////////////////////////
                    --Needed this for dropping--
////////////////////////////////////////////////////////////////////////////////}
////////////////////////////////////////////////////////////////////////////////

{*******************************************************************************
Fuction by JAD
ChooseOptionFast
Needed for DropToFast
*******************************************************************************}

function ChooseOptionFast(x, y, Over: Integer; txt: string): Boolean;
var
  x1, y1, x2, y2, LeftCorner, RightCorner: Integer;
begin
  LeftCorner := BitmapFromString(4, 4, 'z78DA33753135313137C5' +
    '411A600064715CEA914500CACE13F0');
  RightCorner := BitmapFromString(4, 4, 'z78DA33753135313137' +
    'C5200D30002E35F8C501C9C013F0');
  if (FindBitmap(LeftCorner, x1, y1)) and (FindBitmap(RightCorner, x2, y2)) then
  begin
    if (FindText(x, y, txt, upchars, x1, y1, x2, 502)) then
    begin
      Result := True;
      Mouse(x + Length(txt) * 3 + (Over), y + 3, 2, 2, True);
    end
    else if (FindText(x, y, 'Cancel', upchars, x1, y1, x2, 502)) then
      Mouse(x + 9, y + 3, 2, 2, True);
  end;
  FreeBitmap(LeftCorner);
  FreeBitmap(RightCorner);
end;



{*******************************************************************************
Procedure by JAD
Drops faster then DropTo.
Had to use because DropTo doesnt work for me.
*******************************************************************************}

procedure DropToFast(StartSlot, EndSlot: Integer);
var FastSlot: array[1..28] of Integer;
  DropSlot: array[1..28] of TPoint;
  I, Q, T: Integer;
begin
  T := 1;
  for I := 1 to 28 do
  begin
    FastSlot[i] := T + Q;
    Q := Q + 4;
    if(Q > 24)then
    begin
      T := T + 1;
      Q := 0;
    end;
  end;
  GameTab(4);
  Q := 0;
  for I := StartSlot to EndSlot do
  begin
    if(ExistsItem(FastSlot[i]))then
    begin
      DropSlot[i] := ItemCoords(FastSlot[i]);
      Mouse(DropSlot[i].x,DropSlot[i].y,3,3,false);
      if(I > 7)then
        ChooseOptionFast(x,y,30,'Drop') else
          ChooseOptionFast(x,y,4,'Drop');
    end;
  end;
end;

//////////////////////^^^^^^^^^^^^^^^^^^^^^^^^^/////////////////////////////////
{/////////////////////^^^^^^^^^^^^^^^^^^^^^^^^^/////////////////////////////////
                    --Needed this for dropping--
////////////////////////////////////////////////////////////////////////////////}
////////////////////////////////////////////////////////////////////////////////

procedure AntiBan;
begin
  PickUpMouse;
  Gametab(1+random(12));
end;



procedure CompassAlign;
begin
  MakeCompass('W');
  wait(30+random(10));
  HighestAngle;
  gametab(1+random(10));
end;



begin
  SetupSrl;
  DeclarePlayers;
  MouseSpeed := MSpeed;
  if LoggedIn then LogOut;
  LoginPlayer;
  repeat
   MineTheOre;
   AntiBan;
   CompassAlign;
   AntiRandomAll;
   if InvFull then
   begin
    if (PickInInventory) then DropToFast(2, 28);
    if (not(PickInInventory)) then DropAll;
    Inc(Players[CurrentPlayer].Banked);
    if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
    begin
    NextPlayer(True);
    end;
   end;
   if not LoggedIn then NextPlayer(False);
  until(false)
end.

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

Sorry But No…

procedure AntiRandomAll;
begin
  if  (FindNormalRandoms = True) then
  begin
  FindNormalRandoms;
  end;
  if (FindTalk = True) then
  begin
  SolveChatRandom;
  end;
  if (FindBox = True) then
  begin
  SolveBox;
  end;
  if (FindFrogCave = True)then
  begin
  SolveFrog;
  end;
  if (FindFight = True)then
  begin
  MakeCompass(RunDir);
  Gametab(11);
  if (FindColor(x, y, 1711220, 622, 415, 662, 452))then
   ouse(x, y, 2, 2, true);
  end;
  Mouse(642, 12, 1, 1, true);
  end;

Wtf? lol u call every normal randoms twice and every thing elce 3/4 times…

procedure AntiRandomAll;
begin
  FindNormalRandoms;
  if (FindFight)then
  begin
    MakeCompass(RunDir);
    Gametab(11);
    if (FindColor(x, y, 1711220, 622, 415, 662, 452))then
    begin
      Mouse(x, y, 2, 2, true);
    end;
  end;
  Mouse(642, 12, 1, 1, true);
end;

It should be like that ^^^^^^^^^^^
But that might now work… what color is it clicking?

MakeCompass(RunDir)

To

RunAwayDirection(RunDir)

and youll need a

RunBack;

also its very simple

We Want Experienced Scripters :)

there is way more, but I cant list now… im to bussy :D

Nice catch but Try your best luck next time and take other script or SRL member script like wizzup ess miner or nielsie tutisle runner as a reference and that will help you a lot plus some other tutorial written by these ppl

Boreas
JAD
Nielsie
BobboHobbo
Yohojo
Zephy

All I can say is:
a) This script barely demonstrates the basics of SRL
b) There are many flaws in the script
c) Much of the length consists of player setup and functions written by JAD

Go swim to tut island and spend your vacation there. All I saw from that script was your calling methods that already exist. SRL comes with some nice includes, and I'm sure someone can get in without creating their own methods, but honestly it would demonstrate your programming knowledge a lot better than calling methods already written or copying methods from other people.

It looks good, surely shows you undestand the Multiplayer part in SRL. :)
You can just call FindNormalRandoms; though, you don't need to make your own. ;)

Yeah, what wizzy said and plus that you can make your own local boolean variable for it, and do "TheBoolean := FindNormalRandoms;" and then do something like "If TheBoolean Then Logout;" or something like that ;)

looked at the script. it looks a bit to simple to me, alse couse legaly copied 2 procedures of jad.

sorry but i want to see more from you. you made a good start, but it's just not enough to get into members.

gl scripting/botting!

From: tylanbo
All I can say is:
a) This script barely demonstrates the basics of SRL
b) There are many flaws in the script
c) Much of the length consists of player setup and functions written by JAD

Go swim to tut island and spend your vacation there. All I saw from that script was your calling methods that already exist. SRL comes with some nice includes, and I'm sure someone can get in without creating their own methods, but honestly it would demonstrate your programming knowledge a lot better than calling methods already written or copying methods from other people.

Take it easy…geeze. He isn't an SRL Developer.

No from me. Sorry. All reasons are started above.

90% must be your own made… NO

Good try, but it looks like everyone wans to see more of your code, and less of others.
And also more use of Bitmaps/DTMs/ and other useful scare tidbits =)
Try reading some tutorials and trying again later.
Good Luck.