SannyBuilder.com Forums

Неа, он всё равно разгоняется и взлетает

Вопрос: а реально с помощью клео, серией точек задать свой путь, и потом к нему привязать самолёт?

Ты же рассказывал что раньше делал.

Тем, что работает через раз: 50% работает так же как драйв_ту, а в 50% взлетает и следует к точке уже в воздухе.

Знаю, просто когда писал скрипт, думал, что там может ещё что-то быть.

Я просто тут где-то читал, что на первую метку не перескакивает гта. Потому и поставил старт. Кстати иногда (когда забываю писать старт и ноп - игра вылетает сразу после запуска)

Да красивие, только я уже запутался в сложной структуре синтаксиса языка гта, что уже не рискую

Да явообще хотел сделать вызов простым нажатием этих клавишь в нужной последовательности (по принципу ЧИТа, но не дождался ответа об этом и решил сделать "по-старинке"...

Я выгружаю только ссылку на модель. А саму модель - необязательно - ибо при отъезде от неё на определённое расстояние - она исчезает.

Пилота посадил. Пропеллер крутится, двигатель шумит. Но когда я говорю ему ехать к точке - он чуток сдвигается и затем практически останавливается. Если присвоить ему какую-то скорость, то самолёт начинает движение, а потом плавно тормозит так и не доехав до точки. Если присвоение скорости и/или пути запустить в цикл каждую секунду, то самолёт начинает двигаться по кругу

:go
02C2: car 0@ drive_to 1508.57 1788.499 11.0
04BA: set_car 0@ speed_to 5.0
wait 1000
jump @go

Что ж делать то?
Как заставить самолёт плавно доехать до конкретной точки?

народ, а реально сделать, чтобы по нажатию на кнопку определённую загорались фары автомобиля ТОЛЬКО С ОДНОЙ СТОРОНЫ? Ну что-то типа "поворотников". Мол, нажад на ">" и замигали правый файры, а "<" - - только левые? или нет такого опкода?

Понравилась мне очень идея jayrocc`а и решил я переписать код с нуля, при этом устранив предыдущие баги.
Итак. Сначала преамбула.

МИНУСЫ
1. не поддерживает paintjob`ы (ибо у меня тока один пейнт, а остальные влом вписывать)

ПЛЮСЫ
1. самолёты при посадке останавливаются в конце полосы и не разбиваются
2. самолёты после посадки разворачиваются и начинают новый перелёт (после небольшой паузы)
3. при совершении трёх перелётов самолёт подъезжает к ангару
4. при уничтожении самолёта скрипт автоматически перезапускается
5. шасси выпускаются и убираются

ВИД
Скрипт "поставляется" в виде двух скриптов. Альфы и Омеги. Принцыпы у них одинаковые только последовательность и маршруты разные.

Альфа:
<41> LS(R) - SF
<44> SF - LV
<48> LV - LS(L)

Омега:
<46> LS(L) - LV
<43> LV - SF
<49> SF - LS(L)

Сорок второй маршрут не используется ибо не имеет точки остановки.

итак, вот и скрипты:

файл autopilot_alpha.cs

// rewrited script of airlines
// by AlphaOmega
// [alpha]

{$CLEO .cs}

//-------------MAIN---------------

:start
0000: NOP 

:check
wait 10000

Model.Load(#AT400)
038B: load_requested_models 

:plane
wait 0 
if and
   Model.Available(#AT400)
else_jump @plane

0@ = Car.Create(#AT400, 0.0, 0.0, 500.0)
0175: set_car 0@ Z_angle_to 0.0
08E6: set_plane 0@ landing_gear 0 

/////////////////////////////////////////////////////////////
//0430: put_actor $PLAYER_ACTOR into_car 0@ passenger_seat 0
//0186: 22@ = create_marker_above_car 0@ 
/////////////////////////////////////////////////////////////

1@ = 0
8@ = 41

:nextpath
07C0: load_path 8@

:path
wait 0 
if 
07C1:   path 8@ available 
else_jump @path
054F: clear_car 0@ damage 
05EB: assign_car 0@ to_path 8@
wait 15000

:far
wait 2500
00AA: store_car 0@ position_to 4@ 5@ 6@
if
0031:   6@ >= 50.0
jf @landing
08E6: set_plane 0@ landing_gear 1
jump @far
 
:landing 
08E6: set_plane 0@ landing_gear 0

:nopath
wait 10000
if 
060E:   car 0@ assigned_to_path
jf @changing
jump @nopath

:changing
if 
   not Car.Wrecked(0@)
jf @restart

06C5: release_car 0@ from_path 
0873: release_path 8@
08E6: set_plane 0@ landing_gear 0
0174: 3@ = car 0@ Z_angle
2@ = 0
000A: 1@ += 1

if
0029:   1@ >= 3
jf @rotate
jump @move 
 
:rotate
wait 10
000B: 3@ += 1.0
000A: 2@ += 1
0175: set_car 0@ Z_angle_to 3@

if
0029:   2@ >= 180 
jf @rotate 
wait 5000

jump @next1

:move
2@ = 0
4@ = 2046.304 
5@ = -2492.627 
6@ = 14.0
7@ = 270.0

:drive
wait 5
000A: 2@ += 1
000B: 4@ += 0.127
000B: 5@ += 0.101
000B: 7@ += 0.172
00AB: put_car 0@ at 4@ 5@ 6@
0175: set_car 0@ Z_angle_to 7@
if
0029:   2@ >= 520 
jf @drive  

00AB: put_car 0@ at 2112.690 -2439.955 14.0
0175: set_car 0@ Z_angle_to 0.0
wait 10000
06C5: release_car 0@ from_path 
0873: release_path 8@ 
Car.RemoveReferences(0@)
jump @check
 
:next1
if
0039:   1@ == 1
jf @next2
0006: 8@ = 44
jump @nextpath

:next2
if
0039:   1@ == 2
jf @next3
0006: 8@ = 48
jump @nextpath
 
:next3
1@ = 0
0006: 8@ = 41
jump @nextpath

:restart
06C5: release_car 0@ from_path 
0873: release_path 8@ 
Car.RemoveReferences(0@)
jump @check

файл autopilot_omega.cs

// rewrited script of airlines
// by AlphaOmega
// [omega]

{$CLEO .cs}

//-------------MAIN---------------

:start
0000: NOP 

:check
wait 30000

Model.Load(#AT400)
038B: load_requested_models 

:plane
wait 0 
if and
   Model.Available(#AT400)
else_jump @plane

0@ = Car.Create(#AT400, 0.0, 0.0, 500.0)
0175: set_car 0@ Z_angle_to 0.0
08E6: set_plane 0@ landing_gear 0 

/////////////////////////////////////////////////////////////
//0430: put_actor $PLAYER_ACTOR into_car 0@ passenger_seat 0
//0186: 22@ = create_marker_above_car 0@ 
/////////////////////////////////////////////////////////////

1@ = 0
8@ = 46

:nextpath
07C0: load_path 8@

:path
wait 0 
if 
07C1:   path 8@ available 
else_jump @path
054F: clear_car 0@ damage 
05EB: assign_car 0@ to_path 8@
wait 15000

:far
wait 2500
00AA: store_car 0@ position_to 4@ 5@ 6@
if
0031:   6@ >= 50.0
jf @landing
08E6: set_plane 0@ landing_gear 1
jump @far
 
:landing 
08E6: set_plane 0@ landing_gear 0

:nopath
wait 10000
if 
060E:   car 0@ assigned_to_path
jf @changing
jump @nopath


:changing
if 
   not Car.Wrecked(0@)
jf @restart

06C5: release_car 0@ from_path 
0873: release_path 8@
08E6: set_plane 0@ landing_gear 0
0174: 3@ = car 0@ Z_angle
2@ = 0
000A: 1@ += 1

if
0029:   1@ >= 3
jf @rotate
jump @move 
 
:rotate
wait 10
000B: 3@ += 1.0
000A: 2@ += 1
0175: set_car 0@ Z_angle_to 3@

if
0029:   2@ >= 180 
jf @rotate 
wait 5000

jump @next1

:move

2@ = 0
4@ = 2046.304 
5@ = -2492.627 
6@ = 14.0
7@ = 270.0

:drive
wait 5
000A: 2@ += 1
000B: 4@ += 0.127
000B: 5@ += 0.101
000B: 7@ += 0.172
00AB: put_car 0@ at 4@ 5@ 6@
0175: set_car 0@ Z_angle_to 7@
if
0029:   2@ >= 520 
jf @drive  

00AB: put_car 0@ at 2112.690 -2439.955 14.0
0175: set_car 0@ Z_angle_to 0.0
wait 10000
06C5: release_car 0@ from_path 
0873: release_path 8@ 
Car.RemoveReferences(0@)

jump @check
 
:next1
if
0039:   1@ == 1
jf @next2
0006: 8@ = 43
jump @nextpath

:next2
if
0039:   1@ == 2
jf @next3
0006: 8@ = 49
jump @nextpath
 
:next3
1@ = 0
0006: 8@ = 46
jump @nextpath

:restart
06C5: release_car 0@ from_path 
0873: release_path 8@ 
Car.RemoveReferences(0@)
jump @check

Выкладываю.

О-па, а я и не видел это. Хотя поиск ничего конкретного не давал.

/offtop/ - когда-то на каком-то тёмно синем сайте видел форум, в которой были ПОДРОБНО описаны основные опкоды (например если создавался маркер, то были показаны картинки, какому ID какой маркер идёт) - не подскажешь, где этот сат сейчас?

Как?
Я пытался TXDworkshop`ом добавлять новые текстуры (в effectsPC.txd) и прописывать их (в effects.fxp), но как только гта доходит до них - её вышибает. Думаю с меню будет так же.
Расскажи как ты "безболезненно" добавил в txd 12 штук текстур... мне б одной-двух хватило б

ну так как радар перекрасить в белый и в т.ч. угол атаки самолёта? КЛЕО СКРИПТОМ

32ой в моём коде нужен только чтобы создать, а не ссылать - и работает он замечательно (если в самолёте летишь, то самолёт как порывом ветра сносит когда сиджей загорается). Меня интересует вот эта чать:

02CF: 25@ = create_fire_at 22@ 23@ 24@ propagation 3 size 5
09E5: create_flash_light_at 22@ 23@ 24@ RGB_mask 16383 16383 16383 radius 10.0
04D5: create_corona_at 22@ 23@ 24@ radius 15.0 type 10 flare 10 RGB 4095 4095 4095

22 23 24 - это x y z положения игрока в данный момент (присваивается чуть выше).....

/offtop/ а нельзя ли в след. версии санни сделать столбец, в котором будет показано какие переменные (от 1 до 33) задействованы в скрипте? а то голову сломить мона пока ищешь свободные

Спасибо. Код обновил.
Кстати, если написать их в том виде (с повторами и паузой) то получается прикольный эффект разлетания на части.

Поэтому упомянул это - чтобы кому надо могли убрать эту строку

Кстати, в обновлённом коде, после уничтожения всех машин я прописал появление огня и вспышки, но почему-то при тесте ничего не появляется... почему?