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

;AutoIT
;SciTE
;Version 3.3.6
;    Oct 19 2013 17:27:41

;скрипт для автоматизации зажигания костров в The Long Dark (версия 365 - условно рабочая, немного дрожит камера)
;четвёртый уровень кострования И керосин ($time_skill)
;Вес - меньше 30 кг И не сильный ветер ($vremya_othoda)
;требования: ровная поверхность(озеро), взгяд в пол под углом 45 градусов
;F1 - начало работы скрипта
;F2 - отмена скрипта (требуется перезапуск)

#include <Misc.au3>

HotKeySet("{F1}", "Key_fire")
HotKeySet("{F2}", "quit")

;количество костров
$ogonek=50
;время ожидания пока PC зажигает костёр для четвёртого уровня кострования ПЛЮС керосин (мс)
$time_skill=3000
;время отхода PC от предыдущего костра (мс)
$vremya_othoda=500

Func Key_fire()
for $i = 1 To $ogonek
Sleep(100)
Send("4");
Sleep(400) ;(!) дрожь камеры (??)
MouseClick("left");
Sleep(800)
MouseMove(340,610,0)
Sleep(100)
MouseMove(340,610,0)
Sleep(100)
MouseClick("left");
Sleep(100)
MouseMove(1480,980,0)
Sleep(100)
MouseMove(1480,980,0)
Sleep(100)
MouseClick("left")
Sleep($time_skill)
Sleep(10)
AutoItSetOption("SendKeyDownDelay",$vremya_othoda)
Sleep(10)
Send("s")
Sleep(10)
AutoItSetOption("SendKeyDownDelay",5)
Sleep(100)
Next
EndFunc

Func quit()
Exit
EndFunc

While 1
Sleep(1)
WEnd