Results 1 to 19 of 19

Thread: My high and low alcher, I need some help plz.

  1. #1
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default My high and low alcher, I need some help plz.

    Ok, i finished my first script which was just a high alcher i would like to attempt to make a high and low alcher. also how do u make it stop alching when the item u alch is all gone?


    here is the script help me out on improving it and stuff.

    SCAR Code:
    program autoalcher;
    {.include srl/SRL.scar}
    {.include srl/srl/core/antirandoms.scar}
    const
    highalch=true //true for high alch false for low alch

    procedure Declareplayers;
      begin
      HowManyPlayers:=1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:=0;

         Players[0].Name :='USERNAME HERE' //PlayerName
         Players[0].Pass :='PASSWORD HERE' //Password
         Players[0].Nick :='NICK NAME HERE'  //Players nick name( a few letters from playername)
         Players[0].Loc  :=''; //leave this alone
         Players[0].Active:=True;// Leave this alone 2
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
          end;

    procedure alch;
    begin
    if(highalch = true)then begin
    highalch;
     or
    if(highalch = False)then begin
    lowalch;
    end;


    procedure highalch;
    begin
    mouse(711,372,5,5,true)
    randoms;
    wait(2000+random(500));
    mouse(711,372,5,5,true)
    randoms;
    end;


    procedure settab;
    begin
    gametab(7)
    randoms;
    end;


    procedure lowalch;
    begin
    mouse(708,294,5,5,true)
    randoms;
    wait(2000+random(500));
    randoms;
    mouse(708,294,5,5,true)
    end;


    procedure randoms;
    begin
    FindNormalRandoms;
    if(FindFight)then begin
     RunAwayDirection('N');
     wait(10000+random(5000));
     RunBack;
    end;


    procedure main;
    SetupSRL;
    Declareplayers;
    settab;
    randoms;
    repeat
    if(highalch=true)then highalch;
    if(highalch-false)then lowalch;
    end.

  2. #2
    Join Date
    Nov 2006
    Posts
    235
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Add in a loop statement.

  3. #3
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You also need to put the Randoms; procedure BEFORE anything you call it in, or you'll get problems.

  4. #4
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    also your main loop is only a procedure in what is shown.
    change form this...
    SCAR Code:
    procedure main;
    SetupSRL;
    Declareplayers;
    settab;
    randoms;
    repeat if(highalch=true)then highalch;
    if(highalch-false)then lowalch;
    end.
    to this...
    SCAR Code:
    Begin
    SetupSRL;
    Declareplayers;
    settab;
    randoms;
    repeat if(highalch=true)then highalch;
    if(highalch=false)then lowalch;
    end.

    also add a loop(think it was already said) right now u have a repeat but u dont have an until(blah) so put an until(blah) after
    SCAR Code:
    if(highalch=false)then lowalch;

    P.S. dont use blah. u have to use like until not(findcolortol(x,y,345345,1,1))

  5. #5
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    ok dokie thank you for yall help once again.

    <edit> Now its getting me this error
    Failed when compiling
    Line 31: [Error] (15529:1): Semicolon (';') expected in script C:\Program Files\SCAR 2.03\Scripts\joshs first auto high and low alcher.scar
    how can i fix this 1?

  6. #6
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Put a semicolon at the end of it .

  7. #7
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    this is line 31 where it says procedure, there is already a colon there

    SCAR Code:
    procedure Declareplayers;
      begin
      HowManyPlayers:=1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:=0;

         Players[0].Name :='USERNAME HERE' //PlayerName
         Players[0].Pass :='PASSWORD HERE' //Password
         Players[0].Nick :='NICK NAME HERE'  //Players nick name( a few letters from playername)
         Players[0].Loc  :=''; //leave this alone
         Players[0].Active:=True;// Leave this alone 2
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
          end;

  8. #8
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what is the line before it?

  9. #9
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    PHP Code:
    procedure Declareplayers;
      
    begin
      HowManyPlayers
    :=1;
      
    NumberOfPlayers(HowManyPlayers);
      
    CurrentPlayer:=0;
     
         
    Players[0].Name :='USERNAME HERE'//PlayerName
         
    Players[0].Pass :='PASSWORD HERE'//Password
         
    Players[0].Nick :='NICK NAME HERE';//Players nick name( a few letters from playername)
         
    Players[0].Loc  :=''//leave this alone
         
    Players[0].Active:=True;// Leave this alone 2
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].NickUpChars); 
    Use that.
    end;

  10. #10
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    multiplayer with player form template

    ( you need to do when currentplayer=howmanyplayers, currentplayer:=0 to make it loop around the cycle again)

  11. #11
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    I am still getting that error:

    Failed when compiling
    Line 31: [Error] (15529:1): Semicolon (';') expected

    its happens on the declare players procedure here is full script:

    SCAR Code:
    program autoalcher;
    {.include srl/SRL.scar}

    const
    highalch=true //true for high alch false for low alch

    procedure Declareplayers;
      begin
      HowManyPlayers:=1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:=0;

         Players[0].Name :='USERNAME HERE'; //PlayerName
         Players[0].Pass :='PASSWORD HERE'; //Password
         Players[0].Nick :='NICK NAME HERE';//Players nick name( a few letters from playername)
         Players[0].Loc  :=''; //leave this alone
         Players[0].Active:=True;// Leave this alone 2
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
          end;
    ///////////////////////*************DONT TOUCH BELOW********\\\\\\\\\\\\\\\\\\\\

    procedure randoms;
    begin
    FindNormalRandoms;
    if(FindFight)then begin
     RunAwayDirection('N');
     wait(10000+random(5000));
     RunBack;
    end;


    procedure alch;
    begin
    if(highalch = true)then begin
    highalch;
     or
    if(highalch = False)then begin
    lowalch;
    end;


    procedure highalch;
    begin
    mouse(711,372,5,5,true)
    randoms;
    wait(2000+random(500));
    mouse(711,372,5,5,true)
    randoms;
    end;


    procedure settab;
    begin
    gametab(7)
    randoms;
    end;


    procedure lowalch;
    begin
    mouse(708,294,5,5,true)
    randoms;
    wait(2000+random(500));
    randoms;
    mouse(708,294,5,5,true)
    end;



    //////*******************Main Loop********************\\\\\\\\\\\\\\\\\\\\\\\\\\

    procedure main;
    Begin
    SetupSRL;
    Declareplayers;
    settab;
    randoms;
    repeat if(highalch=true)then highalch;
    if(highalch=false)then lowalch;
    end.

  12. #12
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You dont have a semicolon after something. Go through and put it after EVERYTHING besides Begins

  13. #13
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok, well since im tired of answering questions i went in and fixed it! It works now:

    PHP Code:
    program autoalcher;
    {.include 
    srl/SRL.scar}

    const
    highalcher=true//true for high alch false for low alch

    procedure Declareplayers;
      
    begin
      HowManyPlayers
    :=1;
      
    NumberOfPlayers(HowManyPlayers);
      
    CurrentPlayer:=0;

         
    Players[0].Name :='USERNAME HERE'//PlayerName
         
    Players[0].Pass :='PASSWORD HERE'//Password
         
    Players[0].Nick :='NICK NAME HERE';//Players nick name( a few letters from playername)
         
    Players[0].Loc  :=''//leave this alone
         
    Players[0].Active:=True;// Leave this alone 2
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].NickUpChars);
          
    end///////////////////////*************DONT TOUCH BELOW********\\\\\\\\\\\\\\\\\\\\

    procedure randoms;
    begin
    FindNormalRandoms
    ;
    if(
    FindFight)then begin
     RunAwayDirection
    ('N');
     
    wait(10000+random(5000));
     
    RunBack;
    end;
    end;

    procedure highalch;
    begin
    mouse
    (711,372,5,5,true)
    randoms;
    wait(2000+random(500));
    mouse(711,372,5,5,true)
    randoms;
    end;

    procedure lowalch;
    begin
    mouse
    (708,294,5,5,true)
    randoms;
    wait(2000+random(500));
    randoms;
    mouse(708,294,5,5,trueend;

    procedure alch;
    begin
    if(highalcher)then
    highalch
    ;
    if(
    highalcher=false)then
    lowalch
    ;
    end;



    procedure settab;
    begin
    gametab
    (7)
    randoms;
    end;

    //////*******************Main Loop********************\\\\\\\\\\\\\\\\\\\\\\\\\\

    Begin
    SetupSRL
    ;
    Declareplayers;
    settab;
    randoms;
    repeat
    if(highalcher=true)then
    highalch
    ;
    if(
    highalcher=false)then
    lowalch
    ;
    until(false);
    end

  14. #14
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i just looked at it again...wow that was simple...i shouldve knew that, ive fixed that so many times in my own script.

    edit: i just noticed that u basically have the same thing in a procedure and the main loop.

    SCAR Code:
    Begin
    SetupSRL;
    Declareplayers;
    settab;
    randoms;
    repeat
    if(highalcher=true)then
    highalch;
    if(highalcher=false)then
    lowalch;
    until(false);
    end.
    and then this...
    SCAR Code:
    procedure alch;
    begin
    if(highalcher)then
    highalch;
    if(highalcher=false)then
    lowalch;
    end;

    just take out
    SCAR Code:
    if(highalcher=true)then
    highalch;
    if(highalcher=false)then
    lowalch;
    from the main loop and put
    SCAR Code:
    alch;
    instead

  15. #15
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    wow thank you so much folks

  16. #16
    Join Date
    Nov 2008
    Posts
    119
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    cool whats best thing to alch

  17. #17
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow, crazy gravedig. I remember this post to. Rofl.


    12-03-2006, 07:06 PM

  18. #18
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Sand Storm View Post
    Wow, crazy gravedig. I remember this post to. Rofl.


    12-03-2006, 07:06 PM
    Yea back in my noob days, Hopefully a mod can delete that noob's grave dig post.

  19. #19
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hell, this was back before I knew cases xD.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. First Script - High Alcher
    By Meanz in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 10-15-2007, 08:26 PM
  2. High Alcher
    By Dangerous Garden Tools in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 09-21-2007, 03:52 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
  •