Results 1 to 5 of 5

Thread: Help with Auto-Alcher

  1. #1
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default Help with Auto-Alcher

    Well I've made myself an auto-alcher and I've managed to sort out most of the errors that I've had (with help from people here) but now I have this error where it says "[Error] (14740:4): Identifier expected"

    My script is at the bottom if you need it to see whats wrong.

  2. #2
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    None of the script even compiles for me... like 7 Errors...

    EDIT: Here... Fixed it in all =] Didn't test though...

    SCAR Code:
    Program AutoAlcher;
    {.include SRL/SRL.scar}

    Var
      AlchesDone: Integer;

    Const
      NumberOfAlches = 0;

    Procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
     
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
    End;

    Procedure Alch;
    Begin
      Wait(850 + random(50));
      Mouse(714, 340, 0, 0, True);
      Wait(100 + random(50));
      Mouse(572, 227, 0, 0, True);
      Wait(1500 + random(200));
      AlchesDone := AlchesDone + 1;
    End;

    Begin
      SetupSRL;
      If (FindRS) Then
      Begin
        ActivateClient;
        WriteLN('Found current Runescape client');
      End Else
      Begin
        WriteLN('Couldnt find Runescape Client');
        WriteLN('Terminating Script') ;
        TerminateScript;
      End;
      DeclarePlayers;
      If (Not LoggedIn) Then
        LoginPlayer;
      GameTab(7);
      MMouse(716, 339, 0, 0);
      Repeat
       Alch;
       GameTab(7);
      Until (AlchesDone >= NumberOfAlches);
      WriteLn('<<<<<<<<<<<<Auto Alcher v1.0>>>>>>>>>>>>');
      WriteLn('<<                                    >>');
      WriteLn('<<     Alched for' + TimeRunning + '    >>');
      WriteLn('<< Did' + IntToStr(AlchesDone) + 'High Aclhes >>');
      WriteLn('<<   Earnt' + IntToStr(AlchesDone * 65) + ' XP  >>');
      WriteLn('<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>');
      WriteLn('                                        ');
      WriteLn('Thanks for using my script');
    End.

  3. #3
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

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

    var
    Done:Integer;

    const
    NumberOfAlches=0;

    procedure DeclarePlayers;
    begin
      HowManyPlayers :=1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer :=0;
     
      Players[0].Name:='';
      Players[0].Pass:='';
      Players[0].Nick:='';
      Players[0].Active:=True;
    end;

    procedure Alch;
    begin
      Wait(850+random(50));
      Mouse(714,340,0,0,True);
      Wait(100+random(50));
      Mouse(572,227,0,0,True);
      Wait(1500+random(200));
      Done:=Done+1;
    end;

    begin
      SetupSRL;
      if (FindRS) then
      begin
        ActivateClient;
        WriteLN('Found current Runescape client');
      end else
      begin
        WriteLN('Couldnt find Runescape Client');
        WriteLN('Terminating Script') ;
        TerminateScript;
      end;//I Added this end to get rid of the error you were talking about
      DeclarePlayers;
      if (not(LoggedIn)) then LoginPlayer;
      GameTab(7)
      MMouse(716,339,0,0)
      repeat
       Alch;
       GameTab(7);// i added this.
      until (Done>=NumberOfAlches) or (not(LoggedIn)) // added this simple failsafe;
      WriteLN('<<<<<<<<<<<<Auto Alcher v1.0>>>>>>>>>>>>');
      WriteLN('<<                                    >>');
      WriteLN('<<     Alched for'+ TimeRunning +'    >>');
      WriteLN('<< Did'+ IntToStr(Done) +'High Aclhes >>');
      WriteLN('<<   Earnt'+ IntToStr(Done*65) +' XP  >>');
      WriteLN('<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>');
      WriteLN('                                        ');
      WriteLN('Thanks for using my script');
    end.

    i changed the game tab thingy, because gameTab(7); checks if it is already in that tab, if it is it won't click the tab.
    i also added an end you forgot in there. good luck!
    it compiles BTW.

  4. #4
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [SPAM]LoL i got it before you footballjds!!!

    Mines better, i standarized and all
    [/SPAM]

  5. #5
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    Thanks both of you, even as Timer got there first lol

    But you both put effort into helping some elses script

    Thank you very much much!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Auto Alcher
    By earspam in forum OSR Help
    Replies: 10
    Last Post: 12-25-2008, 12:04 AM
  2. AbsTrACt Auto Alcher! The Ultimate Alcher!
    By AbsTrACt'^.| in forum RS3 Outdated / Broken Scripts
    Replies: 8
    Last Post: 05-24-2008, 05:52 PM
  3. [SRL] [RS2] Auto-Alcher
    By enoyhs in forum RS3 Outdated / Broken Scripts
    Replies: 13
    Last Post: 08-16-2007, 06:19 PM
  4. [RS2] New Auto Alcher!
    By Syrex in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 03-03-2007, 10:18 AM

Posting Permissions

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