ThatGamerBlue2

Untitled

Apr 27th, 2020
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.23 KB | None | 0 0
  1. #NoEnv
  2. SendMode Input
  3. SetWorkingDir %A_ScriptDir%
  4. #MaxThreadsPerHotkey 2
  5. SetTitleMatchMode, 2
  6. SetTitleMatchMode, slow
  7. #IfWinActive, Minecraft
  8. Gui, -Caption +ToolWindow +AlwaysOnTop +0x400000
  9. Gui, Add, Text,, First Slot:
  10. Gui, Add, Text,, Last Slot:
  11. Gui, Add, Text,, Swap Speed:
  12. Gui, Add, DropDownList, w95 vFirstSlot ym, 1|2|3|4|5|6|7|8
  13. Gui, Add, DropDownList, w95 vLastSlot, 2|3|4|5|6|7|8|9
  14. Gui, Add, Slider, w95 Range250-2000 vTimeSlider,
  15. Gui, Add, Button, default w150 xm, Randomise
  16. Gui, Add, Button, w150, Close
  17. Gui, Add, Link, Center, <a href="https://www.reddit.com/user/SelmaFudd">/u/SelmaFudd</a>'s Block Randomiser
  18. OnMessage(0x201, "WM_LBUTTONDOWN")
  19. Gui, Show
  20. return
  21. WM_MOUSEMOVE( wparam, lparam, msg, hwnd )
  22. {
  23. if wparam = 1
  24. PostMessage, 0xA1, 2,,, A
  25. }
  26. ButtonRandomise:
  27. Gui, Submit, NoHide
  28. MsgBox Block Randomiser will use the blocks between inventory slots %FirstSlot% and %LastSlot%
  29. return
  30. ButtonClose:
  31. Gui, Destroy
  32. ExitApp
  33. ~*RButton::
  34. Loop
  35. {
  36. Random, rand, %FirstSlot%, %LastSlot%
  37. Send %rand%
  38. Sleep %TimeSlider%
  39. }Until !GetKeyState("RButton","P")
  40. return
  41. WM_LBUTTONDOWN(wParam, lParam, msg, hwnd)
  42. {
  43. Gui, +LastFound
  44. Checkhwnd := WinExist()
  45. if hwnd = %Checkhwnd%
  46. {
  47. PostMessage, 0xA1, 2
  48. }
  49. }
  50. GuiClose:
  51. ExitApp
Add Comment
Please, Sign In to add comment