#1 Re: Модификации » Simple Slow motion » 14-02-2009 16:13

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

А насчёт такси:
Если кто-то хочет могу сказать как сделать.

#2 Re: Модификации » [SA|REL] сбыт украденных полицейских авто » 16-11-2008 15:39

Cкрипт позволяет продавать в гараже цезаря угнанные тачkи. Cкрипт выдран из Capushon мода.

// This file was decompiled using sascm.ini published by Seemann (http://sannybuilder.com/files/SASCM.rar) on 13.10.2007

{$VERSION 3.1.0027}
{$CLEO .cs}

//-------------MAIN---------------
wait 0 

:NONAME_4
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
else_jump @NONAME_4 
if and
0154:   actor $PLAYER_ACTOR in_zone 'SF'  // San Fierro
  $ONMISSION == 0 
else_jump @NONAME_4 
if and
84C8:   not actor $PLAYER_ACTOR driving_flying_vehicle 
   Actor.Driving($PLAYER_ACTOR)
else_jump @NONAME_4 
if and
0103:   actor $PLAYER_ACTOR in_sphere -2033.175 178.6755 27.8516 radius 4.0 4.0 4.0 sphere 1 stopped_in_car 
   not Garage.IsOpen('HBGDSFS')
else_jump @NONAME_4 
Garage.Open('HBGDSFS')
0811: 0@ = actor $PLAYER_ACTOR car // versionC 
1@ = Car.Model(0@)
4@ = Car.Health(0@)
Car.PutAt(0@, -2033.175, 178.6755, 30.0)
Car.Angle(0@) = 90.0
Player.CanMove($PLAYER_CHAR) = False
Camera.SetPosition(-2037.175, 188.6755, 33.8516, 0.0, 0.0, 0.0)
Camera.OnVehicle(0@, 15, 2)
wait 2000 
0615: define_AS_pack_begin 3@ 
05B9: AS_actor -1 stay_idle 1000 ms 
05D1: AS_actor -1 drive_car 0@ to -2044.0 178.6755 27.8359 speed 7.0 0 model #NULL 3 
0633: AS_actor -1 exit_car 
0616: define_AS_pack_end 3@ 
0618: assign_actor $PLAYER_ACTOR to_AS_pack 3@ 
061B: remove_references_to_AS_pack 3@ 
wait 3500 
Garage.Close('HBGDSFS')
wait 2000 
fade 0 1000 
wait 1000 
fade 1 1000 
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at -2033.175 178.6755 27.8516 
Car.Destroy(0@)
Car.RemoveReferences(0@)
Player.CanMove($PLAYER_CHAR) = True
Camera.SetBehindPlayer
Camera.Restore_WithJumpCut
09E1: get_car_model 1@ price_to 2@ 
2@ /= 10 
4@ /= 100 
0068: 2@ *= 4@ // (int) 
Player.Money($PLAYER_CHAR) += 2@
01E3: show_text_1number_styled GXT 'IE30' number 2@ time 5000 style 1  // Earnings~N~~w~$~1~
jump @NONAME_4

#3 Re: Модификации » Мой 1ый скрипт » 23-08-2008 09:11

2  -Dimon-
2 Centrino Duo


Посмотрите в мой аватор. Там вам вопрос.
Опкод 09E6: set_burglary_houses_accessible 1
означает то, что не активируя миссию грабителя можно заходить в дома.

#5 Модификации » Мой 1ый скрипт » 22-08-2008 08:32

Admiral
Replies: 6
// This file was decompiled using sascm.ini published by Seemann (http://sannybuilder.com/files/SASCM.rar) on 13.10.2007

{$VERSION 3.1.0027}
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP 

:NONAME_22
wait 250 
09E6: set_burglary_houses_accessible 1 
jump @NONAME_22

#6 Re: Вопросы по скриптингу » Один вопрос » 19-08-2008 13:28

Нашёл клео-скрипт, компилировал его а он не работает подскажите почему

