SRL Archive - Archive

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

What is the meaning to life?
My meaning of life is a very delicate state of mind where u can do anything u want

Where you Referred to SRL? If yes, by whom?
yes. Town


Programming Knowledge
No

Other Communitys
Sythe.org

How Long have You Played Runescape
4-5 years

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

Sup SRL Members! I wanna be an SRL member too! :D So im gonna present a script that I made, its preatty desent so i hope ya like it! Also, stuff about myself, i love runescape and SCAR. I love cats! Im not a people person. I like staying up late. I LOVE FAMILY GUY! (stewie rocks) Im 13! :D and im Respectful! So have fun wit my script :D

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

/////////////////////////////////////////////////////////////////////////
//                                                                     //
//                          Script Info                                //
//                  Name: Oak Cutter and Banker 1000                   //
//                  Author: 71runemaker                                //
//                  Version: 2.0                                       //
//                  SCAR Version: 2.03+                                //
//                  SRL Version: Tested with 3.7                       //
//                  Description: Cuts and banks a full load of Oak     //
//                               In Varrock and banks its              //
//                                                                     //
//                          Instructions                               //
//                  Start at varrock west bank last bank slot          //
//                  Axe equipped or in first inv slot                  //
//                  Extra axes in first bank slot (not needed)         //
//                  Setup colors, declare players, and hit run         //
//                                                                     //
//                          *UPDATE HISTORY*                           //
//                  Version 1.0                                        //
//                  First Release                                      //
//                                                                     //
//                  Version 1.1                                        //
//                  Improved walking to oaks                           //
//                  Added Ent finder                                   //
//                  Added axe head finder                              //
//                  More anti-ban                                      //
//                                                                     //
//                  Version 1.2                                        //
//                  Multiplayer working                                //
//                  Added failsafe (sorta)                             //
//                  Fixed open bank procedure                          //
//                                                                     //
//                  Version 2.0                                        //
//                  Fixed walking to oaks                              //
//                  Won't quit after you cut oaks                      //
//                                                                     //
//                                                                     //
//                                                                     //
/////////////////////////////////////////////////////////////////////////

program OakCutterAndBanker;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}

var
 i: Integer;

////////////////////////////////Setup////////////////////////////////////
                                                                       //
const TreeColor1 = 1990736; //Color of Oak Tree                        //
const TreeColor2 = 2906184; //Another color of Oak Tree                //
const TreeColor3 = 1452064; //Another color of Oak Tree                //
const RoadMM = 7107446; //Color of road on minimap                     //
const GrassC = 2841950; //Color of grass on MainScreen                 //
const GrassCMM = 2974821; //Color of grass near trees MiniMap          //
const BankMini = 3099734; //Color of bank floor on MiniMap             //
const BankColor1 = 3099734; //Color of bank floor on MainScreen        //
const Wait1 = 3000; //Time to wait before clicking tree again          //
const Loads = 2; //Load want to do before switching characters         //
                                                                       //
//////////////////////////////////End////////////////////////////////////

procedure DeclarePlayers;

begin
     HowManyPlayers  :=6;               // How many players are you using?
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:=0;                  // Starting Player

     Players[0].Name :='Username';
     Players[0].Pass :='Password';
     Players[0].Nick :='Nickname';
     Players[0].Active:=True;
     Players[0].Boolean1:=True;  //True if you can weild axe, false if cannot

     Players[1].Name :='Username';
     Players[1].Pass :='Password';
     Players[1].Nick :='Nickname';
     Players[1].Active:=False;
     Players[1].Boolean1:=True;  //True if you can weild axe, false if cannot

     Players[2].Name :='Username';
     Players[2].Pass :='Password';
     Players[2].Nick :='Nickname';
     Players[2].Active:=False;
     Players[2].Boolean1:=True;  //True if you can weild axe, false if cannot

     Players[3].Name :='Username';
     Players[3].Pass :='Password';
     Players[3].Nick :='Nickname';
     Players[3].Active:=False;
     Players[3].Boolean1:=True;  //True if you can weild axe, false if cannot

     Players[4].Name :='Username';
     Players[4].Pass :='Password';
     Players[4].Nick :='Nickname';
     Players[4].Active:=False;
     Players[4].Boolean1:=True;  //True if you can weild axe, false if cannot

     Players[5].Name :='Username';
     Players[5].Pass :='Password';
     Players[5].Nick :='Nickname';
     Players[5].Active:=False;
     Players[5].Boolean1:=True;  //True if you can weild axe, false if cannot
end;

procedure NoBan;
 begin
  RandomRClick;
  PickUpMouse;
 end;

