dim_flt 20
dim_act 20
dim_frm 20
//scriptcamera_mode beta1 GOLOD55 30.03.08
findactor 0,"Tommy"
getactivecamera 0
findframe 1,"Tommy.neck"
vect_set 10,1,1,1
//сделан ручной фокус zoom
//удерживая клавишу SNIPERMODE, настройте zoom
//повторное нажатие выключит zoom
//F1 - вкл\выкл скрипт-камеру
//LEFT \ RIGHT \ UP \ DOWN - вращение камеры
//LEFT1 \ RIGHT1 - горизонтальная коррекция
//FIRE \ ACTION - вперед\назад
//SNIPERMODE - zoom камеры (удерживать клавишу)
Label 101
commandblock 0
wait 1000
Label 100
commandblock 0
commandblock 1
human_getseatidx 0,0
ctrl_read 1,OBJECTIVES
if flt[1]=1,CAM,-1
if flt[11]=-1,-1,100
if flt[0]=-1,-1,INCAR
if flt[9]=1,CAM,-1
---
label INCAR
ctrl_read 1,SNIPERMODE
if flt[1]=1,snip,-1
vect_set 2,0.015,0,0
ctrl_read 1,UP
if flt[1]=1,ROTS,-1
vect_set 2,-0.015,0,0
ctrl_read 1,DOWN
if flt[1]=1,ROTS,-1
vect_set 2,0,0.015,0
ctrl_read 1,LEFT
if flt[1]=1,ROTS,-1
vect_set 2,0,-0.015,0
ctrl_read 1,RIGHT
if flt[1]=1,ROTS,-1
vect_set 2,0,0,-0.015
ctrl_read 1,LEFT1
if flt[1]=1,ROTS,-1
vect_set 2,0,0,0.015
ctrl_read 1,RIGHT1
if flt[1]=1,ROTS,-1
vect_set 2,0,0,0.1
ctrl_read 1,FIRE
if flt[1]=1,MOVE,-1
vect_set 2,0,0,-0.1
ctrl_read 1,ACTION
if flt[1]=1,-1,100
---
label MOVE
frm_getrot 0,5
vect_mul_quat 2,5
frm_getpos 0,5
vect_add_vect 2,5
frm_setpos 0,2
goto 100
---
Label ROTS
vect_mul_scl 2,flt[10]
frm_getrot 0,5
quat_mul_quat 1,5
frm_setrot 0,1
goto 100
---
Label CAM
let flt[11]=-flt[11]
if flt[11]=-1,-1,unlock
camera_lock 1
frm_linkto 0,1
let flt[9]=1
if flt[0]=-1,-1,101
act_setstate 0,inactive
let flt[9]=0
goto 101
---
label snip
let flt[12]=-flt[12]
if flt[12]=-1,-1,unsnip
label zoom
commandblock 0
commandblock 1
ctrl_read 1,SNIPERMODE
if flt[1]=1,-1,100
camera_getfov 13
let flt[13]=flt[13]-0.5
camera_setfov flt[13]
let flt[10]=flt[10]-0.007
if flt[13]<5,101,zoom
---
label unlock
frm_linkto 0,-1
camera_unlock
act_setstate 0,active
label unsnip
camera_setfov 70
let flt[10]=1
goto 101

Код:

dim_act 15 dim_flt 15 dim_frm 15 findactor 0, "" findactor 1, "Tommy" findactor 2, "NULL" findactor 3, "blastcar" findframe 1, "blastcar" findframe 3, "" findframe 4, "blast" ////ну тут всё понятно car_unbreakable 3,1 car_enableus 3,0 car_calm 3 frm_seton 1,0 ////здесь делаем нашу машинку-снаряд обязательно бронированной, неюзабельной и невидимой label 101 compareownerwithex 1,2,101,-1 ctrl_read 2,FIRE if flt[2]=1,-1,101 human_getowner 1,4 getcarlinenumfromtable 4,0 if flt[0]=77,-1,101 human_anyweaponinhand 1,3 if flt[3]=1,101,-1 ////проверяем, находится ли Том в машине 77 (это и есть Black Metal 4WD) ////нажал ли он клавишу "Огонь" и есть ли у него в руках оружие ////все условия соблюдены и собственно далее сам выстрел commandblock 1 policemanager_forcearrest 1,1 ////делаем так, чтобы копы реагировали на выстрел getactorframe 4,2 actor_setplacement 3,2 frm_getpos 1,4 let flt[5]=flt[5]+1.71 frm_setpos 1,4 ////находим фрейм нашего броневика и помещаем в него машинку ////чуть выше на 1.71, иначе снаряд будет вылетать из-под днища emitparticle 1,91 playsound "US.wav",2,30,1,1 car_setspeed 3,2000 commandblock 0 ////добавляем эффект и звук выстрела, придаём снаряду скорость 2000 wait 1000 ////снаряд летит 1 секунду... commandblock 1 actor_setplacement 0,1 actor_setplacement 3,4 car_setspeed 3,0 emitparticle 3,10 explosion 15,1234 ////помещаем наш скрипт во фрейм снаряда ////снаряд убираем на место и обязательно обнуляем его скорость ////эффект взрыва и сам взрыв, мощность можно прописать любую policemanager_forcearrest 1,0 ////а это нужно чтобы полиция не реагировала, если Том больше не стреляет ////иначе после первого выстрела Тома будут пытаться арестовать всё время commandblock 0 wait 1000 goto 101 ////завершаем блок, ждём секунду и идём снова в метку 101