SRL Archive - Test corner

Maybe there is some way to incorperate this into srl


SonOfSheep

2008-06-06 20:40:18

I made a mouse program that registers how long you hold your mouse button down for and how long between each click for autoclickers (like my auto seller).

Maybe this can somehow be incorperated into srl, here is an example of using it in an autoseller script.

program AutoSeller;
//Auto clicks until you move the mouse! You have 5 seconds to move the mouse after you press go.
{insert auto-generated functions here}

var xs,ys,x,y:integer;
begin
wait(5000);
getmousepos(x,y);
repeat
getmousepos(xs,ys);
wait(RandClick);
HoldMouse(x,y,true);
wait(RandHold);
ReleaseMouse(x,y,true);
until(Abs(xs-x+ys-y)>5);
end.

The above script is an auto clicker, which can be used to auto sell if you put the items in the bottom row of your inventory and position the mouse to the bottom pixel of the item you are selling which allows each click to hit the item and the sell 50 option. (change setting to one button mouse)

Attatched is the source and binary of the program i made. it is sloppy but it gets the job done and prints the functions. Just run it and click the button as fast as possible and as naturally as possible for 30 seconds, and you 2 specially generated functions will be printed for your speed. It uses frequency of timing between clicks and while holding the mouse button to generate a wait function which would have a natural curve to the return value.

Here's what the output looks like:
function RandClick():integer;
var r:integer;
begin
r := random(184);
if r < 1 then
Result := 0 + random(10)
else if r < 5 then
Result := 10 + random(10)
else if r < 19 then
Result := 20 + random(10)
else if r < 33 then
Result := 30 + random(10)
else if r < 56 then
Result := 40 + random(10)
else if r < 114 then
Result := 50 + random(10)
else if r < 159 then
Result := 60 + random(10)
else if r < 169 then
Result := 70 + random(10)
else if r < 175 then
Result := 80 + random(10)
else if r < 177 then
Result := 90 + random(10)
else if r < 178 then
Result := 180 + random(10)
else if r < 179 then
Result := 220 + random(10)
else if r < 180 then
Result := 270 + random(10)
else if r < 181 then
Result := 300 + random(10)
else if r < 182 then
Result := 420 + random(10)
else if r < 183 then
Result := 990 + random(10)
else
Result := random(random(5000))+100;
end;
function RandHold():integer;
var r:integer;
begin
r := random(184);
if r < 1 then
Result := 25 + random(10)
else if r < 6 then
Result := 35 + random(10)
else if r < 9 then
Result := 40 + random(10)
else if r < 10 then
Result := 45 + random(10)
else if r < 17 then
Result := 50 + random(10)
else if r < 19 then
Result := 55 + random(10)
else if r < 29 then
Result := 60 + random(10)
else if r < 40 then
Result := 65 + random(10)
else if r < 42 then
Result := 70 + random(10)
else if r < 60 then
Result := 75 + random(10)
else if r < 74 then
Result := 80 + random(10)
else if r < 80 then
Result := 85 + random(10)
else if r < 101 then
Result := 90 + random(10)
else if r < 143 then
Result := 100 + random(10)
else if r < 160 then
Result := 105 + random(10)
else if r < 166 then
Result := 115 + random(10)
else if r < 169 then
Result := 120 + random(10)
else if r < 175 then
Result := 130 + random(10)
else if r < 176 then
Result := 145 + random(10)
else if r < 177 then
Result := 155 + random(10)
else if r < 178 then
Result := 195 + random(10)
else if r < 179 then
Result := 210 + random(10)
else if r < 180 then
Result := 220 + random(10)
else if r < 181 then
Result := 235 + random(10)
else if r < 183 then
Result := 490 + random(10)
else
Result := random(50) + 100;
end;

It is a little crude but it works well. This was my output from 30 seconds of sampling.

Sir R. M8gic1an

2008-06-07 09:58:29

i think you're behind the times ;)


begin
repeat
MouseItem(28, False);
ChooseOption('Sell 50');
wait(Random(500));
until(not ExistsItem(28))
end;

also, could you please change your avatar? it's rather annoying when it flashes like that :S

~RM

Camaro'

2008-06-07 10:47:39

From: Rasta Magician
i think you're behind the times ;)


begin
repeat
MouseItem(28, False);
ChooseOption('Sell 50');
wait(Random(500));
until(not ExistsItem(28))
end;

also, could you please change your avatar? it's rather annoying when it flashes like that :S

~RM


Second that. Second that for the siggy.

Gu3st...

2008-06-07 12:11:59

From: Rasta Magician
i think you're behind the times ;)
also, could you please change your avatar? it's rather annoying when it flashes like that :S

~RM


Yea pls :D

and i think harry agrees too

Bobarkinator

2008-06-07 12:16:49

From: Rasta Magician
i think you're behind the times ;)


begin
repeat
MouseItem(28, False);
ChooseOption('Sell 50');
wait(Random(500));
until(not ExistsItem(28))
end;

also, could you please change your avatar? it's rather annoying when it flashes like that :S

~RM



Considering he's had that avvy ever since he got members…over a year ago. I don't think he should change it.

SonOfSheep

2008-06-07 16:26:18

yah i love the avvy :( No1 has complained about it till now!

And the point was to make it unique to you and very human mouse timing… I don't think you are understanding the whole point of my post. if you all read it you would know. it wasn't an auto seller it was a program that generates random wait times based on your timing.

Harry

2008-06-07 16:29:57

Since we are on the topic of Avvys, I do not think flashing black and white images are allowed anymore because some users so not like it, and epileptic users may have trouble with them.

FreakyMonkey

2008-06-07 20:30:10

Haha, Hy i was looking at that and I was just about to say that it could give someone a seizure XD.

Bobarkinator

2008-06-07 20:43:10

From: Hy71194
Since we are on the topic of Avvys, I do not think flashing black and white images are allowed anymore because some users so not like it, and epileptic users may have trouble with them.


His is small and actually has a picture going on inside it…unlike yours which just flashed and was huge.

Harry

2008-06-07 22:04:03

From: Bobarkinator
His is small and actually has a picture going on inside it…unlike yours which just flashed and was huge.


His cups do not allow larger avvys ;) But yeah, I see your point.

SonOfSheep

2008-06-08 17:01:30

From: Bobarkinator
His is small and actually has a picture going on inside it…unlike yours which just flashed and was huge.


I agree this is why my avvy is good, but can somebody post with something other than their opinion on my avatar???? :fiery: :fiery: :fiery:

P1nky

2008-06-08 23:55:25

okay stop this bull let him have it….hes been having it for a year already…

Zezi

2008-06-10 08:44:39

Woot! I have how threads get off-topic D:!

Anyways, yea, I don't see what this does exactly
Could you explain the benefits of this? =x thnx

SonOfSheep

2008-06-27 10:44:27

From: Zezi
Woot! I have how threads get off-topic D:!

Anyways, yea, I don't see what this does exactly
Could you explain the benefits of this? =x thnx

This is a Program that records your mouse clicking speed into 2 frequency distribution tables. Then, using those tables it outputs a function which should look remarkably similar to your own speeds and should, in theory, be undetectable.

I have used it to output both a Time button is held and a time between clicks function. The Random time between clicks is really only useful for scripts involving speed clicking.