procedure WalkToOaks;
begin
 RadialWalk(BankMini , 266, 626, 21, 0, 0);
 FFlag(2);
 RadialRoadWalk(BankColor1, 266, 626, 21, 0, 0);
 FFlag(2);
 RadialWalk(RoadMM, 212, 572, 45, 0, 0);
 FFlag(2);
 RadialRoadWalk(RoadColor, 212, 572, 45, 0, 0);
 FFlag(2);
 RadialWalk(GrassCMM, 227, 587, 34, 0, 0);
 FFlag(2);
 RadialRoadWalk(GrassC, 227, 587, 34, 0, 0);
end;

procedure CutOaks;
 begin
  FindAxeHeadColor;
  repeat
   if (FindColor (x,y,TreeColor1,0,0,600,600)) and
      (FindColor (x,y,TreeColor2,0,0,600,600)) and
      (FindColor (x,y,TreeColor3,0,0,600,600)) and
      (IsUpText('Oak')) then
      Mouse(x,y,1,1,true);
      Wait(Wait1+random(1000));
      FindHead;
      FindEnt(TreeColor1);
      NoBan;
   if (not(IsUpText('Oak'))) then Writeln('Cannot find text Oak, terminating script')
   until (InvFull);
 end;

procedure WalkToBank;
 begin
  RadialWalk(RoadMM , 58, 418, 62 ,0, 0);
  FFlag(2);
  RadialRoadWalk(RoadColor, 58, 418, 62, 0, 0);
  FFlag(2);
  RadialWalk(BankMini , 349, 709, 22, 0, 0);
  FFlag(2);
  RadialRoadWalk(BankColor1, 349, 709, 22, 0, 0);
 end;

procedure BankOaks;
 begin
  OpenBank3;
  DepositAll;
  CloseBank;
 end;

begin
 SetupSRL;
  repeat
   WalkToOaks;
   CutOaks;
   WalkToBank;
   BankOaks;
  until (i >= Loads) or (not LoggedIn)
 repeat
 NextPlayer(false);
 until (false)
end.

/////////////////////////////////////////////////////////////////////////
//                                                                     //
//                          Script Info                                //
//                  Name: Iron Power Miner 1000                        //
//                  Author: 71runemaker                                //
//                  Version: 1.0                                       //
//                  SCAR Version: 2.03+                                //
//                  SRL Version: Tested with 3.7                       //
//                  Description: Mines a full load of iron             //
//                               Then drops it.                        //
//                                                                     //
//                          Instructions                               //
//                  Start at the Dwarven Mines                         //
//                  Have your pickaxe wielded or in first bank slot    //
//                  Declare players                                    //
//                  Setup colors                                       //
//                  Drag crosshair to runescape screen                 //
//                  Press Start                                        //
//                                                                     //
//                          *UPDATE HISTROY*                           //
//                  Version 1.0                                        //
//                  First release                                      //
//                                                                     //
/////////////////////////////////////////////////////////////////////////

Program IronPowerMiner;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Mining.scar}

Var
 i: Integer;
 
////////////////////////////////Setup////////////////////////////////////
                                                                       //
Const RockColor1 = 0; //Color of iron                                  //
Const RockColor2 = 0; //Another color for iron                         //
Const LoadsToDo = 0; //Number of Loads to do before switching players  //
Const Wait1 = 0; //Time to wait before clicking rock again             //
                                                                       //
//////////////////////////////////End////////////////////////////////////

Procedure DeclarePlayers;

Begin
     HowManyPlayers  :=6;               // How many players are you using?
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:=0;                  // Starting Player

     Players[0].Name :='Username';
     Players[0].Pass :='Password';
     Players[0].Nick :='Nickname';
     Players[0].Active:=True;
     Players[0].Boolean1:=True;  //True if you can weild axe, false if cannot

     Players[1].Name :='Username';
     Players[1].Pass :='Password';
     Players[1].Nick :='Nickname';
     Players[1].Active:=False;
     Players[1].Boolean1:=True;  //True if you can weild axe, false if cannot

     Players[2].Name :='Username';
     Players[2].Pass :='Password';
     Players[2].Nick :='Nickname';
     Players[2].Active:=False;
     Players[2].Boolean1:=True;  //True if you can weild axe, false if cannot

     Players[3].Name :='Username';
     Players[3].Pass :='Password';
     Players[3].Nick :='Nickname';
     Players[3].Active:=False;
     Players[3].Boolean1:=True;  //True if you can weild axe, false if cannot

     Players[4].Name :='Username';
     Players[4].Pass :='Password';
     Players[4].Nick :='Nickname';
     Players[4].Active:=False;
     Players[4].Boolean1:=True;  //True if you can weild axe, false if cannot

     Players[5].Name :='Username';
     Players[5].Pass :='Password';
     Players[5].Nick :='Nickname';
     Players[5].Active:=False;
     Players[5].Boolean1:=True;  //True if you can weild axe, false if cannot
End;

Procedure NoBan;
 Begin
  SayCurrentLevels('mining');
  HoverSkill('mining',false);
  PickUpMouse;
  BoredHuman;
 End;

