SRL Archive - Research & Development Lounge

I am trying to make a very undetectable alch procedure (no autoresponder or anything yet)

heres what I have, I just want a check on the logic.

procedure Alch;
var
  Alchs, i, x, y : integer;
  msg : string;
begin
  wait(100+random(200));
  GameTab(Tab_Magic);    // changes to the magic tab.
  wait(10+random(30));
  MouseBox(561, 337, 582, 351, 3); //the bigges possible box to click for alch
  GetMousePos(x, y);
  begin
    Alchs := 0; //resets value
    i     := 1 + random(9); //random for antiban?
    Writeln('Set of ' +IntToStr(i)+ ' alchs.');  //displays (debug)
    repeat
      if not(rs_GetUpText = 'Cast High Level Alchemy') then
        Alch;
      HoldMouse(x, y, true);   // \
      wait(10+random(60));     //  --- Humanlike mouse click?
      ReleaseMouse(x, y, true);// /
      wait(800+random(200));
      if not(rs_GetUpText = 'Cast High Level Alchemy -> Yew longbow') then
        Alch;
      HoldMouse(x, y, true);
      wait(10+random(60));
      ReleaseMouse(x, y, true);
      wait(1000+random(300));
      Alchs := Alchs + 1;
    until(Alchs >= i)    // stops clicking same spot (back to mousebox to get
    Alch;                // a new spot to click on... ???
  end;
end;

all i did was make a simple ref script to do it for havnt been banned yet

im gonna be alching 84-99 :S…

i had an alcher that had some pretty sexy alching. it would pick a random spot and stay there clicking for every 100+ random 50 or so alchs, then move the mouse a little bit

but i need to find it

edit:

procedure clickspell;
var c : integer;
begin
  if findspell(strtobool(AlchB)) then
  begin
    writeln('changing coords');
    mousebox(563, 339, 582, 349, 3);
    getmousepos(x, y);
  end else
  begin
    mmouse(717, 253, 6, 6);
    GetMousePos(x, y);
  end;
  if (IsUpText('ast')) then
  begin
    c := 0;
    repeat
      begin
        findspell(strtobool(AlchB))
        mouse(x, y, 0, 0, true);
        wait(150 + random (200));
        mouse(x, y, 0, 0, true);
        wait(2000 + random (100));
        inc(c);
        inc(counter);
        incex(exp, 65);
        inc(ReportVars[0]);
        inc(ReportVars[1]);
        SrlRandomsReport;
        sleeps;
      end;
    until (c = 100 + random (50));
    cleardebug;
    prog;
    AkwardAntiBan;
  end;
end;


procedure alch;
begin
  Writeln('starting alching');
  repeat
    begin
      clickspell;
    end;
  until strtoint(alchs) = counter
end;

i made this a long time ago, like when i was just a noob :p but its really all you need. ofcorse there are parts that can be improved greatly, but meh :p

go ahead and base it off like that if you want, idc

From: Jethr0x
im gonna be alching 84-99 :S…

i alched up to 63 from the first lvl that u can alch at with that script never got banned

wow, J-Pizzle that takes like 2 hours to alch from 55-63.

no i low lvl alched to

One suggestion would be to not make it the biggest possible box… the most humanlike would mean it is fairly random. use camatsu studio to film yourself alching like 2000 times. Then review the video to see what i mean by humans get bored and check xp and the time and stuff like that… Also you will want to use alot of cases and try to get the numbers correct to be similar to what you did in the video. And like when it clicks the box make it use a case so sometimes it will click only one half, sometimes the other but humans usually will click on the sign and not around it. Just some idea's. ;)

I leveled my magic like 10 levels with a teleport script

program Teleport;
{.include srl/srl.scar}
var tmp: integer;
begin
  SetupSRL;
  repeat
    Mouse(???, ???, 0, 0, true);
    wait(1200+random(500));
  until(FindColor(tmp, tmp, 255, {cant remember}));
end;

you could use MarkTime(TimeMark) and TimeFromMark(TimeMark) so you can do antibans without waiting antibantime + alching time… Thats what i did with my alcher ;)
(got 82-94 mage :D)

Personally i like to add more Randomness into my script making it so it has 3-5 different possible outcomes set with different added random times so it never will be the same 2 clicks in a row pretty much.

From: nrb33
Personally i like to add more Randomness into my script making it so it has 3-5 different possible outcomes set with different added random times so it never will be the same 2 clicks in a row pretty much.

if the alch spell is in the right part of the spell list, and ur alching item in inv(13) u dont have to move mouse. this is a simple version of what id do.

procedure RandomActs;
begin
(blah blah blah, make your own case set of random acts);
end;

label(?) // put label name here

procedure alching;
begin
mouse(x, y, rx, ry) //clicks spell of course
repeat
inc(x);
clickmouse(x,y,rx,ry);
until inc(X)=(300+random(150));
wait(whatever works+random(you determine speed here))
goto(?)
end;


i didnt have a lot time, so i sorta threw alot of fast info. but if the case stated up top, that shud do just fine. i guess if u rele wanted to u could make the mouse move a few pixils( to fake a human twitch) or a 20 second break (interesting tv commercial). and using the antiban procedure, pick up mouse, wud be good. i do that all the time when not botting lol. just trying to be helpful.

and like i said before, i prolly made some programmatical mistake, so just get the jist of what im saying about the whole not having to move.

by the way, i have no idea where the alch spell is located atm. its been known to change tho. be careful. my main was banned when they changed the alch location. stupid fagex.

BEDIT
just read what i put. please redo the looping part of it. ive been programming on my graphing calculator. sorry, i know ur not suppose to make loops like that with scar.

My first post here.
I used to use scar\srl ~2 years ago, but never finished anything aside from some autobuyer.

Suggestions:
miss and have to press f4 to reselect magic tab, or miss the spell
scroll the magic spellbook down very slightly to align the button and the target

This thread is a bit old…

I used an auto click to get from 55 to 77, I'm probably going to get banned… meh.

From: marpis
I leveled my magic like 10 levels with a teleport script

program Teleport;
{.include srl/srl.scar}
var tmp: integer;
begin
  SetupSRL;
  repeat
    Mouse(???, ???, 0, 0, true);
    wait(1200+random(500));
  until(FindColor(tmp, tmp, 255, {cant remember}));
end;

Hahaha I lol'd at that code. Nice :D