SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
PHP, C#

Other Communitys
Specialistsmod.net

How Long have You Played Runescape
10 years

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

I registered here in the SRL forums awhile back, and have made some pretty decent scripts since then, until school got very competitive, so i stopped for a while.
now i'm back, the scripts i had made are outdated [A smither, powerminer, east varrock miner banker]
I'm trying to get more involved again and get back into scarscripting, i'm going to carnegie mellon university on june 23rd to take some programming classes, and am hoping to be a proud member of this community and involvement once again.

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

//As i said, outdated, and one of my simpler ones.

{.Script Info:
# ScriptName = FalvensEastVarrockArmorSeller
# Author = Falven
# Description = Sells most type of armors to Horvik in Varrock
# Version = 1.0
# Date = 12/29/06
# Comments = [email]Falven2000@hotmail.com[/email]
/Script Info}

{Instructions:}
{I. Start in any part of varrock east bank.}
{II. Fill in the info under "const" below.}
{III. Specify the Client window}
{IV. Hit Play}
{V. Go get a girlfriend.}

program FalvensEastVarrockArmorSeller;

{.include SRL/SRL.scar}

var xx, yy: integer; logoutsp: integer; logoutsw: integer; logoutsps: integer; bx, by: Integer; findingh: integer; logoutsb: integer; bnkx, bnky: integer; hsold: integer; bnktries: integer;

const
  usname = ''; //Your Username.
  pass = ''; //your Password.
  retries = 7; //how many times to try find a symbol before ending the script altogheder...
  sets = 3; //How many sets of items you want to sell(1 set is 27 of whatever item you are selling)...
  punchbagsymbol = 54321; //punchbag symbol color on minimap..
  Watersymbol = 65432; //watersymbol color on minimap..
  PSsymbol = 76543; //Platebody shop color on minimap...
  Banksymbol = 87654; //Bank symbol color on minimap...


