- Сообщения
- 3,608
- Репутация
- 941
Код:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
;; Warp Test Модуль v0.1 Модуль проверки состояния варпа
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
;; Применение:
;; Само тело функции расместить в любой удобной части скрипта.
;; Использовать ссылку на функцию из любой части скрипта, для инициализации проверки ухода в и выхода корабля из варпа.
;; Зависимость: ЕСТЬ
;; Данный модуль зависит от CS и TT модулей. Для его использования необходимо включить эти модули в тело скрипта.
;; Точные названия необходимых модулей: CS($Time); TT($Text).
;; Описание:
;; WarpTest Модуль - это модуль предназначенный для определения момента ухода корабля в варп и последующего момента выхода из варпа. На время варпа модуль приостанавливает исполнение скрипта.
;; WarpTest() - ссылка на функцию, иницирующая проверку корабля на выход и выход из варпа.
;; $WarpTestX - Х координата точки проверки состояния варпа корабля, расположенная на нижней панели интерфейса.
;; $WarpTestY - Y координата точки проверки состояния варпа корабля, расположенная на нижней панели интерфейса.
;; Принцип работы:
;; После того как корабль снизил скорость до 80% и меньшеи получил запрос на варп куда-либо, активация этого модуля приведет к приостановке исполнения скрипта до момента выхода корабля из варпа.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
Func WarpTest()
$i = 0
$WarpTestCheckSum = PixelGetColor($WarpTestX, $WarpTestY)
Do
CS(1000)
PixelSearch($WarpTestX, $WarpTestY, $WarpTestX+1, $WarpTestY+1, $WarpTestCheckSum, 10 )
If @error Then
$i = 1
EndIf
Until $i = 1
TT("Лечу")
CS(9000)
$WarpTestCheckSum = PixelGetColor($WarpTestX, $WarpTestY)
Do
CS(1000)
PixelSearch($WarpTestX, $WarpTestY, $WarpTestX+1, $WarpTestY+1, $WarpTestCheckSum, 10 )
If @error Then
$i = 0
EndIf
Until $i = 0
TT("Прилетел")
CS(5000)
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
