WINcrash v1 - вылет через лобовое стекло

Мод добавляет новую возможность из gta4 в gtasa - вылет через лобовое стекло, когда врезаешься во что-нибудь на большой скорости. Есть всякие новые фишки, которых нет в подобных модах. Например, при вылете включается замедление времени, а также из головы может потечь кровь при вылете. Ещё в архив добавлены улучшенные и переделанные анимации из мода Ragdoll Style Animations v4.0.

{$VERSION 3.1.1000}
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
thread "SPEDSVULETF"

:SPEDSVULETF_17
wait 10
if
Player.Defined($PLAYER_CHAR)
else_jump @SPEDSVULETF_876
if and
not fading
86B9: not cutscene_data_loaded
else_jump @SPEDSVULETF_876
if and
$ONMISSION == 0
not Actor.DrivingPlane($PLAYER_ACTOR)
not Actor.DrivingPoliceVehicle($PLAYER_ACTOR)
Actor.Driving($PLAYER_ACTOR)
84C8: not actor $PLAYER_ACTOR driving_flying_vehicle
84A9: not actor $PLAYER_ACTOR driving_heli
84A7: not actor $PLAYER_ACTOR driving_boat
not Actor.DrivingPlane($PLAYER_ACTOR)
else_jump @SPEDSVULETF_876
if and
not Actor.DrivingVehicleType($PLAYER_ACTOR, #TRACTOR)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #COMBINE)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #GOLFCLUB)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #KART)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #MOWER)
else_jump @SPEDSVULETF_876
if and
not Actor.DrivingVehicleType($PLAYER_ACTOR, #RHINO)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #LINERUN)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #RHINO)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #LINERUN)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #LEVIATHN)
else_jump @SPEDSVULETF_876
if and
not Actor.DrivingVehicleType($PLAYER_ACTOR, #SWATVAN)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #RHINO)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #LINERUN)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #RHINO)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #LINERUN)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #LEVIATHN)
else_jump @SPEDSVULETF_876
0@ = Actor.CurrentCar($PLAYER_ACTOR)
02E3: 1@ = car 0@ speed
080E: get_actor $PLAYER_ACTOR ped_event_to 10@
$AHHGJGKSEFI = Actor.Health($PLAYER_ACTOR)
if and
1@ >= 15.0
10@ == 73
03C9: car 0@ damaged
$AHHGJGKSEFI >= 35
else_jump @SPEDSVULETF_876
Car.SetMaxSpeed(0@, 0)
Car.SetSpeedInstantly(0@, 0.0)
015D: set_gamespeed 0.7
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 0.0 0.0 0.0
0464: put_actor $PLAYER_ACTOR into_turret_on_car 0@ at_car_offset -0.7 1.5 0.5 position 3 shooting_angle_limit 0.0 with_weapon 0
0605: actor $PLAYER_ACTOR perform_animation "ATM" IFP "PED" framedelta 4.0 loop 0 lockX 1 lockY 1 lockF 0 time 5000
$ST_CAM = 4
0208: $RANDOM_Y_CAM = random_float_in_ranges -1.0 -3.0
005B: $ST_CAM += $RANDOM_Y_CAM // (float)
067B: put_camera_on_car 0@ with_offset -1.5 0.0 1.5 point_to_actor $PLAYER_ACTOR tilt 6.0 2
Camera.SetBehindPlayer
Camera.Restore_WithJumpCut
wait 5
066A: $BLOOD = attach_particle "BLOOD_HELI" to_actor $PLAYER_ACTOR with_offset -0.115 0.216 0.005 rotation 0.0 0.01 0.0 type 1
0883: attach_particle $BLOOD to_actor $PLAYER_ACTOR mode 1
064C: make_particle $BLOOD visible
0465: remove_actor $PLAYER_ACTOR from_turret_mode
0208: $RANDOM_DAMADE = random_float_in_ranges -15.0 -20.0
32@ = Actor.Health($PLAYER_ACTOR)
32@ += -20
Actor.Health($PLAYER_ACTOR) = 32@
wait 1200
Actor.StorePos($PLAYER_ACTOR, $TEMPVAR_FLOAT_1, $TEMPVAR_FLOAT_2, $TEMPVAR_FLOAT_3)
04C4: store_coords_to $TEMPVAR_FLOAT_1 $TEMPVAR_FLOAT_2 $TEMPVAR_FLOAT_3 from_actor $PLAYER_ACTOR with_offset 0.0 -0.3 -0.5
09B8: create_blood_gush_at $TEMPVAR_FLOAT_1 $TEMPVAR_FLOAT_2 $TEMPVAR_FLOAT_3 with_offset 0.0 -0.3 -0.5 density 1400 on_actor $PLAYER_ACTOR
0208: $RANDOM_DAMADE = random_float_in_ranges -5.0 -10.0
04C4: store_coords_to 10@ 11@ 12@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0
04C4: store_coords_to 10@ 11@ 13@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 -2.0
if
06BD: no_obstacles_between 10@ 11@ 12@ and 10@ 11@ 13@ solid 1 car 1 actor 0 object 1 particle 0
else_jump @SPEDSVULETF_824
jump @SPEDSVULETF_847

:SPEDSVULETF_824
32@ = Actor.Health($PLAYER_ACTOR)
32@ += -10
Actor.Health($PLAYER_ACTOR) = 32@

:SPEDSVULETF_847
wait 1200
015D: set_gamespeed 1.0
Car.DoorStatus(0@) = 0
Car.RemoveReferences(0@)
wait 5000

:SPEDSVULETF_876
wait 10
Car.RemoveReferences(0@)
jump @SPEDSVULETF_17



Просмотров: 1394
5.11.2015, 07:55 -

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