SRL Archive - General Botting Help

non linear mouse movement?


ogustuce

2019-03-16 15:07:20

is there a way to move your mouse from a point to another on a arc of a circle instead of a straigh line?

Joopi

2019-03-16 15:12:13

Mess around with the different params for WindMouse? you can get it to look like half a circle… sort of

ogustuce

2019-03-16 15:48:02

there's alot of parameters to 'mess' with in there. to many for trial/error method.

ogustuce

2019-03-16 16:13:36

what im trying to do is is make my mouse move on points on a predetermined circle. This part i made, i just want the mouse to follow the circle circonference when it moves from point to point on that circle.
i know the maths and stuff, i just dont know what function to modify. i think maybe modify the lape _move?

ogustuce

2019-03-16 23:11:42

So i made a bit of code to move the mouse around a predetermined circle circonference.

[CODE]
program new;
{$i srl-6/srl.simba}
{$i ETL_Lape.simba}
PROCEDURE CIRCLE;
var
c:TpointArray;
h,i:integer;
begin
c:=TPAfromCircle(841,483,65);
H := high(c);
SortCircleWise(c,841,483,0,false,false);
filterPointsPie(c,0.0,360.0,62,66,841,483); // 0.0 start angle and 360.0 end angle in degrees
for I := 0 to h do

mouse(c[i],MOUSE_MOVE);
// ETL_DrawTPA(c,clYellow,False);
writeln(Inttostr(c[i].x)+'/'+inttostr(c[i].y));

end

begin
circle;
end.
[/CODE]

when i use 0 and 360, it works perfect, the mouse follows the circle for a full rotation. however when i change the start and end angle, 0 and 90 for example, i get:
'The following bitmaps were not freed: [Minimap Mask]'
this seems to happens for anything other than 0 and 360.

any1 knows why and/or how to fix this?

thank you

daileyj93

2019-03-18 08:21:39

Try putting the H := High©; after FilterPointsPie. I think you are getting an index out of range error.

ogustuce

2019-03-18 19:17:19

seems like it solved it, thank you very much!

underforu

2019-05-25 17:40:30

thanks need for the code will be using this