My New AutoAlcher[SRL]

Discussion in 'Scar/Simba Help' started by lotto, Jun 18, 2007.

My New AutoAlcher[SRL]
  1. Unread #1 - Jun 18, 2007 at 12:20 PM
  2. lotto
    Joined:
    May 10, 2006
    Posts:
    1,056
    Referrals:
    1
    Sythe Gold:
    0

    lotto Guru
    Banned

    My New AutoAlcher[SRL]

    Just tell me if it works, if not tell me where i went wrong

    Code:
    {_______________________________________________________________________
    ---------------------Lotto's AutoHighAlcher-----------------------------
    ------------------------------------------------------------------------
    ---Instructions
    ---1.)Fill in line 20-23
    ---2.)Drag crosshiar
    ---3.)Press Play
    -----------------------------------------------------------------------
    ________________________________________________________________________}
    
    
    
    
    program AutoAlcher;
    {.Include SRL/SRL.Scar}
    var
    x,y: Integer;
    i, sum: Integer;
    const
    MageTab=3437978 //Only Change if it isnt clicking on the mage tab
    Alch= //Fill in color of yellow bags on alch button
    ItemAlch= //Pick Most Unique color of item your alching
    HowMany= //How Many Alches you want to do
    begin
         if(FindColor(x,y,MageTab,833,372,875,409)) then
    begin
         writeln ('Mage Tab Found');
         wait(934+random(1697));
    begin
       procedure disguise_scar_as_walkitout;
    Begin
      DisguiseScar('Limewire:Enabling Walk It Out');
    end;
         (FindColor(x,y,Alch,825,530,856,549));
         writeLn('Alch Button Found');
         wait(1430+random(1231));
         Mouse(834, 546, 2, 2, True);
         wait(4324+random(424));
         Mouse(834, 546, 1, 1, True);
         wait(4324+random(424));
         Mouse(834, 546, 1, 1, True);
         wait(4324+random(424));
         Mouse(834, 546, 1, 1, True);
         wait(4324+random(424));
    begin
         wait(1354+random-345));
         PickUpMouse;
         wait(1354+random-345));
         end
         FindNormalRandoms;
         if (FindNormalRandoms=True) then
         Mouse(766, 691, 1, 1, True);
         wait(1230+random(435));
         Mouse(740, 584, 1, 1, True));
         end else
         until (HowMany=True)
    end
    end
    end.
     
  3. Unread #2 - Jun 18, 2007 at 1:17 PM
  4. SmAcKmE
    Joined:
    May 18, 2007
    Posts:
    105
    Referrals:
    0
    Sythe Gold:
    0

    SmAcKmE Active Member

    My New AutoAlcher[SRL]

    ok first of all this shouldnt be posted in this forum post it in RuneScape Scripts besides this is crap.
     
  5. Unread #3 - Jun 18, 2007 at 2:22 PM
  6. lotto
    Joined:
    May 10, 2006
    Posts:
    1,056
    Referrals:
    1
    Sythe Gold:
    0

    lotto Guru
    Banned

    My New AutoAlcher[SRL]

    This shouldnt be in runescape scripts because im asking for help on it. so kthnxbye. also i know it is crap i am new to scripting.
     
  7. Unread #4 - Jun 18, 2007 at 5:58 PM
  8. Town
    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5

    Town Grand Master
    Scar Programmers

    My New AutoAlcher[SRL]

    It picks up the mouse in the same spot everytime. Make it if (Random(4) = 1) then PickUpMouse or something like that.

    Use more SRL functions like GameTab(7), which I think is mage. You can use MouseItem() and MMouseItem() which will move the mouse to or click on specific inventory slots. Also, Cast() in Magic.scar will help you too.

    Work on using proper standards.

    Code:
    {_______________________________________________________________________
    ---------------------Lotto's AutoHighAlcher-----------------------------
    ------------------------------------------------------------------------
    ---Instructions
    ---1.)Fill in line 20-23
    ---2.)Drag crosshiar
    ---3.)Press Play
    -----------------------------------------------------------------------
    ________________________________________________________________________}
    
    
    
    
    program AutoAlcher;
    {.Include SRL/SRL.Scar}
    {.include SRL\SRL\Skill\Magic.scar}
    var
    x,y,i, sum: Integer;
    const
    HowMany= 200;//How Many Alches you want to do
    
    procedure disguise_scar_as_walkitout;
    Begin
      DisguiseScar('Limewire:Enabling Walk It Out');
    end;
    
    begin
      disguise_scar_as_walkitout;
      repeat
        GameTab(7);
        Cast(35);
        GameTab(4);
        if (Random(6) = 1) then PickUpMouse;
        MouseItem(1, True);
        i := i + 1;
      until (i = HowMany)
    end.
    Something like that. Look at the changes I made.
     
  9. Unread #5 - Jun 19, 2007 at 12:38 PM
  10. lotto
    Joined:
    May 10, 2006
    Posts:
    1,056
    Referrals:
    1
    Sythe Gold:
    0

    lotto Guru
    Banned

    My New AutoAlcher[SRL]

    Shouldn't there be some waits in there?
     
  11. Unread #6 - Jun 19, 2007 at 5:20 PM
  12. Town
    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5

    Town Grand Master
    Scar Programmers

    My New AutoAlcher[SRL]

    Yes, but I was doing it fast.
     
< just downloaded SCAR some quick questions | wtf.. not in scar help :( >

Users viewing this thread
1 guest


 
 
Adblock breaks this site