{$CLEO}
wait 0
:START
repeat
wait 0
until gosub @SEARCH
:PROBA
if and
01C1: car 0@ stopped
0203: actor $PLAYER_ACTOR near_car 9@ radius 1.0 1.0 flag 0 on_foot
00E1: key_pressed 0 15
else_jump @PROBA

036A: put_actor $PLAYER_ACTOR in_car 9@
0A93:

:SEARCH // функция поиска поезда
if
0AE2: 0@ = random_vehicle_near_point 0.0 0.0 0.0 in_radius 6000.0 find_next 0 pass_wrecked 1 //IF and SET
then
repeat
0A97: 8@ = car 0@ struct
0A8E: 9@ = 8@ + 1424 // int
0A8D: 9@ = read_memory 9@ size 1 virtual_protect 0
if
9@ == 6 // проверяем, является ли транспорт вагоном поезда
then
0A8E: 9@ = 8@ + 0x5D0 // int
0A8D: 9@ = read_memory 9@ size 4 virtual_protect 0
if
9@ == 0 // проверяем, является ли вагон нулевым в составе
then
078A: 9@ = get_train 0@ carriage 0 handle
if
056E: car 9@ defined // проверяем, существует ли второй вагон в составе
then
if or
0137: car 9@ model == 270
0137: car 9@ model == 289 // проверяем модель локомотива
then
0485: return_true
return
end
end
end
end
until 8AE2: not 0@ = random_vehicle_near_point 0.0 0.0 0.0 in_radius 6000.0 find_next 1 pass_wrecked 1 //IF and SET
end
0@ = -1
8485: return_false
return

{$CLEO}
wait 0
:START
repeat
wait 0
until gosub @SEARCH
model.Load(537)
model.Load(569)
model.Load(590)
038B: load_requested_models

:PROBA
wait 0
if and
Model.Available(537)
Model.Available(569)
Model.Available(590)
else_jump @PROBA

0209: 10@ = random_int_in_ranges 12 16
if and
10@ == 12
10@ == 15
then
06D8: 1@ = create_train_at -338.197 -1202.83 37.483 type 10@ direction 1
06DE: 7@ = get_train 0@ last_carriage_handle
0A97: 2@ = car 7@ struct
0085: 3@ = 2@ // (int)
2@ += 0x5D4
078A: 6@ = get_train 1@ carriage 0 handle
078A: 1@ = get_train 1@ carriage 1 handle
car.Destroy(6@)
0A97: 4@ = car 1@ struct
0085: 5@ = 4@ // (int)
4@ += 0x5D0
0A8C: write_memory 2@ size 4 value 5@ virtual_protect 0
0A8C: write_memory 4@ size 4 value 3@ virtual_protect 0
Model.Destroy(537)
Model.Destroy(569)
Model.Destroy(590)
0A93:
end
:SEARCH
if
0AE2: 0@ = random_vehicle_near_point 0.0 0.0 0.0 in_radius 6000.0 find_next 0 pass_wrecked 1 //IF and SET
then
repeat
0A97: 8@ = car 0@ struct
0A8E: 9@ = 8@ + 1424 // int
0A8D: 9@ = read_memory 9@ size 1 virtual_protect 0
if
9@ == 6
then
0A8E: 9@ = 8@ + 0x5D0 // int
0A8D: 9@ = read_memory 9@ size 4 virtual_protect 0
if
9@ == 0
078A: 9@ = get_train 0@ carriage 2 handle
if
056E: car 9@ defined
then
if or
0137: car 9@ model == 537
0137: car 9@ model == 796
0137: car 9@ model == 3138
then
0485: return_true
return
end
end
end
end
until 8AE2: not 0@ = random_vehicle_near_point 0.0 0.0 0.0 in_radius 6000.0 find_next 1 pass_wrecked 1 //IF and SET
end
0@ = -1
8485: return_false
return

{$CLEO}
wait 0
:START
repeat
wait 0
until gosub @SEARCH
model.Load(537)
model.Load(569)
model.Load(590)
038B: load_requested_models

:PROBA
wait 0
if and
Model.Available(537)
Model.Available(569)
Model.Available(590)
else_jump @PROBA

repeat
0209: 10@ = random_int_in_ranges 11 16
if or
10@ == 12
10@ == 15
then
break
end
until false
0A97: 11@ = car 9@ struct // 9@ - ïåðåìåííàÿ âàãîíà
11@ += 0x5C0
0A8D: 11@ = read_memory 11@ size 1 virtual_protect 0
if
11@ == 2 // ìàðøðóò âàãîíà - tracks2.dat
else_jump @PROBA2

06D8: 1@ = create_train_at 53.0036 1290.4299 18.8232 type 10@ direction 1 // ñîçäà¸ì âòîðîé ïîåçä
jump @PRIZEP

