Adblock breaks this site

[SRL] Auto Alcher 2007[SRL]

Discussion in 'Outdated RS Scripts' started by jizzums666, Apr 20, 2007.

  1. jizzums666

    jizzums666 Active Member

    Joined:
    Mar 22, 2007
    Posts:
    165
    Referrals:
    0
    Sythe Gold:
    0
    [SRL] Auto Alcher 2007[SRL]

    I DO NOT TAKE ANY CREDIT FOR THIS>> i found it on http://www.scar-scripts.com/archive

    I need some1 to verify if its safe..


    {
    _______ __ __ _______ __ __
    | | |__|.-----.| |--. | _ | |.----.| |--.-----.----.
    | | || _ || | | | || __|| | -__| _|
    |___|___|__||___ ||__|__| |___|___|__||____||__|__|_____|__|
    |_____|
    ______ _____
    | __ \.--.--. _| |.-----.-----.-----.
    | __ <| | | | || -__| |__ --|
    |______/|___ | |_______||_____|__|__|_____|
    |_____|

    Feel free to distribute this script, You are allowed to modify it and keep
    it for personal use. If you want to distribute a modified version of this
    script, contact me at webmaster[at]scar-scripts[dot]com. N-joy

    >>> INSTRUCTIONS
    - Equip a fire staff
    - Notes to alch in first inventory spot
    - Nature Runes somewhere in inventory

    >>> VERSION HISTORY
    1.1 [mar '07] Compatible with SRL and also for the normal runescape client
    1.0 [jan '06] Original Scarscape version

    >>> CREDITS
    SRL : Thanks for the awesome include
    Scar-Scripts.com : Great scripts library and community
    }

    program HighAlcher;
    {.include SRL/SRL.scar}
    var Count, ux, uy : Integer;

    const
    Notes = 321; //Number of notes you are going to alch
    AntiBanFeature = true; // true = Enables the antiban feature

    procedure MagicTab;
    begin
    if(not(GetColor(733,177)=2829182))then
    Mouse(730,179,19,22,true);
    end;

    function Click(What: String): boolean;
    begin
    repeat
    if(What = 'Alch')then
    begin
    MMouse(711,325,20,18);
    end else
    MMouse(569,213,31,31);
    Wait(50 + Random(79));
    until(ReadUpText('Cast'))
    Wait(Random(27));
    GetMousePos(ux,uy);
    Mouse(ux,uy,0,0,true);
    Result:= true;
    end;

    procedure Randoms;
    var SafeBan: Integer;
    begin
    FindNormalRandoms;
    if(AntiBanFeature)then
    begin
    SafeBan := Random(100);
    case SafeBan of
    1: RotateEvery(10 + Random(2));
    2: RandomRClickEvery(5 + Random(6));
    3: LeaveScreenEvery(8 + Random(9));
    4: HoverSkill('Magic', false);
    5: PickUpMouseEvery(2 + Random(4));
    6: WWait(5400 + Random(1500));
    7: PickUpMouse;
    8: AlmostLogout;
    9: BoredEvery(10 + Random(2));
    end;
    end;
    end;

    begin
    ActivateClient;
    SetupSRL;
    DisguiseScar('C:\Program Files\iTunes');
    MagicTab;
    Randoms;
    Status('Alching...');
    repeat
    Click('Alch');
    Randoms;
    Click('Note');
    Count:= Count + 1;
    Wait(1290+random(200));
    until(Count >= Notes)
    Randoms;
    Status('Done Alching');
    Logout;
    end.



    ---------------------------------------

    Can some1 tell me how safe is it? thx.
     
  2. xSlaughteRx

    xSlaughteRx Forum Addict
    Banned

    Joined:
    Apr 21, 2007
    Posts:
    270
    Referrals:
    0
    Sythe Gold:
    0
    [SRL] Auto Alcher 2007[SRL]

    it doesnt work that well.. if at all

    and you should prolly post your own scripts ;)

    or get permission from the owner
     
  3. jhild

    jhild Guest

    Referrals:
    0
    [SRL] Auto Alcher 2007[SRL]

    There also is no finding talking randoms in it or running from fights. The first procedure is also useless because this script does use SRL so it could have just been Gametab(7). I wouldn't trust this script if i was alching some mage longs with 400k ish worth of items.
     
< Bronze auto smelter | [RS2] Th3mastor's DreamAboutWC >


 
 
Adblock breaks this site