Главная страница · Форум · Статьи · Файловый архив
05.06.2026 - Пятница - 06:20
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Моддинг » Скриптинг » Чудик-Трансформер (бугага!)
Чудик-Трансформер
SKV1991Дата: Четверг, 19.07.2007, 21:14 | Сообщение # 1
Ранг: Лейтенант
Группа: Администраторы
Сообщений: 65
Награды: 1
Репутация: 2
Статус: Offline
Ну,давай выкладывать наработки biggrin
Кухня от Мэрдока,профессиональная кухня,пальчики оближешь!


 
Serginio_Thirty_SevenДата: Четверг, 19.07.2007, 21:17 | Сообщение # 2
Ранг: Рядовой
Группа: Главный механик
Сообщений: 2
Награды: 0
Репутация: 2
Статус: Offline
Я согласен
A-Team Leading Mehanic

 
SKV1991Дата: Четверг, 19.07.2007, 23:09 | Сообщение # 3
Ранг: Лейтенант
Группа: Администраторы
Сообщений: 65
Награды: 1
Репутация: 2
Статус: Offline
Во!

Code
:CHUTRAN
wait 0
model.Load(#MONSTERB)
model.Load(3790)
model.Load(2600)
model.Load(2780)     
038B: load_requested_models  
0@ = 304526

:CHUTRAN_2
wait 0
if and
model.Available(#MONSTERB)
model.Available(3790)
model.Available(2600)
model.Available(2780)
&0(0@,1i) == 0xFF
jf @CHUTRAN_2
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 3.0 0.0
0506: set_car_model #MONSTERB next_variation 0 0 // first param is useless  
4@ = Car.Create(#MONSTERB,1@,2@,3@)
$TEMPVAR_ANGLE = Actor.Angle($PLAYER_ACTOR)
$TEMPVAR_ANGLE += 90.0
Car.Angle(4@) = $TEMPVAR_ANGLE
Car.SetImmunities(4@,1,1,1,1,1)
0229: set_car 4@ primary_color_to 6 secondary_color_to 1  
0407: store_coords_to $CHU $DIC $BY from_car 4@ with_offset -0.337 1.566 0.657  
0407: store_coords_to $SER $GIN $IO from_car 4@ with_offset 0.337 1.566 0.657
5@ = Object.Create(3790,0.0,0.0,0.0)
6@ = Object.Create(3790,0.0,0.0,0.0)
7@ = Object.Create(2600,0.0,0.0,0.0)
8@ = Object.Create(2600,0.0,0.0,0.0)
9@ = Object.Create(2780,0.0,0.0,0.0)
0681: attach_object 5@ to_car 4@ with_offset 0.8 -1.1 2.3 rotation 0.0 0.0 270.0
0681: attach_object 6@ to_car 4@ with_offset -0.8 -1.1 2.3 rotation 0.0 0.0 270.0  
0681: attach_object 7@ to_car 4@ with_offset -0.8 -1.1 1.6 rotation 0.0 0.0 180.0
0681: attach_object 8@ to_car 4@ with_offset 0.8 -1.1 1.6 rotation 0.0 0.0 180.0
0681: attach_object 9@ to_car 4@ with_offset 0.0 -2.2 -0.7 rotation 0.0 0.0 0.0
$Page_up = 304476
$Page_down = 304477

:CHUTRAN_3
wait 0
if
Actor.InCar($PLAYER_ACTOR,4@)
jf @CHUTRAN_3
if
&0($Page_up,1i) == 0x00FF0000
jf @CHUTRAN_4
0407: store_coords_to $TEMPVAR_FLOAT_1 $TEMPVAR_FLOAT_2 $TEMPVAR_FLOAT_3 from_car 4@ with_offset 0.0 -4.0 0.0  
020C: create_explosion_with_radius 1 at $TEMPVAR_FLOAT_1 $TEMPVAR_FLOAT_2 $TEMPVAR_FLOAT_3
020C: create_explosion_with_radius 5 at $TEMPVAR_FLOAT_1 $TEMPVAR_FLOAT_2 $TEMPVAR_FLOAT_3
jump @CHUTRAN_3  

:CHUTRAN_4
wait 0
if
Actor.InCar($PLAYER_ACTOR,4@)
jf @CHUTRAN_4
if
&0($Page_down,1i) == 0xFF
jf @CHUTRAN_3
0407: store_coords_to $TEMPVAR_FLOAT_1 $TEMPVAR_FLOAT_2 $TEMPVAR_FLOAT_3 from_car 4@ with_offset 0.0 -4.0 0.0
0948: create_explosion_at $TEMPVAR_FLOAT_1 $TEMPVAR_FLOAT_2 $TEMPVAR_FLOAT_3 type 11 camera_shake 1.0   
0948: create_explosion_at $TEMPVAR_FLOAT_1 $TEMPVAR_FLOAT_2 $TEMPVAR_FLOAT_3 type 11 camera_shake 1.0
jump @CHUTRAN_3
Кухня от Мэрдока,профессиональная кухня,пальчики оближешь!


 
SKV1991Дата: Четверг, 19.07.2007, 23:49 | Сообщение # 4
Ранг: Лейтенант
Группа: Администраторы
Сообщений: 65
Награды: 1
Репутация: 2
Статус: Offline
Вот ещё,тут ещё + 2 тачки

Code
:CHUTRAN
wait 0
model.Load(#MONSTERB)
model.Load(#RDTRAIN)
model.Load(#BUFFALO)
model.Load(3790)
model.Load(2600)
model.Load(2780)     
038B: load_requested_models  
0@ = 304526

:CHUTRAN_1
wait 0
if and
model.Available(#MONSTERB)
model.Available(#RDTRAIN)
model.Available(#BUFFALO)
model.Available(3790)
model.Available(2600)
model.A vailable(2780)
jf @CHUTRAN_1

:CHUTRAN_2
wait 0
if
&0(0@,1i) == 0xFF
jf @CHUTRAN_2
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 3.0 0.0
0506: set_car_model #MONSTERB next_variation 0 0 // first param is useless  
4@ = Car.Create(#MONSTERB,1@,2@,3@)
$TEMPVAR_ANGLE = Actor.Angle($PLAYER_ACTOR)
$TEMPVAR_ANGLE += 90.0
Car.Angle(4@) = $TEMPVAR_ANGLE
Car.SetImmunities(4@,1,1,1,1,1)
0229: set_car 4@ primary_color_to 6 secondary_color_to 1  
0407: store_coords_to $CHU $DIC $BY from_car 4@ with_offset -0.337 1.566 0.657  
0407: store_coords_to $SER $GIN $IO from_car 4@ with_offset 0.337 1.566 0.657
5@ = Object.Create(3790,0.0,0.0,0.0)
6@ = Object.Create(3790,0.0,0.0,0.0)
7@ = Object.Create(2600,0.0,0.0,0.0)
8@ = Object.Create(2600,0.0,0.0,0.0)
0681: attach_object 5@ to_car 4@ with_offset 0.8 -1.1 2.3 rotation 0.0 0.0 270.0
0681: attach_object 6@ to_car 4@ with_offset -0.8 -1.1 2.3 rotation 0.0 0.0 270.0  
0681: attach_object 7@ to_car 4@ with_offset -0.8 -1.1 1.6 rotation 0.0 0.0 180.0
0681: attach_object 8@ to_car 4@ with_offset 0.8 -1.1 1.6 rotation 0.0 0.0 180.0
$key_Page_up = 304476
$key_Page_down = 304477
$key_End = 304476

:CHUTRAN_3
wait 0
if
Actor.InCar($PLAYER_ACTOR,4@)
jf @CHUTRAN_3
if
&0($key_Page_up,1i) == 0x00FF0000
jf @CHUTRAN_4
wait 500
02E3: $TEMPVAR_CAR_SPEED = car 4@ speed  
0407: store_coords_to $TEMPVAR_FLOAT_4 $TEMPVAR_FLOAT_5 $TEMPVAR_FLOAT_6 from_car 4@ with_offset 0.0 0.0 0.0  
020C: create_explosion_with_radius 10 at $TEMPVAR_FLOAT_4 $TEMPVAR_FLOAT_5 $TEMPVAR_FLOAT_6
020C: create_explosion_with_radius 10 at $TEMPVAR_FLOAT_4 $TEMPVAR_FLOAT_5 $TEMPVAR_FLOAT_6
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at $TEMPVAR_FLOAT_4 $TEMPVAR_FLOAT_5 $TEMPVAR_FLOAT_6  
Car.RemoveReferences(4@)
Object.Destroy(5@)
Object.Destroy(6@)
Object.Destroy(7@)
Object.Destroy(8@)
Car.Create(4@,#RDTRAIN,$TEMPVAR_ FLOAT_4, $TEMPVAR_FLOAT_5, $TEMPVAR_FLOAT_6)
Car.SetSpeedInstantly(4@,$TEMPVAR_CAR_SPEED)
0229: set_car 4@ primary_color_to 6 secondary_color_to 1
036A: put_actor $PLAYER_ACTOR in_car 4@  
Car.SetImmunities(4@,1,1,1,1,1)
$TEMPVAR_ANGLE = Actor.Angle($PLAYER_ACTOR)
Car.Angle(4@) = $TEMPVAR_ANGLE
5@ = Object.Create(3790,0.0,0.0,0.0)
6@ = Object.Create(3790,0.0,0.0,0.0)
7@ = Object.Create(2600,0.0,0.0,0.0)
8@ = Object.Create(2600,0.0,0.0,0.0)
0681: attach_object 5@ to_car 4@ with_offset 0.8 -0.2 2.3 rotation 0.0 0.0 270.0
0681: attach_object 6@ to_car 4@ with_offset -0.8 -0.2 2.3 rotation 0.0 0.0 270.0  
0681: attach_object 7@ to_car 4@ with_offset -0.8 -0.2 1.6 rotation 0.0 0.0 180.0
0681: attach_object 8@ to_car 4@ with_offset 0.8 -0.2 1.6 rotation 0.0 0.0 180.0
Camera.Restore_WithJumpCut()
wait 1000
Camera.SetBehindPlayer
jump @CHUTRAN_3  

:CHUTRAN_4
wait 0
if
Actor.InCar($PLAYER_ACTOR,4@)
jf @CHUTRAN_4
if
&0($key_Page_down,1i) == 0xFF
jf @CHUTRAN_5
wait 500
02E3: $TEMPVAR_CAR_SPEED = car 4@ speed  
0407: store_coords_to $TEMPVAR_FLOAT_4 $TEMPVAR_FLOAT_5 $TEMPVAR_FLOAT_6 from_car 4@ with_offset 0.0 0.0 0.0  
020C: create_explosion_with_radius 10 at $TEMPVAR_FLOAT_4 $TEMPVAR_FLOAT_5 $TEMPVAR_FLOAT_6
020C: create_explosion_with_radius 10 at $TEMPVAR_FLOAT_4 $TEMPVAR_FLOAT_5 $TEMPVAR_FLOAT_6
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at $TEMPVAR_FLOAT_4 $TEMPVAR_FLOAT_5 $TEMPVAR_FLOAT_6  
Car.RemoveReferences(4@)
Object.Destroy(5@)
Object.Destroy(6@)
Object.Destroy(7@)
Object.Destroy(8@)
Car.Create(4@,#BUFFALO,$TEMPVAR_ FLOAT_4, $TEMPVAR_FLOAT_5, $TEMPVAR_FLOAT_6)
Car.SetSpeedInstantly(4@,$TEMPVAR_CAR_SPEED)
0229: set_car 4@ primary_color_to 6 secondary_color_to 1
036A: put_actor $PLAYER_ACTOR in_car 4@  
Car.SetImmunities(4@,1,1,1,1,1)
$TEMPVAR_ANGLE = Actor.Angle($PLAYER_ACTOR)
Car.Angle(4@) = $TEMPVAR_ANGLE
5@ = Object.Create(3790,0.0,0.0,0.0)
6@ = Object.Create(3790,0.0,0.0,0.0)
7@ = Object.Create(2600,0.0,0.0,0.0)
8@ = Object.Create(2600,0.0,0.0,0.0)
0681: attach_object 5@ to_car 4@ with_offset 0.6 -0.7 0.8 rotation 0.0 0.0 270.0
0681: attach_object 6@ to_car 4@ with_offset -0.6 -0.7 0.8 rotation 0.0 0.0 270.0  
0681: attach_object 7@ to_car 4@ with_offset -0.8 -1.1 1.6 rotation 0.0 0.0 180.0
0681: attach_object 8@ to_car 4@ with_offset 0.8 -1.1 1.6 rotation 0.0 0.0 180.0
0750: toggle_object 7@ visibility 0  
0750: toggle_object 8@ visibility 0
Camera.Restore_WithJumpCut()
wait 1000
Camera.SetBehindPlayer
jump @CHUTRAN_3

:CHUTRAN_5
wait 0
if
Actor.InCar($PLAYER_ACTOR,4@)
jf @CHUTRAN_5
if
&0($key_End,1i) == 0xFF
jf @CHUTRAN_3
9@ = Object.Create(2780,0.0,0.0,0.0)
0681: attach_object 9@ to_car 4@ with_offset 0.0 -2.2 -0.7 rotation 0.0 0.0 0.0
wait 5000
Object.Destroy(9@)
Object.RemoveReferences(9@)
jump @CHUTRAN_3
Кухня от Мэрдока,профессиональная кухня,пальчики оближешь!


 
SKV1991Дата: Пятница, 20.07.2007, 00:22 | Сообщение # 5
Ранг: Лейтенант
Группа: Администраторы
Сообщений: 65
Награды: 1
Репутация: 2
Статус: Offline
Вот ещё попытка:
Code
:CHUTRAN
wait 0
model.Load(#MONSTERB)
model.Load(#RDTRAIN)
model.Load(#BUFFALO)
model.Load(3790)
model.Load(2600)
model.Load(2780)   
model.Load(6865)   
038B: load_requested_models  
0@ = 304526

:CHUTRAN_1
wait 0
if and
model.Available(#MONSTERB)
model.Available(#RDTRAIN)
model.Available(#BUFFALO)
model.Available(3790)
model.Available(2600)
model.A vailable(2780)
model.Available(6865)
jf @CHUTRAN_1

:CHUTRAN_2
wait 0
if
&0(0@,1i) == 0xFF
jf @CHUTRAN_2
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 3.0 0.0
0506: set_car_model #MONSTERB next_variation 0 0 // first param is useless  
4@ = Car.Create(#MONSTERB,1@,2@,3@)  
10@ = Car.Create(#MONSTERB,1@,2@,3@)
11@ = Car.Create(#MONSTERB,1@,2@,3@)
12@ = Car.Create(#MONSTERB,1@,2@,3@)
036A: put_actor $PLAYER_ACTOR in_car 10@
0683: attach_car 10@ to_car 4@ with_offset 0.0 0.0 4.5 rotation 90.0 0.0 180.0  
0683: attach_car 11@ to_car 4@ with_offset 5.0 0.0 4.5 rotation 180.0 90.0 180.0  
0683: attach_car 12@ to_car 4@ with_offset -5.0 0.0 4.5 rotation 0.0 90.0 90.0  
0715: put_player $PLAYER_CHAR in_RC_mode_in_car 4@ // on foot version  
$TEMPVAR_ANGLE = Actor.Angle($PLAYER_ACTOR)
$TEMPVAR_ANGLE += 90.0
Car.Angle(4@) = $TEMPVAR_ANGLE
Car.SetImmunities(4@,1,1,1,1,1)        //6865
Car.SetImmunities(10@,1,1,1,1,1)
Car.SetImmunities(11@,1,1,1,1,1)
Car.SetImmunities(12@,1,1,1,1,1)
0229: set_car 4@ primary_color_to 6 secondary_color_to 1  
0407: store_coords_to $CHU $DIC $BY from_car 4@ with_offset -0.337 1.566 0.657  
0407: store_coords_to $SER $GIN $IO from_car 4@ with_offset 0.337 1.566 0.657
5@ = Object.Create(3790,0.0,0.0,0.0)
6@ = Object.Create(3790,0.0,0.0,0.0)
7@ = Object.Create(2600,0.0,0.0,0.0)
8@ = Object.Create(2600,0.0,0.0,0.0)
9@ = Object.Create(6865,0.0,0.0,0.0)
0681: attach_object 5@ to_car 4@ with_offset 0.8 -1.1 2.3 rotation 0.0 0.0 270.0
0681: attach_object 6@ to_car 4@ with_offset -0.8 -1.1 2.3 rotation 0.0 0.0 270.0  
0681: attach_object 7@ to_car 4@ with_offset -0.8 -1.1 1.6 rotation 0.0 0.0 180.0
0681: attach_object 8@ to_car 4@ with_offset 0.8 -1.1 1.6 rotation 0.0 0.0 180.0
0681: attach_object 9@ to_car 4@ with_offset 0.0 1.0 7.0 rotation 0.0 0.0 210.0
067A: put_camera_on_car 4@ with_offset 15.0 15.0 10.0 point_to_car 10@ tilt 15.0 2
Кухня от Мэрдока,профессиональная кухня,пальчики оближешь!


 
Форум » Моддинг » Скриптинг » Чудик-Трансформер (бугага!)
  • Страница 1 из 1
  • 1
Поиск:


Copyright SKV1991 © 2007-2026