Results 1 to 17 of 17

Thread: Line 135: [Error] (14845:1): Syntax error in script

  1. #1
    Join Date
    Jan 2008
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Line 135: [Error] (14845:1): Syntax error in script

    SCAR Code:
    program AbsTrACtAutoAlcherSmartVersion;//This is my very first script but I believe it is a pretty good one.

    {///////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
    { Title:           AbsTrACtAutoAlcher                                                   }
    { Version:         1.01 SMART                                                           }
    { Author:          AbsTrACt'^.|                                                         }
    { Settings:        I don't use colors in this script so it's the same...                }
    { Recommendation:  Use it in Barrows Tombs as there are no randoms there                }
    {although you may find some persons there and I didn't made an AutoResponder yet        }
    { SetUp Lines:                                                                          }
    {///////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}

    {.include SRL\SRL\Misc\Smart.scar}
    {.include SRL\SRL.scar}
    {.include SRL\SRL\misc\Users.scar}
    var
    Alch: integer;
    Alchspell: integer;
    AlchLong: integer;
    x,y: integer;

    {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
    {                   Begin SetUp                  }
    {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
    const

      RunD = 'n'; //Direction to run from Attacking Random (n, s, w, e)
      ItemToAlchName = 'yew longbow'; //Name of the item you are alching (for antiban)
      Alchstodo = 20; //How many alchs the bot should do?

    Procedure DeclarePlayers; // this procedure is used to log players in
     begin
         HowManyPlayers  :=5;               // Set Number of Players here.
         NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
         CurrentPlayer:=0;                // CurrentPlayer = Array Index

         Players[0].Name :='USERNAME';//Your account username
         Players[0].Pass :='PASSWORD';//Your account password
         Players[0].Nick :='ser';//3-4 Small letters of your username
         Players[0].Active:=True;//Player in use or not in use (True for in use, False for not in use)

         Players[1].Name :='USERNAME';//Your account username
         Players[1].Pass :='PASSWORD';//Your account password
         Players[1].Nick :='ser';//3-4 Small letters of your username
         Players[1].Active:=False;//Player in use or not in use (True for in use, False for not in use)

         Players[2].Name :='USERNAME';//Your account username
         Players[2].Pass :='PASSWORD';//Your account password
         Players[2].Nick :='ser';//3-4 Small letters of your username
         Players[2].Active:=False;//Player in use or not in use (True for in use, False for not in use)

         Players[3].Name :='USERNAME';//Your account username
         Players[3].Pass :='PASSWORD';//Your account password
         Players[3].Nick :='ser';//3-4 Small letters of your username
         Players[3].Active:=False;//Player in use or not in use (True for in use, False for not in use)

         Players[4].Name :='USERNAME';//Your account username
         Players[4].Pass :='PASSWORD';//Your account password
         Players[4].Nick :='ser';//3-4 Small letters of your username
         Players[4].Active:=False;//Player in use or not in use (True for in use, False for not in use)

    end;
    {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
    {                     End SetUp                  }
    {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
    {                Do Not Touch Below              }
    {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

    procedure Randoms;
    begin
      FindTalk; //finds talkin randoms
      FindNormalRandoms; //finds normal randoms
      SolveChatRandom; //solves chat randoms
      FindLamp('Magic'); //solves lamp and then choses a skill to update
      SolvePinball; //solves pinball random
      DwarfItem; //dropes dwarf items
      if(FindFight)then //runs away from fight
     begin
      MakeCompass('n');
      RunTo(RunD, True);
      Wait(3500 +Random(3000));
      RunTo(RunD, True);
     end;
    end;

    procedure AntiBan;
    begin
      case Random(3) of

        0: begin

        Wait (3137+(random(1350)));
        HoverSkill('Magic', False);
        Wait (3137+(random(711)));
        Randoms;
        KeyDown(118);
        Wait(50+random(100));
        KeyUp(118);
        end;

        1: begin

        Wait (3137+(random(1250)));
        AlmostLogout;
        Wait (3137+(random(747)));
        Randoms;
       KeyDown(118);
       Wait(50+random(100));
       KeyUp(118);
       end;

       2: begin

       Wait (3000+(random(1000)));
       RandomMovement;
       Wait (3000+(random(1000)));
       Randoms;
       KeyDown(118);
       Wait(50+random(100));
       KeyUp(118);

    end;

    procedure DTMs;
    begin
     Alchspell := DTMFromString('78DA63E465606010624001BFBEF1806946289' +
           'F1124CFCA80061851D50802092E026AF8895443C82E1120C14F84' +
           '7BB8A9E06651202148408D18901026A006242F46400D1F116A388' +
           '950C342841A6622DCCC4A4438731356030042560420');

     AlchLong  := DTMFromString('78DA631463606010674001F9497C0CFF81342' +
           '310FF07024690BC06031A604422813427905024428D1A0135DC40' +
           '429D801A4122D4C803094D026A5488700F488D340135AA4042888' +
           '01A5038F31250230724F808A8E123C21C2E202146445CC8E25703' +
           '0048AA08EE');
           end;

    procedure Report;
    begin
     Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
     Writeln('| AbsTrACt Auto Alcher Report! Feel free to post');
     Writeln('| Alched '+ IntToStr(Alchs) + ' ' + ItemToAlchName + 's.');
     Writeln('| Worked for ' + TimeRunning);
     Writeln('| Exp gained '+ IntToStr(alchs*65));
     Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
     Writeln('Made By AbsTrACt!');
    end;

    procedure Finished;
    begin
     if (alchs = alchstodo) then
      begin
       Logout;
       Report;
      end;
    end;

    procedure Alch;
    begin
    KeyDown(118)
    Wait(50+random(100))
    KeyUp(118)
     repeat
     Wait(500+random(150))
      if FindDTM(Alchspell, x, y, MIX1, MIY1, MIX2, MIY2) then
       Mouse(x, y, 10, 10,true);
      if FindDTM(AlchLong, x, y, MIX1, MIY1, MIX2, MIY2) then
      begin
      Mouse(x, y, 10, 10, true);
      end;
       Wait(2000+random(100));
       Case random(7) of
       0:Wait(150+(random(376)));
       1:Wait(55+(random(10)));
       2:Wait(0+(random(250)));
       3:AntiBan;
       4:Wait(0+(random(150)));
       5:Wait(150+(random(100)));
       6:Wait(0+(random(100)));
         end;
          Finished;
    until alchs=alchstodo;
    end;

    Procedure Setup;
    begin
    smartSetup('world158', True, True);
    While Not (SmartReady) Do
    Wait(100);
    SetTargetDC(SmartGetDC);
    If Not (LoggedIn) Then
    While Not (SmartGetColor(386, 249) = 65535) Do
    Wait(100);
    SetupSRL;;
      wait(1000)
      ActivateClient;
      wait(1000)
    end;

    begin
    SetupSRL;
    Setup;
      DeclarePlayers;
      LoginPlayer;
      DTMs;
        Alch;
        FreeDTM(Alchspell);
        FreeDTM(AlchLong);
         Report;
        end.

    Line 135: [Error] (14845:1): Syntax error in script C:\Users\Ricardo\Desktop\AAA V1.01.scar

    Yeah it's me again and with the same script. It worked before... I don't know what happened but it doesn't work anymore...

    I already check JAD's guide to fix annoying errors and found nothing. Help me again please.

  2. #2
    Join Date
    Oct 2006
    Posts
    1,211
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You didnt end; ur case.

    EDIT: and you forgot to end the last case.

    EDIT2:
    Fixed and formatted. You also dont declare 'Alchs' anywhere for your proggie, but ill let you handle that

    SCAR Code:
    program AbsTrACtAutoAlcherSmartVersion; //This is my very first script but I believe it is a pretty good one.

    {///////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
    { Title:           AbsTrACtAutoAlcher                                                   }
    { Version:         1.01 SMART                                                           }
    { Author:          AbsTrACt'^.|                                                         }
    { Settings:        I don't use colors in this script so it's the same...                }
    { Recommendation:  Use it in Barrows Tombs as there are no randoms there                }
    {although you may find some persons there and I didn't made an AutoResponder yet        }
    { SetUp Lines:                                                                          }
    {///////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}

    {.include SRL\SRL\Misc\Smart.scar}
    {.include SRL\SRL.scar}
    {.include SRL\SRL\misc\Users.scar}
    var
      Alch: integer;
      Alchspell: integer;
      AlchLong: integer;
      x, y: integer;

    {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
    {                   Begin SetUp                  }
    {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
    const

      RunD = 'n'; //Direction to run from Attacking Random (n, s, w, e)
      ItemToAlchName = 'yew longbow'; //Name of the item you are alching (for antiban)
      Alchstodo = 20; //How many alchs the bot should do?

    procedure DeclarePlayers; // this procedure is used to log players in
    begin
      HowManyPlayers := 5; // Set Number of Players here.
      NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
      CurrentPlayer := 0; // CurrentPlayer = Array Index

      Players[0].Name := 'USERNAME'; //Your account username
      Players[0].Pass := 'PASSWORD'; //Your account password
      Players[0].Nick := 'ser'; //3-4 Small letters of your username
      Players[0].Active := True; //Player in use or not in use (True for in use, False for not in use)

      Players[1].Name := 'USERNAME'; //Your account username
      Players[1].Pass := 'PASSWORD'; //Your account password
      Players[1].Nick := 'ser'; //3-4 Small letters of your username
      Players[1].Active := False; //Player in use or not in use (True for in use, False for not in use)

      Players[2].Name := 'USERNAME'; //Your account username
      Players[2].Pass := 'PASSWORD'; //Your account password
      Players[2].Nick := 'ser'; //3-4 Small letters of your username
      Players[2].Active := False; //Player in use or not in use (True for in use, False for not in use)

      Players[3].Name := 'USERNAME'; //Your account username
      Players[3].Pass := 'PASSWORD'; //Your account password
      Players[3].Nick := 'ser'; //3-4 Small letters of your username
      Players[3].Active := False; //Player in use or not in use (True for in use, False for not in use)

      Players[4].Name := 'USERNAME'; //Your account username
      Players[4].Pass := 'PASSWORD'; //Your account password
      Players[4].Nick := 'ser'; //3-4 Small letters of your username
      Players[4].Active := False; //Player in use or not in use (True for in use, False for not in use)

    end;
    {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
    {                     End SetUp                  }
    {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
    {                Do Not Touch Below              }
    {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

    procedure Randoms;
    begin
      FindTalk; //finds talkin randoms
      FindNormalRandoms; //finds normal randoms
      SolveChatRandom; //solves chat randoms
      FindLamp('Magic'); //solves lamp and then choses a skill to update
      SolvePinball; //solves pinball random
      DwarfItem; //dropes dwarf items
      if (FindFight) then //runs away from fight
      begin
        MakeCompass('n');
        RunTo(RunD, True);
        Wait(3500 + Random(3000));
        RunTo(RunD, True);
      end;
    end;

    procedure AntiBan;
    begin
      case Random(3) of

        0: begin

            Wait(3137 + (random(1350)));
            HoverSkill('Magic', False);
            Wait(3137 + (random(711)));
            Randoms;
            KeyDown(118);
            Wait(50 + random(100));
            KeyUp(118);
          end;

        1: begin

            Wait(3137 + (random(1250)));
            AlmostLogout;
            Wait(3137 + (random(747)));
            Randoms;
            KeyDown(118);
            Wait(50 + random(100));
            KeyUp(118);
          end;

        2: begin

            Wait(3000 + (random(1000)));
            RandomMovement;
            Wait(3000 + (random(1000)));
            Randoms;
            KeyDown(118);
            Wait(50 + random(100));
            KeyUp(118);
          end;
      end;
    end;

    procedure DTMs;
    begin
      Alchspell := DTMFromString('78DA63E465606010624001BFBEF1806946289' +
        'F1124CFCA80061851D50802092E026AF8895443C82E1120C14F84' +
        '7BB8A9E06651202148408D18901026A006242F46400D1F116A388' +
        '950C342841A6622DCCC4A4438731356030042560420');

      AlchLong := DTMFromString('78DA631463606010674001F9497C0CFF81342' +
        '310FF07024690BC06031A604422813427905024428D1A0135DC40' +
        '429D801A4122D4C803094D026A5488700F488D340135AA4042888' +
        '01A5038F31250230724F808A8E123C21C2E202146445CC8E25703' +
        '0048AA08EE');
    end;

    procedure Report;
    begin
      Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      Writeln('| AbsTrACt Auto Alcher Report! Feel free to post');
      Writeln('| Alched ' + IntToStr(Alchs) + ' ' + ItemToAlchName + 's.');
      Writeln('| Worked for ' + TimeRunning);
      Writeln('| Exp gained ' + IntToStr(alchs * 65));
      Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      Writeln('Made By AbsTrACt!');
    end;

    procedure Finished;
    begin
      if (alchs = alchstodo) then
      begin
        Logout;
        Report;
      end;
    end;

    procedure Alch;
    begin
      KeyDown(118)
        Wait(50 + random(100))
        KeyUp(118)
        repeat
        Wait(500 + random(150))
          if FindDTM(Alchspell, x, y, MIX1, MIY1, MIX2, MIY2) then
          Mouse(x, y, 10, 10, true);
        if FindDTM(AlchLong, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Mouse(x, y, 10, 10, true);
        end;
        Wait(2000 + random(100));
        case random(7) of
          0: Wait(150 + (random(376)));
          1: Wait(55 + (random(10)));
          2: Wait(0 + (random(250)));
          3: AntiBan;
          4: Wait(0 + (random(150)));
          5: Wait(150 + (random(100)));
          6: Wait(0 + (random(100)));
        end;
        Finished;
      until alchs = alchstodo;
    end;

    procedure Setup;
    begin
      smartSetup('world158', True, True);
      while not (SmartReady) do
        Wait(100);
      SetTargetDC(SmartGetDC);
      if not (LoggedIn) then
        while not (SmartGetColor(386, 249) = 65535) do
          Wait(100);
      SetupSRL; ;
      wait(1000)
        ActivateClient;
      wait(1000)
    end;

    begin
      SetupSRL;
      Setup;
      DeclarePlayers;
      LoginPlayer;
      DTMs;
      Alch;
      FreeDTM(Alchspell);
      FreeDTM(AlchLong);
      Report;
    end.

    Work on standards
    Extinct.

    Formally known as Drags111.

  3. #3
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What is funny is that he needed help for a different error on his script and I already told him this and fixed it for him .... tsk tsk pay attention man....

  4. #4
    Join Date
    Jan 2008
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by The[Cheese] View Post
    You didnt end; ur case.

    EDIT: and you forgot to end the last case.

    EDIT2:
    Fixed and formatted. You also dont declare 'Alchs' anywhere for your proggie, but ill let you handle that

    SCAR Code:
    program AbsTrACtAutoAlcherSmartVersion; //This is my very first script but I believe it is a pretty good one.

    {///////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
    { Title:           AbsTrACtAutoAlcher                                                   }
    { Version:         1.01 SMART                                                           }
    { Author:          AbsTrACt'^.|                                                         }
    { Settings:        I don't use colors in this script so it's the same...                }
    { Recommendation:  Use it in Barrows Tombs as there are no randoms there                }
    {although you may find some persons there and I didn't made an AutoResponder yet        }
    { SetUp Lines:                                                                          }
    {///////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}

    {.include SRL\SRL\Misc\Smart.scar}
    {.include SRL\SRL.scar}
    {.include SRL\SRL\misc\Users.scar}
    var
      Alch: integer;
      Alchspell: integer;
      AlchLong: integer;
      x, y: integer;

    {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
    {                   Begin SetUp                  }
    {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
    const

      RunD = 'n'; //Direction to run from Attacking Random (n, s, w, e)
      ItemToAlchName = 'yew longbow'; //Name of the item you are alching (for antiban)
      Alchstodo = 20; //How many alchs the bot should do?

    procedure DeclarePlayers; // this procedure is used to log players in
    begin
      HowManyPlayers := 5; // Set Number of Players here.
      NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
      CurrentPlayer := 0; // CurrentPlayer = Array Index

      Players[0].Name := 'USERNAME'; //Your account username
      Players[0].Pass := 'PASSWORD'; //Your account password
      Players[0].Nick := 'ser'; //3-4 Small letters of your username
      Players[0].Active := True; //Player in use or not in use (True for in use, False for not in use)

      Players[1].Name := 'USERNAME'; //Your account username
      Players[1].Pass := 'PASSWORD'; //Your account password
      Players[1].Nick := 'ser'; //3-4 Small letters of your username
      Players[1].Active := False; //Player in use or not in use (True for in use, False for not in use)

      Players[2].Name := 'USERNAME'; //Your account username
      Players[2].Pass := 'PASSWORD'; //Your account password
      Players[2].Nick := 'ser'; //3-4 Small letters of your username
      Players[2].Active := False; //Player in use or not in use (True for in use, False for not in use)

      Players[3].Name := 'USERNAME'; //Your account username
      Players[3].Pass := 'PASSWORD'; //Your account password
      Players[3].Nick := 'ser'; //3-4 Small letters of your username
      Players[3].Active := False; //Player in use or not in use (True for in use, False for not in use)

      Players[4].Name := 'USERNAME'; //Your account username
      Players[4].Pass := 'PASSWORD'; //Your account password
      Players[4].Nick := 'ser'; //3-4 Small letters of your username
      Players[4].Active := False; //Player in use or not in use (True for in use, False for not in use)

    end;
    {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
    {                     End SetUp                  }
    {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
    {                Do Not Touch Below              }
    {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

    procedure Randoms;
    begin
      FindTalk; //finds talkin randoms
      FindNormalRandoms; //finds normal randoms
      SolveChatRandom; //solves chat randoms
      FindLamp('Magic'); //solves lamp and then choses a skill to update
      SolvePinball; //solves pinball random
      DwarfItem; //dropes dwarf items
      if (FindFight) then //runs away from fight
      begin
        MakeCompass('n');
        RunTo(RunD, True);
        Wait(3500 + Random(3000));
        RunTo(RunD, True);
      end;
    end;

    procedure AntiBan;
    begin
      case Random(3) of

        0: begin

            Wait(3137 + (random(1350)));
            HoverSkill('Magic', False);
            Wait(3137 + (random(711)));
            Randoms;
            KeyDown(118);
            Wait(50 + random(100));
            KeyUp(118);
          end;

        1: begin

            Wait(3137 + (random(1250)));
            AlmostLogout;
            Wait(3137 + (random(747)));
            Randoms;
            KeyDown(118);
            Wait(50 + random(100));
            KeyUp(118);
          end;

        2: begin

            Wait(3000 + (random(1000)));
            RandomMovement;
            Wait(3000 + (random(1000)));
            Randoms;
            KeyDown(118);
            Wait(50 + random(100));
            KeyUp(118);
          end;
      end;
    end;

    procedure DTMs;
    begin
      Alchspell := DTMFromString('78DA63E465606010624001BFBEF1806946289' +
        'F1124CFCA80061851D50802092E026AF8895443C82E1120C14F84' +
        '7BB8A9E06651202148408D18901026A006242F46400D1F116A388' +
        '950C342841A6622DCCC4A4438731356030042560420');

      AlchLong := DTMFromString('78DA631463606010674001F9497C0CFF81342' +
        '310FF07024690BC06031A604422813427905024428D1A0135DC40' +
        '429D801A4122D4C803094D026A5488700F488D340135AA4042888' +
        '01A5038F31250230724F808A8E123C21C2E202146445CC8E25703' +
        '0048AA08EE');
    end;

    procedure Report;
    begin
      Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      Writeln('| AbsTrACt Auto Alcher Report! Feel free to post');
      Writeln('| Alched ' + IntToStr(Alchs) + ' ' + ItemToAlchName + 's.');
      Writeln('| Worked for ' + TimeRunning);
      Writeln('| Exp gained ' + IntToStr(alchs * 65));
      Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      Writeln('Made By AbsTrACt!');
    end;

    procedure Finished;
    begin
      if (alchs = alchstodo) then
      begin
        Logout;
        Report;
      end;
    end;

    procedure Alch;
    begin
      KeyDown(118)
        Wait(50 + random(100))
        KeyUp(118)
        repeat
        Wait(500 + random(150))
          if FindDTM(Alchspell, x, y, MIX1, MIY1, MIX2, MIY2) then
          Mouse(x, y, 10, 10, true);
        if FindDTM(AlchLong, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Mouse(x, y, 10, 10, true);
        end;
        Wait(2000 + random(100));
        case random(7) of
          0: Wait(150 + (random(376)));
          1: Wait(55 + (random(10)));
          2: Wait(0 + (random(250)));
          3: AntiBan;
          4: Wait(0 + (random(150)));
          5: Wait(150 + (random(100)));
          6: Wait(0 + (random(100)));
        end;
        Finished;
      until alchs = alchstodo;
    end;

    procedure Setup;
    begin
      smartSetup('world158', True, True);
      while not (SmartReady) do
        Wait(100);
      SetTargetDC(SmartGetDC);
      if not (LoggedIn) then
        while not (SmartGetColor(386, 249) = 65535) do
          Wait(100);
      SetupSRL; ;
      wait(1000)
        ActivateClient;
      wait(1000)
    end;

    begin
      SetupSRL;
      Setup;
      DeclarePlayers;
      LoginPlayer;
      DTMs;
      Alch;
      FreeDTM(Alchspell);
      FreeDTM(AlchLong);
      Report;
    end.

    Work on standards
    Thanks. It's my first script so I was already expecting a lot of errors.

    I get a new one now.

    SCAR Code:
    program AbsTrACtAutoAlcherSmartVersion;//This is my very first script but I believe it is a pretty good one.

    {///////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
    { Title:           AbsTrACtAutoAlcher                                                   }
    { Version:         1.00 SMART                                                           }
    { Author:          AbsTrACt'^.|                                                         }
    { Settings:        I don't use colors in this script so it's the same...                }
    { Recommendation:  Use it in Barrows Tombs as there are no randoms there                }
    {although you may find some persons there and I didn't made an AutoResponder yet        }
    { SetUp Lines:                                                                          }
    {///////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}

    {.include SRL\SRL\Misc\Smart.scar}
    {.include SRL\SRL.scar}
    {.include SRL\SRL\misc\Users.scar}
    var
    Alch: integer;
    Alchspell: integer;
    AlchLong: integer;
    x,y: integer;
    Alchs: integer;

    {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
    {                   Begin SetUp                  }
    {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
    const

      RunD = 'n'; //Direction to run from Attacking Random (n, s, w, e)
      ItemToAlchName = 'yew longbow'; //Name of the item you are alching (for antiban)
      Alchstodo = 213; //How many alchs the bot should do?

    Procedure DeclarePlayers; // this procedure is used to log players in
     begin
         HowManyPlayers  :=5;               // Set Number of Players here.
         NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
         CurrentPlayer:=0;                // CurrentPlayer = Array Index

         Players[0].Name :='USERNAME';//Your account username
         Players[0].Pass :='PASSWORD';//Your account password
         Players[0].Nick :='ser';//3-4 Small letters of your username
         Players[0].Active:=True;//Player in use or not in use (True for in use, False for not in use)

         Players[1].Name :='USERNAME';//Your account username
         Players[1].Pass :='PASSWORD';//Your account password
         Players[1].Nick :='ser';//3-4 Small letters of your username
         Players[1].Active:=False;//Player in use or not in use (True for in use, False for not in use)

         Players[2].Name :='USERNAME';//Your account username
         Players[2].Pass :='PASSWORD';//Your account password
         Players[2].Nick :='ser';//3-4 Small letters of your username
         Players[2].Active:=False;//Player in use or not in use (True for in use, False for not in use)

         Players[3].Name :='USERNAME';//Your account username
         Players[3].Pass :='PASSWORD';//Your account password
         Players[3].Nick :='ser';//3-4 Small letters of your username
         Players[3].Active:=False;//Player in use or not in use (True for in use, False for not in use)

         Players[4].Name :='USERNAME';//Your account username
         Players[4].Pass :='PASSWORD';//Your account password
         Players[4].Nick :='ser';//3-4 Small letters of your username
         Players[4].Active:=False;//Player in use or not in use (True for in use, False for not in use)

    end;
    {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
    {                     End SetUp                  }
    {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
    {                Do Not Touch Below              }
    {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

    procedure Randoms;
    begin
      FindTalk; //finds talkin randoms
      FindNormalRandoms; //finds normal randoms
      SolveChatRandom; //solves chat randoms
      FindLamp('Magic'); //solves lamp and then choses a skill to update
      SolvePinball; //solves pinball random
      DwarfItem; //dropes dwarf items
      if(FindFight)then //runs away from fight
     begin
      MakeCompass('n');
      RunTo(RunD, True);
      Wait(3500 +Random(3000));
      RunTo(RunD, True);
     end;
    end;

    procedure AntiBan;
    begin
      case Random(3) of

        0: begin

        Wait (3137+(random(1350)));
        HoverSkill('Magic', False);
        Wait (3137+(random(711)));
        Randoms;
        KeyDown(118);
        Wait(50+random(100));
        KeyUp(118);
        end;

        1: begin

        Wait (3137+(random(1250)));
        AlmostLogout;
        Wait (3137+(random(747)));
        Randoms;
       KeyDown(118);
       Wait(50+random(100));
       KeyUp(118);
       end;
       
       2: begin
       
       Wait (3000+(random(1000)));
       RandomMovement;
       Wait (3000+(random(1000)));
       Randoms;
       KeyDown(118);
       Wait(50+random(100));
       KeyUp(118);
       
    end;
    end;
    end;

    procedure DTMs;
    begin
     Alchspell := DTMFromString('78DA63E465606010624001BFBEF1806946289' +
           'F1124CFCA80061851D50802092E026AF8895443C82E1120C14F84' +
           '7BB8A9E06651202148408D18901026A006242F46400D1F116A388' +
           '950C342841A6622DCCC4A4438731356030042560420');

     AlchLong  := DTMFromString('78DA631463606010674001F9497C0CFF81342' +
           '310FF07024690BC06031A604422813427905024428D1A0135DC40' +
           '429D801A4122D4C803094D026A5488700F488D340135AA4042888' +
           '01A5038F31250230724F808A8E123C21C2E202146445CC8E25703' +
           '0048AA08EE');
           end;
           
    procedure Report;
    begin
     Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
     Writeln('| AbsTrACt Auto Alcher Report! Feel free to post');
     Writeln('| Alched '+ IntToStr(Alchs) + ' ' + ItemToAlchName + 's.');
     Writeln('| Worked for ' + TimeRunning);
     Writeln('| Exp gained '+ IntToStr(alchs*65));
     Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
     Writeln('Made By AbsTrACt!');
    end;

    procedure Finished;
    begin
     if (alchs = alchstodo) then
      begin
       Logout;
       Report;
      end;
    end;

    procedure Alch;
    begin
    KeyDown(118)
    Wait(50+random(100))
    KeyUp(118)
     repeat
     Wait(500+random(150))
      if FindDTM(Alchspell, x, y, MIX1, MIY1, MIX2, MIY2) then
       Mouse(x, y, 10, 10,true);
      if FindDTM(AlchLong, x, y, MIX1, MIY1, MIX2, MIY2) then
      begin
      Mouse(x, y, 10, 10, true);
      end;
       Wait(2000+random(100));
       Case random(7) of
       0:Wait(150+(random(376)));
       1:Wait(55+(random(10)));
       2:Wait(0+(random(250)));
       3:AntiBan;
       4:Wait(0+(random(150)));
       5:Wait(150+(random(100)));
       6:Wait(0+(random(100)));
         end;
          Finished;
    until alchs=alchstodo;
    end;
    end;

    Procedure Setup;
    begin
    smartSetup('world158', True, True);
    While Not (SmartReady) Do
    Wait(100);
    SetTargetDC(SmartGetDC);
    If Not (LoggedIn) Then
    While Not (SmartGetColor(386, 249) = 65535) Do
    Wait(100);
    SetupSRL;;
      wait(1000)
      ActivateClient;
      wait(1000)
    end;

    begin
    SetupSRL;
    Setup;
      DeclarePlayers;
      LoginPlayer;
      DTMs;
        Alch;
        FreeDTM(Alchspell);
        FreeDTM(AlchLong);
         Report;
        end.

    Line 172: [Error] (14882:11): Duplicate identifier 'ALCH' in script C:\Users\Ricardo\Desktop\Autos\AAA.scar

    I already searched and I don't see any duplicate identifier in the script... sorry for bothering you again.

  5. #5
    Join Date
    Oct 2006
    Posts
    1,211
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    just rename it. It might be another var inside srl.

    EDIT:
    And OMG i just gave u a fix for the standards! Why arent u using it???
    Extinct.

    Formally known as Drags111.

  6. #6
    Join Date
    Jan 2008
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by The[Cheese] View Post
    just rename it. It might be another var inside srl.

    EDIT:
    And OMG i just gave u a fix for the standards! Why arent u using it???
    I renamed it and it still gives me the error... and I just copy pasted the wrong file lol.

  7. #7
    Join Date
    May 2008
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR says srl downloaded and installed but in my includes folder is only a placeholder

  8. #8
    Join Date
    Jan 2008
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by drfrana View Post
    SCAR says srl downloaded and installed but in my includes folder is only a placeholder
    Please don't spam my thread. Make a new one for yourself. Thanks.

  9. #9
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program AbsTrACtAutoAlcherSmartVersion;//This is my very first script but I believe it is a pretty good one.

      {///////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
      { Title:           AbsTrACtAutoAlcher                                                   }
      { Version:         1.01 SMART                                                           }
      { Author:          AbsTrACt'^.|                                                         }
      { Settings:        I don't use colors in this script so it's the same...                }
      { Recommendation:  Use it in Barrows Tombs as there are no randoms there                }
      {although you may find some persons there and I didn't made an AutoResponder yet        }
      { SetUp Lines:                                                                          }
      {///////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}

      {.include SRL\SRL\Misc\Smart.scar}
      {.include SRL\SRL.scar}
      {.include SRL\SRL\misc\Users.scar}
    var
      Alch: Integer;
      Alchs: Integer;
      Alchspell: Integer;
      AlchLong: Integer;
      x, y: Integer;

      {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
      {                   Begin SetUp                  }
      {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
    const

      RunD           = 'n'; //Direction to run from Attacking Random (n, s, w, e)
      ItemToAlchName = 'yew longbow';
      //Name of the item you are alching (for antiban)
      Alchstodo = 20; //How many alchs the bot should do?

    procedure DeclarePlayers; // this procedure is used to log players in
    begin
      HowManyPlayers := 5;               // Set Number of Players here.
      NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
      CurrentPlayer := 0;                // CurrentPlayer = Array Index

      Players[0].Name := 'USERNAME';//Your account username
      Players[0].Pass := 'PASSWORD';//Your account password
      Players[0].Nick := 'ser';     //3-4 Small letters of your username
      Players[0].Active := true;
      //Player in use or not in use (True for in use, False for not in use)

      Players[1].Name := 'USERNAME';//Your account username
      Players[1].Pass := 'PASSWORD';//Your account password
      Players[1].Nick := 'ser';     //3-4 Small letters of your username
      Players[1].Active := false;
      //Player in use or not in use (True for in use, False for not in use)

      Players[2].Name := 'USERNAME';//Your account username
      Players[2].Pass := 'PASSWORD';//Your account password
      Players[2].Nick := 'ser';     //3-4 Small letters of your username
      Players[2].Active := false;
      //Player in use or not in use (True for in use, False for not in use)

      Players[3].Name := 'USERNAME';//Your account username
      Players[3].Pass := 'PASSWORD';//Your account password
      Players[3].Nick := 'ser';     //3-4 Small letters of your username
      Players[3].Active := false;
      //Player in use or not in use (True for in use, False for not in use)

      Players[4].Name := 'USERNAME';//Your account username
      Players[4].Pass := 'PASSWORD';//Your account password
      Players[4].Nick := 'ser';     //3-4 Small letters of your username
      Players[4].Active := false;
      //Player in use or not in use (True for in use, False for not in use)
    end;
      {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
      {                     End SetUp                  }
      {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
      {                Do Not Touch Below              }
      {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

    procedure Randoms;
    begin
      FindTalk;           //finds talkin randoms
      FindNormalRandoms;  //finds normal randoms
      SolveChatRandom;    //solves chat randoms
      FindLamp('Magic');  //solves lamp and then choses a skill to update
      SolvePinball;       //solves pinball random
      DwarfItem;          //dropes dwarf items
      if (FindFight) then //runs away from fight
      begin
        MakeCompass('n');
        RunTo(RunD, true);
        Wait(3500 + Random(3000));
        RunTo(RunD, true);
      end;
    end;

    procedure AntiBan;
    begin
      case Random(3) of

        0:
        begin
          Wait(3137 + (Random(1350)));
          HoverSkill('Magic', false);
          Wait(3137 + (Random(711)));
          Randoms;
          KeyDown(118);
          Wait(50 + Random(100));
          KeyUp(118);
        end;

        1:
        begin
          Wait(3137 + (Random(1250)));
          AlmostLogout;
          Wait(3137 + (Random(747)));
          Randoms;
          KeyDown(118);
          Wait(50 + Random(100));
          KeyUp(118);
        end;

        2:
        begin
          Wait(3000 + (Random(1000)));
          RandomMovement;
          Wait(3000 + (Random(1000)));
          Randoms;
          KeyDown(118);
          Wait(50 + Random(100));
          KeyUp(118);
        end;
      end;
    end;

    procedure DTMs;
    begin
      Alchspell := DTMFromString('78DA63E465606010624001BFBEF1806946289' +
        'F1124CFCA80061851D50802092E026AF8895443C82E1120C14F84' +
        '7BB8A9E06651202148408D18901026A006242F46400D1F116A388' +
        '950C342841A6622DCCC4A4438731356030042560420');

      AlchLong := DTMFromString('78DA631463606010674001F9497C0CFF81342' +
        '310FF07024690BC06031A604422813427905024428D1A0135DC40' +
        '429D801A4122D4C803094D026A5488700F488D340135AA4042888' +
        '01A5038F31250230724F808A8E123C21C2E202146445CC8E25703' + '0048AA08EE');
    end;

    procedure Report;
    begin
      Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      Writeln('| AbsTrACt Auto Alcher Report! Feel free to post');
      Writeln('| Alched ' + IntToStr(Alch) + ' ' + ItemToAlchName + 's.');
      Writeln('| Worked for ' + TimeRunning);
      Writeln('| Exp gained ' + IntToStr(alchs * 65));
      Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      Writeln('Made By AbsTrACt!');
    end;

    procedure Finished;
    begin
      if (alchs = alchstodo) then
      begin
        Logout;
        Report;
      end;
    end;

    procedure Alching;
    begin
      KeyDown(118)
      Wait(50 + Random(100))
      KeyUp(118)
      repeat
        Wait(500 + Random(150))
        if FindDTM(Alchspell, x, y, MIX1, MIY1, MIX2, MIY2) then
          Mouse(x, y, 10, 10, true);
        if FindDTM(AlchLong, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Mouse(x, y, 10, 10, true);
        end;
        Wait(2000 + Random(100));
        case Random(7) of
          0:
            Wait(150 + (Random(376)));
          1:
            Wait(55 + (Random(10)));
          2:
            Wait(0 + (Random(250)));
          3:
            AntiBan;
          4:
            Wait(0 + (Random(150)));
          5:
            Wait(150 + (Random(100)));
          6:
            Wait(0 + (Random(100)));
        end;
        Finished;
      until alchs = alchstodo;
    end;

    procedure Setup;
    begin
      smartSetup('world158', true, true);
      while not (SmartReady) do
        Wait(100);
      SetTargetDC(SmartGetDC);
      if not (LoggedIn) then
        while not (SmartGetColor(386, 249) = 65535) do
          Wait(100);
      SetupSRL;;
      wait(1000)
      ActivateClient;
      wait(1000)
    end;

    begin
      SetupSRL;
      Setup;
      DeclarePlayers;
      LoginPlayer;
      DTMs;
      Alching;
      FreeDTM(Alchspell);
      FreeDTM(AlchLong);
      Report;
    end.

    Fixed. Corrected Standards.

    You cannot have an integer and a procedure called the same thing.

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  10. #10
    Join Date
    Jan 2008
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by rogeruk View Post
    SCAR Code:
    program AbsTrACtAutoAlcherSmartVersion;//This is my very first script but I believe it is a pretty good one.

      {///////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
      { Title:           AbsTrACtAutoAlcher                                                   }
      { Version:         1.01 SMART                                                           }
      { Author:          AbsTrACt'^.|                                                         }
      { Settings:        I don't use colors in this script so it's the same...                }
      { Recommendation:  Use it in Barrows Tombs as there are no randoms there                }
      {although you may find some persons there and I didn't made an AutoResponder yet        }
      { SetUp Lines:                                                                          }
      {///////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}

      {.include SRL\SRL\Misc\Smart.scar}
      {.include SRL\SRL.scar}
      {.include SRL\SRL\misc\Users.scar}
    var
      Alch: Integer;
      Alchs: Integer;
      Alchspell: Integer;
      AlchLong: Integer;
      x, y: Integer;

      {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
      {                   Begin SetUp                  }
      {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
    const

      RunD           = 'n'; //Direction to run from Attacking Random (n, s, w, e)
      ItemToAlchName = 'yew longbow';
      //Name of the item you are alching (for antiban)
      Alchstodo = 20; //How many alchs the bot should do?

    procedure DeclarePlayers; // this procedure is used to log players in
    begin
      HowManyPlayers := 5;               // Set Number of Players here.
      NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
      CurrentPlayer := 0;                // CurrentPlayer = Array Index

      Players[0].Name := 'USERNAME';//Your account username
      Players[0].Pass := 'PASSWORD';//Your account password
      Players[0].Nick := 'ser';     //3-4 Small letters of your username
      Players[0].Active := true;
      //Player in use or not in use (True for in use, False for not in use)

      Players[1].Name := 'USERNAME';//Your account username
      Players[1].Pass := 'PASSWORD';//Your account password
      Players[1].Nick := 'ser';     //3-4 Small letters of your username
      Players[1].Active := false;
      //Player in use or not in use (True for in use, False for not in use)

      Players[2].Name := 'USERNAME';//Your account username
      Players[2].Pass := 'PASSWORD';//Your account password
      Players[2].Nick := 'ser';     //3-4 Small letters of your username
      Players[2].Active := false;
      //Player in use or not in use (True for in use, False for not in use)

      Players[3].Name := 'USERNAME';//Your account username
      Players[3].Pass := 'PASSWORD';//Your account password
      Players[3].Nick := 'ser';     //3-4 Small letters of your username
      Players[3].Active := false;
      //Player in use or not in use (True for in use, False for not in use)

      Players[4].Name := 'USERNAME';//Your account username
      Players[4].Pass := 'PASSWORD';//Your account password
      Players[4].Nick := 'ser';     //3-4 Small letters of your username
      Players[4].Active := false;
      //Player in use or not in use (True for in use, False for not in use)
    end;
      {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
      {                     End SetUp                  }
      {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
      {                Do Not Touch Below              }
      {\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
      {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

    procedure Randoms;
    begin
      FindTalk;           //finds talkin randoms
      FindNormalRandoms;  //finds normal randoms
      SolveChatRandom;    //solves chat randoms
      FindLamp('Magic');  //solves lamp and then choses a skill to update
      SolvePinball;       //solves pinball random
      DwarfItem;          //dropes dwarf items
      if (FindFight) then //runs away from fight
      begin
        MakeCompass('n');
        RunTo(RunD, true);
        Wait(3500 + Random(3000));
        RunTo(RunD, true);
      end;
    end;

    procedure AntiBan;
    begin
      case Random(3) of

        0:
        begin
          Wait(3137 + (Random(1350)));
          HoverSkill('Magic', false);
          Wait(3137 + (Random(711)));
          Randoms;
          KeyDown(118);
          Wait(50 + Random(100));
          KeyUp(118);
        end;

        1:
        begin
          Wait(3137 + (Random(1250)));
          AlmostLogout;
          Wait(3137 + (Random(747)));
          Randoms;
          KeyDown(118);
          Wait(50 + Random(100));
          KeyUp(118);
        end;

        2:
        begin
          Wait(3000 + (Random(1000)));
          RandomMovement;
          Wait(3000 + (Random(1000)));
          Randoms;
          KeyDown(118);
          Wait(50 + Random(100));
          KeyUp(118);
        end;
      end;
    end;

    procedure DTMs;
    begin
      Alchspell := DTMFromString('78DA63E465606010624001BFBEF1806946289' +
        'F1124CFCA80061851D50802092E026AF8895443C82E1120C14F84' +
        '7BB8A9E06651202148408D18901026A006242F46400D1F116A388' +
        '950C342841A6622DCCC4A4438731356030042560420');

      AlchLong := DTMFromString('78DA631463606010674001F9497C0CFF81342' +
        '310FF07024690BC06031A604422813427905024428D1A0135DC40' +
        '429D801A4122D4C803094D026A5488700F488D340135AA4042888' +
        '01A5038F31250230724F808A8E123C21C2E202146445CC8E25703' + '0048AA08EE');
    end;

    procedure Report;
    begin
      Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      Writeln('| AbsTrACt Auto Alcher Report! Feel free to post');
      Writeln('| Alched ' + IntToStr(Alch) + ' ' + ItemToAlchName + 's.');
      Writeln('| Worked for ' + TimeRunning);
      Writeln('| Exp gained ' + IntToStr(alchs * 65));
      Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      Writeln('Made By AbsTrACt!');
    end;

    procedure Finished;
    begin
      if (alchs = alchstodo) then
      begin
        Logout;
        Report;
      end;
    end;

    procedure Alching;
    begin
      KeyDown(118)
      Wait(50 + Random(100))
      KeyUp(118)
      repeat
        Wait(500 + Random(150))
        if FindDTM(Alchspell, x, y, MIX1, MIY1, MIX2, MIY2) then
          Mouse(x, y, 10, 10, true);
        if FindDTM(AlchLong, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Mouse(x, y, 10, 10, true);
        end;
        Wait(2000 + Random(100));
        case Random(7) of
          0:
            Wait(150 + (Random(376)));
          1:
            Wait(55 + (Random(10)));
          2:
            Wait(0 + (Random(250)));
          3:
            AntiBan;
          4:
            Wait(0 + (Random(150)));
          5:
            Wait(150 + (Random(100)));
          6:
            Wait(0 + (Random(100)));
        end;
        Finished;
      until alchs = alchstodo;
    end;

    procedure Setup;
    begin
      smartSetup('world158', true, true);
      while not (SmartReady) do
        Wait(100);
      SetTargetDC(SmartGetDC);
      if not (LoggedIn) then
        while not (SmartGetColor(386, 249) = 65535) do
          Wait(100);
      SetupSRL;;
      wait(1000)
      ActivateClient;
      wait(1000)
    end;

    begin
      SetupSRL;
      Setup;
      DeclarePlayers;
      LoginPlayer;
      DTMs;
      Alching;
      FreeDTM(Alchspell);
      FreeDTM(AlchLong);
      Report;
    end.

    Fixed. Corrected Standards.

    You cannot have an integer and a procedure called the same thing.
    Thanks. Repped you. Just a last thing. When it executes AntiBan it gives me an error and says:

    ** Warning in GameTab: 4 does not exist**

    Could you help me with this?

  11. #11
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You need to make sure that when you are looking in your inventory you tell the script to go to the inventory using this:
    SCAR Code:
    GameTab(4);

    And you can use it to go to say the magic tab as well (the number corresponds to a different tab - 4 is inventory). I didn't spend to long looking at your script so you will have to figure out where to put it .

    Edit: also a minor fix to improve your script is that your script runs and at the bottom of the alching procedure it says Finished; inside Finished is the command Report; but you also run Report in your main loop so when your script finishes it will do the report twice. Minor detail but it is always important to be efficient .

  12. #12
    Join Date
    Oct 2006
    Posts
    1,211
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by AbsTrACt'^.| View Post
    Thanks. Repped you. Just a last thing. When it executes AntiBan it gives me an error and says:

    ** Warning in GameTab: 4 does not exist**

    Could you help me with this?
    umm why not repped me? I fixed stuff for you and i already fixed the standards =[
    Extinct.

    Formally known as Drags111.

  13. #13
    Join Date
    Jan 2008
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Dusk412 View Post
    You need to make sure that when you are looking in your inventory you tell the script to go to the inventory using this:
    SCAR Code:
    GameTab(4);

    And you can use it to go to say the magic tab as well (the number corresponds to a different tab - 4 is inventory). I didn't spend to long looking at your script so you will have to figure out where to put it .

    Edit: also a minor fix to improve your script is that your script runs and at the bottom of the alching procedure it says Finished; inside Finished is the command Report; but you also run Report in your main loop so when your script finishes it will do the report twice. Minor detail but it is always important to be efficient .
    I never told the script to go to the inventory... it goes to there alone when it uses the antiban... and after it goes to there it logs out and says **Warning GameTab4 doesn't exist**...

    About the Report it doesn't even report dunno why so it's the same :P

  14. #14
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    **Warning GameTab4 doesn't exist**
    not really an error, i get that is my script all the time, doesnt mess anything up for me tho....,

  15. #15
    Join Date
    Jan 2008
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by nicbaz View Post
    not really an error, i get that is my script all the time, doesnt mess anything up for me tho....,

    Unfortunately for me it does... it logs out after it gives that error...

  16. #16
    Join Date
    Oct 2006
    Posts
    1,211
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Oh theres a fix for this annoying message and crap. Replace your GameTab.scar with the one attached.
    Extinct.

    Formally known as Drags111.

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

    Default

    Quote Originally Posted by The[Cheese] View Post
    Oh theres a fix for this annoying message and crap. Replace your GameTab.scar with the one attached.
    Damn i run across some lucky stuff!

    But seriously abstract listen to [Cheese] he's awesome...

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 5
    Last Post: 02-26-2008, 04:14 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
  •