dim_act 1
dim_frm 2
dim_flt 14
//scriptcamera_mode beta1 GOLOD55 30.03.08
findactor 0,"Tommy"
getactivecamera 0
findframe 1,"Tommy.neck"
vect_set 10,1,1,1

Label 101
commandblock 0
wait 1000
Label 100
commandblock 0
commandblock 1
human_getseatidx 0,0
ctrl_read 1,HORN1
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,
if flt[1]=1,ROTS,-1
vect_set 2,-0.015,0,0
ctrl_read 1,
if flt[1]=1,ROTS,-1
vect_set 2,0,0.025,0
ctrl_read 1,LEFT
if flt[1]=1,ROTS,-1
vect_set 2,0,-0.025,0
ctrl_read 1,RIGHT
if flt[1]=1,ROTS,-1
vect_set 2,0,0,-0.1
ctrl_read 1,
if flt[1]=1,ROTS,-1
vect_set 2,0,0,0.015
ctrl_read 1,
if flt[1]=1,ROTS,-1
vect_set 2,0,0,0.002
ctrl_read 1,FIRE
if flt[1]=1,MOVE,-1
vect_set 2,0,0.001,0
ctrl_read 1,ACTION
if flt[1]=1,MOVE,-1
if flt[1]=1,-1,100
---
label MOVE
frm_getrot 0,05
vect_mul_quat 2,5
frm_getpos 0,05
vect_add_vect 2,5
frm_setpos 0,2
goto 100
---
Label ROTS
vect_mul_scl 2,flt[10]
frm_getrot 0,05
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 75
let flt[10]=1
goto 101