AUTOIT 39
KF 3 Basic Bot Guest on 24th November 2019 05:55:02 PM
  1. ;############################
  2. ;####### KF3 - Basic Bot v2.2
  3. ;####### ...
  4. ;####### Instructions: Get over a supply crate, look straight down and press the lockButton (NUMLOCK by default) to start throwing grenades.
  5. ;############################
  6.  
  7. ;############################
  8. ;####### Globals and includes
  9. ;############################
  10. #include <Date.au3>
  11. Global Const $VK_NUMLOCK = 0x90
  12. Global Const $VK_SCROLL = 0x91
  13. Global Const $VK_CAPITAL = 0x14
  14. ConsoleWrite(_GetNumLock() & @LF)
  15. ConsoleWrite(_GetScrollLock() & @LF)
  16. ConsoleWrite(_GetCaps() & @LF)
  17.  
  18.  
  19. ;############################
  20. ;####### Configuration
  21. ;############################
  22. Dim $kfTitle = "Killing Floor 2"
  23. Dim $lockButton = "NUMLOCK" ; CAPSLOCK NUMLOCK SCROLLLOCK
  24. Dim $maxRuns = 100000
  25.  
  26. ;############################
  27. ;####### Helpers
  28. ;############################
  29. Func _GetNumLock()
  30.     Local $ret
  31.     $ret = DllCall("user32.dll","long", "GetKeyState", "long", $VK_NUMLOCK)
  32.     Return $ret[0]
  33. EndFunc
  34.  
  35. Func _GetScrollLock()
  36.     Local $ret
  37.     $ret = DllCall("user32.dll","long", "GetKeyState", "long", $VK_SCROLL)
  38.     Return $ret[0]
  39. EndFunc
  40.  
  41. Func _GetCaps()
  42.     Local $ret
  43.     $ret = DllCall("user32.dll","long", "GetKeyState", "long", $VK_CAPITAL)
  44.     Return $ret[0]
  45. EndFunc
  46.  
  47. Func LockButton()
  48.         Switch $lockButton
  49.                 Case "NUMLOCK"
  50.                         Return _GetNumLock()
  51.                 Case "CAPSLOCK"
  52.                         Return _GetCaps()
  53.                 Case "SCROLLLOCK"
  54.                         Return _GetScrollLock()
  55.                 Case Else
  56.                         ConsoleWrite ("Bad configuration ($lockButton). Exiting...")
  57.                         Exit
  58.         EndSwitch
  59. EndFunc
  60.  
  61.  
  62. ;############################
  63. ;####### Main
  64. ;############################
  65. Dim $i = 1
  66. Do
  67.         If LockButton() = 0 Then
  68.                 ConsoleWrite ( "[" & _NowTime() & "] " & $lockButton & " is off. Do nothing." & @LF )
  69.                 Sleep(3000)
  70.         Else
  71.                 ConsoleWrite ( "[" & _NowTime() & "] Fire in the hole (" & $i & ")" & @LF )
  72.                 # Move left
  73.                 ControlSend ( $kfTitle, "", "", "A" )
  74.                 ControlSend ( $kfTitle, "", "", "A" )
  75.                 ControlSend ( $kfTitle, "", "", "A" )
  76.                 Sleep(100)
  77.                 # Move right
  78.                 ControlSend ( $kfTitle, "", "", "D" )
  79.                 ControlSend ( $kfTitle, "", "", "D" )
  80.                 ControlSend ( $kfTitle, "", "", "D" )
  81.                 Sleep(100)
  82.                 # Throw grenaDe
  83.                 ControlSend ( $kfTitle, "", "", "G" )
  84.                 #ControlClick( $kfTitle, "", "", "middle")
  85.                 Sleep(1000)
  86.                 $i += 1
  87.         EndIf
  88. Until $i = $maxRuns

RSO cPaste е място за публикуване на код или текст за по-лесно отстраняване на грешки.

Влез или се Регистрай за да редактираш, изтриваш или преглеждаш хронология на твоето публикувано съдържание

Последни пейстове

Untitled

Untitled

Untitled

Untitled

Stronger than[...]

Your choice

Root password

Untitled

Untitled

Untitled

Необработен текст

Влез или се Регистрирай за да редактираш или задържиш това съдържание.

Някои права запазени © 2025 RSO cPaste.
Хостинг от Paste