Скриптописание - делимся опытом, задаем вопросы

Код:

* Скрипт атаки на вражескую ракету.

* Входные данные скрипта:
* $ship - ссылка на защищаемый корабль.
* $drone - Дрон, который защищает от ракет.

* Выбираем ближайшую ракету, запущенную по защищаемому корабю.
$missile = $ship -> find nearest missile aiming to me

if not $missile
return [TRUE]
end

* Исследуем парметры ракеты:

* Тип ракеты.
$missile.type = $missile -> get ware type code of object
* Максимально возможный ущерб, который может нанести ракета.
$missile.damage = get missile max damage of $missile.type

* Возможно, дальность полета ракеты.
$missile.damage.range = get range of missile type $missile.type
* Возможно, радиус поражения ракеты.
$missile.range = get missile range of $missile.type

* Исследуем обстановку:

* Расстояние от ракеты до защищаемого корабля:
$missile.distance = get distance between $ship and $missile
* Расстояние от ракеты до Дрона:
$missile.distance = get distance between $drone and $missile

* Выполняем анализ выше определенных параметров и принимаем решение: атаковать ее или нет.

* ...

* $doAttack = [FALSE]
$doAttack = [TRUE]

if not $doAttack
return [TRUE]
end

* Если решили атаковать:

* Выполняем 3 итерации с наведением на цель и стрельбой.

$i = 0
while $i < 3
inc $i =
if $i == 0
* В первой итерации выводим Дрона в позицию пригодную для ведения огня по цели.
* На эту операцию выделяем 5 секунд.
@ $res = $drone -> attack run on target $missile : timeout= 5000 ms
else
* Во второй и третьей итерациях выполняем донаводку на цель.
* На это действие выделяем 1 секунду.
@ $res = $drone -> attack run on target $missile : timeout= 1000 ms
end

if $res == FLRET_FIREFREE
* Ракета в зоне поражения.
* Выполняем 3 залпа по цели.
skip if not $missile -> exists
= $drone -> fire lasers on target $missile using turret 0
skip if not $missile -> exists
= $drone -> fire lasers on target $missile using turret 0
skip if not $missile -> exists
= $drone -> fire lasers on target $missile using turret 0
end

* Если ракета не существует, то прекращаем атаку.
skip if $missile -> exists
break
end

if $missile -> exists
return [FALSE]
else
return [TRUE]
end

return null