#651 Re: Вопросы по скриптингу » SnakeNOS » 27-04-2009 05:47

2 R3B007,
Вот, залил к себе скачай оттуда.

#653 Re: Вопросы по скриптингу » Один вопрос » 18-04-2009 16:18

to XotaBi4b
а проверку на существование машины делать разве не нужно? или я не прав smile

#654 Re: Вопросы по скриптингу » Один вопрос » 18-04-2009 12:13

to mfisto
Чистую игру не мог установить по тех. причинам. Щас проверю

-----------------------------------------------------------
Действительно, поставил на чистую игру - заработало.
спс тем кто помог smile

#655 Re: Вопросы по скриптингу » Один вопрос » 18-04-2009 07:03

Та же история.
PS. может из-за того что капюшон мод стоит? rolleyes

#657 Re: Вопросы по скриптингу » Один вопрос » 16-04-2009 16:32

Решил сделать мини-скрипт при нажатии "Беседа - Нет" радио выключалось, при повторном нажатии - включалось с той станции на которой был до этого smile. Не работает вообще.
Желательно ещё на кнопочку X назначить smile

{$CLEO .cs}


// ------- Main -------
0000:


:TURNOF
thread "TURNOF"
0@ = 0

:TURNOF_1
wait 0 ms
if and
  0@ == 0
  Actor.Driving($PLAYER_ACTOR)
  00E1: key_pressed 0 10 // VK_NO
jf @TURNOF_2
0@ = 1
051E: 1@ = get_current_radio_station
wait 500
041E: set_radio_station 12
jump @TURNOF_1 

:TURNOF_2
wait 0 ms
if and
  0@ == 1
  Actor.Driving($PLAYER_ACTOR)
  00E1: key_pressed 0 10 // VK_NO
jf @TURNOF_1
0@ = 0
041E: set_radio_station 1@
jump @TURNOF_2

#658 Re: Вопросы по скриптингу » Один вопрос » 08-04-2009 05:42

А смысл? Там и так все цвета которые доступны в игре вообще (как-то так)

#659 Re: Модификации » Мультимод » 08-04-2009 05:40

Посмотри, может быть в data/script есть файл main.txt (если изменял ориг. main), его удали
2Capushon

0662: NOP "VI_PRISHLI_SUDA_ISKAT_BAGI___" 
0662: NOP "NU_NU"

Типа прикола? wink
И вообще, давно хотел спросить, что это за NOP и за что отвечает.

#660 Re: Беседка » Остались люди играющие в SA? Скриптинг жив или мёртв? » 06-04-2009 13:34

Остались те, у кого первой игрой была именно саня в далёком 2005-ом (кажется в нём).

#661 Re: Работа с памятью, EXE » Помогите написать плагин для SA-MP » 27-03-2009 09:26

Исправь,

009 wrote:

boats for SA-MP

он подумает что ты один из русских программистов который хочет сделать лодку для сампа smile

#662 Re: Вопросы по скриптингу » Один вопрос » 23-03-2009 10:58

PutIntoCarPassenger,0430,0,0,("Actor%h" "Car%h" "Seat%i")

Прописал это в файле classes.db (на Delphi), после того как вставляю его командой

Actor.PutIntoCarPassenger($ACTOR,$CAR,0)

игра вылетает. Подскажите, что тут неправильно?

#664 Re: Вопросы по скриптингу » Один вопрос » 10-03-2009 16:48

извините если задолбал своими вопросами, но всё же. я делаю миссию аналог End Of The Line, только сам, я помню что лестница у пожарки была приподнята, какой опкод отвечает за это?

#666 Re: Вопросы по скриптингу » Один вопрос » 09-03-2009 18:25

почти, то что За стенкой. типа интерьера, там ещё несколько человек под действием крэка.

#667 Re: Вопросы по скриптингу » Один вопрос » 09-03-2009 17:47

я не про интерьер, а про обьект который перед ним. посмотрел в мэйне, узнал что он входит в группу обьектов CARTER. А что именно за обьект - незнаю (ДО того как войдёшь в интерьер, я про этот обьект)

#668 Re: Вопросы по скриптингу » Один вопрос » 09-03-2009 16:28

Подскажите модель части интерьера (в последней миссии, когда проламываешь стенку там что-то типа интерьера, я про него) никак найти немогу.

#669 Re: Вопросы по скриптингу » Один вопрос » 08-03-2009 13:01

или Actor.HasWeapon($actor_handle,weapon_id)
smile

#670 Re: Вопросы по скриптингу » Один вопрос » 20-02-2009 14:44

спасибо за ответ, постараюсь переделать и учту ошибки

#671 Re: Вопросы по скриптингу » Один вопрос » 20-02-2009 13:25

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

DEFINE OBJECTS 0
DEFINE MISSIONS 1 
DEFINE MISSION 0 at @MyMission 
DEFINE EXTERNAL_SCRIPTS -1 // Use -1 to not write AAA script 
DEFINE UNKNOWN_EMPTY_SEGMENT 0 
DEFINE UNKNOWN_THREADS_MEMORY 0 

// -------------------- 
// THE STRIPPED MAIN THREAD 
// contains initial info 
// -------------------- 
thread 'Main' 
var 
$PLAYER_CHAR: Player 
end // var 
01F0: set_max_wanted_level_to 6 
set_wb_check_to 0 
00C0: set_current_time 8 0 
04E4: unknown_refresh_game_renderer_at 2488.5601 -1666.84 
Camera.SetAtPos(2488.5601, -1666.84, 13.38) 
$PLAYER_CHAR = Player.Create(#NULL, 2488.5601, -1666.84, 13.38) 
$PLAYER_ACTOR = Actor.EmulateFromPlayer($PLAYER_CHAR) 
Camera.SetBehindPlayer 
set_weather 0 
wait 0 ms 
$PLAYER_CHAR.SetClothes("PLAYER_FACE", "HEAD", Head) 
$PLAYER_CHAR.SetClothes("JEANSDENIM", "JEANS", Legs) 
$PLAYER_CHAR.SetClothes("SNEAKERBINCBLK", "SNEAKER", Shoes) 
$PLAYER_CHAR.SetClothes("VEST", "VEST", Torso) 
$PLAYER_CHAR.Build 
$PLAYER_CHAR.CanMove = True 
fade 1 (out) 0 ms 
select_interior 0 
0629: change_stat 181 (islands unlocked) to 4 
016C: restart_if_wasted at 2027.77 -1420.52 15.99 angle 137.0 unknown 0 
016D: restart_if_busted at 1550.68 -1675.49 14.51 angle 90.0 unknown 0 
// put your create_thread commands here 

create_thread @MyTrigger 
end_thread 

// put your mission mods here 

:MyTrigger 
thread "MyTrigger" 
$TrigMarker = Marker.CreateIconAndSphere(15, 2489.0591, -1682.2808, 13.3358) 
while $MyMission_Passed == 0 
wait 250 
if Player.Defined($PLAYER_CHAR) 
  then 
    if $ONMISSION == 0 // integer values 
     then 
       if 00FF: actor $PLAYER_ACTOR 0 2489.0591 -1682.2808 13.3358 radius 1.0 1.0 2.0 
        then 
          if Player.Controllable($PLAYER_CHAR) 
           then 
        $ONMISSION = 1 // integer values 
        00BA: text_styled 'INTRO_1' 1000 ms 2 // Big Smoke 
        Marker.Disable($TrigMarker) 
           start_mission MyMission 
          end // if1 
       end // if2 
    end // if3 
  end // if4 
end // while 
end_thread

:MyMission
thread "MYMISSION"
model.Load(#GANGRL3)
model.Load(#ADMIRAL)
038B: load_requested_models

:MyMission1a
wait 0
if and
  not model.Available(#GANGRL3)
  not model.Available(#ADMIRAL)
jf @MyMission2a
jump @MyMission1a

:MyMission2a
wait 0
fade 0 1000
wait 1000
// èíòåðüåð: 1 êîîðäèíàòû: 447.3981 -18.5233 1001.1328
$X_GIRLFRIEND_POS = 457.1727
$Y_GIRLFRIEND_POS = -17.821
$Z_GIRLFRIEND_POS = 1001.1328
$ANGLE[0] = 90.1988 
$X_CJ_POS = 456.7584
$Y_CJ_POS = -19.1786
$Z_CJ_POS = 1001.1328
$ANGLE[1] = 90.1988
$X_CAR_POS = 2402.4888
$Y_CAR_POS = -1728.8806
$Z_CAR_POS = 13.3828
$ANGLE[2] = 86.6258
$X_DESTINATION_POS = 2497.6733
$Y_DESTINATION_POS = -1499.7791
$Z_DESTINATION_POS = 23.8281
$GIRLFRIEND_CAR = Car.Create(#ADMIRAL,$X_CAR_POS,$Y_CAR_POS,$Z_CAR_POS)
Car.Angle($GIRLFRIEND_CAR) = $ANGLE[2]
01C8: $GIRLFRIEND = create_actor_pedtype 11 model #GANGRL3 in_car $GIRLFRIEND_CAR passenger_seat 0
marker.CreateAboveCar($61,$GIRLFRIEND_CAR)
07E0: set_marker $61 type_to 1
Actor.PutAt($PLAYER_ACTOR,2401.0566, -1720.5603, 13.6122)
wait 1000
fade 1 1000

:MyMission3a
wait 0 ms
if
  Actor.InCar($PLAYER_ACTOR,$GIRLFRIEND_CAR)
jf @MyMission3a
Marker.Disable($118)
if
  NOT car.Wrecked($GIRLFRIEND_CAR)
jf @MyMission_FAILED_a
if
  NOT actor.Dead($GIRLFRIEND)
jf @MyMission_FAILED_b
Marker.Disable($61)
$86 = Marker.CreateIconAndSphere(0,$X_DESTINATION_POS,$Y_DESTINATION_POS,$Z_DESTINATION_POS)
Marker.SetIconSize($86,3)

:MyMission4a
wait 0 ms
if
  NOT car.Wrecked($GIRLFRIEND_CAR)
jf @MyMission_FAILED_aa
if
  NOT actor.dead($GIRLFRIEND)
jf @MyMission_FAILED_bb
if
  Actor.InCar($PLAYER_ACTOR,$GIRLFRIEND_CAR)
jf @MyMission_AT
Marker.Disable($118)
if
  01AD: car $GIRLFRIEND_CAR sphere 0 near_point $X_DESTINATION_POS $Y_DESTINATION_POS $Z_DESTINATION_POS radius 0.5 0.5
jf @MyMission4a
fade 0 100
wait 1000
Marker.Disable($86)
Player.CanMove($PLAYER_CHAR) = False
wait 1000
fade 1 1000
end_thread

:MyMission_FAILED_a
054C: use_GXT_table 'SYN3'
00BA: text_styled 'M_FAIL' 5000 ms 1 // ~r~MISSION FAILED!  
00BC: show_text_highpriority GXT 'SYN3_19' time 4000 flag 0  // ~r~MAWNHA YHN4TOGEHA!
Actor.RemoveReferences($GIRLFRIEND)
marker.disable($61)
gosub @MyTrigger

:MyMission_FAILED_b
00BC: show_text_highpriority GXT 'GF_0039' time 4000 flag 0
Actor.RemoveReferences($GIRLFRIEND)
gosub @MyTrigger

:MyMission_FAILED_aa
054C: use_GXT_table 'SYN3'
00BA: text_styled 'M_FAIL' 5000 ms 1 // ~r~MISSION FAILED!  
00BC: show_text_highpriority GXT 'SYN3_19' time 4000 flag 0  // ~r~MAWNHA YHN4TOGEHA!
Actor.RemoveReferences($GIRLFRIEND)
marker.disable($61)
marker.Disable($118)
gosub @MyTrigger
 
:MyMission_FAILED_bb
00BC: show_text_highpriority GXT 'GF_0039' time 4000 flag 0
Marker.Disable($86)
Marker.Disable($118)
Actor.RemoveReferences($GIRLFRIEND)
gosub @MyTrigger

:MyMission_AT
054C: use_GXT_table 'SWEET3' 
00BC: show_text_highpriority GXT 'SMOX_AC' time 3000 flag 1  // ~z~CADNCJ B MAWNHY!
$118 = Marker.CreateAboveCar($GIRLFRIEND_CAR)
07E0: set_marker $118 type_to 1
gosub @MyMission4a

Что тут неправильно?

#672 Re: Вопросы по скриптингу » Один вопрос » 18-02-2009 17:47

У меня вопрос, что за опкод такой: 04F8: define_police_trigger_type 2 if_player_with_wanted_level_in_rectangle -1506.0 2616.0 -1486.0 2625.0 spawn_policeA_at -1470.0 2604.0 headed_towards -1496.0 2604.0 spawn_policeB_at -1470.0 2604.0 headed_towards -1496.0 2604.0
(нашёл в оригинальном мэйне) и за что отвечает?

#674 Re: Работа с памятью, EXE » Нажатие клавиш » 16-02-2009 18:21

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

#675 Re: Вопросы по скриптингу » Транспортная проблема. » 16-02-2009 14:46

Спасибо за вариант. Проблему уже решил, сначала убрал актёра из машины, потом без ожидания снова посадил за руль.

Board footer

Powered by FluxBB