#1 Re: Вопросы по скриптингу » Покупка Авто-Салона "Ottos Autos" » 17-06-2009 17:44

to 3Doomer Не знаю, например у меня тот код не работал
to Mad Driver Вот 100% работающий, сам проверял. (Немного изменил принцип: вместо Sea Sparrow простой Sparrow, добавил еще ZR-350, изменил количество единиц в огнемете)

// 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 

:OTTOS_AUTOS_2
thread 'OTTOS_AUTOS' 
wait 100 
0A95: enable_thread_saving 
if 
   Player.Defined($PLAYER_CHAR)
jf @OTTOS_AUTOS_2 
0518: 1@ = create_available_asset_pickup 'PROP_3' at -1637.218 1201.783 7.2079 price 250000  // Press ~k~~PED_ANSWER_PHONE~ to buy this property.
2@ = Marker.CreateIconWithoutSphere(31, -1637.218, 1201.783, 7.2079)
Model.Load(#SEASPAR)
Model.Load(#BUFFALO)
Model.Load(#NEBULA)
Model.Load(#MERIT)
Model.Load(#EUROS)
Model.Load(#ZR350)
Model.Load(1277)
038B: load_requested_models 

:OTTOS_AUTOS_136
wait 100 
if and
   Model.Available(#SEASPAR)
   Model.Available(#BUFFALO)
   Model.Available(#NEBULA)
   Model.Available(#MERIT)
   Model.Available(#EUROS)
   Model.Available(#ZR350)
   Model.Available(1277)
jf @OTTOS_AUTOS_136 

:OTTOS_AUTOS_186
wait 0 
if 
   Pickup.Picked_up(1@)
jf @OTTOS_AUTOS_186 
fade 0 400 
Marker.Disable(2@)
5@ = Marker.CreateIconWithoutSphere(35, -1637.218, 1201.783, 7.2079)
17@ = Pickup.Create(1277, 3, -1669.42, 1204.399, 7.2546)
014B: 21@ = init_parked_car_generator #SPARROW color -1 -1 1 alarm 0 door_lock 0 0 10000 at -1664.19 1216.127 32.4043 angle 202.2651 
014C: set_parked_car_generator 21@ cars_to_generate_to 101 
09E2: 22@ = parked_car_generator_w_numberplate #BUFFALO 3 3 1 alarm 0 door_lock 0 0 10000 plate "MADRIVER" at -1664.83 1205.89 20.95 angle 313.1 
014C: set_parked_car_generator 22@ cars_to_generate_to 101 
09E2: 23@ = parked_car_generator_w_numberplate #NEBULA 1 1 1 alarm 0 door_lock 0 0 10000 plate "MBAUTOS" at -1650.47 1206.96 20.95 angle 56.5 
014C: set_parked_car_generator 23@ cars_to_generate_to 101 
09E2: 24@ = parked_car_generator_w_numberplate #MERIT 0 0 1 alarm 0 door_lock 0 0 10000 plate "MBAUTOS" at -1663.91 1222.65 20.95 angle 200.1 
014C: set_parked_car_generator 24@ cars_to_generate_to 101 
09E2: 25@ = parked_car_generator_w_numberplate #EUROS 0 0 1 alarm 0 door_lock 0 0 10000 plate "KILLER" at -1678.62 1209.76 13.47 angle 222.9 
014C: set_parked_car_generator 25@ cars_to_generate_to 101 
014B: 10@ = init_parked_car_generator #ZR350 color 1 1 1 alarm 0 door_lock 0 0 10000 at -1656.693 1217.001 13.2654 angle 225.8211 
014C: set_parked_car_generator 10@ cars_to_generate_to 101 
032B: 26@ = create_weapon_pickup #FLAME group 15 ammo 1500 at -1658.341 1207.483 7.25 
Model.Destroy(#FLAME)
fade 1 400 
0394: play_music 2 
00BA: show_text_styled GXT 'ASS_ACQ' time 4000 style 6  // Asset acquired!
02A3: enable_widescreen 1 
Player.CanMove($PLAYER_CHAR) = False
Camera.SetPosition(-1626.806, 1252.746, 19.3017, 0.0, 0.0, 0.0)
Camera.PointAt(-1657.924, 1218.722, 16.333, 2)
wait 4000 
04A6: 3@ = create_asset_money_pickup_at -1653.008 1206.928 7.25 money 25000 25000 
01E5: show_text_1number_highpriority GXT 'ASS_LUV' number 25000 time 6000 flag 1  // This property will now generate revenue up to a maximum of $~1~. Make sure you collect it regularly!
Camera.SetPosition(-1651.557, 1209.234, 7.25, 0.0, 0.0, 0.0)
Camera.PointAt(-1653.008, 1206.928, 7.25, 2)
wait 6000 
Camera.SetBehindPlayer
Camera.Restore_WithJumpCut
Player.CanMove($PLAYER_CHAR) = True
02A3: enable_widescreen 0 

:OTTOS_AUTOS_844
wait 0 
if and
   Player.Defined($PLAYER_CHAR)
  $ONMISSION == 0 
   Pickup.Picked_up(17@)
jf @OTTOS_AUTOS_844 
Player.CanMove($PLAYER_CHAR) = False
03D8: show_save_screen 

:OTTOS_AUTOS_885
if 
83D9:   not save_done 
jf @OTTOS_AUTOS_909 
wait 0 
jump @OTTOS_AUTOS_885 

:OTTOS_AUTOS_909
Pickup.Destroy(17@)
17@ = Pickup.Create(1277, 3, -1669.42, 1204.399, 7.2546)
0395: clear_area 1 at -1645.478 1204.886 7.25 radius 1.0 
Actor.PutAt($PLAYER_ACTOR, -1645.478, 1204.886, 7.15)
Actor.Angle($PLAYER_ACTOR) = 64.88599
Camera.SetBehindPlayer
Camera.Restore_WithJumpCut
Player.CanMove($PLAYER_CHAR) = True
wait 0 
fade 1 1000 
jump @OTTOS_AUTOS_844

Может в "Модификации" выложить?

#2 Re: Вопросы по скриптингу » Один вопрос » 04-11-2008 09:40

Как открыть все гонки и школы?

#3 Re: Вопросы по скриптингу » Один вопрос » 22-09-2008 16:38

grand wrote:

Как отключить бесконечные патроны, при 100% прохождении?

Поможете?

#4 Re: Вопросы по скриптингу » Один вопрос » 20-09-2008 08:38

Как отключить бесконечные патроны, при 100% прохождении?

#5 Re: Вопросы по скриптингу » чистый main » 07-09-2008 07:59

2Reinstal
Выложи свой мейн сюда плиз.

#6 Re: Вопросы по скриптингу » Помогите пожалуйста! Как отрыть ВСЕ возможности в начале игры? » 04-09-2008 11:24

Как отключить HotCoffee?
2Capushon
Ты хоть раз в жизни кому-нибудь помогал?

#7 Re: Вопросы по скриптингу » Помогите пожалуйста! Как отрыть ВСЕ возможности в начале игры? » 03-09-2008 18:09

VcSaJen
Пожалуйста открой там все острова и возможность покупать всю собственность в ориг. майне, чистый майн глючит!

#9 Re: Вопросы по скриптингу » Помогите пожалуйста! Как отрыть ВСЕ возможности в начале игры? » 03-09-2008 12:43

Какие ещё навороты?

Ну малые моды по-твоему.

скором времени не закачаешь - сайт станет недоступным (видимо там хостинг плохой)

ну вот тем более

#10 Re: Вопросы по скриптингу » Помогите пожалуйста! Как отрыть ВСЕ возможности в начале игры? » 03-09-2008 11:26

Нехочу там региться, новороты удалять,  да его "авторские права" я не хочу нарушать. Возьми оригинальный main открой там все острова и возможность покупать всю собственность smile. Буду очень благодарен

#15 Вопросы по скриптингу » Помогите с миссией » 31-08-2008 09:07

grand
Replies: 5
:MISSION1
0000: NOP 
0001: wait 0 ms 
03A4: name_thread 'MISSION1' 
0004: $ONMISSION = 1 
0050: gosub @MISSION1_74 
00D6: if 
0112:   wasted_or_busted // mission only 
004D: jump_if_false @MISSION1_59 
0050: gosub @MISSION1_418 

:MISSION1_59
0001: wait 0 ms 
0004: $ONMISSION = 0 
00D8: mission_cleanup 
004E: end_thread 

:MISSION1_74
0001: wait 0 ms 
0247: load_model #FAM1 
0247: load_model #MICRO_UZI 
0247: load_model #ADMIRAL
038B: load_requested_models 

:MISSION1_90
0001: wait 0 ms 
00D6: if and
0248:   model #FAM1 available 
0248:   model #MICRO_UZI available 
0248:   MODEL #ADMIRAL available
004D: jump_if_false @MISSION1_90 
0001: wait 0 ms 
00A5: 1@ = create_car #ADMIRAL at 2508.496 -1673.078 13.3795 
0175: set_car 1@ Z_angle_to 353.4433 
009A: 2@ = create_actor_pedtype 8 model #FAM1 at 2522.668 -1678.886 15.497 
0173: set_actor 2@ Z_angle_to 75.8508 
0001: wait 0 ms 
054A: set_actor 2@ immune_to_car_headshots 1 
054A: set_actor $PLAYER_ACTOR immune_to_car_headshots 1 
01B2: give_actor $PLAYER_ACTOR weapon 28 ammo 30000 // Load the weapon model before using this 
05CA: AS_actor $PLAYER_ACTOR enter_car 1@ passenger_seat 0 10000 ms 
0221: set_player $PLAYER_ACTOR trapped_in_car 1 
05D1: AS_actor 2@ drive_car 1@ to 1395.009 456.8759 20.1303 speed 15.0 0 model #NULL 0 
0464: put_actor $PLAYER_ACTOR into_turret_on_car 1@ at_car_offset -1.0 0.1 0.7 position 0 shooting_angle_limit 270.0 with_weapon 28 
00D6: if 
0118:   actor 2@ dead 
004D: jump_if_false @MISSION1_324 
0002: jump @MISSION1_418 

:MISSION1_324
00D6: if 
01B0:   car 1@ sphere 0 in_sphere 1395.009 456.8759 20.1303 radius 4.0 4.0 4.0 stopped 
004D: jump_if_false @MISSION1_324 
0002: jump @MISSION1_379 

:MISSION1_379
0001: wait 0 ms 
01E3: show_text_1number_styled GXT 'M_PASSD' number 0 time 5000 style 1  // MISSION PASSED!
0394: play_music 1 
030C: progress_made += 1 
0008: $NEW_TOTAL_PASSED_MISSIONS += 1
0221: set_player $PLAYER_ACTOR trapped_in_car 0 
0051: return 

:MISSION1_418
0001: wait 0 ms 
00BA: show_text_styled GXT 'M_FAIL' time 5000 style 1  // ~r~MISSION FAILED!
004F: create_thread @START 
0051: return

#16 Re: Вопросы по скриптингу » Один вопрос » 30-08-2008 12:51

grand wrote:

Как правильно оформлять чекпоинты? Ну что бы он "смотрел" стрелкой на следующий, и проверкой проехал ли игрок?

Поможете?

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

Marg wrote:

А как машину заправлять то, не пойму? Какие кнопки нажимать на заправке? У меня "save all 4.2"

Нужно просто встать в нужное место и ничего не нажимать!

#18 Re: Вопросы по скриптингу » Set Skin » 23-08-2008 09:34

Noob
Смотри в Ped Editor'е
Скачать можно здесь

#19 Re: Вопросы по скриптингу » Один вопрос » 23-08-2008 09:33

Как правильно оформлять чекпоинты? Ну что бы он "смотрел" стрелкой на следующий, и проверкой проехал ли игрок?

#21 Re: Вопросы по скриптингу » Помогите пожалуйста! Как отрыть ВСЕ возможности в начале игры? » 20-08-2008 13:14

Наконец-то открыл штат.
А возможности открывать так:

07FB: set_interior '*******' accessible 1

где '*******' имя интерьера?

#24 Re: Вопросы по скриптингу » San Andreas игнорирует скрипты!!!! » 18-08-2008 12:55

Спасибо, заработал! Только после сохранения CJ Прыгает :wow: Как можно это убрать?
Вот скрипт:

:NONAME_9
wait 0 
0518: $MYPARK = create_available_asset_pickup 'PROP_3' at 365.1713 -2047.986 7.8359 price 100000  // Press ~k~~PED_ANSWER_PHONE~ to buy this property.
1@ = Marker.CreateIconWithoutSphere(31, 365.1713, -2047.986, 7.8359)

:NONAME_9_60
wait 0 
   Pickup.Picked_up($MYPARK)
else_jump @NONAME_9_60 
fade 0 400 
Marker.Disable(1@)
2@ = Marker.CreateIconWithoutSphere(35, 376.2524, -2054.596, 8.0156)
3@ = Pickup.Create(#PICKUPSAVE, 2, 376.2524, -2054.596, 8.0156)
04A6: 4@ = create_asset_money_pickup_at 365.1713 -2047.986 7.8359 money 5000 5000 
014B: 9@ = init_parked_car_generator #PREMIER color 0 0 0 alarm 0 door_lock 0 1 40000 at 391.616 -2052.435 7.4709 angle 360 
014C: set_parked_car_generator 9@ cars_to_generate_to 101 
fade 1 400 
wait 0 
02A3: enable_widescreen 1 
Player.CanMove($PLAYER_CHAR) = False
0394: play_music 2 
00BA: show_text_styled GXT 'BUYPRO' time 5000 style 2  // Property bought!
Camera.SetPosition(345.7743, -1986.521, 45.0877, 0.0, 0.0, 0.0)
Camera.PointAt(387.8065, -2050.093, 13.8304, 1)
wait 5000 
02A3: enable_widescreen 0 
Camera.Restore_WithJumpCut
Player.CanMove($PLAYER_CHAR) = True

:NONAME_9_321
wait 0 
if and
   Player.Defined($PLAYER_CHAR)
  $ONMISSION == 0 
   Pickup.Picked_up(3@)
else_jump @NONAME_9_321 
Pickup.Destroy(3@)
wait 200 
Player.CanMove($PLAYER_CHAR) = False
wait 100 
03D8: show_save_screen 
Actor.PutAt($PLAYER_ACTOR, 376.6551, -2048.823, 7.8301)
wait 200 
Actor.Health($PLAYER_ACTOR) = 176
Player.CanMove($PLAYER_CHAR) = True
Camera.Restore_WithJumpCut
wait 1500 
3@ = Pickup.Create(#PICKUPSAVE, 2, 376.2524, -2054.596, 8.0156)
jump @NONAME_9_321

#25 Re: Вопросы по скриптингу » San Andreas игнорирует скрипты!!!! » 18-08-2008 08:44

Ну, исправил: Теперь после загрузки только черный экран. А системной ошибки нет.

:NONAME_9
wait 0 
Model.Load(#PREMIER)
038B: load_requested_models 

:NONAME_9_11
wait 0 
   Model.Available(#PREMIER)
else_jump @NONAME_9_11 
wait 0 
0518: $MYPARK = create_available_asset_pickup 'PROP_3' at 365.1713 -2047.986 7.8359 price 1000000  // Press ~k~~PED_ANSWER_PHONE~ to buy this property.
1@ = Marker.CreateIconWithoutSphere(31, 365.1713, -2047.986, 7.8359)

:NONAME_9_87
   Pickup.Picked_up($MYPARK)
else_jump @NONAME_9_87 
fade 0 400 
Marker.Disable(1@)
2@ = Marker.CreateIconWithoutSphere(35, 376.2524, -2054.596, 8.0156)
3@ = Pickup.Create(#PICKUPSAVE, 2, 376.2524, -2054.596, 8.0156)
014B: 9@ = init_parked_car_generator #PREMIER color 0 0 0 alarm 0 door_lock 0 1 40000 at 391.616 -2052.435 7.4709 angle 360 
014C: set_parked_car_generator 9@ cars_to_generate_to 101 
fade 1 400 
wait 0 
0394: play_music 2 
00BA: show_text_styled GXT 'ASS_ACQ' time 4000 style 6  // Asset acquired!
02A3: enable_widescreen 1 
Camera.SetPosition(345.7743, -1986.521, 45.0877, 0.0, 0.0, 0.0)
Camera.PointAt(387.8065, -2050.093, 13.8304, 1)
02A3: enable_widescreen 0 
Camera.Restore_WithJumpCut

:NONAME_9_299
wait 0 
if and
   Player.Defined($PLAYER_CHAR)
  $ONMISSION == 0 
   Pickup.Picked_up(3@)
else_jump @NONAME_9_299 
Pickup.Destroy(3@)
fade 0 600 
wait 600 
Player.CanMove($PLAYER_CHAR) = False
wait 100 
03D8: show_save_screen 
if 
03D9:   save_done 
else_jump @NONAME_9_299 
Actor.PutAt($PLAYER_ACTOR, 376.6551, -2048.823, 7.8301)
Actor.Health($PLAYER_ACTOR) = 176
Player.CanMove($PLAYER_CHAR) = True
Camera.Restore_WithJumpCut
fade 1 600 
wait 1500 
3@ = Pickup.Create(#PICKUPSAVE, 2, 376.2524, -2054.596, 8.0156)
jump @NONAME_9_299

Теперь после загрузки только черный экран. А системной ошибки нет.
PS В хелпе я никогда с первого паза ничего не понимал, и примеры там бывают НЕ работающие!

Board footer

Powered by FluxBB