:PROBA2
wait 0
if
11@ == 3 // ìàðøðóò âàãîíà - tracks4.dat
then
06D8: 1@ = create_train_at 54.1672 1294.7997 18.8609 type 10@ direction 1 // ñîçäà¸ì âòîðîé ïîåçä
jump @PRIZEP
end

:PRIZEP
wait 0
06DE: 7@ = get_train 0@ last_carriage_handle // ïîëó÷àåì õýíäë ïîñëåäíåãî âàãîíà ïåðâîãî ïîåçäà
0A97: 2@ = car 7@ struct
0085: 3@ = 2@ // (int)
2@ += 0x5D4
078A: 6@ = get_train 1@ carriage 0 handle
078A: 1@ = get_train 1@ carriage 1 handle // ïîëó÷àåì õýíäë ïåðâîãî âàãîíà âòîðîãî ïîåçäà
car.Destroy(6@) // óäàëÿåì íóëåâîé âàãîí âòîðîãî ïîåçäà
0A97: 4@ = car 1@ struct
0085: 5@ = 4@ // (int)
4@ += 0x5D0
0A8C: write_memory 2@ size 4 value 5@ virtual_protect 0 // ñöåïëÿåì äâà ïîåçäà â îäèí
0A8C: write_memory 4@ size 4 value 3@ virtual_protect 0
Model.Destroy(537)
Model.Destroy(569)
Model.Destroy(590)
0A93:

:SEARCH // ôóíêöèÿ ïîèñêà ïîåçäà
if
0AE2: 0@ = random_vehicle_near_point 0.0 0.0 0.0 in_radius 6000.0 find_next 0 pass_wrecked 1 //IF and SET
then
repeat
0A97: 8@ = car 0@ struct
0A8E: 9@ = 8@ + 1424 // int
0A8D: 9@ = read_memory 9@ size 1 virtual_protect 0
if
9@ == 6 // ïðîâåðÿåì, ÿâëÿåòñÿ ëè òðàíñïîðò âàãîíîì ïîåçäà
then
0A8E: 9@ = 8@ + 0x5D0 // int
0A8D: 9@ = read_memory 9@ size 4 virtual_protect 0
if
9@ == 0 // ïðîâåðÿåì, ÿâëÿåòñÿ ëè âàãîí íóëåâûì â ñîñòàâå
then
078A: 9@ = get_train 0@ carriage 2 handle
if
056E: car 9@ defined // ïðîâåðÿåì, ñóùåñòâóåò ëè âòîðîé âàãîí â ñîñòàâå
then
if or
0137: car 9@ model == 537 // ïðîâåðÿåì ìîäåëü âòîðîãî âàãîíà
0137: car 9@ model == 796
0137: car 9@ model == 3138
then
0485: return_true
return
end
end
end
end
until 8AE2: not 0@ = random_vehicle_near_point 0.0 0.0 0.0 in_radius 6000.0 find_next 1 pass_wrecked 1 //IF and SET
end
0@ = -1
8485: return_false
return

{$CLEO}
wait 0
while true
wait 0
if
not player.defined($player_char)
then
continue
end
if and
not actor.Driving($PLAYER_ACTOR)
0AB0: key 35 pressed
then
0AB5: store_actor $PLAYER_ACTOR closest_vehicle_to 1@ closest_ped_to 2@
if or
1@ == 270
1@ == 289
then
046C: 2@ = car 1@ driver
if
056D: actor 2@ defined
then
009B: destroy_actor 2@
end
036A: put_actor $PLAYER_ACTOR in_car 1@
end
end
end

{$CLEO}
wait 0
:START
repeat
wait 0
until gosub @SEARCH
model.Load(537)
model.Load(569)
model.Load(590)
model.Load(1326)
model.Load(1573)
model.Load(1699)
model.Load(2883)
model.Lo ad(2884)
model.Load(999)
model.Load(965)
model.Load(909)
model.Load(793)
model.Load(794)
model.Load(797)
model.Load(798)
model.Load( 799)
model.Load(907)
model.Load(908)
model.Load(5)
model.Load(6)
038B: load_requested_models

