//free_camera beta1

//сделан ручной фокус зуума. удерживая клавишу SNIPERMODE, настройте зуум. повтор.нажатие выключит зуум.

//F1 = вкл\выкл. скрипткамеру
//LEFT \ RIGHT \ UP \ DOWN = вращение камеры
//LEFT1 \ RIGHT1 = горизонтальная коррекция
//FIRE \ ACTION (лмаус\рмаус) = вперед\назад
//SNIPERMODE = зум камеры. удерживать клаву.

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,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_frm 1
dim_act 1
dim_flt 3
findactor 0, "Tommy"
findframe 0, "Tommy"
let flt[1]=0
policemanager_del "Tommy"

/// was made by **LOQUE** ///

label 1
ctrl_read 0,HORN
if flt[0]=1,2,1

label 2
if flt[1]=0,-1,3
setcompass -1
human_holster 0
frm_seton 0,0
freeride_scoreget 2
freeride_scoreon 0
let flt[1]=1
goto 1

label 3
if flt[1]=1,-1,2
frm_seton 0,1
freeride_scoreon 1
freeride_scoreset flt[2]
let flt[1]=0
goto 1

dim_frm 1
dim_flt 3
findframe 0,"Tommy"

label press_key
ctrl_read 0,HOLSTER
if flt[0]=1,-1,press_key

frm_getpos 0,0
vect_mul_scl 0,1000

freeride_scoreon 1
freeride_scoreset flt[0]
wait 4000
freeride_scoreset flt[1]
wait 4000
freeride_scoreset flt[2]
wait 4000
freeride_scoreon 0
wait 4000
goto press_key

dim_flt 2
dim_act 2
findactor 0, "Tommy"

label press_key
ctrl_read 0, ACTION1
if flt[0]=1, -1, press_key
findnearactor 0, 1, Door
door_getstate 1, 1
if flt[1]=1, -1, press_key2
door_lock 1, 0
door_open 1, 1
label press_key2
door_open 1, 0
goto press_key

dim_act 1
dim_frm 1
findactor 0, "Tommy"

label 1
detector_waitforuse
player_lockcontrols 1
zatmyse 1
wait 500
human_changemodel 0, "На кого меняться.i3d"
policemanager_del "Tommy"
wait 3000
policemanager_add "Tommy"
zatmyse 0
wait 500
player_lockcontrols 0
goto 2
label 2
detector_waitforuse
player_lockcontrols 1
zatmyse 1
wait 500
human_changemodel 0, "Tommy.i3d"
policemanager_del "Tommy"
wait 3000
policemanager_add "Tommy"
zatmyse 0
wait 500
player_lockcontrols 0
goto 1

dim_flt 10
dim_act 10
dim_frm 10

label norm
ctrl_read 1,crouch1
if flt[1]=0,norm,-1
goto 2

label 2
autosavegamefull 5584
goto norm

dim_act 10
dim_flt 10
dim_frm 10
findactor 0, "teloxranitel" - имя телохранителя
findactor 1, "Tommy"
findactor 2, Car
findactor 3, "NULL"
findframe 1, "фрейм1" - фрейм куда гнать машину
findframe 2, "фрейм2" - фрейм куда идти пешком

human_set8slot 0, 3
human_setproperty 0, 9999, Energy
human_setproperty 0, 9999, Intelligence
human_addweapon 0, 10, 50, 9999
human_holster 0
let flt[0]=0
label 1
if flt[0]=1, stopp, -1
let flt[1]=1
enemy_action_follow 1, 1, nonext, crouch, 1
enemy_followplayer yes
let flt[1]=0

label stopp
human_holster 0
setplayerhornevent 0, oborot

goto 1
event use_ab, 10970003
detector_issignal 5, 65, -1
getactorsdist 0, 5, 2
if flt[2] < 5, -1, 65

label 65
event_use_cb 1
if flt[0] = 1, 2, -1
enemy_talk 1, 11990741
enemy_forcescript 0
let flt[0] = 1
return
label 2
enemy_talk 1, 11990731
let flt[0] = 0
return
label go
let flt[0]=0
return
event hit_from_player
event_use_cb 1
return
event enemy_to_ai
event_use_cb 1
enemy_talk 01940071
if flt[1]=1, ret, -1
wait 5000
label ret
human_holster 0
return

event oborot
goto poisk

lebel poisk
findnearactor 0, 2, Car
getactorsdist 0, 2, 2
if flt[2] > 20, poisk, delo

label delo
car_lock_all 2, 1
compareownerwithex 2, 2, poisk, vzlom

label vzlom
enemy_move_to_car 2, 0, walk
enemy_look 2
playsound "carunlock3.wav", -1, 12, 1
enemy_playanim "RalphKradeVelkeAuto.i3d",0
let flt[0]=flt[0]-1
wait flt[0]
car_enableus 2, 1
car_setdooropen 2, 0, 10
wait flt[0]
enemy_usecar 2, 0
car_lock_all 2, 0
iscarusable 2, 0
if flt[0]=0,-1, gon

label gon
human_getowner 0, 3
actorupdateplacement 3
ENEMY_CAR_MOVETO 3, 1, stop
//ENEMY_CAR_ESCAPE 3, 1, 1, -1, 10, 60, 1
goto next

label next
enemy_usecar 2, 0
freeride_scoreadd 3000
wait 1000
setnoanimhit 0, 1
enemy_move_to_frame 2, 0, walk
setnoanimhit 0, 0
human_setproperty 0, 9999, Energy
wait 1000
return

dim_act 2
dim_flt 2
findactor 0, "Tommy"
findactor 1, ""
human_setproperty 1, 9000, Energy
human_addweapon 1, 7, 6, 12
human_holster 1

label 101
wait 4000
goto 101

event use_ab
getenemyaistate 1,0
iffltinrange 0,2,5,120
HUMAN_LOOKTOACTOR 1, 0, 1

//player_lockcontrols 1

gunshop_menu

//player_lockcontrols 0
return
event 1000
label BLBOST
enemy_action_fire 0
goto BLBOST