SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge


Other Communitys


How Long have You Played Runescape
2 years

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

I am trying to learn C++ aswell as SCAR, but im learning SCAR as a step before I get into C++. I love trying to figure it all out. I know im not to great right now but im trying the best I can. :D

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

{========================================================================================================)
|--------------------------------------Chaos Bone Burrier------------------------------------------------|
|========================================================================================================|
|     Description: This script runs around and picks up bones in the chaos temple then burries them      |
|--------------------------------------------------------------------------------------------------------|
|                * THIS IS MY FIRST ACTUAL SRL SCRIPT SO DON'T BE HARD ON ME                             |
|--------------------------------------------------------------------------------------------------------|
|     Advantages:   *Should solve possible randoms.                                                      |
|                   *Allows you to level your prayer without sitting there burying bones. DUH            |
|--------------------------------------------------------------------------------------------------------|
|     Disadvantages:   *Not very smooth.                                                                 |
|                      *A lot of random running around.                                                  |
|                      *Slower than doing it by yourself, but at least you dont have to.                 |
|--------------------------------------------------------------------------------------------------------|
|     Start your player logged out or in, standing in chaos temple.                                      |
|                                                                   SETUP LINES 33-36!                   |
(--------------------------------------------------------------------------------------------------------}
//////////////////////////////////////////////////////////////////////////////////////////////////////////
program ChaosBoneBurrier;  ///////////////////////////////////////////////////////////////////////////////
{.include SRL/SRL.scar}    ///////////////////////////////////////////////////////////////////////////////
{.include PH.scar}         ///////////////////////////////////////////////////////////////////////////////
var                        ///////////////////////////////////////////////////////////////////////////////
x,y,BonesBurried: integer; ///////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////////////////////
{---------------------------------------------------------------------------------------------------------)
|----------------------------------------------SETUP------------------------------------------------------|
(---------------------------------------------------------------------------------------------------------}
procedure DeclarePlayers;                                                                                //
begin                                                                                                    //
                                                                                                         //
  HowManyPlayers:= 1;              // Don't touch this.                                                  //
  CurrentPlayer:= 0;               // Don't touch this.                                                  //
  NumberOfPlayers(HowManyPlayers); // Don't touch this.                                                  //
                                                                                                         //
                                                                                                         //
  Players[0].Name := '';             // Username.                                                        //
  Players[0].Pass := '';             // Password.                                                        //
  Players[0].Nick := '';             // 2-4 letters of Username (that are not capital letters or numbers)./
  Players[0].Active := True;         // Don't touch this.                                                //
end;                                                                                                     //
                                                                                                         //
{---------------------------------------------------------------------------------------------------------)
|--------------------------------------------END OF SETUP-------------------------------------------------|
(---------------------------------------------------------------------------------------------------------}
///////////////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////DO NOT TOUCH////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////////////
Procedure AntiRandoms;
begin
  If(FindFight)then
  RunAway('N', True,1,15000);
  FindNormalRandoms;
  FindLamp('Prayer');
  SolveNonTalkingRandoms;
end;


Procedure PutOnRunCuzIDontKnowAnotherWay;
 begin
 MMouse(673, 476,1,1);
  wait(100+random(200))
   mouse(673, 476,1,1, true);
    wait(100+random(200))
     MMouse(635, 423,1,1);
      wait(100+random(200))
       mouse(635, 423,1,1, true);
      wait(100+random(200))
     MMouse(639, 183,1,1);
    wait(100+random(200))
   mouse(639, 183,1,1, true);
  wait(100+random(200))
 end;


Procedure CantFindBones;
 begin
  if not (FindColor(x, y, 13487571, MSX1,MSY1,MSX2,MSY2))
  then
             if (FindColor(x,y, 241,556, 5,687, 160))
              then
             MMouse(x,y,1,1);
              wait(300+random(300))
               mouse(x,y,1,1, true);
                end;


Procedure PickupBones;
 begin
  repeat
  AntiRandoms;
   if (FindColor(x, y, 13948378, MSX1,MSY1,MSX2,MSY2))
    then
     MMouse(x,y,1,1);
      if isuptext('ones')
      then
       Mouse(x,y,1,1, true);
        wait(4000+random(300))
         CantFindBones;
        until(InvFull)
    end;

Procedure BuryBones;
begin
repeat
AntiRandoms
 if (findcolor(x,y,12895436,550, 204,732, 463)) then
 MMouse(x,y,1,1);
  wait(100+random(20))
  mouse(x,y,1,1, true);
   wait(400+random(200))
   until not (findcolor(x,y,12895436,550, 204,732, 463))
    end;
    

   
Procedure Signature;
 begin
writeln('|MADE BY-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=|');
wait(200)
writeln('| _______  _   _  _____    ___    _   _  ______  _    _    ___    _   _  ______ |');
wait(200)
writeln('||__   __|| \ | || ____|  / _ \  | \ | ||  __  || \  / |  / _ \  | \ | ||  __  ||');
wait(200)
writeln('|   | |   |  \| || |___  / |_| \ |  \| || |  | ||  \/  | / |_| \ |  \| || |  | ||');
wait(200)
writeln('|   | |   | . ` ||___  ||  ___  || . ` || |  | ||      ||  ___  || . ` || |  | ||');
wait(200)
writeln('| __| |__ | |\  | ___| || |   | || |\  || |__| || |\/| || |   | || |\  || |__| ||');
wait(200)
writeln('||_______||_| \_||_____||_|   |_||_| \_||______||_|  |_||_|   |_||_| \_||______||');
wait(200)
writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');
wait(200)
  end;
   
