Advertisement
Guest User

Untitled

a guest
Jun 26th, 2019
103
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.94 KB | None | 0 0
  1. function OnEvent(event, arg)
  2. if (not IsKeyLockOn("scrolllock") and IsKeyLockOn("numlock") and not IsKeyLockOn("capslock"))then --doc def [NUM]
  3. if IsMouseButtonPressed(3)then
  4. repeat
  5. if IsMouseButtonPressed(1) then
  6. repeat
  7. MoveMouseRelative(-3, 12) --ajustes finos
  8. Sleep(4.1)
  9. MoveMouseRelative(3, -8)
  10. Sleep(4.1)
  11. until not IsMouseButtonPressed(1)
  12. OutputLogMessage("doc\n", event, arg)
  13. end
  14. until not IsMouseButtonPressed(3)
  15. end
  16.  
  17. elseif (not IsKeyLockOn("scrolllock") and IsKeyLockOn("numlock") and IsKeyLockOn("capslock")) then --jagger def [NUM CAPS]
  18. if IsMouseButtonPressed(3)then
  19. repeat
  20. if IsMouseButtonPressed(1) then
  21. repeat
  22. MoveMouseRelative(-4, 13)
  23. Sleep(3)
  24. MoveMouseRelative(4, -8)
  25. Sleep(3)
  26.  
  27. until not IsMouseButtonPressed(1)
  28. OutputLogMessage("jagger\n", event, arg)
  29. end
  30. until not IsMouseButtonPressed(3)
  31. end
  32.  
  33. elseif (IsKeyLockOn("scrolllock") and IsKeyLockOn("numlock") and IsKeyLockOn("capslock")) then --sledge atk [NUM SCROLL E CAPS]
  34. if IsMouseButtonPressed(3)then
  35. repeat
  36. if IsMouseButtonPressed(1) then
  37. repeat
  38. MoveMouseRelative(-4, 12) --IR MAIS PRA DIREITA
  39. Sleep(1)
  40. MoveMouseRelative(5, -8)
  41. Sleep(1)
  42.  
  43. until not IsMouseButtonPressed(1)
  44. OutputLogMessage("sledge\n", event, arg)
  45. end
  46. until not IsMouseButtonPressed(3)
  47. end
  48.  
  49. elseif (IsKeyLockOn("scrolllock") and not IsKeyLockOn("numlock") and IsKeyLockOn("capslock")) then --ribana atk [SCROLL E CAPS]
  50. if IsMouseButtonPressed(3)then
  51. repeat
  52. if IsMouseButtonPressed(1) then
  53. repeat
  54. MoveMouseRelative(-4, 13) -- IR MAIS PRA ESQUERDA
  55. Sleep(1)
  56. MoveMouseRelative(3, -8)
  57. Sleep(1)
  58.  
  59. until not IsMouseButtonPressed(1)
  60. OutputLogMessage("hibana\n", event, arg)
  61. end
  62. until not IsMouseButtonPressed(3)
  63. end
  64. end
  65. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement