Results 1 to 10 of 10

Thread: High Alcher Problem

  1. #1
    Join Date
    Jun 2007
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default High Alcher Problem

    Well i found an high alcher in the forums ( i needed one really bad and i don't want to wait 5 days )

    SCAR Code:
    {==============================================================|
    |==============================================================|
    *                                                              *
    *                       *SCRIPT INFO*                          *
    *                                                              *
    *          # MADE BY        : r4z0rlike                        *
    *          # NAME OF SCRIPT : r4z0rs Alcher                    *
    *          # DATE STARTED   : 12 Jan 2008                      *
    *          # VERSION        : 1.3                              *
    *                                                              *
    |==============================================================|
    *                                                              *
    *                      *SCRIPT USAGE*                          *
    *          # USAGE          : Auto alchs whatever you want     *
    *          # SETUP          : Equip a fire staff or have fire  *
    *                             runes in your inventory. Have    *
    *                             nats and notes to alch in the    *
    *                             16th spot.                       *
    *                             Enough runes to cast High Alcemy *
    *          # OTHER          : Setup on line 37-53              *
    *          # INSTRUCTIONS   :                                  *
    *            1. Set brightness to VB [Very Bright]             *
    *            2. Leave your chats how you want.                 *
                                                                   *
    *==============================================================}


    program AutoAlcher;
    {.include SRL\SRL.scar}
    var
       x1,y1,x2,y2,AlchTimes,HighAlch,Report,Log,Rest,Talked: Integer;

    const
    RunDirection  ='S';           //What direction do you want to run incase of a fight.
    AlchsToDo     =10000;           //How many items you want to alch
    AntiBan       =true;          //Anti Ban? (true = reccomended)
    Talk          =false;         //Talking (turn off in non-populated areas)
    LogTime       =0;             //0 for off (In minutes)
    WaitTime      =1;             //Log out for how long? (in minutes)
    Magelvl       ='76';          //Your magic level

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;        //Number of PLAYERS. active or not.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;         //Player to start on.

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
    end;

    Procedure ProgressReport;
    var sec:integer;
    begin
      sec := GetTimeRunning div 1000+1;
          Cleardebug;
          Writeln('|==================================|');
          Writeln('|Worked for: '+ TimeRunning );
          Writeln('|Items Alched: '+ IntToStr(AlchTimes));
          Writeln('|Mage Experience gained: '+ IntToStr(AlchTimes*65));
          Writeln('|Items per hour: '+IntToStr(Round(3600*AlchTimes/Sec)))
          Writeln('|Exp per hour: '+IntToStr(Round(3600*AlchTimes/Sec)*65))
          Writeln('|We rested: '+IntToStr(Rest) +' times')
          Writeln('|We responded: '+IntToStr(Talked) +' times');
          Writeln('|==================================|');
          Report:=0
    end;

    Procedure Navigation;
    begin
      Gametab(7);
    HighAlch := DTMFromString('78DA633CC9C4C010C8C8800C7E7DE3613002D' +
           '220D1FF40C07816A8C60D550D44164602E98B40357E04D45C01AA' +
           '0926A0E612504D3801358788507310A82688809AD34498731EA8C' +
           '68B809A23403501F8D50000A66F117D');
      if (not(FindDTM(HighAlch, x1, y1, MIX1, MIY1, MIX2, MIY2)))then
          begin
            Writeln('High Alchemy button not found!')
            TerminateScript;
          end;
        MMouse(x1,y1,5,5);
        GetmousePos(x2,y2)
    end;

    procedure AntiBanz;
    begin
      if(AntiBan)then
        begin
          if(not(LoggedIn))then
            Exit;
          case Random(7) of
            0: begin
                 HoverSkill('Magic', false);
                 wait(3000+random(500));
                 Navigation;
               end;
            1: begin
                 PickUpMouse;
                 wait(2000+random(200));
                 Navigation;
               end;
            2: begin;
                 SleepAndMoveMouse(10000+random(5000));
                 Navigation;
               end;
            3: case Random(5) of
              0:  begin
                    If(Talk)then
                      TypeSend('Logging off for a min. Cya');
                      LogOut;
                      wait(50000+random(10000));
                      Loginplayer;
                      Navigation;
                      Rest:=Rest+1;
                  end;
            4: begin
                 If(Talk)then
                   case random(7) of
                     0: TypeSend('Mage lvls?');
                     1: Begin
                          TypeSend('Im bored -.-');
                          Wait(500+random(100))
                          TypeSend('Ive been alching for '+ TimeRunning +'Minutes');
                        end;
                     2: TypeSend('Only '+ IntToStr(AlchsToDo-Alchtimes) +' alchs left');
                     3: TypeSend('Hai');
                     4: TypeSend('Im lagging really bad here');
                     5: TypeSend('Ooh! its shiny');
                     6: begin
                          TypeSend('Dumdiedumdiedum. lalalala');
                          wait(300+random(200))
                          TypeSend('Yes, alching is driving me crazy :P');
                        end;
                    end;
                  end;
               end;
            5: RandomMovement;
            6: BoredHuman;
        end;
      end;
    end;

    Procedure Alching;
    begin
      if(not(LoggedIn))then Exit;
      GameTab(7);
      Mouse(x2, y2, 0, 0, true);
      wait(1400+random(200));
      Mouse(x2, y2, 0, 0, true);
      wait(1000+random(200));
      AlchTimes:=AlchTimes + 1
      Report:=Report+1
    end;

    Function InChatLine(myString: string): Boolean;
      Begin
        Result := ( pos(myString, TheLine) <> 0 );
      End;

    Function ChatBack: Boolean; // By Lorax(SL Scripts)
    Begin
      SaveToChatLog;

      if ( OldLine = TheLine ) or ( pos(Players[CurrentPlayer].Nick, TheName) <> 0 ) then
        Exit;

      if InChatLine(Players[CurrentPlayer].Nick) then
      Begin
        Wait(2000 + Random(500));
          Case Random(10) of
            0: TypeSend('Hey');
            1: TypeSend('sup');
            2: TypeSend('whatsup');
            3: TypeSend('hai');
            4: TypeSend('hi');
            5: TypeSend('gday :p');
            6: TypeSend('ohi');
            7: TypeSend('ohai');
            8: TypeSend('hello');
            9: TypeSend('hllo');
          end;
          Talked:=Talked+1;
        End;
       
      if ( InChatLine('mage') or InChatLine('magic') or InChatLine('age') ) and
         ( InChatLine('lv') or InChatLine('leve') ) then
      Begin
        Wait(1000 + Random(500));
        case Random(2) of
          0: TypeSend ('im '+(magelvl)+'');
          1: Typesend ('me,'+(magelvl)+'.');
        End;
        Talked:=Talked+1;

        Result := True;
        Exit;
      End;

      if InChatLine('hi ') or InChatLine('ello') or InChatLine('sup') or
         InChatLine('whats up') then
      Begin
        Wait(1000 + Random(500));
        case Random(4) of
          0: TypeSend('hello');
          1: TypeSend('hey');
          2: TypeSend('hey there');
          3: TypeSend('hi');
        End;
        Talked:=Talked+1;

        Result := True;
        Exit;
      End;

      if InChatLine('duel') or InChatLine('fight') or InChatLine('game') or InChatLine('challenge')
      or InChatLine('play') then
      Begin
        Wait(1000 + Random(500));
        case Random(5) of
          0: TypeSend('Nah, i just want to alch..');
          1: TypeSend('nty');
          2: TypeSend('nah srry');
          3: TypeSend('ím busy');
          4: TypeSend('please leave me');
        End;
        Talked:=Talked+1;

        Result := True;
        Exit;
      End;

        Result := True;
        Exit;
      End;
     
    {*******************************************************************************
    function FindDaRS: Boolean;
    By: RsN
    Description: Finds RS Window
    *******************************************************************************}


    function FindDaRS: Boolean;
    begin
      Result := FindWindowBySize(766, 504);
    end;

    begin
      Case random(5) of
        1: Disguise('iTunes');
        2: Disguise('Windows Live Messenger');
        3: Disguise('AIM');
        4: Disguise('Internet Explorer 7');
      end;
      SetupSrl;
      DeclarePlayers;
      if (not (FindDaRS)) then
      begin
        WriteLn('No Runescape!.');
        TerminateScript;
      end;
      ActivateClient
          if(not(loggedin))then loginplayer;
        log := GetSystemTime;
        SetAngle(true);
        Navigation;
        Cleardebug;
        repeat
        Alching;
          if (report=5)then
            ProgressReport;
          if(LogTime>0)then
            begin
              if((GetSystemTime-log > (Logtime*60000)))then
                begin
                  Writeln('Taking a break for '+IntToStr(WaitTime)+' minutes');
                  LogOut;
                  wait(WaitTime*60000)
                  wait(5000+random(10000))
                  LoginPlayer;
                  Writeln('We are back!');
                  Navigation;
                  Rest:=Rest+1;
                  Log:= GetSystemTime;
                end;
            end;
          If(AntiBan)then
            if(random(15) = 1)then
              AntiBanz;
          ChatBack;
         until AlchTimes=AlchsToDo;
         ProgressReport;
         Writeln('Please post your progress report!');
    end.


    So, when i run the script, the high alchemy spell keeps being casted on nothing.




    The mouse never gets on an item spot and keeps casting the spell on nothing.
    I would appreciate any help on fixing the script (if anyone could do it please)
    or sending me a link to a good a recent high alcher

  2. #2
    Join Date
    Sep 2007
    Posts
    638
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Did you put the notes you want alched in your 16th inventory spot?

    Looks like you are in the 17th spot move it up one row and the the far right column.

  3. #3
    Join Date
    Jun 2007
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I tryed, it doesnt work, it keeps clicking between the 13th and the 17th spot

  4. #4
    Join Date
    Sep 2007
    Posts
    638
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Could you post a link of where you got the script?

  5. #5
    Join Date
    Jul 2008
    Location
    Poland
    Posts
    375
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    Procedure Alching;
    begin
      if(not(LoggedIn))then Exit;
      GameTab(7);
      Mouse(x2, y2, 4, 4, true);
      wait(1400+random(200));
      Mouse(x2, y2 - 10 , 4, 4, true);
      wait(1000+random(200));
      AlchTimes:=AlchTimes + 1
      Report:=Report+1
    end

    Always use randomness!! you should:
    - use DTM to finding noted bows,
    - include magic.scar and use castspell();
    :P

  6. #6
    Join Date
    Sep 2007
    Posts
    638
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by manfromczech View Post
    SCAR Code:
    Procedure Alching;
    begin
      if(not(LoggedIn))then Exit;
      GameTab(7);
      Mouse(x2, y2, 4, 4, true);
      wait(1400+random(200));
      Mouse(x2, y2 - 10 , 4, 4, true);
      wait(1000+random(200));
      AlchTimes:=AlchTimes + 1
      Report:=Report+1
    end

    Always use randomness!! you should:
    - use DTM to finding noted bows,
    - include magic.scar and use castspell();
    Except that it isn't his script. He just found it.

    You should go to the thread where you found the script and ask this there. You might try reading all of the posts before you do because somebody may have already asked the same question.

  7. #7
    Join Date
    Jul 2008
    Location
    Poland
    Posts
    375
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    You're right, btw autoalcher is the easiest script
    :P

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

    Default

    Just look to the date: 12 jan 2008..
    I wouldn't dare to use a script that's such old and probably never been updated since it's release date

    -Tsn.
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

  9. #9
    Join Date
    Jun 2007
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    heres the link

    http://www.villavu.com/forum/showthr...ht=high+alcher


    and dude, i know its old it's just that there is this rule to wait 1 week and its the only one i found that is running correctly with my pc.

    im also very noob at scripting

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

    Default

    Quote Originally Posted by mhempires View Post
    heres the link

    http://www.villavu.com/forum/showthr...ht=high+alcher


    and dude, i know its old it's just that there is this rule to wait 1 week and its the only one i found that is running correctly with my pc.

    im also very noob at scripting
    If you show that you really aren't a leecher, you'll study SCAR and you'll be able to make one b yourself

    -Tsn.
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. My high and low alcher, I need some help plz.
    By Buckleyindahouse in forum OSR Help
    Replies: 18
    Last Post: 11-08-2008, 10:55 PM
  2. High Alcher
    By Dangerous Garden Tools in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 09-21-2007, 03:52 PM

Posting Permissions

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