Procedure MineIron;
 Begin
  FindPickHeadColor;
   Repeat
    If(FindColorSpiral(x,y,RockColor1,0,0,600,600)) or
      (FindColorSpiral(x,y,RockColor2,0,0,600,600)) and
      (IsUpText('Iron')) then
      Mouse(x,y,0,0,true);
      Wait(Wait1+random(2000));
      FindPick;
      NoBan;
   Until(InvFull)
 End;
 
Procedure DropIron;
 Begin
  DropAll;
 End;
 
Begin
 SetupSRL
   Repeat
    MineIron;
    DropIron;
   Until (i >= LoadsToDo) or (not LoggedIn)
  Repeat
  NextPlayer(false)
  Until(false)
End.

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

Hmm..not sure what to vote. It looks a bit simple. I'll wait for others but a tiny possibility it'll be a yes.

kewl :D

i don't think the walking is very good since we need to set ALL the color of the MM before we start the script you should read Nielsie's TUT on auto coloring its really works Iv'e tried it myself and works great with MM auto coloring too well not sure what to vote.. =S

and also after 10-15 mins the colors change even if you are logged in :S

Im voting no … 2/3 of your script is setup and its easily made .. besides that you humbily asked me to look at your app …

oops srry :D

Its ok … but dont do it again ;) thats not the main reason why i voted no though, so rest assured.

Sumilion, why's your English so good when you come from…the Netherlands. Do they teach you English at school?

Quickly changed it to the Netherlands eh :p

Movies … its all in ze movies ;)

And they teach English at school…

Movies …

Haha how'd you know I changed it :p

I could swear that the Moderators/Admins know everything.

Just wondering, how about the accent? You have a perfect accent, slightly Netherland-ish or…?

Slightly off topic - ish or …?

Sorry its a no from me. The script just is too simple. But, if you improve a bit, make few more complex scripts and try again in a month im quite sure you will get in.

k im gonna put in an iron power miner too at the end so look at that :D

From: SantaClause
Haha how'd you know I changed it :p

I could swear that the Moderators/Admins know everything.

Just wondering, how about the accent? You have a perfect accent, slightly Netherland-ish or…?

Had an english oral exam last week and i got a 9 (from 1-10). Think that answers your question :).

Sorry, the iron miner is not too good either. Your antiban is kinda GetABan because SayCurrentLevels does say only the level, everytime same procedures, in same order. Suspicious eh?

eh…
i guess
i could put random time like

SayCurrentLevels('mining'+random(200000));

or somethin…

71, you know whaty ure doing. Just make it better, more complex, more stable. more fail safes, more fail proofs.

Try testing your script in rs, it wil probably fail for some reason neither you or i would ever guese., and give you plenty of stuff to work on.

good luck!

is it true that i have to wait a whole MONTH till i post another app?

yes.

wat if i wait about 1 week? then i post it what will happen?

everyone will vote no.

man idk why everyone is voting no :(

-.- garret, tell him why.
Sorry 71, but you need to wait one month before applying again.
You can wait one month after this and try again if you dont get in.

From: 71runemaker
wat if i wait about 1 week? then i post it what will happen?

You just applied a week ago…. http://www.villavu.com/forum/showthread.php?t=12682 ….and everyone has been giving you good feedback about your application….Please take the next 30 days…to read some tutorials.. http://www.srl-forums.com/forum/tutorial-island-f46.htm

apply for a mentor….

http://www.villavu.com/forum/showthread.php?t=12438

..post a script in the free section…

http://www.srl-forums.com/forum/srl-free-scripts-f109.html

.....get some feedback…apply back here with some credibility…..

Good Luck,

~RAM

and BTW, I strongly advise not pushing your luck any more and applying in less than 30 days :rolleyes:

EDIT: YoJoHo, I was in the process of telling him why, but it looks like you hit submit while i was getting the links :p

ok thx for the info :D

wonder who voted yes?

Double post…I don't really like it when they keep pushing their luck. They keep saying that the script has improved alot and try to use as an excuse.

Why are you so desperate to become a member anyway? It's a privilege and all, but I'd rather get in with everyone being satisfied with my work rather than getting in cheaply, with alot of disgruntled people. Make sense?

*Cough* When do I become a moderator *Cough*

lol, the only real reason that i want to be an srl member is for Tarajunkys Chicken Killer :D:D:D:D

Ahh. You shouldn't have said that. It's gonna be even harder now for you to get in. If the members see that you want to get into members just for the sake of better scripts, you're in for a rude awakening (BenLand).

Does that old script even work anymore ? :rolleyes:

if (not(IsUpText('Oak'))) then Writeln('Cannot find text Oak, terminating script')

Your script never terminates after you say that. It juts keeps trying.

It's a no from me. You need to learn some more SRL Procedures and such.

IEJB

About you idea to make it random, you will have to make an array of string and list there the skills, then you can use SayCurrentLevels(SkillArray[1+random(GetArrayLength(SkillArray))]);

well no from me theres not enough failsafes.