SannyBuilder.com Forums

2 CLEO скрипта.

В штате среди муниципалитета ездит одна полиция, данные скрипты должны исправить эту ситуацию.

Первый скрипт отвечает за спавн медицинского транспорта, изображающего усиленную деятельность на благо штата. By jayrocc aka Altman

2-й - за пожарников.

1-скрипт.

// This file was decompiled using sascm.ini published by Seemann (http://sannybuilder.com/files/SASCM.rar) on 13.10.2007

{$VERSION 3.1.0027}
{$CLEO .cs}

//-------------MAIN---------------

0000: NOP

:AMBUL_5
thread 'AMBUL'
wait 0 

:AMBUL_12
wait 500 
if
Player.Defined($PLAYER_CHAR)
jf @AMBUL_12
if
0154: actor $PLAYER_ACTOR in_zone 'SF'
else_jump @AMBUL_13
Model.Load(276)
Model.Load(416)
038B: load_requested_models

:AMBUL_22
wait 200 
if and 
   Model.Available(416)
   Model.Available(276)
else_jump @AMBUL_22
20@ = 276
jump @AMBUL_26

:AMBUL_13
if
0154: actor $PLAYER_ACTOR in_zone 'LA'
else_jump @AMBUL_14
Model.Load(274)
Model.Load(416)
038B: load_requested_models

:AMBUL_23
wait 200 
if and 
   Model.Available(416)
   Model.Available(274)
else_jump @AMBUL_23
20@ = 274
jump @AMBUL_26

:AMBUL_14
if
0154: actor $PLAYER_ACTOR in_zone 'VE'
else_jump @AMBUL_15
Model.Load(275)
Model.Load(416)
038B: load_requested_models

:AMBUL_24
wait 200 
if and 
   Model.Available(416)
   Model.Available(275)
else_jump @AMBUL_24
20@ = 275
jump @AMBUL_26

:AMBUL_15
Model.Load(274)
Model.Load(416)
038B: load_requested_models

:AMBUL_25
wait 200 
if and 
   Model.Available(416)
   Model.Available(274)
else_jump @AMBUL_25
20@ = 274
jump @AMBUL_26

:AMBUL_26 
wait 1000 
0208: 1@ = random_float_in_ranges -90.0 90.0 
0208: 2@ = random_float_in_ranges -90.0 90.0 
04C4: store_coords_to 3@ 4@ 5@ from_actor $PLAYER_ACTOR with_offset 1@ 2@ 0.0 
02C1: store_to 6@ 7@ 8@ car_path_coords_closest_to 3@ 4@ 5@ 
9@ = Car.Create(416, 6@, 7@, 8@)
0129: 12@ = create_actor_pedtype 18 model 20@ in_car 9@ driverseat 
Car.SetDriverBehaviour(9@, FollowRoad)

:AMBUL_186
wait 400 
if or
82CA:   not car 9@ bounding_sphere_visible 
Car.Wrecked(9@)
else_jump @AMBUL_186 
Actor.RemoveReferences(20@)
Car.RemoveReferences(9@)
Model.Destroy(416)
Model.Destroy(274)
Model.Destroy(275)
Model.Destroy(276)
0209: 11@ = random_int 50000 300000
wait 11@ 
jump @AMBUL_12

2-й скрипт.

{$CLEO}

:EMERGACTIVATE
wait 0
thread 'EMERGACTIVATE3'
0000: NOP

:EMERGACTIVATE1
wait 100
if
Player.Defined($PLAYER_CHAR)
jf @EMERGACTIVATE1

:EMERGACTIVATECONTROL
wait 200
while true
gosub @EMERGACTIVATE2
gosub @EMERGACTIVATE3
gosub @EMERGACTIVATE4
end

:EMERGACTIVATE2
wait 200
if 
04A3:   $CURRENT_TOWN_NUMBER == 1 // $ == any 
else_jump @EMERGACTIVATE3
Model.Load(#LAFD1)
Model.Load(#FIRETRUK)
038B: load_requested_models 
wait 100 
if and
   Model.Available(#FIRETRUK)
   Model.Available(#LAFD1)
else_jump @EMERGACTIVATE2 
wait 7000 
0208: 1@ = random_float_in_ranges -90.0 90.0 
0208: 2@ = random_float_in_ranges -90.0 90.0 
04C4: store_coords_to 3@ 4@ 5@ from_actor $PLAYER_ACTOR with_offset 1@ 2@ 0.0 
02C1: store_to 6@ 7@ 8@ car_path_coords_closest_to 3@ 4@ 5@ 
9@ = Car.Create(#FIRETRUK, 6@, 7@, 8@)
0129: 10@ = create_actor_pedtype 18 model #LAFD1 in_car 9@ driverseat 
Car.SetDriverBehaviour(9@, FollowRoad)
00AE: set_car 9@ traffic_behaviour_to 2 
Car.SetSpeedInstantly(9@, 20.0)
Actor.RemoveReferences(10@)
gosub @CHECK_TOWN_1
return

:CHECK_TOWN_1
wait 200
if 
Car.Wrecked(9@)
jf @CHECK_TOWN_1
Model.Destroy(#FIRETRUK)
Model.Destroy(#LAFD1)
wait 100000
return

:EMERGACTIVATE3
wait 200
if 
04A3:   $CURRENT_TOWN_NUMBER == 2 // $ == any 
jf @EMERGACTIVATE4 
Model.Load(#SFFD1)
Model.Load(#FIRETRUK)
038B: load_requested_models 
wait 100 
if and
   Model.Available(#FIRETRUK)
   Model.Available(#SFFD1)
else_jump @EMERGACTIVATE3 
wait 7000 
0208: 1@ = random_float_in_ranges -90.0 90.0 
0208: 2@ = random_float_in_ranges -90.0 90.0 
04C4: store_coords_to 3@ 4@ 5@ from_actor $PLAYER_ACTOR with_offset 1@ 2@ 0.0 
02C1: store_to 6@ 7@ 8@ car_path_coords_closest_to 3@ 4@ 5@ 
9@ = Car.Create(#FIRETRUK, 6@, 7@, 8@)
0129: 10@ = create_actor_pedtype 18 model #SFFD1 in_car 9@ driverseat 
Car.SetDriverBehaviour(9@, FollowRoad)
00AE: set_car 9@ traffic_behaviour_to 2 
Car.SetSpeedInstantly(9@, 20.0)
Actor.RemoveReferences(10@)
gosub @CHECK_TOWN_2
return

:CHECK_TOWN_2
wait 500
if  
Car.Wrecked(9@)
jf @CHECK_TOWN_2
Model.Destroy(#FIRETRUK)
Model.Destroy(#SFFD1)
wait 100000
return

:EMERGACTIVATE4 
wait 200
if 
04A3:   $CURRENT_TOWN_NUMBER == 3 // $ == any 
else_jump @EMERGACTIVATE2 
Model.Load(#LVFD1)
Model.Load(#FIRETRUK)
038B: load_requested_models 
wait 100 
if and
   Model.Available(#FIRETRUK)
   Model.Available(#LVFD1)   
else_jump @EMERGACTIVATE4
wait 7000 
0208: 1@ = random_float_in_ranges -90.0 90.0 
0208: 2@ = random_float_in_ranges -90.0 90.0 
04C4: store_coords_to 3@ 4@ 5@ from_actor $PLAYER_ACTOR with_offset 1@ 2@ 0.0 
02C1: store_to 6@ 7@ 8@ car_path_coords_closest_to 3@ 4@ 5@ 
9@ = Car.Create(#FIRETRUK, 6@, 7@, 8@)
0129: 10@ = create_actor_pedtype 18 model #LVFD1 in_car 9@ driverseat 
Car.SetDriverBehaviour(9@, FollowRoad)
00AE: set_car 9@ traffic_behaviour_to 2 
Car.SetSpeedInstantly(9@, 20.0)
Actor.RemoveReferences(10@)
gosub @CHECK_TOWN_3
return

:CHECK_TOWN_3
wait 200
if 
Car.Wrecked(9@)
jf @CHECK_TOWN_3
Model.Destroy(#FIRETRUK)
Model.Destroy(#LVFD1)
wait 100000
return

Все тестировалось и должно работать.

КОД ПОЖАРНИКОВ ОТРЕДАКТИРОВАН