SHARE
TWEET

Скрипт AutoIT для "The Long Dark"

a guest Oct 14th, 2016 163 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;AutoIT
  2. ;SciTE
  3. ;Version 3.3.6
  4. ;    Oct 19 2013 17:27:41
  5.  
  6. ;скрипт для автоматизации зажигания костров в The Long Dark (версия 365 - условно рабочая, немного дрожит камера)
  7. ;четвёртый уровень кострования И керосин ($time_skill)
  8. ;Вес - меньше 30 кг И не сильный ветер ($vremya_othoda)
  9. ;требования: ровная поверхность(озеро), взгяд в пол под углом 45 градусов
  10. ;F1 - начало работы скрипта
  11. ;F2 - отмена скрипта (требуется перезапуск)
  12.  
  13. #include <Misc.au3>
  14.  
  15. HotKeySet("{F1}", "Key_fire")
  16. HotKeySet("{F2}", "quit")
  17.  
  18. ;количество костров
  19. $ogonek=50
  20. ;время ожидания пока PC зажигает костёр для четвёртого уровня кострования ПЛЮС керосин (мс)
  21. $time_skill=3000
  22. ;время отхода PC от предыдущего костра (мс)
  23. $vremya_othoda=500
  24.  
  25. Func Key_fire()
  26. for $i = 1 To $ogonek
  27. Sleep(100)
  28. Send("4");
  29. Sleep(400) ;(!) дрожь камеры (??)
  30. MouseClick("left");
  31. Sleep(800)
  32. MouseMove(340,610,0)
  33. Sleep(100)
  34. MouseMove(340,610,0)
  35. Sleep(100)
  36. MouseClick("left");
  37. Sleep(100)
  38. MouseMove(1480,980,0)
  39. Sleep(100)
  40. MouseMove(1480,980,0)
  41. Sleep(100)
  42. MouseClick("left")
  43. Sleep($time_skill)
  44. Sleep(10)
  45. AutoItSetOption("SendKeyDownDelay",$vremya_othoda)
  46. Sleep(10)
  47. Send("s")
  48. Sleep(10)
  49. AutoItSetOption("SendKeyDownDelay",5)
  50. Sleep(100)
  51. Next
  52. EndFunc
  53.  
  54. Func quit()
  55. Exit
  56. EndFunc
  57.  
  58. While 1
  59. Sleep(1)
  60. WEnd
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top