#1 Re: Sanny Builder и CLEO » CLEO для GTA Vice City » 05-04-2019 19:53

Здравствуйте, решил я кое-что интересное сделать, базу выживших, вот создал пару человек с оружием. Но, вот мне интересно, как там всё правильно настроить, чтобы, когда игрок стрелял, они не агрились и тоже не стреляли, если что, вот код:

:Surv1
thread 'Surv1'

:Surv1_1
wait 0
if and
Player.Defined(0)
not wasted_or_busted
00F5:   player $PLAYER_CHAR 0 -984.6564 -568.8753 11.2097 radius 200.0 200.0 200.0
jf @Surv1_1

:Surv1_2
Model.Load(#ARMY)
Model.Load(#MALE01)
Model.Load(#M4)
Model.Load(#SNIPER)
038B: load_requested_models

:Surv1_3
wait 0
if and
Model.Available(#ARMY)
Model.Available(#MALE01)
Model.Available(#M4)
Model.Available(#SNIPER)
jf @Surv1_3
Actor.Create($SUR1, CivMale, #ARMY, -898.8752, -550.2214, 22.4789)
Actor.Angle($SUR1) = 98.9238
Actor.Create($SUR2, CivMale, #MALE01, -935.8588, -518.7619, 27.9093)
Actor.Angle($SUR2) = 86.1648
Actor.Health($SUR1) = 300
Actor.Health($SUR2) = 300
01B2: give_actor $SUR1 weapon 26 ammo 320
02E2: set_actor $SUR1 weapon_accuracy_to 80
0350: set_actor $SUR1 maintain_position_when_attacked 1
01B2: give_actor $SUR2 weapon 28 ammo 90
02E2: set_actor $SUR2 weapon_accuracy_to 85
0350: set_actor $SUR2 maintain_position_when_attacked 1
Model.Destroy(#ARMY)
Model.Destroy(#MALE01)
Model.Destroy(#M4)
Model.Destroy(#SNIPER)

:Surv1_4
wait 0
if and
Actor.Dead($SUR1)
Actor.Dead($SUR2)
jf @Surv1_4
Actor.RemoveReferences($SUR1)
Actor.RemoveReferences($SUR2)
jump @Surv1_1

Я просто очень давно пытаюсь это всё хорошо настроить и оптимизировать. Даже была идея, чтобы игрок мог захватывать базы
Но, там были кое-какие проблемы и я отказался

#2 Re: Вопросы по скриптингу » Зомби мод » 22-11-2018 09:14

Осталось улучшить код, и можно выпускать

{$CLEO}
0000:

:Zombie
wait 0
if and
Player.Defined(0)
0ADC:   test_cheat "ZTOWIN"
jf @Zombie
03E5: show_text_box 'CHEAT1'
0110: clear_player $PLAYER_CHAR wanted_level
01F0: set_max_wanted_level_to 0

:Z
Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
wait 0
if
0ADC:   test_cheat "ZTOWIN"
then
03E5: show_text_box 'CHEAT8'
0110: clear_player $PLAYER_CHAR wanted_level
01F0: set_max_wanted_level_to 6
Actor.Health(0@) = 100
85E2: not AS_actor 0@ kill_actor $PLAYER_ACTOR
0A09: set_actor 0@ muted 0
060B: set_actor 0@ decision_maker_to 0
8245: not set_actor 0@ walk_style_to "OLDMAN"
81B2: not give_actor 0@ weapon 0 ammo 0
848F: not actor 0@ remove_weapons
jump @Zombie
end
if
0AE1: 0@ = random_actor_near_point 1@ 2@ 3@ in_radius 200.0 find_next 1 pass_deads 1
jf @Zombie_2

:Zombie_2
wait 0
if
056D:   actor 0@ defined
jf @Z
07AF: $PLAYER_GROUP = player $PLAYER_CHAR group
if
86EE:  not actor 0@ in_group $PLAYER_GROUP
jf @Z
if
0184:   actor 0@ health >= 99
jf @Z
Actor.Health(0@) = 99
05E2: AS_actor 0@ kill_actor $PLAYER_ACTOR
0A09: set_actor 0@ muted 1
060B: set_actor 0@ decision_maker_to 32
0245: set_actor 0@ walk_style_to "OLDMAN"
01B2: give_actor 0@ weapon 0 ammo 0
048F: actor 0@ remove_weapons
jump @Z

#4 Re: Вопросы по скриптингу » Зомби мод » 21-11-2018 15:05

Где теперь делать метку с параметрами?

#5 Re: Вопросы по скриптингу » Зомби мод » 21-11-2018 15:03

Так, вот добавил проверку на ввод чита

{$CLEO}
0000:

:Zombie
wait 0
if and
Player.Defined(0)
0ADC:   test_cheat "ZTOWIN"
jf @Zombie
03E5: show_text_box 'CHEAT1'
0110: clear_player $PLAYER_CHAR wanted_level
01F0: set_max_wanted_level_to 0

:Z
Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
wait 0
if and
0AE1: 0@ = random_actor_near_point 1@ 2@ 3@ in_radius 200.0 find_next 1 pass_deads 1
0ADC:   test_cheat "ZTOWIN"
jf @Zombie_2

:Zombie_2
wait 0
if
056D:   actor 0@ defined
jf @Z
07AF: $PLAYER_GROUP = player $PLAYER_CHAR group
if
86EE:  not actor 0@ in_group $PLAYER_GROUP
jf @Z
if
0184:   actor 0@ health >= 99
jf @Z
Actor.Health(0@) = 99
05E2: AS_actor 0@ kill_actor $PLAYER_ACTOR
0A09: set_actor 0@ muted 1
060B: set_actor 0@ decision_maker_to 32
01B2: give_actor 0@ weapon 0 ammo 0
048F: actor 0@ remove_weapons
jump @Z

#6 Re: Вопросы по скриптингу » Зомби мод » 21-11-2018 13:27

Так, я немного доработал скрипт, теперь осталось сделать деактивацию:

{$CLEO}
0000:

:Zombie
wait 0
if and
Player.Defined(0)
0ADC:   test_cheat "ZTOWIN"
jf @Zombie
03E5: show_text_box 'CHEAT1'
0110: clear_player $PLAYER_CHAR wanted_level
01F0: set_max_wanted_level_to 0

:Z
Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
wait 0
if
0AE1: 0@ = random_actor_near_point 1@ 2@ 3@ in_radius 200.0 find_next 1 pass_deads 1
jf @Zombie_2

:Zombie_2
wait 0
if
056D:   actor 0@ defined
jf @Z
07AF: $PLAYER_GROUP = player $PLAYER_CHAR group
if
86EE:  not actor 0@ in_group $PLAYER_GROUP
jf @Z
if
0184:   actor 0@ health >= 99
jf @Z
Actor.Health(0@) = 99
05E2: AS_actor 0@ kill_actor $PLAYER_ACTOR
0A09: set_actor 0@ muted 1
060B: set_actor 0@ decision_maker_to 32
01B2: give_actor 0@ weapon 0 ammo 0
048F: actor 0@ remove_weapons
jump @Z

#7 Вопросы по скриптингу » Зомби мод » 18-11-2018 18:13

daniel 360
Replies: 11

Всем привет, у меня тут возникла проблема я хотел сделать чит-код на зомби. Вот сделал его. Теперь когда ввожу его, то зомби становится один пед, а я хочу чтоб становились все, как это сделать?

#8 Re: Sanny Builder и CLEO » CLEO для GTA Vice City » 02-09-2018 20:02

Всем привет, хотел спросить, как в GTA Long Night сделать, чтоб можно было входить в интерьеры?

#9 Модификации » Зомби Мод » 29-12-2017 20:37

daniel 360
Replies: 2

Здравствуйте, я написал скрипт на зомби, он у меня работает, но работает не очень, зомби при попытке убить героя дёргаются, помогите исправить эту проблему.
Вот код скрипта
{$CLEO}
0000:

:Player
wait 0
if
Player.Defined(0)
jf @Player
Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
if
0AE1: 0@ = random_actor_near_point 1@ 2@ 3@ in_radius 100.0 find_next 1 pass_deads 1
jf @Player
060B: set_actor 0@ decision_maker_to 32
05E2: AS_actor 0@ kill_actor $PLAYER_ACTOR
jump @Player

Board footer

Powered by FluxBB