{-------Do-Not-Edit-Below-This-Line-Unless-You-Know-What-You're-Doing---------------------------}

procedure loginuser;
begin
  mouse(455, 292, 20, 0, true)
    TypeSend(usname)
    mouse(440, 277, 20, 0, true)
    TypeSend(pass)
    mouse(300, 316, 20, 0, true)
    wait(1500 + random(1000))
    mouse(300, 316, 20, 20, true)
    wait2(1000 + random(1000), true)
end;

procedure ToPunchbag;
begin
  if (FindSymbol(xx, yy, 'training dummy')) then
    mouseflag(xx, yy, 0, 0)
      if (not (FindSymbol(xx, yy, 'training dummy'))) then
      findmmcolor(xx, yy, Watersymbol)
        ClickMMColor(xx, yy, Watersymbol)
        if (not (findmmcolor(xx, yy, Watersymbol))) then
        logout;
  repeat
    logout;
    logoutsp := logoutsp + 1
      loginuser;
    wait2(1000 + random(1000), true)
      FindSymbol(xx, yy, 'training dummy')
  until (FindSymbol(xx, yy, 'training dummy')) or (logoutsp = retries)
    if (logoutsp = retries) then
    logout;
end
end;

procedure ToWater;
begin
  if (FindSymbol(xx, yy, 'water source')) then
    mouseflag(xx, yy, 0, 0)
      if (not (FindSymbol(xx, yy, 'water source'))) then
      findmmcolor(xx, yy, Watersymbol)
        ClickMMColor(xx, yy, Watersymbol)
        if (not (findmmcolor(xx, yy, Watersymbol))) then
        repeat
          logout;
          logoutsp := logoutsp + 1
            loginuser;
          wait2(1000 + random(1000), true)
            FindSymbol(xx, yy, 'water source')
        until (FindSymbol(xx, yy, 'water source')) or (logoutsp = retries)
          if (logoutsp = retries) then
          logout;
end;

procedure ToPlatebodyShop;
begin
  if (FindSymbol(xx, yy, 'platebody shop')) then
    mouseflag(xx, yy, 0, 0)
      if (not (FindSymbol(xx, yy, 'platebody shop'))) then
      findmmcolor(xx, yy, PSsymbol)
        ClickMMColor(xx, yy, PSsymbol)
        if (not (findmmcolor(xx, yy, PSsymbol))) then
        repeat
          logout;
          logoutsp := logoutsp + 1
            loginuser;
          wait2(1000 + random(1000), true)
            FindSymbol(xx, yy, 'platebody shop')
        until (FindSymbol(xx, yy, 'platebody shop')) or (logoutsp = retries)
          if (logoutsp = retries) then
          logout;
end;

procedure SellPBS;
begin
  if (FindObj(bx, by, 'Talk-to Horvik', 5288932, 40)) then
    mouse(bx, by, 0, 0, false)
      PopUp('Trade')
      flag;
  MouseItem(2, false)
    PopUp('10')
    flag;
  MouseItem(13, false)
    PopUp('10')
    flag;
  MouseItem(25, false)
    PopUp('10')
    flag;
end;

procedure ToBank;
begin
  if (FindSymbol(xx, yy, 'bank')) then
    mouseflag(xx, yy, 0, 0)
      if (not (FindSymbol(xx, yy, 'bank'))) then
      findmmcolor(xx, yy, Banksymbol)
        ClickMMColor(xx, yy, Banksymbol)
        if (not (findmmcolor(xx, yy, Banksymbol))) then
        repeat
          logout;
          logoutsp := logoutsp + 1
            loginuser;
          wait2(1000 + random(1000), true)
            FindSymbol(xx, yy, 'bank')
        until (FindSymbol(xx, yy, 'bank')) or (logoutsp = retries)
          if (logoutsp = retries) then
          logout;
end;

procedure BankItems;
begin
  openbank3;
  Fixbank;
  Deposit(1, 28, 2)
    Withdraw(5, 5, 0)
    CloseBank;
end;

procedure BankitemsContd;
begin
  InvFull;
  if (InvFull = false) then
  begin
    repeat
      bnktries := bnktries + 1
        FindBank('feb')
        Fixbank;
      Deposit(1, 28, 2)
        Withdraw(5, 5, 0)
        CloseBank;
    until (FindBank('feb')) or (bnktries = retries)
  end
    if (bnktries = retries) then
      logout;
  if (InvFull = true) then
end;

begin
  SetupSRL;
  repeat
    MakeCompass('n');
    ChatsOff;
    Gametab(4)
      BankItems;
    BankitemsContd;
    ToBank;
    antiban;
    setrun(true)
      ToPunchbag;
    findnormalrandoms;
    ToWater;
    findnormalrandoms;
    ToPlatebodyShop;
    findnormalrandoms;
    SellPBS;
    antiban;
    flag;
    ToPlatebodyShop;
    setrun(false)
      findnormalrandoms;
    ToWater;
    findnormalrandoms;
    ToPunchbag;
    antiban;
    findnormalrandoms;
    ToBank;
    findnormalrandoms;
    BankItems;
    BankitemsContd;
    findnormalrandoms;
  until (hsold = sets)
    if (hsold = sets) then
    logout;
end.

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

The script is not complex enough to get you in.
For becoming SRL member your script needs to include
- Antirandoms (You've got)
- AntiBan (You've got)
- Walking
- MultiPlayer
- FailSafes.

About your antiban and antirandoms, I suggest you use them in your procedures, not in the mainloop between every procedure :)

Read some tutorials, look at good scripts as wizzups or WT-Fakawis.
You should read JAD's tutorial .

[OFFTOPIC] WOo first time first post in an application! [/OFFTOPIC]

[Offtopic]Congrats! :p[/Offtopic]

And yes, you should check out my tutorial (links in sig) "Learning the things to become a SRL member!" and learn the stuff in it, especially standards!

just wondering, if its one of the simpler scripts, why do you show us that one lol

iloveit is right, you should try your best.

No multipalyer
No Antirandoms
You use Coordinates too mcuh,
Try using colors or bitmaps or dtms,
Coordinates arent very safe as nothing much in runescape stays the same.
I say you should learn more techniques for walking and fidning things.

I see you have antirandom procedures.
But without player array they lag a lot.

So try learning how to use the player array and reading more tutorials around the forum.

Yep you use coordinates and the script is pretty simple, I will hold my vote to see if you maybe post one of your better scripts.

You have been playing RS for 10 years. How's that possible?

Lol I didn't see that.

From: grindisbest
You have been playing RS for 10 years. How's that possible?

The time length you've played rs doest have much to do with scripting ability.
I dont believe zezima knows how to script?
Just a basic knowledge of rs is enough =).

But if uve done huge research and so on that you know everything like the leveling formulas( A lot of gametab(2) functions would be easier)

But, playing of 10 years doesnt mean spying of 10 years :D

RS hasn't been around for 10 years I don't believe.


Wiki says it was publicaly released January 4th 2001

Maybe he means he started playing RS when he was 10 years old?

From: iloveit8
just wondering, if its one of the simpler scripts, why do you show us that one lol

Good question, I posted this, which is one of my simpler scripts, because my other more complex ones are way out of date, i am currently updating one of my more complex scripts (an east varrock miner banker) due to little time i haven't done much, but i will definitley post it as soon as i'm done.

From: grindisbest
You have been playing RS for 10 years. How's that possible?

i Meant since i was 10 :3 i'm currently 17 so its probably a little bit less than seven years. Yes, i have been playing rs for 7 years, but i haven't been scripting for that long, i have been scripting since i registered on these boards.

If some of you could hold your votes for a while i can post a new application ,when i finish updating my scripts and get back into scar, that is more specific; i was in a hurry when i posted this one :3

Thanks

-Falven

Reapply in a month. Learn the stuff that people in this application has told you.

Agreed.

Damn…That just sounded like I was someone locking a thread..like a mod.