Код:
{$CLEO .cs}
0000: NOP \\ Чтоб работал весь скрипт
0001: wait 0 ms \\ время перед созданием дороги
\\ Создаю маркер
03BC: 0@ = create_sphere_at 344.1356 1948.1725 13.0038 radius 2.0
\\ Создал маркер
\\ Создаю дорогу
Model.Load(2910)
038B: load_requested_models
:create_road
wait 0
if
Model.Available(2910)
jf @create_road
1@ = Object.Create(2910, 301.6642, 1947.0680, 12.0049)
0453: set_object 1@ XY_rotation 0.0 0.0 angle 270.2737
wait 0
Model.Destroy(2910)
\\ Создал дорогу
0001: wait 0 ms \\ Время перед регистрацией команды
\\ Начало создание команды
repeat
wait 0 ms
until 0AFA: is_samp_available
0B34: samp register_client_command "tproad" to_label @cmdtp
while true
wait 0
end
\\ Конец создания команды
\\ Функция команды
:cmdtp
Actor.PutAt($PLAYER_ACTOR, 301.6642, 1947.0680, 12.1201)
\\ Конец функции команды
\\ Функция маркера
:marker1
wait 0
if
00EC: actor $PLAYER_ACTOR 0 near_point 344.1356 1948.1725 radius 2.0 2.0
jf @cmdtp
Actor.PutAt($PLAYER_ACTOR, 395.4182, 1948.6021, 7.3792)
wait 1500
Actor.PutAt($PLAYER_ACTOR, 461.8143, 1946.3988, 7.3792)
wait 1500
Actor.PutAt($PLAYER_ACTOR, 538.7843, 1942.3604, 0.8302)
wait 1500
Actor.PutAt($PLAYER_ACTOR, 625.1140, 1926.2791, 3.0359)
wait 1500
Actor.PutAt($PLAYER_ACTOR, 705.4528, 1922.1724, 6.6878)
jump @cmdtp
\\ Конец функции маркера
0B43: samp cmd_ret
Когда ввожу /tproad - ГТА зависает, крашится и т.д. Рассписал свой код, чтоб вам было проще его анализировать.