CLEO SUPERCAR v1.0 demo

Первая демо версия супер машины.
Авто находится рядом с местом где начинается игра, оно неубиваемое.
левая клавиша мыши - миниганы
левый CTRL - бочка
цифра 2 или + - ракеты
ответ НЕТ - очистка хвоста
Пробел или правая кн. мыши - огнемет
Caps Lock - лететь (прыгать)

{$VERSION 3.1.1000}
{$CLEO .cs}

//-------------MAIN---------------
wait 0
thread "SUPER"
wait 0
Model.Load(#URANUS)
Model.Load(#FAM1)
Model.Load(#MINIGUN)
Model.Load(#ROCKETLA)
Model.Load(-254)
Model.Load(-244)
Model.Load(#FLAME)
Model.Load(#TEARGAS)
06E9: load_car_component #EXH_A_U
06E9: load_car_component #FBMP_A_U
06E9: load_car_component #SPL_A_U_B
06E9: load_car_component #WG_L_C_U
038B: load_requested_models

:SUPER_78
wait 0
if and
Model.Available(#URANUS)
Model.Available(#FAM1)
Model.Available(#MINIGUN)
Model.Available(#ROCKETLA)
Model.Available(-254)
Model.Available(-244)
Model.Available(#FLAME)
jf @SUPER_78
if and
06EA: car_component #EXH_A_U available
06EA: car_component #FBMP_A_U available
06EA: car_component #SPL_A_U_B available
06EA: car_component #WG_L_C_U available
jf @SUPER_78
0@ = 2431.907
1@ = -1673.948
2@ = 13.6468
3@ = Car.Create(#URANUS, 2268.002, -1263.585, 23.8168)
06E7: $TUN1 = add_car_component #EXH_A_U to_car 3@
06E7: $TUN2 = add_car_component #FBMP_A_U to_car 3@
06E7: $TUN3 = add_car_component #SPL_A_U_B to_car 3@
06E7: $TUN4 = add_car_component #WG_L_C_U to_car 3@
0229: set_car 3@ primary_color_to 90 secondary_color_to 90
Car.Angle(3@) = 90.0
Car.SetImmunities(3@, 1, 1, 1, 1, 1)
0209: $PAINT = random_int_in_ranges 1 3
09E9: car 3@ set_single_nitro
06ED: set_car 3@ paintjob $PAINT
053F: set_car 3@ tires_vulnerability 0
4@ = Object.Create(-244, 0.0, 0.0, 0.0)
5@ = Object.Create(-244, 0.0, 0.0, 0.0)
0681: attach_object 4@ to_car 3@ with_offset 0.5 0.5 0.0 rotation 90.0 0.0 90.0
0681: attach_object 5@ to_car 3@ with_offset -0.5 0.5 0.0 rotation 270.0 0.0 90.0
6@ = Actor.Create(CivMale, #FAM1, 0.0, 0.0, 0.0)
7@ = Actor.Create(CivMale, #FAM1, 0.0, 0.0, 0.0)
8@ = Actor.Create(CivMale, #FAM1, 0.0, 0.0, 0.0)
9@ = Actor.Create(CivMale, #FAM1, 0.0, 0.0, 0.0)
Actor.SetImmunities(8@, 1, 1, 1, 1, 1)
Actor.SetImmunities(7@, 1, 1, 1, 1, 1)
Actor.SetImmunities(6@, 1, 1, 1, 1, 1)
Actor.SetImmunities(9@, 1, 1, 1, 1, 1)
0464: put_actor 8@ into_turret_on_car 3@ at_car_offset 0.0 0.0 2.0 position 0 shooting_angle_limit 0.0 with_weapon 35
0464: put_actor 7@ into_turret_on_car 3@ at_car_offset -0.9 0.5 0.3 position 0 shooting_angle_limit 0.0 with_weapon 38
0464: put_actor 6@ into_turret_on_car 3@ at_car_offset 0.9 0.5 0.3 position 0 shooting_angle_limit 0.0 with_weapon 38
0464: put_actor 9@ into_turret_on_car 3@ at_car_offset 0.0 2.0 0.0 position 0 shooting_angle_limit 0.0 with_weapon 37
0619: enable_actor 7@ collision_detection 0
0619: enable_actor 6@ collision_detection 0
0337: set_actor 8@ visibility 0
0337: set_actor 7@ visibility 0
0337: set_actor 6@ visibility 0
0337: set_actor 9@ visibility 0

:SUPER_766
wait 0
if and
0495: car 3@ burning
01F4: car 3@ flipped
jf @SUPER_834
0407: store_coords_to $FL $IP $P from_car 3@ with_offset 0.0 0.0 10.0
Car.PutAt(3@, $FL, $IP, $P)

:SUPER_834
wait 0
if and
Actor.InCar($PLAYER_ACTOR, 3@)
00E1: player 0 pressed_key 17
jf @SUPER_955
04C4: store_coords_to $G $U $N from_actor 6@ with_offset 0.0 10.0 -0.2
04C4: store_coords_to $G1 $U1 $N1 from_actor 7@ with_offset 0.0 10.0 -0.2
0668: AS_actor 6@ rotate_and_shoot_at $G $U $N 500 ms
0668: AS_actor 7@ rotate_and_shoot_at $G1 $U1 $N1 500 ms

:SUPER_955
wait 0
if and
00E1: player 0 pressed_key 19
Actor.InCar($PLAYER_ACTOR, 3@)
jf @SUPER_1030
04C4: store_coords_to $G2 $U2 $N2 from_actor 8@ with_offset 0.0 10.0 -0.5
0668: AS_actor 8@ rotate_and_shoot_at $G2 $U2 $N2 500 ms

:SUPER_1030
wait 0
if and
00E1: player 0 pressed_key 6
Actor.InCar($PLAYER_ACTOR, 3@)
jf @SUPER_1105
04C4: store_coords_to $G3 $U3 $N3 from_actor 9@ with_offset 0.0 10.0 0.0
0668: AS_actor 9@ rotate_and_shoot_at $G3 $U3 $N3 500 ms

:SUPER_1105
wait 0
if and
Actor.InCar($PLAYER_ACTOR, 3@)
00E1: player 0 pressed_key 4
jf @SUPER_1313
10@ = Object.Create(-254, 0.0, 0.0, 0.0)
0681: attach_object 10@ to_car 3@ with_offset 0.0 -2.0 0.3 rotation 0.0 90.0 0.0
0682: detach_object 10@ 0.0 0.0 0.0 collision_detection 0
wait 3000
Object.StorePos(10@, $B, $O, $MB)
020C: create_explosion_with_radius 10 at $B $O $MB
wait 10
$MB += 1.0
020C: create_explosion_with_radius 10 at $B $O $MB
wait 10
$MB += 1.0
020C: create_explosion_with_radius 10 at $B $O $MB
Object.Destroy(10@)
Object.RemoveReferences(10@)

:SUPER_1313
wait 0
if and
Actor.InCar($PLAYER_ACTOR, 3@)
00E1: player 0 pressed_key 18
jf @SUPER_1377
07D5: set_car 3@ velocity_in_direction_XYZ 0.0 0.0 0.3 rotation_velocitiesXY 0.0 0.0 unk 0.0

:SUPER_1377
wait 0
if and
00E1: player 0 pressed_key 10
Actor.InCar($PLAYER_ACTOR, 3@)
Player.WantedLevel($PLAYER_CHAR) > 0
jf @SUPER_766
Car.DoorStatus(3@) = 2
064B: 11@ = create_particle "CARWASHSPRAY" at 0.0 0.0 0.0 type 1
064B: 12@ = create_particle "CARWASHSPRAY" at 0.0 0.0 0.0 type 1
066C: 11@ = attach_particle "CARWASHSPRAY" to_car 3@ with_offset 1.0 0.0 0.0 rotation 0.0 90.0 0.0 type 1
066C: 11@ = attach_particle "CARWASHSPRAY" to_car 3@ with_offset -1.0 0.0 0.0 rotation 0.0 270.0 0.0 type 1
064C: make_particle 11@ visible
064C: make_particle 12@ visible
wait 2000
0209: 13@ = random_int_in_ranges 0 126
0209: 14@ = random_int_in_ranges 0 126
0229: set_car 3@ primary_color_to 13@ secondary_color_to 14@
wait 2000
Player.ClearWantedLevel($PLAYER_CHAR)
0650: destroy_particle 11@
0650: destroy_particle 12@
Car.DoorStatus(3@) = 0
jump @SUPER_766



Просмотров: 1459
5.11.2015, 08:48 -

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

Коментарии к CLEO SUPERCAR v1.0 demo: