Любителям халявы и Легенды посвешается
//Координаты начала боя
set #batlX
set #batlY
//бой с игроком
set #bPlayerX
set #bPlayerY
//на случай если нужно остановиться
// и не качать дальше опыт
// На шкале выбераем позицию до которой
//качаться
// и цвет уже полученого опыта
set #stopmobX
set #stopmobY
set #stopmobC
// Координаты и цвет Аватарки для проверки
// признака начала боя
set #avaX
set #avaY
set #avaC
// координаты и цвет меню выбора удара
set #menuX
set #menuY
set #menuC
// Координаты кнопки удар вверх
set #upX
set #upY
// Координаты кнопки удар прямо
set #normX
set #normY
// Координаты кнопки удар вниз
set #downX
set #downY
//координаты и цвет кноки "бой закончился"
set #endX
set #endY
set #endC
//координаты и цвет бой закончился победой
set #vinX
set #vinY
set #vinC
//координаты и цвет вы проиграли бой
set #loseX
set #loseY
set #loseC
//счётчик
//Координаты и цвет завершонного боя с противником
set #PbatlEndX 329
set #PbatlEndY 463
set #PbatlEndC 137
:begin
set #k random (11)
//Начать бой
// Парамент в нижеследущем опараторе if указывает на отношение боёв с мобами
// по отношению к боям с людьми
// в данно варианте после набора определёного кол-ва опыта
// идёт бой исключительно с игроками)
// либо снять комент со следующей строчки,
//if #stopmobX #stopmobY #stopmobC
//goto hvatit
//end_if
// тогда при наборе опыта скрипт остановиться
if #k > 7 or #stopmobX #stopmobY #stopmobC
left #bPlayerX #bPlayerY
else
left #batlX , #batlY
end_if
//Проверка начался бой или нет
while_not #avaX, #avaY #avaC
wait 500
gosub error
end_while
while #avaX, #avaY #avaC
gosub error
// выбор ударов
// up удар вверх
// down удар вниз
// norm удар прямо
gosub norm
gosub up
gosub down
end_while
:end
left #endX, #endY
while_not #vinX, #vinY #vinC or #loseX, #loseY #loseC or #PbatlEndX #PbatlEndY #PbatlEndC
gosub error
wait 500
end_while
left #vinX, #vinY
left #loseX, #loseY
wait 2000
goto begin
:up
gosub error
while_not #menuX, #menuY #menuC
wait 200
if #endX, #endY #endC
goto end
end_if
end_while
//удар вверх
left #upX, #upY
return
:down
gosub error
while_not #menuX, #menuY #menuC
wait 200
if #endX, #endY #endC
goto end
end_if
end_while
//удар вниз
left #downX, #downY
return
:norm
gosub error
while_not #menuX, #menuY #menuC
wait 200
if #endX, #endY #endC
goto end
end_if
end_while
left #normX, #normY
return
:error
if 345, 313 122
left 344, 315
end_if
return
:hvatit
end_script