Results 1 to 13 of 13

Thread: Coin Collecter

  1. #1
    Join Date
    Feb 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Coin Collecter

    Here it is

    Code:
    program CoinCollector;
    {.include OSi.txt}
    var one:integer;two:integer;coin1:integer;coin2:integer;
    const
    coincolor=1347504; // Coin Color
    begin
    repeat
    if (FindColor(one,two, coincolor, 1, 1, 760, 800))then
    MoveMouse(one,two)
    wait(1000)
    ClickMouse(one,two,false);
    wait(500)
    if (FindColor(coin1,coin2, 4231423, 1, 1, 760, 800))then
    wait(500)
    ClickMouse(coin1,coin2,true);
    wait(5000)
    MoveMouse(1,1)
    wait(1000)
    until(1=2)
    end.
    =}

  2. #2
    Join Date
    Feb 2006
    Location
    Australia
    Posts
    628
    Mentioned
    15 Post(s)
    Quoted
    105 Post(s)

    Default

    Good start

  3. #3
    Join Date
    Feb 2006
    Location
    Myrtle Beach, SC USA!
    Posts
    841
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    very good start, some tips to help you in being a good scripter.

    --> MoveMouse and ClickMouse are Jagex Detectable procedures i suggest using the SRL Mouse commands instead plus its easyer.

    --> Add Random Wait times by simply doing this
    Code:
     Wait ( 500 + Random ( 500 ) );
    That will wait for 500 miliseconds and a Random from 0-499 Miliseconds.

    but otherwise good start

  4. #4
    Join Date
    Feb 2006
    Location
    Aussie
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    do you want me to make that a little mor clear, maybe add some spaces and stuff (scripting standards

  5. #5
    Join Date
    Feb 2006
    Location
    Aussie
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Code:
    program CoinCollector;
    
    {.include OSi.txt}
    
    var one:integer;two:integer;coin1:integer;coin2:integer;
    
    const
    coincolor=1347504; // Coin Color
    
    begin
    repeat
      if (FindColor(one,two, coincolor, 1, 1, 760, 800))then
      MoveMouse(one,two)
      wait(1000)
      ClickMouse(one,two,false);
      wait(500)
      if (FindColor(coin1,coin2, 4231423, 1, 1, 760, 800))then
      wait(500)
      ClickMouse(coin1,coin2,true);
      wait(5000)
      MoveMouse(1,1)
      wait(1000)
      until(1=2)
    end.
    tell me if u want me to remove ot

  6. #6
    Join Date
    Feb 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No thanks thats fine. Help is always appriated

  7. #7
    Join Date
    Feb 2006
    Location
    Aussie
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yep, np, also you might want to learn procedures now, if you look at big script you see lines like:

    Code:
    Procedure WalkToMine;
    thats a procedure, so you could have a script like this:

    Code:
    program miner;
    
    {.Include SRL\Srl.scar}
    
    Procedure WalkToMine;
    begin
      if(condition)then
      begin
        dostuff
      end;
    end;
    
    Procedure WalkToBank;
    begin
      if(condition)then
      begin
        dostuff
      end;
    end;
    
    Procedure Mine;
    begin
      if(condition)then
      begin
        dostuff
      end;
    end;
    
    begin
      WalkToMine;
      wait(500+random(1000)) 
      Mine;
      WalkToBank;
    end.
    the beauty of these, is that you can call each procedure, over and over as much as you want, with just 1 line of code. Keep Trying and you will get it!

  8. #8
    Join Date
    Feb 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Coin spawns, rune spawns (Varrock bank basement), it is really just a script to practice.

  9. #9
    Join Date
    Feb 2006
    Location
    Pennsylvania
    Posts
    1,524
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Code:
    program Coincollect;
    {.include SRL/SRL.scar}
    
    const
    coincolor=1347504;
    
    
    Procedure Money;
    begin
      ClickMSColorTol(coincolor,30, true);
     if(not(loggedin)then
      break;
    end;
    
    
    begin
      setupSRL;
     repeat
      Money;
    until(false)
    end.
    My version.

  10. #10
    Join Date
    Mar 2006
    Location
    Behind you
    Posts
    3,193
    Mentioned
    61 Post(s)
    Quoted
    63 Post(s)

    Default

    you could also clear up the var's by writing it as:

    var

    one,two,coin1,coin2:integer;

    "Sometimes User's don't need the Answer spelled out with Code. Sometimes all they need is guidance and explanation of the logic to get where they are going."

  11. #11
    Join Date
    Feb 2006
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Program CoinCollector;
    {.include Srl/SRL.Scar}
    //Need SRL Go here www.villavu.com/forums

    Const //Constants
    CoinColor=3454345;//Color Of Coin
    Tolerance=0;//Tolerance Default=0
    Time=100;//how Many Times To Run

    Var// Variables
    a:integer;// A is a integer because it is a number


    Procedure Money;// Procedure Name
    Begin //begin
    Repeat //Repeats below until specified
    ClickMSColorTol(CoinColor,Tolerance,True);// Clicks color on main screen
    A:=A+1 // the value A is added 1 every time the script repeats
    Until(A>=Time);// repeats UNTIL a is greater than or equal to the time you set!
    end;//end ;

    Begin//Main Loop
    SetupSRL; //Sets up SRL
    Money; // Call out for procedure
    end.// end.
    just another version you could use
    <3 SRL

  12. #12
    Join Date
    Feb 2006
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Program CoinCollector;
    {.include Srl/SRL.Scar}
    //Need SRL Go here www.villavu.com/forums

    Const //Constants
    CoinColor=3454345;//Color Of Coin
    Tolerance=0;//Tolerance Default=0
    Time=100;//how Many Times To Run

    Var// Variables
    a:integer;// A is a integer because it is a number


    Procedure Money;// Procedure Name
    Begin //begin
    Repeat //Repeats below until specified
    ClickMSColorTol(CoinColor,Tolerance,True);// Clicks color on main screen
    A:=A+1 // the value A is added 1 every time the script repeats
    Until(A>=Time);// repeats UNTIL a is greater than or equal to the time you set!
    end;//end ;

    Begin//Main Loop
    SetupSRL; //Sets up SRL
    Money; // Call out for procedure
    end.// end.
    Enjoy just another version
    <3 SRL

  13. #13
    Join Date
    Dec 2006
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice one =)

    nice start

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. another problem.... bone collecter bmp
    By malotthouse in forum OSR Help
    Replies: 3
    Last Post: 01-05-2008, 08:03 PM
  2. Eye of newt collecter
    By aussie8407 in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 10-11-2007, 12:25 PM
  3. _.-._.-Snape Grass Collecter-._.-._
    By fluffball102 in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 08-07-2007, 01:02 AM
  4. rune collecter/trader
    By sniper360 in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 06-28-2007, 08:11 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •