CLEO MEDIC MOD v1.0

Теперь, если у вас меньше 30% жизни, то вы можете вызвать скорую помощь!
Когда она приедет, то вылечит вас всего лишь за каких-то 150 $.

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

Файл medic_call.cs кинуть в папку CLEO
Файл american.gxt кинуть в папку text
Файл fonts.txt кинуть в папку models
Файл fonts.dat кинуть в папку data

Чтобы вызвать скорую помощь, нажмите одновременно "TAB" и "Y"

thread 'MEDIC_CALL' 
$PLAYER_ACTOR = Actor.EmulateFromPlayer($PLAYER_CHAR)
wait 5

:MEDIC_CALL_31
wait 100
$ACTOR_HEALTH = Actor.Health($PLAYER_ACTOR)
if
not $ACTOR_HEALTH >= 30
jf @MEDIC_CALL_31
wait 5
if and
0AB0: key_pressed 9
0AB0: key_pressed 89
jf @MEDIC_CALL_31
Model.Load(#CELLPHONE)
Model.Load(#AMBULAN)
Model.Load(#LAEMT1)
wait 5
0729: AS_actor $PLAYER_ACTOR hold_cellphone 1
wait 2500
00BC: show_text_highpriority GXT 'MED_1' time 1500 flag 1
wait 1500
00BC: show_text_highpriority GXT 'MED_2' time 2000 flag 1
wait 2000
00BC: show_text_highpriority GXT 'MED_3' time 1500 flag 1
wait 1200
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0
0843: get_zone_at 1@ 2@ 3@ nameA_to $ZONE_MED // 8-byte string
wait 300
01E5: show_text_1number_highpriority GXT 'MED_4' number $ZONE_MED time 2000 flag 1
wait 2000
00BC: show_text_highpriority GXT 'MED_5' time 3000 flag 1
wait 3000
00BC: show_text_highpriority GXT 'MED_6' time 1500 flag 1
wait 1500
0729: AS_actor $PLAYER_ACTOR hold_cellphone 0
wait 5
04C4: store_coords_to 4@ 5@ 6@ from_actor $PLAYER_ACTOR with_offset -200.0 -200.0 0.0
02C1: store_to 4@ 5@ 6@ car_path_coords_closest_to 4@ 5@ 6@
wait 5
$MED_CAR = Car.Create(#AMBULAN, 4@, 5@, 6@)
$MED_ACT = Actor.Create(Medic, #LAEMT1, 0.0, 0.0, 0.0)
wait 5
036A: put_actor $MED_ACT in_car $MED_CAR
0397: enable_car $MED_CAR siren 1
wait 5
00AE: set_car $MED_CAR traffic_behaviour_to 2
wait 5

:MEDIC_CALL_432
wait 5
04C4: store_coords_to 7@ 8@ 9@ from_actor $PLAYER_ACTOR with_offset -1.5 -1.5 0.0
wait 5
05D1: AS_actor $MED_ACT drive_car $MED_CAR to 7@ 8@ 9@ speed 50.0 0 model #NULL 0
if and
8449: not actor $PLAYER_ACTOR in_a_car
00F2: actor $MED_ACT near_actor $PLAYER_ACTOR radius 10.0 10.0 0
jf @MEDIC_CALL_432
wait 5
0633: AS_actor $MED_ACT exit_car

:MEDIC_CALL_542
wait 5
04C4: store_coords_to 7@ 8@ 9@ from_actor $PLAYER_ACTOR with_offset -1.5 -1.5 0.0
wait 5
05D3: AS_actor $MED_ACT goto_point 7@ 8@ 9@ mode 4 time 7000 ms // versionA
if and
8449: not actor $PLAYER_ACTOR in_a_car
00F2: actor $MED_ACT near_actor $PLAYER_ACTOR radius 2.0 2.0 0
jf @MEDIC_CALL_542
00BC: show_text_highpriority GXT 'MED_7' time 2000 flag 1
wait 2000
03E5: show_text_box 'MED_8'

:MEDIC_CALL_666
wait 5
if
0AB0: key_pressed 89
jf @MEDIC_CALL_719
03E6: remove_text_box
wait 5
00BC: show_text_highpriority GXT 'MED_10' time 2000 flag 1
wait 2000
jump @MEDIC_CALL_881

:MEDIC_CALL_719
wait 5
if
0AB0: key_pressed 78
jf @MEDIC_CALL_666
03E6: remove_text_box
wait 5
00BC: show_text_highpriority GXT 'MED_9' time 2000 flag 1
wait 2000
00BC: show_text_highpriority GXT 'MED_11' time 2000 flag 1
wait 2000
Player.Money($PLAYER_CHAR) += -1500
wait 5
04C4: store_coords_to 10@ 11@ 12@ from_actor $PLAYER_ACTOR with_offset -1000.5 -1000.5 0.0
wait 5
05D1: AS_actor $MED_ACT drive_car $MED_CAR to 10@ 11@ 12@ speed 50.0 0 model #NULL 0
wait 30000
Car.Destroy($MED_CAR)
Actor.DestroyInstantly($MED_ACT)
jump @MEDIC_CALL_31

:MEDIC_CALL_881
wait 5
Actor.Health($PLAYER_ACTOR) = 500
wait 5
Player.Money($PLAYER_CHAR) += -150
wait 5
00BC: show_text_highpriority GXT 'MED_12' time 2000 flag 1
wait 2000
04C4: store_coords_to 10@ 11@ 12@ from_actor $PLAYER_ACTOR with_offset -1000.5 -1000.5 0.0
wait 5
05D1: AS_actor $MED_ACT drive_car $MED_CAR to 10@ 11@ 12@ speed 50.0 0 model #NULL 0
wait 30000
Car.Destroy($MED_CAR)
Actor.DestroyInstantly($MED_ACT)
jump @MEDIC_CALL_31



Просмотров: 1566
11.11.2013, 14:12 -

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

Коментарии к CLEO MEDIC MOD v1.0: