oh you just want a idler?
{$Define SMART}
Program AutoClicker;
{$IfDef SMART}
{$I SRL\SRL\Misc\SMART.Simba}
{$EndIf}
{$i SRL\SRL.Simba}
Var
CI, HowManyDifferentWait, FKeyTerminate: Integer;
EachWaitTime: Array Of Integer;
Coordinate, RPos: TPoint;
SetCoordinate: Boolean;
Procedure SphereCam( X, Y: Integer);
//'Randomly' pans camera like a human with some what correct wait time.
//Could be improved but there is a bug with simba's wait time, works great nonethless.
Var
WDT, WT: Tpoint;
Begin
WT := IntToPoint( Round( Abs( X * 4800 / 360)), Round( Abs( Y * 1200 / 90)));
Case Random ( 2) of
0: Begin
If X < 0 Then
KeyDown( VK_Left);
If X > 0 Then
KeyDown( VK_Right);
MarkTime( WDT.X);
Wait( Random( WT.X));
If Y < 0 Then
KeyDown( VK_Down);
If Y > 0 Then
KeyDown( VK_Up);
MarkTime( WDT.Y);
Repeat
Wait( Random( 100));
Until ( TimeFromMark( WDT.Y) > Random( WT.Y)) or ( TimeFromMark( WDT.X) > WT.X)
If TimeFromMark( WDT.X) > WT.X Then
Begin
If X < 0 Then
KeyUp( VK_Left);
If X > 0 Then
KeyUp( VK_Right);
End;
End;
1: Begin
If Y < 0 Then
KeyDown( VK_Down);
If Y > 0 Then
KeyDown( VK_Up);
MarkTime( WDT.Y);
If X < 0 Then
KeyDown( VK_Left);
If X > 0 Then
KeyDown( VK_Right);
MarkTime( WDT.X);
Wait( Random( WT.X));
Repeat
Wait( Random( 100));
Until ( TimeFromMark( WDT.X) > Random( WT.X)) or ( TimeFromMark( WDT.Y) > WT.Y)
If TimeFromMark( WDT.X) > WT.X Then
Begin
If Y < 0 Then
KeyUp( VK_Down);
If Y > 0 Then
KeyUp( VK_Up);
End;
End;
End;
Repeat
Wait( Random( 100));
Until TimeFromMark( WDT.X) > WT.X
If TimeFromMark( WDT.X) > WT.X Then
Begin
If X < 0 Then
KeyUp( VK_Left);
If X > 0 Then
KeyUp( VK_Right);
End;
Repeat
Wait( Random( 100));
Until ( TimeFromMark( WDT.Y) > WT.Y);
If TimeFromMark( WDT.Y) > WT.Y Then
Begin
If Y < 0 Then
KeyUp( VK_Down);
If Y > 0 Then
KeyUp( VK_Up);
End;
End;
Function WithInBox( SX, SY, EX, EY: Integer; I: Tpoint): Boolean;
Begin
If ( I.X > SX) and ( I.X < EX) and ( I.Y > SY) and ( I.Y < EY) Then
Result := True
Else
Result := False;
End;
Var
WaitPeriod: Array of Integer;
Procedure WaitTilTime( I: Integer);
Var
WTT: Integer;
Begin
MarkTime( WTT);
Repeat
MouseSpeed := RandomRange( 5, 200);
Case Random( 1000) Of
0..10: SphereCam( RandomRange( -180, 180), RandomRange( -45, 45));
11..300: Wait( Random( 100));
301: Wait( Random( 3000));
302..660: Wait( Random( 100));
661: Wait( Random( 7000));
662..999: Wait( Random( 100));
End;
Until TimeFromMark( WTT) > I;
End;
Begin
{$IfDef SMART}
Smart_Server := 50;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SmartSetTarget;
{$EndIf}
SetupSRL;
Repeat
Case Random( 3) Of
0: Mouse( Random( MIX2), Random( MIY2), 0, 0, False);
1: MMouse( Random( MIX2), Random( MIY2), 0, 0);
2: WaitTilTIme( Random( 60000));
End;
Until False;
End.
heres a script in 60 seconds.
Even a 12 years old should beable to figure out how to use this:P