:OXPAHA
   not Model.Available(#CELLPHONE)
else_jump @OXPAHA_35  
Model.Load(#CELLPHONE)
wait 0 
jump @OXPAHA 

:OXPAHA_35
wait 100 
   Player.Defined($PLAYER_CHAR)
else_jump @OXPAHA_35 
if and
   not Actor.Driving($PLAYER_ACTOR)
00E1:   player 0 pressed_key 10 
00E1:   player 0 pressed_key 16 
else_jump @OXPAHA_35 
   Player.Money($PLAYER_CHAR) > 999
else_jump @OXPAHA_1403 
Player.CanMove($PLAYER_CHAR) = False
0729: AS_actor $PLAYER_ACTOR hold_cellphone 1 
wait 2500 
054C: use_GXT_table 'TRU1' 
00BC: show_text_highpriority GXT 'TRU1@01' time 2000 flag 1  // ~z~Подбирайте свой вариант текста!
wait 2100 
054C: use_GXT_table 'TRU1' 
00BB: show_text_lowpriority GXT 'TRU1@02' time 2000 flag 1  // ~z~Подбирайте свой вариант текста!
wait 1500 
0729: AS_actor $PLAYER_ACTOR hold_cellphone 0 
Player.CanMove($PLAYER_CHAR) = True
Model.Destroy(#CELLPHONE)
wait 0 
023C: load_special_actor 'TBONE' as 1 // models 290-299 
Model.Load(#AK47)
Model.Load(#MESA)
038B: load_requested_models 

:OXPAHA_225
wait 100 
if and
   Model.Available(#AK47)
   Model.Available(#MESA)
else_jump @OXPAHA_225 
023D:   special_actor 1 loaded 
else_jump @OXPAHA_225 

:OXPAHA_261
wait 0 
0208: 0@ = random_float_in_ranges -70.0 70.0 
0208: 1@ = random_float_in_ranges -70.0 70.0 
   not Actor.Dead($PLAYER_ACTOR)
else_jump @OXPAHA_1351 
wait 500 
04C4: store_coords 2@ 3@ 4@ from_actor $PLAYER_ACTOR with_offset 0@ 1@ 0 
02C1: store_to 21@ 22@ 23@ car_path_coords_closest_to 2@ 3@ 4@ 
80EC:   not actor $PLAYER_ACTOR 0 near_point 21@ 22@ radius 20.0 20.0 
else_jump @OXPAHA_261 
wait 100 
0395: clear_area 1 at 21@ 22@ 23@ radius 5.0 
04C4: store_coords 10@ 8@ 7@ from_actor $PLAYER_ACTOR with_offset 0.1 0.1 15.37 
5@ = Car.Create(#MESA, 21@, 22@, 23@)
0594: unknown_car 5@ flag 0 
Car.Health(5@) = 3000
0423: set_car 5@ improved_handling_to 1.5 // (float) 
00AE: set_car 5@ traffic_behavior_to 2 
06ED: set_car 5@ paintjob 0 
0229: set_car 5@ primary_color_to 14 secondary_color_to 14 
Car.SetMaxSpeed(5@, 35.0)
072F: unknown 5@ 1.0 2000 1 1 1 -1 
04C4: store_coords 2@ 3@ 4@ from_actor $PLAYER_ACTOR with_offset 0 5.0 0 
0129: 6@ = create_actor_pedtype 19 model #SPECIAL01 in_car 5@ driverseat 
0337: toggle_actor 6@ visibility 64 
0350: toggle_actor 6@ maintain_position_when_attacked 1 
0568: toggle_actor 6@ targetable 1 
0446: toggle_actor 6@ immune_to_headshots 0 
07FE: set_actor 6@ fighting_style_to 16 6 
060B: set_actor 6@ decision_maker_to 65543 
0770: unknown_actor 6@ flag 1 
07DD: set_actor 6@ temper_to 100 // see pedstats.dat 
051B:   actor 6@ damaged_by_car 0 
0526: unknown_actor 6@ flag 1 
0433: toggle_actor 6@ criminal_flag 1 
0982: unknown_actor 6@ flag 1 
01B2: give_actor 6@ weapon 30 ammo 6000 // Load the weapon model before using this 
Actor.WeaponAccuracy(6@) = 100
Actor.Health(6@) = 500
Actor.Armour(6@) = 200
0296: unload_special_actor 1 
Model.Destroy(#AK47)
Actor.StorePos($PLAYER_ACTOR, 2@, 3@, 4@)
Car.DriveTo(5@, 2@, 3@, 4@)

:OXPAHA_726
wait 500 
01C1:   car 5@ stopped 
else_jump @OXPAHA_726 
05CD: AS_actor 6@ exit_car 5@ 
0631: put_actor 6@ in_group $PLAYER_GROUP 
Player.Money($PLAYER_CHAR) += -1000
20@ = Marker.CreateAboveActor(6@)

:OXPAHA_775
wait 0 
0104:   actor 6@ near_actor $PLAYER_ACTOR radius 5.0 5.0 5.0 sphere 0 
else_jump @OXPAHA_775 
Marker.Disable(20@)

:DAMAGE_816
wait 0 
if and
   not Actor.Dead(6@)
   not Actor.Dead($PLAYER_ACTOR)
else_jump @DAMAGE_1295 
wait 0 
0104:   actor 6@ near_actor $PLAYER_ACTOR radius 150.0 150.0 5.0 sphere 0 
else_jump @DAMAGE_1295 

:DAMAGE_884
wait 0 
   Player.Defined($PLAYER_CHAR)
else_jump @DAMAGE_884 
   Actor.Driving($PLAYER_ACTOR)
else_jump @DAMAGE_816
03C0: 9@ = actor $PLAYER_ACTOR car 

:DAMAGE_920
wait 0 
   Actor.Driving($PLAYER_ACTOR)
else_jump @DAMAGE_1269 
0407: store_coords_to 14@ 15@ 16@ from_car 9@ with_offset 10.0 10.0 0 
0407: store_coords_to 17@ 18@ 19@ from_car 9@ with_offset -10.0 0 -3.0 
053E: 8@ = get_random_car_with_actors -1 in_rectangle_cornerA 14@ 15@ cornerB 17@ 18@ 
wait 0 
   Actor.Driving($PLAYER_ACTOR)
else_jump @DAMAGE_1269 
056E:   car 8@ defined 
else_jump @DAMAGE_920 
046C: 7@ = car 8@ driver 
jump @DAMAGE_1050 

:DAMAGE_1050
wait 0 
if and
   Actor.Driving($PLAYER_ACTOR)
056D:   actor 7@ defined 
else_jump @DAMAGE_1269 
0407: store_coords_to $101 $102 $103 from_car 8@ with_offset -10.0 0 -3.0 
0407: store_coords_to $104 $105 $106 from_car 8@ with_offset 10.0 10.0 0 
00A4:   actor $PLAYER_ACTOR sphere 0 in_cube_cornerA $101 $102 $103 cornerB $104 $105 $106 
else_jump @DAMAGE_1269 
0208: 13@ = random_float_in_ranges -10.0 10.0 
0208: 12@ = random_float_in_ranges -10.0 10.0 
0208: 11@ = random_float_in_ranges -10.0 10.0 
wait 0 
080E: get_actor 7@ ped_event_to 10@ 
  10@ == 73 
else_jump @DAMAGE_816 
0713: unknown_action_sequence 6@ -1 8@ 0.0 0.0 0.0 100.0 8 1 90 
jump @DAMAGE_816 

:DAMAGE_1269
wait 0 
Car.RemoveReferences(9@)
Car.RemoveReferences(8@)
Actor.RemoveReferences(7@)
jump @DAMAGE_816 

:DAMAGE_1295
Actor.RemoveReferences(6@)
Car.RemoveReferences(5@)
jump @OXPAHA 

:OXPAHA_1322
wait 250 
   Player.Defined($PLAYER_CHAR)
else_jump @OXPAHA_1322 
   not Actor.Dead(6@)
else_jump @OXPAHA_1379 

:OXPAHA_1351
wait 250 
if or
   Actor.Dead($PLAYER_ACTOR)
   Actor.Dead(6@)
wasted_or_busted 
else_jump @OXPAHA_1351 

:OXPAHA_1379
Actor.RemoveReferences(6@)
Car.RemoveReferences(5@)
wait 6000 
jump @OXPAHA 

:OXPAHA_1403
wait 0 
054C: use_GXT_table 'ZERO2' 
00BC: show_text_highpriority GXT 'IE07' time 1000 flag 1  // ~r~“ BAC HEЂOCTATO4HO ЂEHE†!
jump @OXPAHA

#8 Re: Модификации » Педы садятся к вам в машину » 28-07-2008 14:14

Нажимаю на лев. кн. мыши миссия активируется потом через 5 секунд заканчивается.
Ну не знаю почему???:cry::crazy:

#9 Re: Модификации » Педы садятся к вам в машину » 27-07-2008 20:46

Я бы выложил но недавно заметил глюк:wow::rolleyes::mad::mad::mad:

#11 Re: Модификации » GTA SA Teleportet CLEO version » 26-07-2008 17:07

Да я помню такой мод был в вайс-сити

#12 Re: Модификации » Педы садятся к вам в машину » 26-07-2008 17:06

Да я  сделал но мне не нравится то, что миссия  запускается клавишей саб-миссии

#13 Re: Модификации » Педы садятся к вам в машину » 25-07-2008 19:39

Как сказал Yarik трудно будет это реализовать, да и я сам не оченьто искусный скриптер мне всего лишь 13.  Но можно и плюс ещё добавить эти пункты:
1. Убрать таймер
2. Одну и ту же работу делать в разных машинах.
3. Fast Food в машине.

#14 Re: Модификации » Педы садятся к вам в машину » 25-07-2008 15:40

2 CENTRINO DUO

молодец smile +1

Это ирония или оффтоп? sad

#15 Re: Модификации » Вот мой безглючный(?) код охраны. » 25-07-2008 13:40

Выложите плизз декомпилированный файл для клео чтобы его скачать. И скажите как вызвать охрану.

#16 Re: Модификации » Педы садятся к вам в машину » 25-07-2008 10:57

Да извиняюсь, я даже сам не знал автора скрипта. Код скрипта мне друг на мейл послал. Вот я и исправил. Ну я минут 15 тому назад зашёл на сайт zaza: zazmahal.de (таджмахалл?? хорошие скрипты) и увидел скрипт. Если б я знал я написал бы  об этом, извиняюсь перед автором.
Но до меня кто-то тоже так делал не указав имя автора. (Ryosuke's GTA Room). 1
2

#18 Re: Модификации » Перекраска на мойке, Вызов тех помощи » 24-07-2008 09:15

1.  Перекраска на мойке: На мойке не перекрашиваются! А вымывают машину. Есть ли такой код ,
при котором мойка вымоет машину удалив с неё грязь и ржавчину? Подскажите.

2. Вызов тех помощи: Отличная идея. Но почему WMYMECH после того как выходит из машины,           стоит как вкопанный.

Для реалистичности нужно сделать так чтоб, когда машина подъезжала к Игроку, WMYMECН не выходил из машины, а автоматически переходил на сидение пассажира.  А после того как игрок закончит своё дело, то есть выйдет из машины, WMYMECН возвращался на водительское сидение и уезжал к себе  домой. smile

Я сам-то поковырялся в саннике, но не смог реализовать его. Кто-то может подсказать как это делается? blush

#19 Re: Модификации » CLEO-скрипты активации авто муниципальных служб. » 24-07-2008 08:51

Мне не нравится то, что пожарные машины и амбулянсы споунятся везде, вытесняя другие тачки.:mad:
Кто мне подскажет, что нужно изменить в коде, чтоб FRETRUK строго споунился около пожарных департаментов, а AMBULAN около госпиталей.=)

#20 Модификации » Педы садятся к вам в машину » 24-07-2008 08:32

Admiral
Replies: 33

Нажатием сигнала педы садятся к вам в машину.
Код отработал, исправил глюк с вечным торможением машины.

// This file was decompiled using sascm.ini published by Seemann (http://sannybuilder.com/files/SASCM.rar) on 13.10.2007

{$VERSION 3.1.0027}
{$CLEO .cs}

//-------------MAIN---------------
thread 'PENT' 
1@ = 0 
2@ = 0 
3@ = 0 
4@ = 0 
10@ = 0 
14@ = 0 
15@ = 0 
17@ = 1 
20@ = 0 
25@ = 15.5 

:PENT_84
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
else_jump @PENT_84 
if and
00E1:   player 0 pressed_key 18 
   Actor.Driving($PLAYER_ACTOR)
84A7:   not actor $PLAYER_ACTOR driving_boat 
else_jump @PENT_84 
03C0: 0@ = actor $PLAYER_ACTOR car 
01EA: 10@ = car 0@ max_passengers 
if 
  10@ > 0 
else_jump @PENT_84 
if 
01C1:   car 0@ stopped 
else_jump @PENT_84 
Car.LockInCurrentPosition(0@) = False
14@ = 0 
01EA: 10@ = car 0@ max_passengers 
04C4: store_coords_to 11@ 12@ 13@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0 
33@ = 0 

:PENT_239
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
else_jump @PENT_740 
if 
002D:   10@ >= 17@ // (int) 
else_jump @PENT_438 
if or
  10000 > 33@ 
80E1:   not player 0 pressed_key 18 
else_jump @PENT_740 
if 
  33@ > 10000 
else_jump @PENT_332 
25@ = 45.5 

:PENT_332
08E5: get_actor_in_sphere 11@ 12@ 13@ radius 25@ handle_as 1@(17@,16i) 
if 
   not Car.Wrecked(0@)
else_jump @PENT_772 
if 
   not 1@(17@,16i) == -1 
else_jump @PENT_239 
0085: 20@ = 17@ // (int) 
20@ -= 1 
05CA: AS_actor 1@(17@,16i) enter_car 0@ passenger_seat 20@ 10000 ms 
17@ += 1 
jump @PENT_239 

:PENT_438
17@ = 1 
33@ = 0 

:PENT_452
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
else_jump @PENT_740 
if 
   not Car.Wrecked(0@)
else_jump @PENT_772 
if 
   Actor.Driving($PLAYER_ACTOR)
else_jump @PENT_452 
if 
   Actor.InCar($PLAYER_ACTOR, 0@)
else_jump @PENT_784 
if 
002D:   10@ >= 17@ // (int) 
else_jump @PENT_651 
if or
  11000 > 33@ 
80E1:   not player 0 pressed_key 18 
else_jump @PENT_740 
if 
   not Actor.Dead(1@(17@,16i))
else_jump @PENT_740 
if 
   Actor.InCar(1@(17@,16i), 0@)
else_jump @PENT_452 
Car.LockInCurrentPosition(0@) = False
17@ += 1 
14@ = 1 
01EA: 10@ = car 0@ max_passengers 
wait 250 
jump @PENT_452 

:PENT_651
17@ = 1 

:PENT_658
if 
002D:   10@ >= 17@ // (int) 
else_jump @PENT_452 
if 
80E1:   not player 0 pressed_key 18 
else_jump @PENT_740 
if and
   not Actor.Dead(1@(17@,16i))
   Actor.InCar(1@(17@,16i), 0@)
else_jump @PENT_740 
17@ += 1 
jump @PENT_658 

:PENT_740
if 
  14@ == 0 
else_jump @PENT_784 
Car.LockInCurrentPosition(0@) = False
jump @PENT_784 

:PENT_772
Car.Destroy(0@)
jump @PENT_789 

:PENT_784
Car.RemoveReferences(0@)

:PENT_789
17@ = 1 

:PENT_796
if 
002D:   10@ >= 17@ // (int) 
else_jump @PENT_838 
Actor.RemoveReferences(1@(17@,16i))
17@ += 1 
jump @PENT_796 

:PENT_838
1@ = 0 
2@ = 0 
3@ = 0 
4@ = 0 
10@ = 0 
14@ = 0 
15@ = 0 
17@ = 1 
25@ = 15.5 
wait 1000 
jump @PENT_84

#21 Re: Вопросы по скриптингу » Один вопрос » 22-07-2008 12:33

Seemann, если не трудно можешь ли  ты  указать мне ссылку на сайт с кодами всех кнопок клавиатуры?  Я в одном клео скрипте условие хочу поменять.

if 
0AB0:   key_pressed 66

чтоб игра не проверяла кнопку B , а какую-то другую.=)

#22 Re: Модификации » [SA|REL] Империя наносит ответный удар! » 20-07-2008 19:46

svetka wrote:

Надо, чтобы нарушителей атаковала и преследовала полиция. А то какой-нибудь баллас стреляет в меня и ему за это ничего. Попробуй я в него выстрели, так тут все против меня. Полиция вообще ни на кого толком не реагирует. Пед угоняет машину, а полицейскому хоть бы хны )
Или я уже о другом скрипте говорю? smile

Полностью согласеН.:clap:
Ещё копы должны преследовать педов за ношение оружия.

#23 Re: Модификации » Мультимод » 14-07-2008 10:38

Capushon, когда ты разделишь свой мод на несколько cleo скриптов? Уж очень хочется!!!=);-):D

#24 Re: Модификации » Мультимод » 15-02-2008 12:43

Установил а игра не работает. Не знаю а у других работает ли ? Может я не правильно установил????=(

#25 Re: Модификации » Мультимод » 02-02-2008 17:33

Мод не работает!!!!

Board footer

Powered by FluxBB