Meh -.- Just set the Px and Py and it calculates the number of clicks it can make it bla bla bla. Just look at the progress report after
Code:Const TripleCheck = true; // Average will be more acurate, but will click for longer to acumulate. Px = 20; Py = 20; var ClickSpeed: array of extended; function ClickATime(x, y: Integer): extended; var a: Integer; begin a:= GetSystemtime; HoldMouse(x, y, true); wait(1); ReleaseMouse(x, y, true); Wait(1); result:= (GetSystemTime-a); end; function Average: extended; var i, l: Integer; t: extended; begin l:= getarraylength(clickspeed)-1; for i:= 0 to l do t:= t + clickspeed[i]; result:= ((t+1)/(l+1)); end; procedure Clickfor(x, y, ms: Integer); var a, i: Integer; begin a:= GetSystemTime; repeat ClickSpeed[i]:= ClickATime(x, y); setarraylength(ClickSpeed, i + 2); i:= i + 1; until((getsystemtime-a) >= ms); end; function AddC(c: integer): string; var i, e: Integer; s: string; begin s:= inttostr(c); for i:= 1 to length(s) do begin if e = 3 then begin e:= 0; result:= result + ','; end; result:= result + copy(s, i, 1); e:= e + 1; end; end; function AddCE(ec: extended): string; var i, e: Integer; s: string; begin s:= floattostr(ec); for i:= 1 to length(s) do begin if e = 3 then begin e:= 0; result:= result + ','; end; result:= result + copy(s, i, 1); e:= e + 1; end; end; function CopyMuchE(e: extended; frompoint: integer): extended; var s, b: string; fp: integer; begin s:= floattostr(e); repeat fp:= fp + 1; b:= b + copy(s, fp, 1); until(copy(b, fp, 1)='.'); result:= strtofloat(b) + strtofloat(copy(s, fp, frompoint + 1)); end; var Psecond, i, s: Integer; AveragePS: extended; Triple: array[1..3] of extended; begin s:= GetSystemTime; ClearDebug; Setarraylength(Clickspeed, 1); if TripleCheck then begin for i:= 1 to 3 do begin Clickfor(Px, Py, 1000); Triple[i]:= average; end; AveragePS:= ((Triple[1]+Triple[2]+Triple[3])+1)/3; end else begin Clickfor(Px, Py, 1000); AveragePS:= average; end; PSecond:= getarraylength(clickspeed)-1; Writeln('Test took: '+floattostr(((getsystemtime-s)))+' milli seconds.. ('+floattostr(((getsystemtime-s)/1000))+' seconds).'); Writeln('Clicks per: Second ('+AddC(psecond)+'), Minute ('+AddC(psecond*60)+'), Hour ('+AddC((psecond*60)*60)+'), Day ('+AddC(((psecond*60)*60)*24)+').'); Writeln('Average Millisecond per click: '+floattostr(CopyMuchE(AveragePS, 3))); Writeln(' '); end.






Reply With Quote




