Advertisement
ajajaman

Random garyshood autoclicker AHK script for osrs

Dec 3rd, 2024
211
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #SingleInstance force
  2. CoordMode, Mouse, Screen
  3. SetKeyDelay -1
  4. SetMouseDelay 0
  5. SetBatchLines -1
  6.  
  7. isClicking:=False
  8.  
  9. Gui, a: New, hwndhGui AlwaysOnTop Resize MinSize
  10. Gui, Add, Button, section w100 gStartClicking, Start F1 or F6
  11. Gui, Add, Button, w100 yp x+5 gStopClicking, Stop F2 or F7
  12. Gui, Add, Text,section xs+10 w120, Usage`n1. Set a speed range`n2. Hit start
  13.  
  14. Gui, Add, Edit, w50
  15. Gui, Add, UpDown, vDelaySecondsMin Range0-50000, 0
  16. Gui, Add, Text,yp+3 x+5, -
  17. Gui, Add, Edit, w50 yp-3 x+5
  18. Gui, Add, UpDown, vDelaySecondsMax Range0-50000, 0
  19. Gui, Add, Text,yp+3 x+5, Seconds
  20.  
  21.  
  22. Gui, Add, Edit, w50 section xs
  23. Gui, Add, UpDown, vDelayMillisMin Range0-50000, 130
  24. Gui, Add, Text,yp+3 x+5, -
  25. Gui, Add, Edit, w50 yp-3 x+5
  26. Gui, Add, UpDown, vDelayMillisMax Range0-50000, 250
  27. Gui, Add, Text,yp+3 x+5, Milliseconds
  28.  
  29. Gui, Add, Edit, w50 section xs
  30. Gui, Add, UpDown, vRandomPosition Range0-50000, 0
  31. Gui, Add, Text,yp+3 x+5, Pixel range
  32. Gui, Add, Edit, w50 yp-3 x+5
  33. Gui, Add, UpDown, vPositionChance Range0-100, 100
  34. Gui, Add, Text,yp+3 x+5, Chance
  35.  
  36. Gui, Add, Text,xs vStatus w120, Idle
  37. Gui, Add, Button, section xs w200 vClickStats gResetStats, Track clicks
  38. Gui, Add, Link,xs, <a href="https://www.patreon.com/nomscripts">Nom Scripts</a>
  39.  
  40. Gui, Show,, Auto Clicker
  41. OnMessage(0x112, "WM_SYSCOMMAND")
  42.  
  43. clickArr := []
  44. clickStart := 0
  45. return
  46.  
  47. ClickTimer:
  48. MouseGetPos, startX, startY
  49. loop {
  50.     if (!isClicking) {
  51.         Tooltip, Stopped!
  52.         Sleep, 1000
  53.         Tooltip
  54.         return
  55.     }
  56.     Random chance, 0, 100
  57.     if (RandomPosition > 0 && chance <= PositionChance) {
  58.         newX := startX + midRandom(-RandomPosition,RandomPosition)
  59.         newY := startY + midRandom(-RandomPosition,RandomPosition)
  60.         MouseMove, newX, newY
  61.     }
  62.    
  63.     Click
  64.     Random, sec, DelaySecondsMin,DelaySecondsMax
  65.     Random, milli, DelayMillisMin,DelayMillisMax
  66.     delay := sec*1000 + milli
  67.     Sleep, delay
  68. }
  69. return
  70.  
  71. F1::
  72. F6::
  73. StartClicking:
  74. Gui, a: Submit, Nohide
  75. if (!isClicking) {
  76.     isClicking:=True
  77.     Settimer, ClickTimer, -1
  78.     UpdateText("Status", "Clicking!")
  79. }
  80. return
  81.  
  82. F2::
  83. F7::
  84. StopClicking:
  85. Gui, a: Submit, Nohide
  86. isClicking:=False
  87. UpdateText("Status", "Idle")
  88. return
  89.  
  90. ResetStats:
  91. clickArr := []
  92. clickStart := 0
  93. UpdateText("ClickStats", "Click anywhere")
  94. return
  95. *~LButton::
  96. average := 0
  97. For Index, Value In clickArr
  98.    average += Value
  99. average := average//clickArr.maxIndex()
  100.  
  101. myString := "Min:" . Min(clickArr*) . " max:" . Max(clickArr*) . " avg:" . average . " clicks:" . clickArr.maxIndex()
  102. UpdateText("ClickStats", myString)
  103. if (clickStart == 0) {
  104.     clickStart := A_TickCount
  105. } else {
  106.     clickArr.push(A_TickCount-clickStart)
  107.     clickStart := A_TickCount
  108. }
  109. return
  110.  
  111. midRandom(min,max) {
  112.     mid := (min+max)/2
  113.     Random, rand1, min,mid
  114.     Random, rand2, mid,max
  115.     Random, rand3, rand1,rand2
  116.     return rand3
  117. }
  118.  
  119.  
  120. UpdateText(ControlID, NewText)
  121. {
  122.     ; Unlike using a pure GuiControl, this function causes the text of the
  123.     ; controls to be updated only when the text has changed, preventing periodic
  124.     ; flickering (especially on older systems).
  125.     static OldText := {}
  126.     global hGui
  127.     if (OldText[ControlID] != NewText)
  128.     {
  129.         GuiControl, %hGui%:, % ControlID, % NewText
  130.         OldText[ControlID] := NewText
  131.     }
  132. }
  133.  
  134.  
  135. WM_SYSCOMMAND(wp, lp, msg, hwnd)  {
  136.    static SC_CLOSE := 0xF060
  137.    if (wp != SC_CLOSE)
  138.       Return
  139.    
  140.    msgbox,4, Nom scripts, OSRS AHK botting updated monthly https://www.patreon.com/nomscripts
  141.    IfMsgBox Yes
  142.    {
  143.    run,https://www.patreon.com/nomscripts
  144.    }
  145.    ExitApp
  146. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement