CLEO GTASA Custom Camera v1.2

Режим кастомизации камеры, можно настроить камеру, так как удобно вам. Включается в машине. Благодаря этому моду можно также красиво снимать клипы, но только нужно что-то типа FRAPS.

Управление:
Кнопка CTRL+КАМЕРА (контроль и кнопка, назначенная на смену вида камеры). У меня Ctrl+V (по стандартному)
Отключается просто кнопкой КАМЕРА (или V, если настройки стандартные).

Можно двигать точку просмотра:
CTRL+ВПРАВО - правее
CTRL+ВЛЕВО - левее
CTRL+ВВЕРХ - ближе
CTRL+ВНИЗ - дальше
ALT+ВВЕРХ - выше
ALT+ВНИЗ - ниже
Кнопками 4Num, 8Num, 6Num, 2Num можно поворачивать камеру, но для этого лучше используйте мышку.
При выходе из авто - режим отключается.

Внимание! Не исправлен баг с прицелом, поэтому не носите оружие либо выкиньте его, удерживая клавишу J.
Можете прямо в машине.


CustomCAM.cs

//-------------MAIN---------------
thread 'CAM'

:CAM_11
wait 10
if
Player.Defined($PLAYER_CHAR)
jf @CAM_11
1@ = 0
2@ = 0
0000: NOP
3@ = 0.0
4@ = 0.0
5@ = 0.0

:CAM_77
wait 0
6@ = 0.0
7@ = -0.2
8@ = -0.2
if
Actor.Driving($PLAYER_ACTOR)
jf @CAM_760
if
1@ == 1
jf @CAM_152
jump @CAM_618

