Results 1 to 15 of 15

Thread: Fixing DTM's

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

    Default Fixing DTM's

    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
    alchs: integer;
    Alchspell: integer;
    AlchLong: 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  :=1;               // Set Number of Players here.
         NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
         CurrentPlayer:=0;                // CurrentPlayer = Array Index

         Players[0].Name :='yumy a pie';//Your account username
         Players[0].Pass :='b4t4t4fr1t4';//Your account password
         Players[0].Nick :='umy';//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:=True;//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:=True;//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:=True;//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:=True;//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(2) of

        0: begin

        Wait (3137+(random(1350)));
        HoverSkill('Magic', False);
        Wait (3137+(random(711)));
        Randoms;
        Mouse(741,186,10,10,true);
        end;

        1: begin

        Wait (3137+(random(1250)));
        BoredHuman;
        Wait (3137+(random(747)));
        Randoms;
        Mouse(741,186,10,10,true);
       end;
      end;
    end;

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

     AlchLong  := DTMFromString('78DA631467606090644001215EDC609A11CA6' +
           '7E40512EA0C688011550D27905020A0860B4888105003B29A9780' +
           '1A5122D4C801093E026A5481841001352A40429A08358A44A8D12' +
           '0A0461648681250234E84398284E30B000D2903A8');

    procedure Alch;
    begin
    Mouse(741,186,10,10,true)
    end;
     repeat
     Wait(500+random(150))
      begin
      if FindDTM(Alchspell, x, y, MIX1, MIY1, MIX2, MIY2) then
       begin
       Mouse(x, y, 10, 10,true);
       end;
      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 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 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(Alch);
        FreeDTM(AlchLog);
         Report;
        end.

    I get this error:

    Line 132: [Error] (14842:1): Identifier expected in script C:\Users\Ricardo\Desktop\Autos\AAA.scar

    Plus I'm like 100% sure that the DTM's have errors. Would someone mind fixing the DTM's for me and teach me how to correctly make the DTM's?

  2. #2
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    LOl, you forgot an end for that procedure.
    ~Hermen

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

    Default

    Quote Originally Posted by Hermpie View Post
    LOl, you forgot an end for that procedure.
    I did? Where (would you mind showing me it)?

  4. #4
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure DTMs;
    begin
     Alchspell := DTMFromString('78DA63E465606010624001BFBEF1806946289' +
           'F1124CFCA80061851D50802092E026AF8895443C82E1120C14F84' +
           '7BB8A9E06651202148408D18901026A006242F46400D1F116A388' +
           '950C342841A6622DCCC4A4438731356030042560420');
     
     AlchLong  := DTMFromString('78DA631467606090644001215EDC609A11CA6' +
           '7E40512EA0C688011550D27905020A0860B4888105003B29A9780' +
           '1A5122D4C801093E026A5481841001352A40429A08358A44A8D12' +
           '0A0461648681250234E84398284E30B000D2903A8');
    end;

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

    Default

    Thanks. New error now (rofl).

    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
    alchs: integer;
    Alchspell: integer;
    AlchLong: 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  :=1;               // Set Number of Players here.
         NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
         CurrentPlayer:=0;                // CurrentPlayer = Array Index

         Players[0].Name :='yumy a pie';//Your account username
         Players[0].Pass :='b4t4t4fr1t4';//Your account password
         Players[0].Nick :='umy';//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:=True;//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:=True;//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:=True;//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:=True;//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(2) of

        0: begin

        Wait (3137+(random(1350)));
        HoverSkill('Magic', False);
        Wait (3137+(random(711)));
        Randoms;
        Mouse(741,186,10,10,true);
        end;

        1: begin

        Wait (3137+(random(1250)));
        BoredHuman;
        Wait (3137+(random(747)));
        Randoms;
        Mouse(741,186,10,10,true);
       end;
      end;
    end;

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

     AlchLong  := DTMFromString('78DA631467606090644001215EDC609A11CA6' +
           '7E40512EA0C688011550D27905020A0860B4888105003B29A9780' +
           '1A5122D4C801093E026A5481841001352A40429A08358A44A8D12' +
           '0A0461648681250234E84398284E30B000D2903A8');
           end;

    procedure Alch;
    begin
    Mouse(741,186,10,10,true)
     repeat
     Wait(500+random(150))
      begin
      if FindDTM(Alchspell, x, y, MIX1, MIY1, MIX2, MIY2) then
       begin
       Mouse(x, y, 10, 10,true);
      if FindDTM(AlchLong, x, y, MIX1, MIY1, MIX2, MIY2) then
      begin
      Mouse(x, y, 10, 10, true);
       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 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 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(Alch);
        FreeDTM(AlchLog);
         Report;
        end.

    The error is:

    Line 139: [Error] (14849:23): Unknown identifier 'x' in script C:\Users\Ricardo\Desktop\Autos\AAA.scar

    Help please.

  6. #6
    Join Date
    Apr 2007
    Location
    Colchester, UK
    Posts
    1,220
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thats because you have to declare x and y in the script

  7. #7
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Add an x,y:Integer; to the Vars of your script

    So your Script Fixed| :

    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
    alchs,x,y: integer;
    Alchspell: integer;
    AlchLong: 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  :=1;               // Set Number of Players here.
         NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
         CurrentPlayer:=0;                // CurrentPlayer = Array Index
     
         Players[0].Name :='yumy a pie';//Your account username
         Players[0].Pass :='b4t4t4fr1t4';//Your account password
         Players[0].Nick :='umy';//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:=True;//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:=True;//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:=True;//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:=True;//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(2) of
     
        0: begin
     
        Wait (3137+(random(1350)));
        HoverSkill('Magic', False);
        Wait (3137+(random(711)));
        Randoms;
        Mouse(741,186,10,10,true);
        end;
     
        1: begin
     
        Wait (3137+(random(1250)));
        BoredHuman;
        Wait (3137+(random(747)));
        Randoms;
        Mouse(741,186,10,10,true);
       end;
      end;
    end;
     
    procedure DTMs;
    begin
     Alchspell := DTMFromString('78DA63E465606010624001BFBEF1806946289' +
           'F1124CFCA80061851D50802092E026AF8895443C82E1120C14F84' +
           '7BB8A9E06651202148408D18901026A006242F46400D1F116A388' +
           '950C342841A6622DCCC4A4438731356030042560420');
     
     AlchLong  := DTMFromString('78DA631467606090644001215EDC609A11CA6' +
           '7E40512EA0C688011550D27905020A0860B4888105003B29A9780' +
           '1A5122D4C801093E026A5481841001352A40429A08358A44A8D12' +
           '0A0461648681250234E84398284E30B000D2903A8');
           end;
     
    procedure Alch;
    begin
    Mouse(741,186,10,10,true)
     repeat
     Wait(500+random(150))
      begin
      if FindDTM(Alchspell, x, y, MIX1, MIY1, MIX2, MIY2) then
       begin
       Mouse(x, y, 10, 10,true);
      if FindDTM(AlchLong, x, y, MIX1, MIY1, MIX2, MIY2) then
      begin
      Mouse(x, y, 10, 10, true);
       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 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 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(Alch);
        FreeDTM(AlchLog);
         Report;
        end.

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

    Default

    Thanks for the help really... new error now... I know that I'm asking a lot but I'm still learning (this is my first script)... Would you mind fixing this one too?

    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
    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 = 213; //How many alchs the bot should do?

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

         Players[0].Name :='yumy a pie';//Your account username
         Players[0].Pass :='b4t4t4fr1t4';//Your account password
         Players[0].Nick :='umy';//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:=True;//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:=True;//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:=True;//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:=True;//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(2) of

        0: begin

        Wait (3137+(random(1350)));
        HoverSkill('Magic', False);
        Wait (3137+(random(711)));
        Randoms;
        Mouse(741,186,10,10,true);
        end;

        1: begin

        Wait (3137+(random(1250)));
        BoredHuman;
        Wait (3137+(random(747)));
        Randoms;
        Mouse(741,186,10,10,true);
       end;
      end;
    end;

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

     AlchLong  := DTMFromString('78DA631467606090644001215EDC609A11CA6' +
           '7E40512EA0C688011550D27905020A0860B4888105003B29A9780' +
           '1A5122D4C801093E026A5481841001352A40429A08358A44A8D12' +
           '0A0461648681250234E84398284E30B000D2903A8');
           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
    Mouse(741,186,10,10,true)
     repeat
     Wait(500+random(150))
      begin
      if FindDTM(Alchspell, x, y, MIX1, MIY1, MIX2, MIY2) then
       begin
       Mouse(x, y, 10, 10,true);
      if FindDTM(AlchLong, x, y, MIX1, MIY1, MIX2, MIY2) then
      begin
      Mouse(x, y, 10, 10, true);
       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(Alch);
        FreeDTM(AlchLog);
         Report;
        end.

    Line 177: [Error] (14887:1): Identifier expected in script C:\Users\Ricardo\Desktop\Autos\AAA.scar

  9. #9
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

  10. #10
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Happy B Day!

    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
    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 = 213; //How many alchs the bot should do?

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

         Players[0].Name :='yumy a pie';//Your account username
         Players[0].Pass :='b4t4t4fr1t4';//Your account password
         Players[0].Nick :='umy';//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:=True;//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:=True;//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:=True;//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:=True;//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(2) of

        0: begin

        Wait (3137+(random(1350)));
        HoverSkill('Magic', False);
        Wait (3137+(random(711)));
        Randoms;
        Mouse(741,186,10,10,true);
        end;

        1: begin

        Wait (3137+(random(1250)));
        BoredHuman;
        Wait (3137+(random(747)));
        Randoms;
        Mouse(741,186,10,10,true);
       end;
      end;
    end;

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

     AlchLong  := DTMFromString('78DA631467606090644001215EDC609A11CA6' +
           '7E40512EA0C688011550D27905020A0860B4888105003B29A9780' +
           '1A5122D4C801093E026A5481841001352A40429A08358A44A8D12' +
           '0A0461648681250234E84398284E30B000D2903A8');
           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
    Mouse(741,186,10,10,true)
     repeat
     Wait(500+random(150))
      begin
      if FindDTM(Alchspell, x, y, MIX1, MIY1, MIX2, MIY2) then
       begin
       Mouse(x, y, 10, 10,true);
      if FindDTM(AlchLong, x, y, MIX1, MIY1, MIX2, MIY2) then
      begin
      Mouse(x, y, 10, 10, true);
       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;
      end;
     end;
    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.

    I changed alot of stuff all your begins need to end before an Until

    Hope I Helped

  11. #11
    Join Date
    Dec 2007
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I tried to fix your script, it compiles now, I don't know if it's working..
    Things I changed:
    - Added an end in Line 177
    - Changed
    SCAR Code:
    FreeDTM(Alch);
    to
    SCAR Code:
    FreeDTM(Alchspell);
    - Changed
    SCAR Code:
    FreeDTM(AlchLog);
    to
    SCAR Code:
    FreeDTM(AlchLong);

    This is the new script:
    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
    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 = 213; //How many alchs the bot should do?

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

         Players[0].Name :='yumy a pie';//Your account username
         Players[0].Pass :='b4t4t4fr1t4';//Your account password
         Players[0].Nick :='umy';//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:=True;//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:=True;//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:=True;//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:=True;//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(2) of

        0: begin

        Wait (3137+(random(1350)));
        HoverSkill('Magic', False);
        Wait (3137+(random(711)));
        Randoms;
        Mouse(741,186,10,10,true);
        end;

        1: begin

        Wait (3137+(random(1250)));
        BoredHuman;
        Wait (3137+(random(747)));
        Randoms;
        Mouse(741,186,10,10,true);
       end;
      end;
    end;

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

     AlchLong  := DTMFromString('78DA631467606090644001215EDC609A11CA6' +
           '7E40512EA0C688011550D27905020A0860B4888105003B29A9780' +
           '1A5122D4C801093E026A5481841001352A40429A08358A44A8D12' +
           '0A0461648681250234E84398284E30B000D2903A8');
           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
    Mouse(741,186,10,10,true)
     repeat
     Wait(500+random(150))
      begin
      if FindDTM(Alchspell, x, y, MIX1, MIY1, MIX2, MIY2) then
       begin
       Mouse(x, y, 10, 10,true);
      if FindDTM(AlchLong, x, y, MIX1, MIY1, MIX2, MIY2) then
      begin
      Mouse(x, y, 10, 10, true);
       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;
       end;
       end;
       end;
      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.

    Hope I helped

    [edit]NaumanAkhlaQ was too fast for me [/edit]

  12. #12
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    You shouldn't post your user and pass. Also, try reading tuts as you will learn more from them then having others fix for you.

    Nava2
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  13. #13
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    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;
    Remonve FindTalk, SolveChatRandom, For FindLamp use LampSkill := 'magic';, and Remove SolvePinball.
    They are all called in FindNormalRandoms


  14. #14
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Cazax View Post
    SCAR Code:
    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;
    Remonve FindTalk, SolveChatRandom, For FindLamp use LampSkill := 'magic';, and Remove SolvePinball.
    They are all called in FindNormalRandoms
    Also remove the second RunTo it makes you run away then back, then away and back again. Useless

    Nava2
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

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

    Default

    - Once again take your password and username out of the script on first post.
    - Also PLEASE start using proper format. Here is a link:
    Official Scripting Standards
    - As for DTM help I could explain it, or you could read tutorials like everyone else. Here is one:
    DTM Tutorial
    - And for all these thousands of errors that you keep having, use this instead of us :
    How To Fix Annoying Errors
    - Also, if you call a procedure in your script, for example Alch uses Finished right? Well then you have to right the procedure Finished above Alch in the script. Either that or somewhere near the top put
    SCAR Code:
    procedure Finished; forward;
    - Okay it was late but I reformatted your whole script properly. Now do it this way from now on lol. Copy and paste this right 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
      alchs, Alchspell, AlchLong,  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 = 213; //How many alchs the bot should do?
     

    Procedure DeclarePlayers; // this procedure is used to log players in
    begin
      HowManyPlayers  :=1;               // 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:=True;//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:=True;//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:=True;//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:=True;//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(2) of

        0: begin
             Wait (3137+(random(1350)));
             HoverSkill('Magic', False);
             Wait (3137+(random(711)));
             Randoms;
             Mouse(741,186,10,10,true);
           end;
        1: begin
             Wait (3137+(random(1250)));
             BoredHuman;
             Wait (3137+(random(747)));
             Randoms;
             Mouse(741,186,10,10,true);
           end;
      end;
    end;

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

      AlchLong  := DTMFromString('78DA631467606090644001215EDC609A11CA6' +
           '7E40512EA0C688011550D27905020A0860B4888105003B29A9780' +
           '1A5122D4C801093E026A5481841001352A40429A08358A44A8D12' +
           '0A0461648681250234E84398284E30B000D2903A8');
    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
      Mouse(741,186,10,10,true)
      repeat
        Wait(500+random(150))
        if FindDTM(Alchspell, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Mouse(x, y, 10, 10,true);
        end;
        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
      begin
        While Not (SmartGetColor(386, 249) = 65535) Do
        begin
          Wait(100);
          SetupSRL;
          wait(1000);
          ActivateClient;
          wait(1000);
        end;
      end;
    end;

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

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. fixing screen right after log in
    By x[Warrior]x3500 in forum OSR Help
    Replies: 2
    Last Post: 03-10-2009, 01:44 AM
  2. need help fixing this script
    By wtfwtfwtf in forum OSR Help
    Replies: 11
    Last Post: 10-21-2008, 03:52 PM
  3. help fixing a script
    By Raskolnikov in forum OSR Help
    Replies: 1
    Last Post: 01-15-2008, 12:16 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
  •