repeat
0209: 10@ = random_int_in_ranges 11 16
if or
10@ == 12
10@ == 15
then
break
end
until false
0A97: 11@ = car 9@ struct // 9@ - переменная вагона
11@ += 0x5C0
0A8D: 11@ = read_memory 11@ size 1 virtual_protect 0
if
11@ == 2 //маршрут поезда - tracks2.dat
then
06D8: 1@ = create_train_at 53.0036 1290.4299 18.8232 type 10@ direction 1 //создаём 2й поезд на внутреннем пути
else //если 11@ не равно 2
06D8: 1@ = create_train_at 54.1672 1294.7997 18.8609 type 10@ direction 1 //создаём 2й поезд на внешнем пути
end
06DE: 7@ = get_train 0@ last_carriage_handle // получаем хэндл последнего вагона первого поезда
0A97: 2@ = car 7@ struct
0085: 3@ = 2@ // (int)
2@ += 0x5D4
078A: 6@ = get_train 1@ carriage 0 handle
078A: 1@ = get_train 1@ carriage 1 handle // получаем хэндл первого вагона второго поезда
car.Destroy(6@) // удаляем нулевой вагон второго поезда
0A97: 4@ = car 1@ struct
0085: 5@ = 4@ // (int)
4@ += 0x5D0
0A8C: write_memory 2@ size 4 value 5@ virtual_protect 0 // сцепляем два поезда в один
0A8C: write_memory 4@ size 4 value 3@ virtual_protect 0
Model.Destroy(537)
Model.Destroy(569)
Model.Destroy(590)
Model.Destroy(1326)
Model.Destroy(1573)
Model.Destroy(1699)
Model.Destroy( 2883)
Model.Destroy(2884)
Model.Destroy(999)
Model.Destroy(965)
Model.Destroy(909)
Model.Destroy(793)
Model.Destroy(794)
Model.Destro y(797)
Model.Destroy(798)
Model.Destroy(799)
Model.Destroy(907)
Model.Destroy(908)
Model.Destroy(5)
Model.Destroy(6)
0A93:

:SEARCH // функция поиска поезда
if
0AE2: 0@ = random_vehicle_near_point 0.0 0.0 0.0 in_radius 6000.0 find_next 0 pass_wrecked 1 //IF and SET
then
repeat
0A97: 8@ = car 0@ struct
0A8E: 9@ = 8@ + 1424 // int
0A8D: 9@ = read_memory 9@ size 1 virtual_protect 0
if
9@ == 6 // проверяем, является ли транспорт вагоном поезда
then
0A8E: 9@ = 8@ + 0x5D0 // int
0A8D: 9@ = read_memory 9@ size 4 virtual_protect 0
if
9@ == 0 // проверяем, является ли вагон нулевым в составе
then
078A: 9@ = get_train 0@ carriage 2 handle
if
056E: car 9@ defined // проверяем, существует ли второй вагон в составе
then
if or
0137: car 9@ model == 537 // проверяем модель второго вагона
0137: car 9@ model == 796
0137: car 9@ model == 3138
then
0485: return_true
return
end
end
end
end
until 8AE2: not 0@ = random_vehicle_near_point 0.0 0.0 0.0 in_radius 6000.0 find_next 1 pass_wrecked 1 //IF and SET
end
0@ = -1
8485: return_false
return

:GANGS
wait 0
if
player.Defined($PLAYER_CHAR)
jf @GANGS
0746: set_acquaintance 4 of_actors_pedtype 8 to_actors_pedtype 7 // see ped.dat
0746: set_acquaintance 4 of_actors_pedtype 7 to_actors_pedtype 8 // see ped.dat
0746: set_acquaintance 1 of_actors_pedtype 8 to_actors_pedtype 8 // see ped.dat
0746: set_acquaintance 1 of_actors_pedtype 7 to_actors_pedtype 7 // see ped.dat
0746: set_acquaintance 4 of_actors_pedtype 7 to_actors_pedtype 12 // see ped.dat
0746: set_acquaintance 4 of_actors_pedtype 12 to_actors_pedtype 7 // see ped.dat
0746: set_acquaintance 1 of_actors_pedtype 8 to_actors_pedtype 12 // see ped.dat
0746: set_acquaintance 1 of_actors_pedtype 12 to_actors_pedtype 8 // see ped.dat
0746: set_acquaintance 1 of_actors_pedtype 12 to_actors_pedtype 12 // see ped.dat
0746: set_acquaintance 1 of_actors_pedtype 8 to_actors_pedtype 0 // see ped.dat
0746: set_acquaintance 1 of_actors_pedtype 12 to_actors_pedtype 0 // see ped.dat
0746: set_acquaintance 1 of_actors_pedtype 10 to_actors_pedtype 0 // see ped.dat
0746: set_acquaintance 1 of_actors_pedtype 10 to_actors_pedtype 10 // see ped.dat
0746: set_acquaintance 1 of_actors_pedtype 10 to_actors_pedtype 8 // see ped.dat
0746: set_acquaintance 1 of_actors_pedtype 10 to_actors_pedtype 12 // see ped.dat
0746: set_acquaintance 4 of_actors_pedtype 10 to_actors_pedtype 7 // see ped.dat
08CA: reset_zones_info
0767: set_zone 'LA' popcycle_group_for_peds_and_cars_to 7
076C: set_zone 'LA' gang 1 density_to 40
08EA: enable_gangs_spawn 1
08A3: update_respect_while_on_mission 1
0879: enable_gang_wars 1
090D: highlight_all_inactive_gang_zones_as_available_for_gangwars
end_thread