CLEO COP MOD v0.9

Теперь в мультиплеере можно запустить копов-ботов!
Они будут гоняться за вами по всему штату San Andreas
И если поймают, то вылезут из тач и будут палить из M4

----------Установка:---------------------

Файл samp_bot.cs скопировать в папку CLEO

Для запуска скрипка, нажмите в игре " Insert + NUM+ "
Чтобы выключить ботов, нажмите в игре " Insert + NUM- "

//-------------MAIN---------------
thread 'NFS_UC'
$PLAYER_ACTOR = Actor.EmulateFromPlayer($PLAYER_CHAR)
Model.Load(#COPCARLA)
Model.Load(#LAPD1)
Model.Load(#M4)

:NFS_UC_34
wait 3
if and
0AB0: key_pressed 45
0AB0: key_pressed 107
else_jump @NFS_UC_34
01EB: set_traffic_density_multiplier_to 50.0
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 50.0 200.0 0.0
02C1: store_to 1@ 2@ 3@ car_path_coords_closest_to 1@ 2@ 3@
wait 5
04C4: store_coords_to 4@ 5@ 6@ from_actor $PLAYER_ACTOR with_offset -50.0 200.0 0.0
02C1: store_to 4@ 5@ 6@ car_path_coords_closest_to 4@ 5@ 6@
wait 5
04C4: store_coords_to 11@ 21@ 31@ from_actor $PLAYER_ACTOR with_offset 50.0 -200.0 0.0
02C1: store_to 11@ 21@ 31@ car_path_coords_closest_to 11@ 21@ 31@
wait 5
04C4: store_coords_to 24@ 25@ 26@ from_actor $PLAYER_ACTOR with_offset -50.0 -20.0 0.0
02C1: store_to 24@ 25@ 6@ car_path_coords_closest_to 24@ 25@ 26@
04C4: store_coords_to 7@ 8@ 9@ from_actor $PLAYER_ACTOR with_offset 50.0 50.0 0.0
02C1: store_to 7@ 8@ 9@ car_path_coords_closest_to 7@ 8@ 9@
04C4: store_coords_to 10@ 12@ 14@ from_actor $PLAYER_ACTOR with_offset 100.0 -100.0 0.0
02C1: store_to 10@ 12@ 14@ car_path_coords_closest_to 10@ 12@ 14@
wait 5
$CAR_1 = Car.Create(#COPCARLA, 1@, 2@, 3@)
$CAR_2 = Car.Create(#COPCARLA, 4@, 5@, 6@)
$CAR_3 = Car.Create(#COPCARLA, 11@, 21@, 31@)
$CAR_4 = Car.Create(#COPCARLA, 24@, 25@, 26@)
$CAR_5 = Car.Create(#COPCARLA, 7@, 8@, 9@)
$CAR_6 = Car.Create(#COPCARLA, 10@, 12@, 14@)
wait 5
$AC_1 = Actor.Create(Mission2, #LAPD1, 0.0, 0.0, 0.0)
$AC_2 = Actor.Create(Mission2, #LAPD1, 0.0, 0.0, 0.0)
$AC_3 = Actor.Create(Mission2, #LAPD1, 0.0, 0.0, 0.0)
$AC_4 = Actor.Create(Mission2, #LAPD1, 0.0, 0.0, 0.0)
$AC_5 = Actor.Create(Mission2, #LAPD1, 0.0, 0.0, 0.0)
$AC_6 = Actor.Create(Mission2, #LAPD1, 0.0, 0.0, 0.0)
wait 5
036A: put_actor $AC_1 in_car $CAR_1
036A: put_actor $AC_2 in_car $CAR_2
036A: put_actor $AC_3 in_car $CAR_3
036A: put_actor $AC_4 in_car $CAR_4
036A: put_actor $AC_5 in_car $CAR_5
036A: put_actor $AC_6 in_car $CAR_6
wait 5
0397: enable_car $CAR_1 siren 1
0397: enable_car $CAR_2 siren 1
0397: enable_car $CAR_3 siren 1
0397: enable_car $CAR_4 siren 1
0397: enable_car $CAR_5 siren 1
0397: enable_car $CAR_6 siren 1
wait 5
Car.SetImmunities($CAR_1, 1, 1, 1, 1, 1)
Car.SetImmunities($CAR_2, 1, 1, 1, 1, 1)
Car.SetImmunities($CAR_3, 1, 1, 1, 1, 1)
Car.SetImmunities($CAR_4, 1, 1, 1, 1, 1)
Car.SetImmunities($CAR_5, 1, 1, 1, 1, 1)
Car.SetImmunities($CAR_6, 1, 1, 1, 1, 1)
wait 5
00AE: set_car $CAR_1 traffic_behaviour_to 2
00AE: set_car $CAR_2 traffic_behaviour_to 2
00AE: set_car $CAR_3 traffic_behaviour_to 2
00AE: set_car $CAR_4 traffic_behaviour_to 2
00AE: set_car $CAR_5 traffic_behaviour_to 2
00AE: set_car $CAR_6 traffic_behaviour_to 2
wait 5
0423: set_car $CAR_1 improved_handling_to 1.0 // (float)
0423: set_car $CAR_2 improved_handling_to 1.0 // (float)
0423: set_car $CAR_3 improved_handling_to 1.0 // (float)
0423: set_car $CAR_4 improved_handling_to 1.0 // (float)
0423: set_car $CAR_5 improved_handling_to 1.0 // (float)
0423: set_car $CAR_6 improved_handling_to 1.0 // (float)
wait 5
$MARK_1 = Marker.CreateAboveCar($CAR_1)
$MARK_2 = Marker.CreateAboveCar($CAR_2)
$MARK_3 = Marker.CreateAboveCar($CAR_3)
$MARK_4 = Marker.CreateAboveCar($CAR_4)
$MARK_5 = Marker.CreateAboveCar($CAR_5)
$MARK_6 = Marker.CreateAboveCar($CAR_6)
wait 5
Car.SetMaxSpeed($CAR_1, 70.0)
Car.SetMaxSpeed($CAR_2, 70.0)
Car.SetMaxSpeed($CAR_3, 70.0)
Car.SetMaxSpeed($CAR_4, 70.0)
Car.SetMaxSpeed($CAR_5, 70.0)
Car.SetMaxSpeed($CAR_6, 70.0)
wait 5
Car.DoorStatus($CAR_1) = 0
Car.DoorStatus($CAR_2) = 0
Car.DoorStatus($CAR_3) = 0
Car.DoorStatus($CAR_4) = 0
Car.DoorStatus($CAR_5) = 0
Car.DoorStatus($CAR_6) = 0
wait 5
02CA: car $CAR_1 bounding_sphere_visible
02CA: car $CAR_2 bounding_sphere_visible
02CA: car $CAR_3 bounding_sphere_visible
02CA: car $CAR_4 bounding_sphere_visible
02CA: car $CAR_5 bounding_sphere_visible
02CA: car $CAR_6 bounding_sphere_visible
wait 5
087E: set_actor $AC_1 weapon_droppable 0
087E: set_actor $AC_2 weapon_droppable 0
087E: set_actor $AC_3 weapon_droppable 0
087E: set_actor $AC_4 weapon_droppable 0
087E: set_actor $AC_5 weapon_droppable 0
087E: set_actor $AC_6 weapon_droppable 0

:NFS_UC_1174
wait 0
04C4: store_coords_to $X $Y $Z from_actor $PLAYER_ACTOR with_offset 1.5 1.5 0.0
Car.DriveTo($CAR_1, $X, $Y, $Z)
Car.DriveTo($CAR_2, $X, $Y, $Z)
Car.DriveTo($CAR_3, $X, $Y, $Z)
Car.DriveTo($CAR_4, $X, $Y, $Z)
Car.DriveTo($CAR_5, $X, $Y, $Z)
Car.DriveTo($CAR_6, $X, $Y, $Z)
if and
0AB0: key_pressed 45
0AB0: key_pressed 109
else_jump @NFS_UC_1415
wait 5
Car.Destroy($CAR_1)
Car.Destroy($CAR_2)
Car.Destroy($CAR_3)
Car.Destroy($CAR_4)
Car.Destroy($CAR_5)
Car.Destroy($CAR_6)
Marker.Disable($MARK_1)
Marker.Disable($MARK_2)
Marker.Disable($MARK_3)
Marker.Disable($MARK_4)
Marker.Disable($MARK_5)
Marker.Disable($MARK_6)
Actor.DestroyInstantly($AC_1)
Actor.DestroyInstantly($AC_2)
Actor.DestroyInstantly($AC_3)
Actor.DestroyInstantly($AC_4)
Actor.DestroyInstantly($AC_5)
Actor.DestroyInstantly($AC_6)
wait 5
jump @NFS_UC_34

:NFS_UC_1415
wait 5
if
wait 200
Actor.Stopped($PLAYER_ACTOR)
else_jump @NFS_UC_1568
if and
not Actor.Dead($AC_1)
00F2: actor $AC_1 near_actor $PLAYER_ACTOR radius 25.0 25.0 0
else_jump @NFS_UC_1568
0633: AS_actor $AC_1 exit_car
wait 5
Car.SetMaxSpeed($CAR_1, 0.0)
wait 5
Marker.Disable($MARK_1)
wait 5
Car.LockInCurrentPosition($CAR_1) = True
wait 5
Model.Load(#M4)
wait 5
Actor.GiveWeaponAndAmmo($AC_1, M4, 2000)
wait 5
01B9: set_actor $AC_1 armed_weapon_to 31
wait 5
05E2: AS_actor $AC_1 kill_actor $PLAYER_ACTOR
jump @NFS_UC_1568

:NFS_UC_1568
wait 5
if
wait 200
Actor.Stopped($PLAYER_ACTOR)
else_jump @NFS_UC_1721
if and
not Actor.Dead($AC_2)
00F2: actor $AC_2 near_actor $PLAYER_ACTOR radius 25.0 25.0 0
else_jump @NFS_UC_1721
0633: AS_actor $AC_2 exit_car
wait 5
Car.SetMaxSpeed($CAR_2, 0.0)
wait 5
Marker.Disable($MARK_2)
wait 5
Car.LockInCurrentPosition($CAR_2) = True
wait 5
Model.Load(#M4)
wait 5
Actor.GiveWeaponAndAmmo($AC_2, M4, 2000)
wait 5
01B9: set_actor $AC_2 armed_weapon_to 31
wait 5
05E2: AS_actor $AC_2 kill_actor $PLAYER_ACTOR
jump @NFS_UC_1721

:NFS_UC_1721
wait 5
if
wait 200
Actor.Stopped($PLAYER_ACTOR)
else_jump @NFS_UC_1874
if and
not Actor.Dead($AC_3)
00F2: actor $AC_3 near_actor $PLAYER_ACTOR radius 25.0 25.0 0
else_jump @NFS_UC_1874
0633: AS_actor $AC_3 exit_car
wait 5
Car.SetMaxSpeed($CAR_3, 0.0)
wait 5
Marker.Disable($MARK_3)
wait 5
Car.LockInCurrentPosition($CAR_3) = True
wait 5
Model.Load(#M4)
wait 5
Actor.GiveWeaponAndAmmo($AC_3, M4, 2000)
wait 5
01B9: set_actor $AC_3 armed_weapon_to 31
wait 5
05E2: AS_actor $AC_3 kill_actor $PLAYER_ACTOR
jump @NFS_UC_1874

:NFS_UC_1874
wait 5
if
wait 200
Actor.Stopped($PLAYER_ACTOR)
else_jump @NFS_UC_2027
if and
not Actor.Dead($AC_4)
00F2: actor $AC_4 near_actor $PLAYER_ACTOR radius 25.0 25.0 0
else_jump @NFS_UC_2027
0633: AS_actor $AC_4 exit_car
wait 5
Car.SetMaxSpeed($CAR_4, 0.0)
wait 5
Marker.Disable($MARK_4)
wait 5
Car.LockInCurrentPosition($CAR_4) = True
wait 5
Model.Load(#M4)
wait 5
Actor.GiveWeaponAndAmmo($AC_4, M4, 2000)
wait 5
01B9: set_actor $AC_4 armed_weapon_to 31
wait 5
05E2: AS_actor $AC_4 kill_actor $PLAYER_ACTOR
jump @NFS_UC_2027

:NFS_UC_2027
wait 5
if
wait 200
Actor.Stopped($PLAYER_ACTOR)
else_jump @NFS_UC_2180
if and
not Actor.Dead($AC_5)
00F2: actor $AC_5 near_actor $PLAYER_ACTOR radius 25.0 25.0 0
else_jump @NFS_UC_2180
0633: AS_actor $AC_5 exit_car
wait 5
Car.SetMaxSpeed($CAR_5, 0.0)
wait 5
Marker.Disable($MARK_5)
wait 5
Car.LockInCurrentPosition($CAR_5) = True
wait 5
Model.Load(#M4)
wait 5
Actor.GiveWeaponAndAmmo($AC_5, M4, 2000)
wait 5
01B9: set_actor $AC_5 armed_weapon_to 31
wait 5
05E2: AS_actor $AC_5 kill_actor $PLAYER_ACTOR
jump @NFS_UC_2180

:NFS_UC_2180
wait 5
if
wait 200
Actor.Stopped($PLAYER_ACTOR)
else_jump @NFS_UC_2333
if and
not Actor.Dead($AC_6)
00F2: actor $AC_6 near_actor $PLAYER_ACTOR radius 25.0 25.0 0
else_jump @NFS_UC_2333
0633: AS_actor $AC_6 exit_car
wait 5
Car.SetMaxSpeed($CAR_6, 0.0)
wait 5
Marker.Disable($MARK_6)
wait 5
Car.LockInCurrentPosition($CAR_6) = True
wait 5
Model.Load(#M4)
wait 5
Actor.GiveWeaponAndAmmo($AC_6, M4, 2000)
wait 5
01B9: set_actor $AC_6 armed_weapon_to 31
wait 5
05E2: AS_actor $AC_6 kill_actor $PLAYER_ACTOR
jump @NFS_UC_2333

:NFS_UC_2333
wait 5
if
Actor.Dead($PLAYER_ACTOR)
else_jump @NFS_UC_1174
wait 5000
Car.Destroy($CAR_1)
Car.Destroy($CAR_2)
Car.Destroy($CAR_3)
Car.Destroy($CAR_4)
Car.Destroy($CAR_5)
Car.Destroy($CAR_6)
Marker.Disable($MARK_1)
Marker.Disable($MARK_2)
Marker.Disable($MARK_3)
Marker.Disable($MARK_4)
Marker.Disable($MARK_5)
Marker.Disable($MARK_6)
Actor.DestroyInstantly($AC_1)
Actor.DestroyInstantly($AC_2)
Actor.DestroyInstantly($AC_3)
Actor.DestroyInstantly($AC_4)
Actor.DestroyInstantly($AC_5)
Actor.DestroyInstantly($AC_6)
wait 5
jump @NFS_UC_34
Скриншоты:
CLEO COP MOD v0.9



Просмотров: 1693
11.11.2013, 14:09 -

Категория: Grand Theft Auto: San Andreas » Скрипты для Grand Theft Auto: San Andreas » CLEO скрипты для Grand Theft Auto: San Andreas

Коментарии к CLEO COP MOD v0.9: