[Dodian] Request auto alcher

[Ty Plz]

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

 

[seroko]

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

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!

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.

 

[abusedmuffin]

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)

 

[Ty Plz]

@ 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