Adblock breaks this site

My New AutoAlcher[SRL]

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

  1. lotto

    lotto Guru
    Banned

    Joined:
    May 10, 2006
    Posts:
    1,056
    Referrals:
    1
    Sythe Gold:
    0
    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.
     
  2. SmAcKmE

    SmAcKmE Active Member

    Joined:
    May 18, 2007
    Posts:
    105
    Referrals:
    0
    Sythe Gold:
    0
    My New AutoAlcher[SRL]

    ok first of all this shouldnt be posted in this forum post it in RuneScape Scripts besides this is crap.
     
  3. lotto

    lotto Guru
    Banned

    Joined:
    May 10, 2006
    Posts:
    1,056
    Referrals:
    1
    Sythe Gold:
    0
    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.
     
  4. Town

    Town Grand Master
    Scar Programmers

    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5
    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.
     
  5. lotto

    lotto Guru
    Banned

    Joined:
    May 10, 2006
    Posts:
    1,056
    Referrals:
    1
    Sythe Gold:
    0
    My New AutoAlcher[SRL]

    Shouldn't there be some waits in there?
     
  6. Town

    Town Grand Master
    Scar Programmers

    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5
    My New AutoAlcher[SRL]

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


 
 
Adblock breaks this site