Results 1 to 5 of 5

Thread: Soulshooter's first script!!(alchbot)

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

    Soulshooter's first script!!(alchbot)

    This is my first script i made it a alcher cuz i needed things alched and was to lazy to do it myself
    Instructions: set up likes 8-13 (verry easy) than try it out. (workd for me plz post if it works for you/ dosnt work and plz tell me what i did wrong)

    SCAR Code:
    { NOTE: this is only my first script so it probably isnt the best)
    Program AlchMeBot;
    {.Include SRL\SRL\Misc\SMART.SCAR}

    {.Include SRL\SRL.SCAR}
    // Instructions fill out lies 8-13 and press play!!
    const
    ////////////////////////////
    Name            ='';
    Pass            ='';
    ///////////////////////////
    SmartWorld      = 'world100';
    HowMany         = 2; // how many high alchemys?
    WindowDisguise  ='Lime Wire';// what you want it to be disguised as?

    var
    HowManyAlchemy: integer;


    Procedure ClickOnExistingUserButton;
    begin
    ClearDebug;
    Mouse(327,381,1,1,true);
    Mouse(381,174,1,1,true);
    Wait(500);
    end;

    Procedure TypeInUserandPass;
    Begin
    Mouse(324,258,1,1,true);
    TypeSend(name);
    Wait(500+Random(1000));
    Mouse(330,328,1,1,true);
    TypeSend(pass);
    Mouse(376,368,1,1,true);
    Wait(6000+Random(7000));
    Mouse(331,351,1,1,true);
    Wait(3000+Random(1000));

    end;

    Procedure ClickOnMageTab;
    begin
    SetAllChats('on','off','on','on','on');
    Mouse(741,185,1,1,true);
    wait(1000);
    end;

    Procedure RotateCompass;
    begin
      if not LoggedIn then Exit;
      case random(9) of
         0:MakeCompass('N');
         1:MakeCompass('W');
         2:MakeCompass('S');
         3:MakeCompass('N');
         4:MakeCompass('S');
         5:MakeCompass('E');
         6:MakeCompass('W');

      end;
      end;

    procedure Randoms;
    begin
      if not LoggedIn then Exit;
      FindNormalRandoms;
    end;

    Procedure Alch;
    var
    i: Integer;

    begin
     i:= 0;
    repeat
      i:= i + 1;
      Mouse(568,364,1,1,true);
      Mouse(568,364,1,1,true);
      wait(2350);
    until(i >= (HowMany));
    end;

    Procedure WeAreDone;
    Begin
    mouse(753,11,1,1,true);
    wait(500)
    Mouse(629,376,1,1,true);
    end;


    procedure StartUp;

    begin
    ClearDebug;
    writeln('waiting 15 sec for S.M.A.R.T to load!!!!');
    Disguise('15');
    wait(1000)
    Disguise('14');
    wait(1000)
    Disguise('13');
    wait(1000)
    Disguise('12');
    wait(1000)
    Disguise('11');
    wait(1000)
    Disguise('10');
    wait(1000)
    Disguise('9');
    wait(1000)
    Disguise('8');
    wait(1000)
    Disguise('7');
    wait(1000)
    Disguise('6');
    wait(1000)
    Disguise('5');
    wait(1000)
    Disguise('4');
    wait(1000)
    Disguise('3');
    wait(1000)
    Disguise('2');
    wait(1000)
    Disguise('....1');
    wait(1000)
    Disguise('STARTING!');
    Disguise(WindowDisguise);
    end;


    procedure TotalAlch;
    begin
    HowManyAlchemy := HowManyAlchemy +(howmany);
    end;


    procedure Prog;

      begin
      WriteLn('[====================================================]');
      WriteLn('[           ~ Progress Report ~                      ]');
      WriteLn('[====================================================]');
      Writeln('[ Script Worked for ' + TimeRunning);
      Writeln('[ Total Alchemy  = ' + IntToStr(HowManyAlchemy));
      writeln('[  Thanks for using Soulshooters Basic Alchbot SMART V1.0');
      writeln('[====================================================]');
    end;

    procedure NoUserNameOrPass;
      Begin
    If (name = '') Or (pass = '') Then
      Begin
        ClearDebug;
        WriteLn('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|');
        WriteLn('|Please enter your Username and/or Password in lines 8 and 9.|');
        WriteLn('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|');
        TerminateScript;

      End;
      end;




    ///////////////////////////////////////////////////////
    begin
    NoUserNameOrPass;
    SMARTSetUp((SmartWorld), True, True, False); {World prefix, safe mode, unsigned, RS-HD}
    SetTargetDC(SMARTGetDC);
    SetUpSRL;
    STartUp;
    ClickOnExistingUserButton;
    TypeInUserandPass;
    ActivateClient;
    ClickOnMageTab;
    RotateCompass;
    Alch;
    WeAreDone;
    TotalAlch;
    Prog;
    End.
    ///////////////////////////////////////////////////////






    Second script My auto typer!! plz test it to and tell me what you think


    SCAR Code:
    Program Auto-typer (second script made)
       // instructions pretty much everything with (//) in it
    {.include srl/srl.scar}

    var
      times  : integer; // make this integer for let it stop after wanted types.

    const
    howmuch = 20; // how much times to type the text
    text1    = 'mesage here'; // mesage you want to send
    text2   = 'mesage here'; // mesage 2
    text3   = 'mesage here'; // mesage 3
    text4   = 'mesage here'; // mesage 4
    text5   = 'mesage here'; // mesage 5
    text6   = 'mesage here'; // mesage 6
    text7   = 'mesage here'; // mesage 7

    procedure typing;
    begin
      case random(3) of  // will choose random one of this 3 mesages
      0 : typesend(mesage1);  // use typesend for not being banned
      1 : typesend(mesage2);
      2 : typesend(mesage3);
    end;
      times := times + 1
    end;

    begin
      SetupSRL;
      FindWindowBySize(766, 504); // these
      Activateclient;             //will select the client!
      repeat
        typing;
        wait(2000 + random(500));  // use +random in your wait, i would advise (better for anti ban)
        until(times = howmuch)
      terminatescript;
    end.

  2. #2
    Join Date
    Oct 2008
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Kool I tell you how it went in a few

  3. #3
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks good. might use for my mem (when i make me) and post proggies...good attempt for first script!

    BTW you might wanna add in anti ban
    IM BACK!!!!!!!!!!!!!!!!!

  4. #4
    Join Date
    Apr 2007
    Location
    Finland
    Posts
    335
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  5. #5
    Join Date
    Oct 2008
    Location
    I Forgot
    Posts
    193
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Not to bad for your first script Keep going u need anti- ban features tho :P since they can easily tell wether your auto talking

Thread Information

Users Browsing this Thread

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

Posting Permissions

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