[Dodian] Request auto alcher

Discussion in 'Script Requests' started by Ty Plz, Sep 3, 2008.

[Dodian] Request auto alcher
  1. Unread #1 - Sep 3, 2008 at 10:53 AM
  2. Ty Plz
    Joined:
    Jul 8, 2007
    Posts:
    48
    Referrals:
    1
    Sythe Gold:
    0

    Ty Plz Member

    [Dodian] Request auto alcher

    Hi people I was wondering if you can make me an auto alcher? :laugh:
    I can't get mine to work :(

    Note that this is for the private server Dodian, it wouldn't be that hard to make :) its almost the same as alching on rs, except when you alched something you stay in the inventory menu and you have to click on the book again. If you want I can make a video or whatever of it, since this might be vague lol

    Tyvm :)

    Shouldnt be too hard to make.. Also Ill pay lol
     
  3. Unread #2 - Sep 11, 2008 at 12:34 AM
  4. seroko
    Joined:
    Dec 18, 2007
    Posts:
    56
    Referrals:
    1
    Sythe Gold:
    0

    seroko Member

    [Dodian] Request auto alcher

    Uhm it sounds ~very~ simple. if it is a private server do they even watch mouse clicks for botting?

    declare the inventory slot you will alch in.

    Gametab to spell book, click x, y of spell, mouse to given inventory location, rinse repeat x number of times.

    Spending 9 minutes making this, never tested didn't do any antiban/anti random you can just do FindNormalRandoms above the if in the alched procedure to probably cover it. I AM NOT SAYING THIS IS A SCRIPT TO DO EVERYTHING YOU WANTED OR WORK GOOD THIS IS 9 MINUTES OF WORK TO SHOW YOU AN EXAMPLE OF WHAT YOU ASKED!

    Code:
    Program Alcher4TyPlz;
    {.include srl/srl.scar}
    {.include /srl/srl/skill/Magic.scar}
    
    var
      AlchAmt: Integer;
      
    procedure DeclarePlayers;
    begin
      NumberOfPlayers(1);
      CurrentPlayer := 0;
    
      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].integers[0] := 1;     // Slot to Alch
      Players[0].integers[1] := 200;     // Number of times
      Players[0].Active:=True;
    end;
    
    procedure LClickSlot(Slot: Integer);
    var
      x, y: Integer;
    begin
      wait(500+Random(300));
      MMouseItem(Slot);
      GetMousePos(x, y);
      Wait(25+Random(75));
      Mouse(x, y, 3, 3, True);
      Wait(50+Random(100));
    end;
    
    procedure Alch;
    begin
      if (CastSpell(35)) then
      begin
        LClickSlot(Players[CurrentPlayer].integers[0]);
        inc(AlchAmt);
      end;
    end;
    
    procedure Setup;
    begin
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      Wait(1000+Random(1000));
    end;
    
    begin
    Setup;
      repeat
        Alch;
      until(AlchAmt>=Players[CurrentPlayer].integers[1])
    end.
     
  5. Unread #3 - Sep 13, 2008 at 10:26 AM
  6. abusedmuffin
    Referrals:
    0

    abusedmuffin Guest

    [Dodian] Request auto alcher

    if u gime ur username and pass i have a good program i can use for u ( i know this sounds like a scam lol)
     
  7. Unread #4 - Sep 16, 2008 at 6:53 PM
  8. Ty Plz
    Joined:
    Jul 8, 2007
    Posts:
    48
    Referrals:
    1
    Sythe Gold:
    0

    Ty Plz Member

    [Dodian] Request auto alcher

    @ Seroko

    Thank you very much :) it's ok!

    @ Abusedmuffin, I know it is one because IT IS ONE :)

    You actually think I'm that stupid? gtfo fail leecher
     
< [Request] Camelot Auto Flax Picker + Banker | LOOKing for agility courser! >

Users viewing this thread
1 guest


 
 
Adblock breaks this site