SannyBuilder.com Forums

Полицейские лениво хлебая кофе, вновь выслушивают по рации сообщения о проступках Сиджея. Им это сильно не нравится, и один из копов достает TEC9 из багажника, затем водитель направялется к месту преступления. Коп увидев Сиджи немножко замешкался, заряжая автомат, зарядив автомат, он высунулся из окна и начал стрельбу...

create_thread @CopTurret

:CopTurret
wait 100
model.Load(#TEC9)
038B: load_requested_models

:CopTurretCheck
wait 100
if
Player.WantedLevel($PLAYER_CHAR) > 1
jf @CopTurretCheck

:CopTurret3
while true 
wait 3000
if
model.Available(#TEC9)
jf @CopTurret
03C0: 20@ = actor $PLAYER_ACTOR car
04C4: create_coordinate 1@ 2@ 3@ from_actor $PLAYER_ACTOR offset 60.0 60.0 0.0 
04C4: create_coordinate 4@ 5@ 6@ from_actor $PLAYER_ACTOR offset -60.0 -60.0 0.0 
10@ = -1 
053E: 10@ = get_random_car_with_actors -1 in_area 1@ 2@ 4@ 5@
if
  10@ <> -1
then 
if or
  Car.Id(10@) == #COPCARLA
  Car.Id(10@) == #COPCARRU
  Car.Id(10@) == #COPCARSF
  Car.Id(10@) == #COPCARVG
  Car.Id(10@) == #ENFORCER
then
if
8431: not car 10@ passenger_seat_free 0
then 

:CopTurretMain
wait 100
0432: 11@ = get_actor_handle_from_car 10@ passenger_seat 0 
if
not Car.Wrecked(10@)
then

:CopTurret4
wait 100
01B2: give_actor 11@ weapon 32 ammo 30000 // Load the weapon model before using this 
01B9: set_actor 11@ armed_weapon_to 0 
01B9: set_actor 11@ armed_weapon_to 32
Actor.SetCarWeapon(11@, 32, 200000)

:CopTurret5
wait 700
if 
   not Car.Wrecked(10@)
jf @CopTurret3 
if 
   not Actor.Dead(11@)
jf @CopTurret3
if 
   Actor.Driving(11@)
jf @CopTurret5 
0713: actor 11@ driveby_actor $PLAYER_ACTOR car 20@ point 0.0 0.0 0.0 radius 5000.0 8 1 firing_rate 90
end
end
end
end
end
Car.RemoveReferences(10@)
Actor.RemoveReferences(11@)
jump @CopTurretCheck

ФИНАЛЬНАЯ ВЕРСИЯ
Решена проблема с нехваткой виртуальной памяти.

Озвучка у Рокстара очень даже неплохая.. Предназнaчен в основном для начинающих.

При уровне розыска выше 1 звезды полиция вам постоянно будет предлагать остановиться.

create_thread @PoliceMegafon

:PoliceMegafon
wait 100
if
Player.WantedLevel($PLAYER_CHAR) > 1
jf @PoliceMegafon
03CF: load_wav 15855 as 2
038B: load_requested_models 

:PoliceMegafon2
while true 
wait 6000
04C4: create_coordinate 1@ 2@ 3@ from_actor $PLAYER_ACTOR offset 60.0 60.0 0.0 
04C4: create_coordinate 4@ 5@ 6@ from_actor $PLAYER_ACTOR offset -60.0 -60.0 0.0 
10@ = -1 
053E: 10@ = get_random_car_with_actors -1 in_area 1@ 2@ 4@ 5@
if
  10@ <> -1
then 
if or
  Car.Id(10@) == #COPBIKE
  Car.Id(10@) == #COPCARLA
  Car.Id(10@) == #COPCARRU
  Car.Id(10@) == #COPCARSF
  Car.Id(10@) == #COPCARVG
then

:PoliceMegafon3
wait 200
if
03D0: wav 2 loaded
jf @PoliceMegafon3
0A16: (unknown) 2 10@ 
03D1: play_wav 2

:PoliceMegafon4
wait 100
if 
03D2: wav 2 ended 
jf @PoliceMegafon4

:PoliceMegafon5
wait 100
040D: unload_wav 2
end
end
jump @PoliceMegafon

P.S: Заменены глобальные переменные на локальные.. Исправил

CLEO скрипт (дан ниже)

{$CLEO}

:4523242
wait 100
thread '000'
0000: NOP

:PoliceMegafon
wait 100
if
Player.WantedLevel($PLAYER_CHAR) > 1
jf @PoliceMegafon
03CF: load_wav 15855 as 2
038B: load_requested_models 

:PoliceMegafon2
while true 
wait 500
04C4: create_coordinate 1@ 2@ 3@ from_actor $PLAYER_ACTOR offset 60.0 60.0 0.0 
04C4: create_coordinate 4@ 5@ 6@ from_actor $PLAYER_ACTOR offset -60.0 -60.0 0.0 
10@ = -1 
053E: 10@ = get_random_car_with_actors -1 in_area 1@ 2@ 4@ 5@
if
  10@ <> -1
then 
if or
  Car.Id(10@) == #COPCARLA
  Car.Id(10@) == #COPCARRU
  Car.Id(10@) == #COPCARSF
  Car.Id(10@) == #COPCARVG
then

:PoliceMegafon3
wait 200
if and
056E:   car 10@ defined 
8119:   not car 10@ wrecked 
03D0: wav 2 loaded
jf @PoliceMegafon3
0A16: (unknown) 2 10@ 
03D1: play_wav 2

:PoliceMegafon4
wait 100
if 
03D2: wav 2 ended 
jf @PoliceMegafon4

:PoliceMegafon5
wait 100
040D: unload_wav 2
end
end
jump @PoliceMegafon

EDIT1. Заменены глоб. переменные на локальные.
EDIT2. Уменьшен радиус поиска автомобиля полиции.