Results 1 to 11 of 11

Thread: First Script - High Alcher

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

    Default First Script - High Alcher

    This is my first script .. made because im tired of clicking
    What it does is to click high alch...
    theres no anti randoms... and it works with the new interface
    theres only one settings and thats how many alchs you want to alch!

    Code:
    program MeanzMiniAlch;
     {.include SRL\SRL.scar}
    var Total, TimeToWriteLog, Failed, TotalFailed : Integer;
    
    procedure Alch;
    begin
    MoveMouseSmooth(716,337);
    if IsUpText('High') then
    begin
            if TimeToWriteLog=100 then
            begin
             WriteLn('###########################################');
             WriteLn('Report:');
             WriteLn('Total Alchs: '+ IntToStr(Total));
             WriteLn('Total MissClicks: '+ IntToStr(TotalFailed));
             WriteLn('###########################################');
            TimeToWriteLog := 0;
            end;
            ClickMouse(716-random(10),337-random(10),true);
            Wait(100+random(200));
            Total := Total + 1;
            Wait(2000+random(200));
            ClickMouse(716-random(10),337-random(10),true);
            TimeToWriteLog := TimeToWriteLog+1;
            Failed := Failed-1;
    end;
    
    if IsUpText('bow ->') then
    begin
            MoveMouseSmooth(737,183);
            Wait(100+random(200));
            ClickMouse(737+random(4),183+random(3),true);
    end;
    if Failed>=10 then
    begin
            MoveMouseSmooth(737,183);
            Wait(100+random(200));
            ClickMouse(737+random(4),183+random(3),true);
            Failed := 0;
            TotalFailed := TotalFailed+1;
    end;
    Failed := Failed+1;
    end;
    
    begin
    wait(5000)
    repeat
    DisguiseScar('RuneScape - the massive online adventure game by Jagex Ltd');
    Alch;
    until Total = 1000;   // How many alchs you gonna alch?
    WriteLn('###########################################');
    WriteLn('Alching done.');
    WriteLn('Total Alchs: '+ IntToStr(Total));
    WriteLn('Total MissClicks: '+ IntToStr(TotalFailed));
    WriteLn('###########################################');
    end.

  2. #2
    Join Date
    Jun 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks. ^_^ Just what I was looking for. In the absence of functional SRL, there doesn't appear to be much around, this has proved just dandy, though. I made a few tweaks to the script--mostly timings and coordinates, although I also replaced MoveMouseSmooth with MMouse, and ClickMouse with Mouse. The initial script was hitting ~40 misclicks per hundred spells; in 2 samples, this has had two. =] Still no random protection, but it's not too difficult to pause a script momentarily. It would probably be better to make use of DTMs than coordinates, but I can't be bothered to figure that out.

    I'm sorry if anything is horrible there; this is my first time messing much with these. Don't hesitate to advise.

    SCAR Code:
    program MeanzMiniAlch;
     {.include SRL\SRL.scar}
    var Total, TimeToWriteLog, Failed, TotalFailed : Integer;

    procedure Alch;
    begin
    MMouse(716,337,4,6);

    if IsUpText('High') then
    begin
            if TimeToWriteLog=100 then
            begin
             WriteLn('###########################################');
             WriteLn('Report:');
             WriteLn('Total Alchs: '+ IntToStr(Total));
             WriteLn('Total MissClicks: '+ IntToStr(TotalFailed));
            TimeToWriteLog := 0;
            end;
            Mouse(710,337,3,3,true);
            Total := Total + 1;
            Wait(2100+random(635));
            Mouse(714,337,3,4,true);
            Wait(222+random(700));
            TimeToWriteLog := TimeToWriteLog+1;
            Failed := Failed-1;
    end;

    if IsUpText('bow ->') then
    begin
            Wait(600+random(300));
            MMouse(735,183,4,3);
            Wait(100+random(512));
            Mouse(735,183,3,2,true);
    end;
    if Failed>=10 then
    begin
            MMouse(737,183,5,4);
            Wait(230+random(300));
            Mouse(737,183,2,2,true);
            Failed := 0;
            TotalFailed := TotalFailed+1;
    end;
    Failed := Failed+1;
    end;

    begin
    wait(4000);
    repeat
    DisguiseScar('RuneScape - the massive online adventure game by Jagex Ltd');
    Alch;
    until Total = 500;   // How many alchs you gonna alch?
    WriteLn('###########################################');
    WriteLn('Alching done.');
    WriteLn('Total Alchs: '+ IntToStr(Total));
    WriteLn('Total MissClicks: '+ IntToStr(TotalFailed));
    WriteLn('###########################################');
    end.

    Cheers.

  3. #3
    Join Date
    Mar 2007
    Posts
    1,700
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Standards please...


    SCAR Code:
    program MeanzMiniAlch;
    {.include SRL\SRL.scar}

    var
      Total, TimeToWriteLog, Failed, TotalFailed : Integer;

    procedure Alch;
    begin
      MMouse(716,337,4,6);
      if IsUpText('High') then
      begin
        if TimeToWriteLog=100 then
        begin
          WriteLn('###########################################');
          WriteLn('Report:');
          WriteLn('Total Alchs: '+ IntToStr(Total));
          WriteLn('Total MissClicks: '+ IntToStr(TotalFailed));
          TimeToWriteLog := 0;
        end;
        Mouse(710,337,3,3,true);
        Total := Total + 1;
        Wait(2100+random(635));
        Mouse(714,337,3,4,true);
        Wait(222+random(700));
        TimeToWriteLog := TimeToWriteLog+1;
        Failed := Failed-1;
      end;
      if IsUpText('bow ->') then
      begin
        Wait(600+random(300));
        MMouse(735,183,4,3);
        Wait(100+random(512));
        Mouse(735,183,3,2,true);
      end;
      if Failed>=10 then
      begin
        MMouse(737,183,5,4);
        Wait(230+random(300));
        Mouse(737,183,2,2,true);
        Failed := 0;
        TotalFailed := TotalFailed+1;
      end;
      Failed := Failed+1;
    end;

    begin
      wait(4000);
      repeat
        DisguiseScar('RuneScape - the massive online adventure game by Jagex Ltd');
        Alch;
      until Total = 500;   // How many alchs you gonna alch?
      WriteLn('###########################################');
      WriteLn('Alching done.');
      WriteLn('Total Alchs: '+ IntToStr(Total));
      WriteLn('Total MissClicks: '+ IntToStr(TotalFailed));
      WriteLn('###########################################');
    end.
    Check out these two links :

    http://www.villavu.com/forum/showthr...ight=standards

    http://wiki.srl-forums.com/index.php...ting_Standards

  4. #4
    Join Date
    Mar 2007
    Location
    Michigan, UP
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Is this safe to use while watching it? I have no scripting knowledge, but, it looks like a good first script, better than many others I have seen and tested.

  5. #5
    Join Date
    Aug 2007
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    wow...this looks great and its just what i need...a simple high alcher

    i did get a few problems:

    Line 49: [Error] (12280:1): Unknown identifier 'DisguiseScar' in script

    [Runtime Error] : divide by Zero in line 80 in script E:\SCAR 3.11\includes\SRL/SRL/Core/Mouse.scar

    i deleted the first error but i don't know how to fix the second one. and yes i have scar 3.11 and srl 4

  6. #6
    Join Date
    Aug 2007
    Location
    England
    Posts
    734
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you need to add SetupSRL; to the main loop like this

    SCAR Code:
    program MeanzMiniAlch;
    {.include SRL\SRL.scar}
     
    var
      Total, TimeToWriteLog, Failed, TotalFailed : Integer;
     
    procedure Alch;
    begin
      MMouse(716,337,4,6);
      if IsUpText('High') then
      begin
        if TimeToWriteLog=100 then
        begin
          WriteLn('###########################################');
          WriteLn('Report:');
          WriteLn('Total Alchs: '+ IntToStr(Total));
          WriteLn('Total MissClicks: '+ IntToStr(TotalFailed));
          TimeToWriteLog := 0;
        end;
        Mouse(710,337,3,3,true);
        Total := Total + 1;
        Wait(2100+random(635));
        Mouse(714,337,3,4,true);
        Wait(222+random(700));
        TimeToWriteLog := TimeToWriteLog+1;
        Failed := Failed-1;
      end;
      if IsUpText('bow ->') then
      begin
        Wait(600+random(300));
        MMouse(735,183,4,3);
        Wait(100+random(512));
        Mouse(735,183,3,2,true);
      end;
      if Failed>=10 then
      begin
        MMouse(737,183,5,4);
        Wait(230+random(300));
        Mouse(737,183,2,2,true);
        Failed := 0;
        TotalFailed := TotalFailed+1;
      end;
      Failed := Failed+1;
    end;
     
    begin
      SetupSRL;
      wait(4000);
        repeat
          Alch;
        until Total = 500;   // How many alchs you gonna alch?
      WriteLn('###########################################');
      WriteLn('Alching done.');
      WriteLn('Total Alchs: '+ IntToStr(Total));
      WriteLn('Total MissClicks: '+ IntToStr(TotalFailed));
      WriteLn('###########################################');
    end.
    The truth finally came out...


  7. #7
    Join Date
    Jul 2007
    Location
    UK
    Posts
    175
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice will be awesome if you add in some anti randoms and i dont know if theres any anti ban in there?

  8. #8
    Join Date
    Jun 2007
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Sweet.

  9. #9
    Join Date
    Apr 2007
    Posts
    61
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I used the one mat d be posted and it works exceptionally well.. here is my proggy
    Alching done.
    Total Alchs: 500
    Total MissClicks: 95
    ###########################################
    the best place to use it is in duel arena... no randoms =D

  10. #10
    Join Date
    Dec 2006
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Awesome. I only tried about 100 alchs but it worked VERY well. If someone added anti randoms it would be great. I also have a question: Do you have to be inside the duel arena (in the middle of a duel) for there to be no randoms, or can you park yourself up on that big ledge where you can watch duels from?

  11. #11
    Join Date
    Apr 2007
    Posts
    61
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    just park your self on the ledge =)

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. My First Script: High or Low Alcher 0.10
    By Da Der Der in forum RS3 Outdated / Broken Scripts
    Replies: 12
    Last Post: 11-30-2006, 09:28 PM
  3. Need help with my first script! High/Low Alcher
    By bagofelix in forum OSR Help
    Replies: 4
    Last Post: 11-30-2006, 10:55 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
  •