begin
ClearDebug
 SetupSRL;
 DeclarePlayers;
  Signature;
   wait(1000+random(500))
    ClearDebug;
     LoginPlayer;
      wait(3000)
      repeat
      PutOnRunCuzIDontKnowAnotherWay;
        PickupBones;
         BuryBones;
          ClearDebug
      until(false)

end.

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

Not voting yet because I can't anyways some tips:

Procedure PutOnRunCuzIDontKnowAnotherWay;
 begin
 MMouse(673, 476,1,1);
  wait(100+random(200))
   mouse(673, 476,1,1, true);
    wait(100+random(200))
     MMouse(635, 423,1,1);
      wait(100+random(200))
       mouse(635, 423,1,1, true);
      wait(100+random(200))
     MMouse(639, 183,1,1);
    wait(100+random(200))
   mouse(639, 183,1,1, true);
  wait(100+random(200))
 end;

Can be changed to:

Setrun(true);

Also the standards are way off and its rather simple.

Don't get me wrong though, it's good for a first try.

No, too simple. You don't use correct standards, almost static coordinate clicks (for the setting of run). There is no multi-player. Not very good use of SRL. You don't have failsafes in some parts.

read tutorials at the tutorial island. really great basic tuts. keep it up! and dont give up

good try tho im not sure your ready.

Procedure CantFindBones;
 begin
  if not (FindColor(x, y, 13487571, MSX1,MSY1,MSX2,MSY2))
  then
             if (FindColor(x,y, 241,556, 5,687, 160))
              then
             MMouse(x,y,1,1);
              wait(300+random(300))
               mouse(x,y,1,1, true);
                end;

wont be that reliable imo , you should use SRLs tpa finding or make your own if your upto it

also that procedure should look like this

Procedure CantFindBones;
begin
   if not (FindColor(x, y, 13487571, MSX1,MSY1,MSX2,MSY2)) then
     if (FindColor(x,y, 241,556, 5,687, 160)) then
       MMouse(x,y,1,1);
       wait(300+random(300))
       mouse(x,y,1,1, true);
     end;

i think ;)

Procedure BuryBones;
begin
repeat
AntiRandoms
 if (findcolor(x,y,12895436,550, 204,732, 463)) then
 MMouse(x,y,1,1);
  wait(100+random(20))
  mouse(x,y,1,1, true);
   wait(400+random(200))
   until not (findcolor(x,y,12895436,550, 204,732, 463))
    end;
    

wont work that well either learn dtms, failsafes ect…

rocedure BuryBones;
begin
  repeat
    AntiRandoms
    if (findcolor(x,y,12895436,550, 204,732, 463)) then
    MMouse(x,y,1,1);
    wait(100+random(20))
    mouse(x,y,1,1, true);
    wait(400+random(200))
   until not (findcolor(x,y,12895436,550, 204,732, 463))
 end;

i think dont kill me if im wrong…..

as i was saying learn dtms, fails safes and tpa or learn to use srls ones…

also proggies are handy as well to make proggies its simple here let me tell you how to

in your bury bone procedure, you detected that you have no bones by the no bones procedure then to show in your proggie that you have done the full load do this

1. Add "done" to your var
2. add this after the last line in your bury bones procedure

Done := Done + 28;

then to put into your proggie

Writeln('`_-_-_-_-_-_-_–_-' + IntToStr(Done) + 'gp-_-__-_-_-_-_-_-_-_|');

then just call the proggie in mainloop like

begin
  ClearDebug
  SetupSRL;
  DeclarePlayers;
  Signature;
  wait(1000+random(500))
  ClearDebug;
  LoginPlayer;
  wait(3000)
  repeat
    PutOnRunCuzIDontKnowAnotherWay;
    PickupBones;
    BuryBones;
    ClearDebug
    (your proggie procedure here)
 until(false)
 
end.

also il give you a brief lesson the simple multiPlayer……


in your main loop just add something in like this

if (Loads = Players[CurrentPlayer].Integers[0]) then
       begin
         NextPlayer(True);
         MakeCompass('S')
         Writeln('Players Switched successfully')
         end;
         Proggie;
       until (False);

the detects if the player has done how many loads it was talk to do also you would have to put the Integers[0] into the player setup ;)



im not going to vote on this app beacuse i am a new member and i want to look at other apps before i start voting

good first try consider the things i said in next app ;)

ok well I am fine with not being upgraded right now. I thank you all for the comments and help. I am pretty new and am trying my best to learn everything!!!!!! but thank you for your guys help. U can expect my next script to be WAY BETTER !!!!!! :D

From: insanomano
ok well I am fine with not being upgraded right now. I thank you all for the comments and help. I am pretty new and am trying my best to learn everything!!!!!! but thank you for your guys help. U can expect my next script to be WAY BETTER !!!!!! :D

haha thats what we're expecting man, improve your script MUCH better and come back with an app. Your standards need work and remember Mouse is a pretty unreliable function without failsafes. better luck next time.

No from me

Remember you have to w8 1 month

ummm u guys can delete this thread or w/e lol im working on a way better script and I dont want people looking at this embarrassing app lol. now this is all ima post on this thread so plz delete. :D

It seems like you're not getting in this time.
You may try again in two weeks, good luck! :)
Closed.