Tractopelle

Untitled

Apr 13th, 2020
938
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; Reload script with CTRL + ALT + R
  2.  
  3. ~*^!R::Reload
  4.  
  5. ; Macro toggling
  6.  
  7. ~*PgDn Up::tog:=0
  8. ~*PgDn::tog:=1
  9.  
  10. ~*PgUp Up::tog2:=0
  11. ~*PgUp::tog2:=1
  12.  
  13. ; Click speed definition and tooltips when keys are pressed
  14.  
  15.  
  16. ; Primary weapons (no modifiers)
  17.  
  18. ~*F5::
  19. val:=133
  20. TrayTip, Primary Autofire Delay Changed, Joker SR15 Carbine,, 48
  21. return
  22.  
  23. ~*F6::
  24. val:=120
  25. TrayTip, Primary Autofire Delay Changed, Joker SR15 Carbine (CJ3),, 48
  26. return
  27.  
  28. ~*F7::
  29. val:=215
  30. TrayTip, Primary Autofire Delay Changed, Obeya CR762,, 48
  31. return
  32.  
  33. ~*F8::
  34. val:=200
  35. TrayTip, Primary Autofire Delay Changed, Obeya CR762 (CJ3),, 48
  36. return
  37.  
  38. ~*F9::
  39. val:=280
  40. TrayTip, Primary Autofire Delay Changed, OSCAR,, 48
  41. return
  42.  
  43. ~*F10::
  44. val:=120
  45. TrayTip, Primary Autofire Delay Changed, VBR,, 48
  46. return
  47.  
  48. ~*F11::
  49. val:=450
  50. TrayTip, Primary Autofire Delay Changed, Oblivion,, 48
  51. return
  52.  
  53.  
  54. ; Secondary weapons (shift + key)
  55.  
  56. ~*+F5::
  57. val2:=150
  58. TrayTip, Secondary Autofire Delay Changed, Joker RFP-9,, 48
  59. return
  60.  
  61. ~*+F6::
  62. val2:=205
  63. TrayTip, Secondary Autofire Delay Changed, Obeya FBW,, 48
  64. return
  65.  
  66. ~*+F7::
  67. val2:=190
  68. TrayTip, Secondary Autofire Delay Changed, Colby .45,, 48
  69. return
  70.  
  71. ~*+F9::
  72. val2:=208
  73. TrayTip, Secondary Autofire Delay Changed, Obeya CR-762,, 48
  74. return
  75.  
  76. ~*+F10::
  77. val2:=500
  78. TrayTip, Secondary Autofire Delay Changed, Colby SNR,, 48
  79. return
  80.  
  81. ~*+F11::
  82. val2:=185
  83. TrayTip, Secondary Autofire Delay Changed, OCSP,, 48
  84. return
  85.  
  86.  
  87. ; Main macro code
  88.  
  89. #If (tog)
  90.  
  91.     *$LButton::
  92.    
  93.     While GetKeyState("LButton", "P"){
  94.    
  95.     Click
  96.    
  97.     Sleep (val)
  98.    
  99.     }
  100.    
  101.     return
  102.  
  103. #If
  104.  
  105. #If (tog2)
  106.  
  107.     *$LButton::
  108.    
  109.     While GetKeyState("LButton", "P"){
  110.    
  111.     Click
  112.    
  113.     Sleep (val2)
  114.    
  115.     }
  116.    
  117.     return
  118.  
  119. #If
  120.  
  121.  
  122. ; Press F11 to abandon a mission
  123.  
  124. ~*²::
  125.     Send {Enter}
  126.  
  127.     Sleep 20
  128.  
  129.     SavedClip := ClipboardAll
  130.  
  131.     Clipboard := "/abandonmission"
  132.  
  133.     Send ^v
  134.  
  135.     Sleep 20
  136.  
  137.     Send {Enter}
  138.  
  139.     Clipboard := SavedClip
  140.  
  141.     SavedClip := ""
  142.  
  143. return
  144.  
  145.  
  146.  
  147. ; District join macro
  148.  
  149. #MaxThreadsPerHotkey 2
  150. ~*^+NumpadSub::
  151. joinTog := !joinTog
  152. Loop
  153. {
  154.     If not joinTog
  155.         break
  156.  
  157.     CoordMode, Mouse, Screen
  158.     MouseMove, 1337, 1054
  159.     Sleep, 500
  160.     Send, {LButton}
  161.     Sleep, 500
  162.     MouseMove, 843, 642
  163.     Sleep, 1000
  164.     Send, {LButton}
  165.     Sleep, 1000
  166.     Send, {Esc}
  167. }
  168. return
  169.  
  170.  
  171.  
  172. ; Mouse positions (1440*1080)
  173.  
  174. ; Join District: X 1337, Y 1054
  175. ; Enter Anyway: X 843, Y 642
  176.  
  177. ~*Pause::
  178. FormatTime, CurrentTime,, HH:mm:ss d/M
  179. FileAppend, %CurrentTime%`n, D:\Recordings\clips.txt
  180. return
RAW Paste Data