Results 1 to 5 of 5

Thread: Need help with my first script! High/Low Alcher

  1. #1
    Join Date
    Jun 2006
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need help with my first script! High/Low Alcher

    Hey guys. I really need help with my first ever script. It's based on MartinW's HighAlchey.

    Code:
    {.Script Info:
    # ScriptName  = High and Low Alcher
    # Author      = Bagofelix Based on MartinW's Alchey
    # Description = High and Low Alchs
    # Version     = Alpha
    # Date        = 11/29/2006
    # Comments    = www.villu-reborn.com
    /Script Info}
    
    program Alch;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/magic.scar}
    
    Const
      TotalNeeded = 831;             //0 for infinite
      GoldPer = 768;                //Gold per Alch
      Item = 'Yew Longs';          //Item Name(This is only for the report so it aint important)
      //AntiBann = True;          //AntiRandoms? Recommended HIGHLY if alching outside bank. If not, just watch the script.
      InvNumber = 16;            //Inventory number of Item you would like to alch
      AlchingOption = True;     //If Low Alching, set to False
    var
       TotalDone : Integer;
    
    Procedure ChangeReport;
    begin
        cleardebug;
        TotalDone:= TotalDone + 1;
        writeln('High Alched ' + inttostr(TotalDone) + ' ' + (Item));
        Writeln('Made ' + inttostr(totalDone*GoldPer) + '');
        writeln(inttostr(TotalNeeded - TotalDone) + ' times left');
    end;
    
    procedure NoBan;
    begin
    //AntiBan;
    //FindMod;
    BoredHuman;
    RandomMovement;
    FindNormalRandoms;
    end;
    
    procedure HighAlch;
    begin
    Gametab(7);
    fixmage(true);
    castspell(31)
    MouseItem(InvNumber, true)
    Wait(Random(200)+2800);
    end;
    
    Procedure LowAlch;
    begin
    Gametab(7);
    fixmage(true);
    castspell(14)
    MouseItem(InvNumber, true)
    Wait(Random(200)+2800);
    end;
    
    Procedure HighAlching;
    begin
    NoBan;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    Until(TotalDone = TotalNeeded);
    logout;
    end;
    
    Procedure LowAlching;
    begin
    NoBan;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    Until(TotalDone = TotalNeeded);
    logout;
    end;
    
    begin
    setupsrl;
    repeat
    If(AlchingOption=True)then HighAlching;
    If(AlchingOption=False)then LowAlch;
    end.
    I know its a newbie script and I probably comitting all 10k cardinal sins of coding, but to be honest, I'm pretty much winging it. I don't understand any of the Tutorial Island tutorials. They're pretty confusing. Anyway, I get this error when I try too run it.

    Code:
    Failed when compiling
    Line 90: [Error] (15957:1): Identifier expected in script C:\Program Files\SCAR 2.03\Scripts\My Own Scripts\HighLowAlch.scar

  2. #2
    Join Date
    Oct 2006
    Location
    England
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You have this.
    PHP Code:
    Procedure HighAlching;
    begin
    NoBan
    ;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    Until(TotalDone TotalNeeded);
    logout;
    end
    Im guessing this is line 90.
    PHP Code:
    Until(TotalDone TotalNeeded); 
    If you have a 'Until" you need a 'Repeat' try making that procedure to this.
    PHP Code:
    Procedure HighAlching;
    begin
    repeat
    NoBan
    ;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    HighAlch;
    ChangeReport;
    Until(TotalDone TotalNeeded);
    logout;
    end

  3. #3
    Join Date
    Jun 2006
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OH! Thank you SO MUCH! Now I feel stupid =P

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

    Default

    Also, make this:

    Code:
    Procedure LowAlching;
    begin
    NoBan;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    LowAlch;
    ChangeReport;
    Until(TotalDone = TotalNeeded);
    logout;
    end;
    Into this:
    Code:
    Begin
    Repeat
    LowAlch;
    ChangeReport;
    Until(TotalDone = TotalNeeded);
    logout;
    End;
    That way the script isnt as long and it does the same thing.

  5. #5
    Join Date
    Jun 2006
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'd been thinking about that bit of code right there. You are right, it looks awful messy. The reason behind it was I didn't want it to do the anti ban every alch, seeing as it would take FOREVER to alch. So I sort of weaseled around it. What I ended up doing was this.

    Code:
    Procedure HighAlching;
    begin
    repeat
    if(random(15)=1)and(AntiBann=true)then NoBan;
    HighAlch;
    ChangeReport;
    Until(TotalDone = TotalNeeded);
    logout;
    end;
    What do ya think?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. My high and low alcher, I need some help plz.
    By Buckleyindahouse in forum OSR Help
    Replies: 18
    Last Post: 11-08-2008, 10:55 PM
  2. First Script - High Alcher
    By Meanz in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 10-15-2007, 08:26 PM
  3. My First Script: High or Low Alcher 0.10
    By Da Der Der in forum RS3 Outdated / Broken Scripts
    Replies: 12
    Last Post: 11-30-2006, 09:28 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
  •