:CAM_152
wait 0
$CJ_CAR = Actor.CurrentCar($PLAYER_ACTOR)
077E: get_active_interior_to $ACTIVE_INTERIOR
if and
09E7: player $PLAYER_CHAR not_frozen
$ACTIVE_INTERIOR == 0
not Actor.DrivingVehicleType($PLAYER_ACTOR, #PCJ600)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #FREEWAY)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #SANCHEZ)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #FCR900)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #NRG500)
jf @CAM_77
if and
Player.InRemoteMode($PLAYER_CHAR)
not Actor.DrivingPlane($PLAYER_ACTOR)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #BMX)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #BIKE)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #MTBIKE)
not Actor.DrivingVehicleType($PLAYER_ACTOR, #SWATVAN)
89AE: not actor $PLAYER_ACTOR driving_train
847A: not actor $PLAYER_ACTOR driving_bike
84A7: not actor $PLAYER_ACTOR driving_boat
jf @CAM_77
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)
89AE: not actor $PLAYER_ACTOR driving_train
847A: not actor $PLAYER_ACTOR driving_bike
84A7: not actor $PLAYER_ACTOR driving_boat
jf @CAM_77
if and
not Actor.DrivingVehicleType($PLAYER_ACTOR, #TOPFUN)
Player.Controllable($PLAYER_CHAR)
00E1: player 0 pressed_key 13
0AB0: key_pressed 17
Actor.Driving($PLAYER_ACTOR)
jf @CAM_77
jump @CAM_412

:CAM_412
wait 0
if
056D: actor $ACTOR defined
jf @CAM_439
jump @CAM_516

:CAM_439
$TEST = 1
0407: store_coords_to $X1 $Y1 $Z1 from_car $CJ_CAR with_offset $TEST $TEST $TEST
$ACTOR = Actor.Create(CivMale, #NULL, $X1, $Y1, $Z1)
Actor.SetImmunities($ACTOR, 1, 1, 1, 1, 1)
0337: set_actor $ACTOR visibility 0
0619: enable_actor $ACTOR collision_detection 0

:CAM_516
1@ = 1
0059: 6@ += 3@ // (float)
0059: 7@ += 4@ // (float)
0059: 8@ += 5@ // (float)
0464: put_actor $ACTOR into_turret_on_car $CJ_CAR at_car_offset 6@ 7@ 8@ position 0 shooting_angle_limit 0.0 with_weapon 0
Camera.OnPed($ACTOR, 45, 2)
2@ = 0
if
00E1: player 0 pressed_key 13
jf @CAM_77
wait 500
jump @CAM_77

:CAM_618
if and
80E1: not player 0 pressed_key 5
80E1: not player 0 pressed_key 7
jf @CAM_673
if
2@ == 1
jf @CAM_800
2@ = 0
jump @CAM_412

:CAM_673
if
84C8: not actor $PLAYER_ACTOR driving_flying_vehicle
jf @CAM_77
Camera.Restore
09AD: set_vehicle_camera_mode 0
2@ = 1
jump @CAM_77

:CAM_709
if or
not $ACTIVE_INTERIOR == 0
Car.Wrecked($CJ_CAR)
00E1: player 0 pressed_key 13
wasted_or_busted
jf @CAM_77
Camera.Restore_WithJumpCut
09AD: set_vehicle_camera_mode 2
1@ = 0
jump @CAM_77

:CAM_760
if
1@ == 1
jf @CAM_77
Camera.Restore
09AD: set_vehicle_camera_mode 2
Camera.SetBehindPlayer
1@ = 0
jump @CAM_77

:CAM_800
jump @CAM_807

:CAM_807
if and
0AB0: key_pressed 18
0AB0: key_pressed 38
Actor.Driving($PLAYER_ACTOR)
jf @CAM_848
5@ += 0.05
jump @CAM_412

:CAM_848
if and
0AB0: key_pressed 18
0AB0: key_pressed 40
Actor.Driving($PLAYER_ACTOR)
jf @CAM_889
5@ -= 0.05
jump @CAM_412

:CAM_889
if and
0AB0: key_pressed 17
0AB0: key_pressed 38
Actor.Driving($PLAYER_ACTOR)
jf @CAM_930
4@ += 0.05
jump @CAM_412

:CAM_930
if and
0AB0: key_pressed 17
0AB0: key_pressed 40
Actor.Driving($PLAYER_ACTOR)
jf @CAM_971
4@ -= 0.05
jump @CAM_412

:CAM_971
if and
0AB0: key_pressed 17
0AB0: key_pressed 37
Actor.Driving($PLAYER_ACTOR)
jf @CAM_1012
3@ -= 0.05
jump @CAM_412

:CAM_1012
if and
0AB0: key_pressed 17
0AB0: key_pressed 39
Actor.Driving($PLAYER_ACTOR)
jf @CAM_1053
3@ += 0.05
jump @CAM_412

:CAM_1053
if and
0AB0: key_pressed 17
0AB0: key_pressed 101
Actor.Driving($PLAYER_ACTOR)
jf @CAM_709
9@ = Actor.CurrentCar($PLAYER_ACTOR)
0730: car 9@ damage_door 4
0730: car 9@ damage_door 4
0730: car 9@ damage_door 4
0730: car 9@ damage_door 4
0730: car 9@ damage_door 4
0730: car 9@ damage_door 4
0730: car 9@ damage_door 4
0730: car 9@ damage_door 4
0730: car 9@ damage_door 4
0730: car 9@ damage_door 4
jump @CAM_412


Выкидывание оружия.cs

{$VERSION 3.1.1000}
{$CLEO .cs}

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

:WEAPON_12
wait 0
if
Player.Defined($PLAYER_CHAR)
jf @WEAPON_12
if and
not Actor.Dead($PLAYER_ACTOR)
not fading
84AD: not actor $PLAYER_ACTOR in_water
8A0C: not player $PLAYER_CHAR on_jetpack
Player.Controllable($PLAYER_CHAR)
09E7: player $PLAYER_CHAR not_frozen
80E1: not player 0 pressed_key 6
not Actor.Driving($PLAYER_ACTOR)
jf @WEAPON_12
$KLAVISHAVIKIDA = 304539
if
&0($KLAVISHAVIKIDA,1i) == 255
jf @WEAPON_12
wait 500
$KLAVISHAVIKIDA = 304539
if
&0($KLAVISHAVIKIDA,1i) == 255
jf @WEAPON_12
if
82D8: not actor $PLAYER_ACTOR current_weapon == 0
jf @WEAPON_12
04C4: store_coords_to 10@ 11@ 12@ from_actor $PLAYER_ACTOR with_offset 0.0 2.0 0.0
0470: 0@ = actor $PLAYER_ACTOR current_weapon
041A: 1@ = actor $PLAYER_ACTOR weapon 0@ ammo
0781: get_weapon_with_ID 0@ model_to 2@
0555: remove_weapon 0@ from_actor $PLAYER_ACTOR
032B: 0@ = create_weapon_pickup 2@ type 3 ammo 1@ at 10@ 11@ 12@
wait 650
jump @WEAPON_12



Просмотров: 2633
5.11.2015, 10:33 -

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

Коментарии к CLEO GTASA Custom Camera v1.2: