[Ruslikkk]

Вот что нового нашел:

Спидометр
Спидометр Скрипт графического спидометра! Сначала придётся сделать несколько установок:
1) Обязательно нужно скачать текстуру тут (нажмите кнопку Free, затем введите буквы и цифры с картинки и нажмите Энтер).
2) Файл SPEEDOM.txd скопировать в [\GTA-SanAndreas\models\txd]
А дальше как всегда засовывать скрипт в main.


:SPEEDOMETR_byHard
thread "SPEEDOMETR_byHard"
wait 3000

:SPEEDOMETR_byHard_1
wait 100
if
Player.Defined($PLAYER_CHAR)
else_jump @SPEEDOMETR_byHard_1
if
0038: $ONMISSION == 0
else_jump @SPEEDOMETR_byHard_1
if and
8118: NOT actor $PLAYER_ACTOR dead
8965: NOT actor $PLAYER_ACTOR in_water
00DF: actor $PLAYER_ACTOR driving
else_jump @SPEEDOMETR_byHard_1
03C0: $CJ_speed_1 = actor $PLAYER_ACTOR car
0390: load_txd_dictionary "SPEEDOM"
038F: request_texture "STRELK" as 1
038F: request_texture "STRELK2" as 2
wait 2000
08D4: $HARD_speed = create_panel_with_title 'dummy' position 515.0 400.0 width 50.0 columns 1 interactive 0 background 1 alignment 0 // Imports
08DB: set_panel $HARD_speed column 0 header 'DUMMY' data 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY'

:SPEEDOMETR_byHard_3
wait 0
02E3: $CJ_speed_2 = car $CJ_speed_1 speed
0011: $CJ_speed_2 *= 2.2 //floating-point values
0009: $CJ_speed_2 += 60.0 // floating-point values
02E3: $CJ_speed_3 = car $CJ_speed_1 speed
0011: $CJ_speed_3 *= 2.4 //floating-point values
008C: $CJ_speed_3 = float_to_integer $CJ_speed_3
08EE: set_panel $HARD_speed column 0 row 0 text_1number 'NUMBER' $CJ_speed_3
038D: create_texture 2 position 550.0 392.0 scale 180.0 180.0 color 255 255 255 alpha 255
074B: texture 1 position 550.0 392.0 scale 180.0 180.0 rotation $CJ_speed_2 color 255 255 255 alpha 255
03F0: text_draw_toggle 0
if or
0038: $ONMISSION == 1
0118: actor $PLAYER_ACTOR dead
80DF: NOT actor $PLAYER_ACTOR driving
jf @SPEEDOMETR_byHard_3

:SPEEDOMETR_byHard_end
wait 100
08DA: remove_panel $HARD_speed
wait 500
Car.RemoveReferences($CJ_speed_1)
03F0: text_draw_toggle 0
wait 500
jump @SPEEDOMETR_byHard_1

Бензобак
:BENZIN
thread 'BENZIN'
marker.CreateIconWithoutSphere($TOPL1,55,2201.8188 ,2476.791,17.0937)
marker.CreateIconWithoutSphere($TOPL2,55,2640.4836 ,1107.9344,17.0547)
marker.CreateIconWithoutSphere($TOPL3,55,2116.1138 ,921.5753,17.0547)
marker.CreateIconWithoutSphere($TOPL4,55,384.9267, 2602.614,16.4844)
marker.CreateIconWithoutSphere($TOPL5,55,391.5619, 2569.0234,16.3672)
marker.CreateIconWithoutSphere($TOPL6,55,-342.7661,2678.0959,63.5189)
marker.CreateIconWithoutSphere($TOPL7,55,-927.9468,2664.6614,44.5246)
marker.CreateIconWithoutSphere($TOPL8,55,-1328.4524,2677.6138,50.0625)
marker.CreateIconWithoutSphere($TOPL9,55,70.0441,1 217.7223,18.8117)
marker.CreateIconWithoutSphere($TOPL10,55,-2411.0598,977.6907,45.4609)
marker.CreateIconWithoutSphere($TOPL11,55,-2026.5817,156.5791,29.0391)
marker.CreateIconWithoutSphere($TOPL12,55,-1606.4712,-2712.9067,47.9788)
marker.CreateIconWithoutSphere($TOPL13,55,-91.6131,-1169.0676,1.867)
marker.CreateIconWithoutSphere($TOPL14,55,1938.948 5,-1773.2655,12.9043)
marker.CreateIconWithoutSphere($TOPL15,55,1382.282 8,462.5316,19.6513)
marker.CreateIconWithoutSphere($TOPL16,55,-1673.9116,414.3242,7.1797)

:BENZIN_1
wait 0
if
Actor.Driving($PLAYER_ACTOR)
jf @BENZIN_1
if
not Actor.InCar($PLAYER_ACTOR, $MyCar)
jf @BENZIN_2
03C0: $MyCar = actor $PLAYER_ACTOR car
if 2
8137: NOT car $MyCar id == #BMX
8137: NOT car $MyCar id == #MTBIKE
8137: NOT car $MyCar id == #BIKE
jf @BENZIN_1
2@ = 200
3@ = 10001
0209: $BENZIN = random_int 2@ 3@

:BENZIN_2
wait 0
if
8119: not car $MyCar wrecked
jf @BENZIN_8
if 5
8100: not actor $PLAYER_ACTOR near_point_in_car 2205.4712 2470.1516 9.8203 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car -1684.6312 407.8672 7.1797 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car 2205.3982 2480.5466 9.8203 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car 2199.3621 2480.4089 9.8203 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car -1671.7809 414.6198 7.1797 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car 2199.1409 2469.9216 9.8203 radius 5.0 5.0 5.0 sphere 1
jf @BENZIN_9
if 5
8100: not actor $PLAYER_ACTOR near_point_in_car 2640.0896 1103.14 9.8203 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car 2640.0896 1103.14 9.8203 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car 2645.2876 1109.4246 9.8203 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car 2639.866 1109.4246 9.8203 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car 2634.428 1109.1266 9.8203 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car 2108.9958 923.1729 9.8203 radius 5.0 5.0 5.0 sphere 1
jf @BENZIN_9
if 5
8100: not actor $PLAYER_ACTOR near_point_in_car 2634.5811 1103.4642 10.813 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car 2115.1096 923.4273 9.8203 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car 2120.8706 923.607 9.8203 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car 2120.7622 917.1142 9.8203 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car 2114.8164 917.1771 9.8203 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car 2108.8584 916.7469 9.8203 radius 5.0 5.0 5.0 sphere 1
jf @BENZIN_9
if 5
8100: not actor $PLAYER_ACTOR near_point_in_car 384.9267 2602.614 15.4844 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car 391.552 2569.1575 15.3672 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car -342.7661 2678.0959 63.5189 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car -927.9468 2664.6614 41.2364 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car -1328.4524 2677.6138 50.0625 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car 70.0441 1217.7223 18.8117 radius 5.0 5.0 5.0 sphere 1
jf @BENZIN_9
if 5
8100: not actor $PLAYER_ACTOR near_point_in_car -2407.6646 976.3728 45.2969 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car -2029.2676 156.5764 28.8359 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car -1605.3003 -2713.7961 48.5335 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car -87.203 -1163.811 2.2313 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car 1939.4865 -1771.0599 13.3828 radius 5.0 5.0 5.0 sphere 1
8100: not actor $PLAYER_ACTOR near_point_in_car 1380.7777 462.3883 20.1031 radius 5.0 5.0 5.0 sphere 1
jf @BENZIN_9
if
not $BENZIN <= 10
jf @BENZIN_7
if or
00E1: key_pressed 0 16
00E1: key_pressed 0 14
jf @BENZIN_4
$PACXOD = 8
4@ = 0.0
02E3: 1@ = car $MyCar speed

:BENZIN_3
wait 1
if
8119: not car $MyCar wrecked
jf @BENZIN_8
if
Actor.Driving($PLAYER_ACTOR)
jf @BENZIN_6
if
not 1@ == 0.0
jf @BENZIN_4
4@ += 5.0
$PACXOD -= 1
if 1
0025: 1@ > 4@
not $PACXOD == 1
jf @BENZIN_5
jump @BENZIN_3

:BENZIN_4
wait 1000
$PACXOD = 1
jump @BENZIN_5

:BENZIN_5
wait 200
if
8119: not car $MyCar wrecked
jf @BENZIN_8
if
Actor.Driving($PLAYER_ACTOR)
jf @BENZIN_6
if
Actor.InCar($PLAYER_ACTOR, $MyCar)
jf @BENZIN_1
0060: $BENZIN -= $PACXOD
008B: $BENZIN2 = $BENZIN
$BENZIN2 /= 100
04F7: status_text $BENZIN 0 line 2 'SPEEDO'
jump @BENZIN_2

:BENZIN_6
wait 50
if
8119: not car $MyCar wrecked
jf @BENZIN_8
02D4: unknown_turn_off_car $MyCar engine
if
not Actor.Driving($PLAYER_ACTOR)
jf @BENZIN_6
0151: remove_status_text $BENZIN2
jump @BENZIN_1

:BENZIN_7
wait 0
if
8119: not car $MyCar wrecked
jf @BENZIN_8
if
1@ >= 2.0
jf @BENZIN_6
wait 900
02E3: 1@ = car $MyCar speed
1@ -= 1.0
Car.SetMaxSpeed($MyCar, 1@)
04BA: set_car $MyCar speed_instantly 1@
jump @BENZIN_7

:BENZIN_8
wait 0
0151: remove_status_text $BENZIN2
Car.RemoveReferences($MyCar)
jump @BENZIN_1

:BENZIN_9
wait 10
if 1
not $BENZIN >= 10000
Player.Money($PLAYER_CHAR) > 1
jf @BENZIN_2
Player.Money($PLAYER_CHAR) += -2
$BENZIN += 40
$PACXOD -= 1
jump @BENZIN_5

Менты на радаре
:radar
0001: wait 0 ms
0004: $pcar = -1 ;; integer values
00D6: if 0
0256: player $PLAYER_CHAR defined
004D: jump_if_false ЈЈradar
00D6: if 0
00DF: actor $PLAYER_ACTOR driving
004D: jump_if_false ЈЈradar
04C4: create_coordinate $o0 $o1 $o2 from_actor $PLAYER_ACTOR offset 70.0 70.0 0.0
04C4: create_coordinate $o3 $o4 $o5 from_actor $PLAYER_ACTOR offset -70.0 -70.0 0.0
053E: $pcar = get_random_car_with_actors -1 in_area $o0 $o1 $o3 $o4
00D6: if 0
8038: NOT $pcar == -1
004D: jump_if_false ЈЈradar
00D6: if 25
0137: car $pcar id == 596
0137: car $pcar id == 597
0137: car $pcar id == 598
0137: car $pcar id == 599
0137: car $pcar id == 523
0137: car $pcar id == 528
004D: jump_if_false ЈЈradar
0186: $pcarm = create marker above car $pcar
0002: jump ЈЈradar

Сохранение
"Сохранение" { Добавляем в "меню паузы/игра/" новый пункт "Сохранение" , оно ещё и пашет Это первый в истории моддинга ГТА скрипт , меняющий меню Ha написание скрипта меню потянуло из-зa моей прогой "[SA]MenuEditor"Ищем на мапсе в софте , если кому пригодится .
Т.к. я писал на СБ3 , а там есть некоторые изменения , компилятор предыдуших версий может ругаться на цикл с переменной 0@ , поэтому переменную надо будет объявить в Var'e как Integer }

:CREATE_SAVE_MENU_LINE
wait 0
{Изменим сначало имя GXT ключа в меню паузы ,
в тексте которого написано "Start new game"
на другой (FEH_LOA), значение которого "Game" .}
0@ = -386370
&0(0@,1i) = 0x4C5F4845
0@ += 1
&0(0@,1i) = 0x0B00414F
If and
Player.Defined($PLAYER_CHAR)
not Actor.Driving($PLAYER_ACTOR)
$ONMISSION == 0
then
{Если с игроком всё в порядке и он не на миссии ,
и не едет в машине , тогда создаём строку меню
с GXT ключом 'FET_SG' , знач. которго "Save game" ,
ну и естественно пишим туда нужные нам параметры.}
0@ = -388622
&0(0@,1i) = 0x46050001
0@ += 1
&0(0@,1i) = 0x535F5445
0@ += 1
&0(0@,1i) = 0xB000047
0@ += 1
&0(0@,1i) = 0x10
0@ += 1
&0(0@,1i) = 0x10000
else
{В другом же случае делаем эту строку недоступной (1)
или просто обнуляем эту строку (2) }
0@ = -388622
// (1) Можно просто сделать строку недоступной
// для наведения курсора :
&0(0@,1i) = 0x46000001
// (2) А можно и вовсе убрать из меню :
&0(0@,1i) = 1
for 0@ = -388621 to -388617
&0(0@,1i) = 0
end // for
end // i-t-e
jump @CREATE_SAVE_MENU_LINE

Магазин тачек
DEFINE OBJECT nto_b_tw

create_thread @carshop

:carshop
wait 0
thread 'CARSHOP'

:carshop_2
wait 0
model.Load(#BULLET)
model.Load(#INFERNUS)
model.Load(#PHOENIX)
model.Load(#LAPD1)
model.Load(#WMYBMX)
model.Load(#KB_COUCH04)
model.Load(#MAN_SDR_TABLES)
06E9: request_car_component #nto_b_tw
038B: load_requested_models

:carshop_3
wait 0
if and
model.Available(#BULLET)
model.Available(#INFERNUS)
model.Available(#PHOENIX)
model.Available(#LAPD1)
model.Available(#WMYBMX)
model.Available(#MAN_SDR_TABLES)
model.Available(#KB_COUCH04)
jf @carshop_3
if and
06EA: car_component_available #nto_b_tw
04EE: animation "PED" loaded
jf @carshop_3
marker.CreateIconWithoutSphere($mark,55,-1960.0,284.7092,35.4688)

:carshop_4
wait 0
if or
00ED: actor $PLAYER_ACTOR 0 near_point -1960.0 284.7092 radius 150.0 150.0 on_foot
0100: actor $PLAYER_ACTOR near_point_in_car -1960.0 284.7092 35.4 radius 150.0 150.0 150.0 sphere 0
jf @carshop_4

:carshop_5
wait 0
04E4: unknown_refresh_game_renderer_at -1958.16 301.45
04E4: unknown_refresh_game_renderer_at -1947.45 267.89
04E4: unknown_refresh_game_renderer_at -1958.52 261.29
wait 50
0395: clear_area 1 at -1947.45 267.89 35.4363 range 50.0
wait 50
car.Create($infer,#INFERNUS,-1958.1641,301.459,35.2774)
car.Angle($infer) = 162.7
car.DoorStatus($infer) = 2
car.SetImmunities($infer,1,1,1,1,1)
car.Create($bullet,#BULLET,-1947.4531,267.8902,35.123)
car.Angle($bullet) = 54.4
car.DoorStatus($bullet) = 2
car.SetImmunities($bullet,1,1,1,1,1)
car.Create($phoenix,#PHOENIX,-1958.5234,261.2943,35.1197)
car.Angle($phoenix) = 332.6
car.DoorStatus($phoenix) = 2
car.SetImmunities($phoenix,1,1,1,1,1)
object.Create($stol,#MAN_SDR_TABLES,-1961.0756,282.4333,34.4688)
object.Create($kreslo,#KB_COUCH04,-1961.3035,280.3008,34.4739)
object.Angle($kreslo) = 160.2
object.Create($kreslo2,#KB_COUCH04,-1962.9984,283.2257,34.4739)
object.Angle($kreslo2) = 50.5
actor.Create($oxpaHa,Cop,#LAPD1,-1962.2814,281.3864,35.4739)
actor.Angle($oxpaHa) = 320.9
actor.Create($pro,GANG2,#WMYBMX,-1962.2251,283.0775,35.4739)
actor.Angle($pro) = 230.4
0605: actor $oxpaHa perform_animation_sequence "SEAT_IDLE" from_file "PED" 4.0 loop 0 0 0 1 8000
0605: actor $pro perform_animation_sequence "SEAT_IDLE" from_file "PED" 4.0 loop 0 0 0 1 8000

:carshop_6
wait 0
0102: actor $PLAYER_ACTOR in_sphere -1960.0 284.7 35.4 radius 1.5 1.5 2.5 sphere 1 stopped_on_foot
jf @carshop_6
Player.CanMove($PLAYER_CHAR) = False
0639: AS_actor $PLAYER_ACTOR rotate_to_actor $pro
0639: AS_actor $pro rotate_to_actor $PLAYER_ACTOR
05C9: AS_actor $pro on_guard 2000
067E: put_camera_on_actor $PLAYER_ACTOR with_offset 1.0 -1.0 1.0 point_to_actor $pro 0.0 mode 2
wait 10

:carshop_6_1
wait 0
08D4: $table = create_panel_with_title 'CARMOD1' position 31.0 180.0 width 178.0 columns 2 interactive 1 background 1 alignment 1
08D6: $table 0 1
09DB: $table 0 200
08DB: set_panel $table column 0 header 'CARGOBB' data 'INFERNU' 'BULLET' 'PHOENIX' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY'
08D6: $table 1 2
08DB: $table 1 'COST' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY'
0004: $price1 = 7990
0004: $price2 = 9990
0004: $price3 = 10159
08EE: $table 1 0 'DOLLAR' $price1
08EE: $table 1 1 'DOLLAR' $price2
08EE: $table 1 2 'DOLLAR' $price3
wait 10
090E: set_panel $table active_row 0

:carshop_7
wait 0
if
00E1: key_pressed 0 15
jf @carshop_8
03E6: remove_text_box
08DA: remove_panel 1@
Player.CanMove($PLAYER_CHAR) = True
Camera.Restore_WithJumpCut
wait 10000
jump @carshop_6

:carshop_8
wait 0
if
00E1: key_pressed 0 16
jf @carshop_7
03E6: remove_text_box
08D7: $_LEVEL = panel $table active_row
08DA: remove_panel $table

:carshop_9
wait 0
if
$_LEVEL == 0
jf @carshop_10
camera.SetPosition(-1956.6802, 296.2223, 36.4688,0.0,0.0,0.0)
camera.OnVehicle($infer,15,2)
08D4: $table2 = create_panel_with_title 'CARMOD1' position 31.0 180.0 width 178.0 columns 2 interactive 1 background 1 alignment 1
08D6: $table2 0 1
09DB: $table2 0 200
08DB: set_panel $table2 column 0 header 'CARGOBB' data 'PLA_20' 'CARM18' 'CARM6' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY'
wait 10
090E: set_panel $table2 active_row 0

:carshop_9_1
wait 0
if
00E1: key_pressed 0 15
jf @carshop_9_2
03E6: remove_text_box
08DA: remove_panel $table2
jump @carshop_6_1

:carshop_9_2
wait 0
if
00E1: key_pressed 0 16
jf @carshop_9_1
03E6: remove_text_box
08D7: $_LEVEL2 = panel $table2 active_row
08DA: remove_panel $table2

:carshop_9_3
wait 0
if
$_LEVEL2 == 0
jf @carshop_9_4
fade 0 1000
wait 1000
car.Create($infer2,#INFERNUS,-1974.2239, 288.3419, 35.1719)
car.Angle($infer2) = 88.5094
wait 10
036A: put_actor $PLAYER_ACTOR in_car $infer2
Player.CanMove($PLAYER_CHAR) = True
Camera.Restore_WithJumpCut
Player.Money($PLAYER_CHAR) += -7990
wait 100
fade 1 1000
wait 5000
jump @carshop_6

:carshop_9_4
wait 0
if
$_LEVEL2 == 1
jf @carshop_9_5
fade 0 1000
wait 1000
car.Create($infer2,#INFERNUS,-1974.2239, 288.3419, 35.1719)
car.Angle($infer2) = 88.5094
car.ToggleHydraulics($infer2) = true
wait 10
036A: put_actor $PLAYER_ACTOR in_car $infer2
Player.CanMove($PLAYER_CHAR) = True
Camera.Restore_WithJumpCut
Player.Money($PLAYER_CHAR) += -7990
wait 100
fade 1 1000
wait 5000
jump @carshop_6

:carshop_9_5
wait 0
if
$_LEVEL2 == 2
jf @carshop_9_3
fade 0 1000
wait 1000
car.Create($infer2,#INFERNUS,-1974.2239, 288.3419, 35.1719)
car.Angle($infer2) = 88.5094
06E7: 1@ = add_car_component #nto_b_tw to_car $infer2
wait 10
036A: put_actor $PLAYER_ACTOR in_car $infer2
Player.CanMove($PLAYER_CHAR) = True
Camera.Restore_WithJumpCut
Player.Money($PLAYER_CHAR) += -7990
wait 100
fade 1 1000
wait 5000
jump @carshop_6
//---------------------------------------------------
:carshop_10
wait 0
if
$_LEVEL == 1
jf @carshop_11
camera.SetPosition(-1949.4364, 272.4569, 36.4739,0.0,0.0,0.0)
camera.OnVehicle($bullet,15,2)
08D4: $table2 = create_panel_with_title 'CARMOD1' position 31.0 180.0 width 178.0 columns 2 interactive 1 background 1 alignment 1
08D6: $table2 0 1
09DB: $table2 0 200
08DB: set_panel $table2 column 0 header 'CARGOBB' data 'PLA_20' 'CARM18' 'CARM6' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY'
wait 10
090E: set_panel $table2 active_row 0

:carshop_10_1
wait 0
if
00E1: key_pressed 0 15
jf @carshop_10_2
03E6: remove_text_box
08DA: remove_panel $table2
jump @carshop_6_1

:carshop_10_2
wait 0
if
00E1: key_pressed 0 16
jf @carshop_10_1
03E6: remove_text_box
08D7: $_LEVEL2 = panel $table2 active_row
08DA: remove_panel $table2

:carshop_10_3
wait 0
if
$_LEVEL2 == 0
jf @carshop_10_4
fade 0 1000
wait 1000
car.Create($bullet2,#BULLET,-1974.2239, 288.3419, 35.1719)
car.Angle($bullet2) = 88.5094
wait 10
036A: put_actor $PLAYER_ACTOR in_car $bullet2
Player.CanMove($PLAYER_CHAR) = True
Camera.Restore_WithJumpCut
Player.Money($PLAYER_CHAR) += -9990
wait 100
fade 1 1000
wait 5000
jump @carshop_6

:carshop_10_4
wait 0
if
$_LEVEL2 == 1
jf @carshop_10_5
fade 0 1000
wait 1000
car.Create($bullet2,#BULLET,-1974.2239, 288.3419, 35.1719)
car.Angle($bullet2) = 88.5094
car.ToggleHydraulics($bullet2) = true
wait 10
036A: put_actor $PLAYER_ACTOR in_car $bullet2
Player.CanMove($PLAYER_CHAR) = True
Camera.Restore_WithJumpCut
Player.Money($PLAYER_CHAR) += -9990
wait 100
fade 1 1000
wait 5000
jump @carshop_6

:carshop_10_5
wait 0
if
$_LEVEL2 == 2
jf @carshop_10_3
fade 0 1000
wait 1000
car.Create($bullet2,#BULLET,-1974.2239, 288.3419, 35.1719)
car.Angle($bullet2) = 88.5094
06E7: 1@ = add_car_component #nto_b_tw to_car $bullet2
wait 10
036A: put_actor $PLAYER_ACTOR in_car $bullet2
Player.CanMove($PLAYER_CHAR) = True
Camera.Restore_WithJumpCut
Player.Money($PLAYER_CHAR) += -9990
wait 100
fade 1 1000
wait 5000
jump @carshop_6
//----------------------------------------------
:carshop_11
wait 0
if
$_LEVEL == 2
jf @carshop_9
camera.SetPosition(-1958.5066, 266.8104, 36.4688,0.0,0.0,0.0)
camera.OnVehicle($phoenix,15,2)
08D4: $table2 = create_panel_with_title 'CARMOD1' position 31.0 180.0 width 178.0 columns 2 interactive 1 background 1 alignment 1
08D6: $table2 0 1
09DB: $table2 0 200
08DB: set_panel $table2 column 0 header 'CARGOBB' data 'PLA_20' 'CARM18' 'CARM6' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY'
wait 10
090E: set_panel $table2 active_row 0

:carshop_11_1
wait 0
if
00E1: key_pressed 0 15
jf @carshop_11_2
03E6: remove_text_box
08DA: remove_panel $table2
jump @carshop_6_1

:carshop_11_2
wait 0
if
00E1: key_pressed 0 16
jf @carshop_11_1
03E6: remove_text_box
08D7: $_LEVEL2 = panel $table2 active_row
08DA: remove_panel $table2

:carshop_11_3
wait 0
if
$_LEVEL2 == 0
jf @carshop_11_4
fade 0 1000
wait 1000
car.Create($phoenix2,#PHOENIX,-1974.2239, 288.3419, 35.1719)
car.Angle($phoenix2) = 88.5094
wait 10
036A: put_actor $PLAYER_ACTOR in_car $phoenix2
Player.CanMove($PLAYER_CHAR) = True
Camera.Restore_WithJumpCut
Player.Money($PLAYER_CHAR) += -10159
wait 100
fade 1 1000
wait 5000
jump @carshop_6

:carshop_11_4
wait 0
if
$_LEVEL2 == 1
jf @carshop_11_5
fade 0 1000
wait 1000
car.Create($phoenix2,#PHOENIX,-1974.2239, 288.3419, 35.1719)
car.Angle($phoenix2) = 88.5094
car.ToggleHydraulics($phoenix2) = true
wait 10
036A: put_actor $PLAYER_ACTOR in_car $phoenix2
Player.CanMove($PLAYER_CHAR) = True
Camera.Restore_WithJumpCut
Player.Money($PLAYER_CHAR) += -10159
wait 100
fade 1 1000
wait 5000
jump @carshop_6

:carshop_11_5
wait 0
if
$_LEVEL2 == 2
jf @carshop_11_3
fade 0 1000
wait 1000
car.Create($phoenix2,#PHOENIX,-1974.2239, 288.3419, 35.1719)
car.Angle($phoenix2) = 88.5094
06E7: 1@ = add_car_component #nto_b_tw to_car $phoenix2
wait 10
036A: put_actor $PLAYER_ACTOR in_car $phoenix2
Player.CanMove($PLAYER_CHAR) = True
Camera.Restore_WithJumpCut
Player.Money($PLAYER_CHAR) += -10159
wait 100
fade 1 1000
wait 5000
jump @carshop_6


Наверно сами разберетесь как куда все ставить, а если все таки что нить не выйдет - обращайтесь

[Ruslikkk]

Вот что нового нашел:

"Сохранение" { Добавляем в "меню паузы/игра/" новый пункт "Сохранение" , оно ещё и пашет Это первый в истории моддинга ГТА скрипт , меняющий меню Ha написание скрипта меню потянуло из-зa моей прогой "[SA]MenuEditor"Ищем на мапсе в софте , если кому пригодится .
Т.к. я писал на СБ3 , а там есть некоторые изменения , компилятор предыдуших версий может ругаться на цикл с переменной 0@ , поэтому переменную надо будет объявить в Var'e как Integer }

:CREATE_SAVE_MENU_LINE
wait 0
{Изменим сначало имя GXT ключа в меню паузы ,
в тексте которого написано "Start new game"
на другой (FEH_LOA), значение которого "Game" .}
0@ = -386370
&0(0@,1i) = 0x4C5F4845
0@ += 1
&0(0@,1i) = 0x0B00414F
If and
Player.Defined($PLAYER_CHAR)
not Actor.Driving($PLAYER_ACTOR)
$ONMISSION == 0
then
{Если с игроком всё в порядке и он не на миссии ,
и не едет в машине , тогда создаём строку меню
с GXT ключом 'FET_SG' , знач. которго "Save game" ,
ну и естественно пишим туда нужные нам параметры.}
0@ = -388622
&0(0@,1i) = 0x46050001
0@ += 1
&0(0@,1i) = 0x535F5445
0@ += 1
&0(0@,1i) = 0xB000047
0@ += 1
&0(0@,1i) = 0x10
0@ += 1
&0(0@,1i) = 0x10000
else
{В другом же случае делаем эту строку недоступной (1)
или просто обнуляем эту строку (2) }
0@ = -388622
// (1) Можно просто сделать строку недоступной
// для наведения курсора :
&0(0@,1i) = 0x46000001
// (2) А можно и вовсе убрать из меню :
&0(0@,1i) = 1
for 0@ = -388621 to -388617
&0(0@,1i) = 0
end // for
end // i-t-e
jump @CREATE_SAVE_MENU_LINE


Надеюсь сами справитесь как ставить, если нет то обращайтесь

[Kuirp]

У мя проблема с DFF плагином для 3d's MAX. Он не может импортировать файлы находящиеся в папке GTA San Andreas\models\generic.
Пишет
--Runtime error: invalid setFace vertex index:[79,1,15532]
Что это значит и как это исправить?

[andNsX]

Kuirp
Это вроде нестандартные ДФФ. Попробуй загрузить из архива gta3.img. Должно получиться.

[Chkalov_vs]

Сообщение от andNsX

Это вроде нестандартные ДФФ. Попробуй загрузить из архива gta3.img. Должно получиться.

Из этой папки открывается только hoop.dff и arrow.DFF. Даже если поместить файлы в img архив программа Game_Archive_Viewer_v4_7 показывает только имена и количество полигонов находящихся в ddf файле объектов. Сами же объекты не показывает и выдает ошибку.
Похоже это какая-то защита.

[Regfre]

Ктонить подскажите как увеличить максималку у самолёта Гидры!
Плизз!

[Kuirp]

Даже если поместить файлы в img архив программа Game_Archive_Viewer_v4_7 показывает только имена и количество полигонов находящихся в ddf файле объектов.

Что за Game_Arhive_Viewer_v4_7?
Для чего служит?
Первый раз о ней слышу

Добавлено через 3 минуты

Из этой папки открывается только hoop.dff и arrow.DFF.

А че нет проги которая может открыть эти файлы?
Или плагина для MAX'а?

[Chkalov_vs]

Сообщение от Kuirp

Что за Game_Arhive_Viewer_v4_7?

Ее на Мании вкладывали уже. Это тот же imgtool, только кроме названий файлов показывает геометрию и текстуры.

Сообщение от Kuirp

А че нет проги которая может открыть эти файлы?

Не интересовался этим вопросом. Как я понял там лежат стандартные колеса, неплохо было бы их заменить...

[Kuirp]

Сообщение от Kuirp
Что за Game_Arhive_Viewer_v4_7?

Ее на Мании вкладывали уже

В каком номере?

Как я понял там лежат стандартные колеса, неплохо было бы их заменить...

Ну так я почему и спрашивал: хочется заменить стандартные колеса своими.

[Ruslikkk]

Сообщение от Regfre

Ктонить подскажите как увеличить максималку у самолёта Гидры!
Плизз!

Тебе что скорость увеличить?
Если да, то есть два способа:
1) вручную:
Открываешь файл handling(\GTA San Andreas\data) любым текстовым редактором, ищещ параметр любого транспорта и меняешь.
2) при помощи проги SA Handling Editor.
В проге все облегчено до безумия.

[Regfre]

Это я знаю?но проблема в том что даже если поставиш скорость 9999999 у самолёта она всё равно выше 270км дробь час не поднимается !
Это касается всех самолётов и летающих тачег!

[Ruslikkk]

Сообщение от Regfre

Это я знаю?но проблема в том что даже если поставиш скорость 9999999 у самолёта она всё равно выше 270км дробь час не поднимается !
Это касается всех самолётов и летающих тачег!

значит у тя какой то GTA не такой ведь у меня получаеться...

[Chkalov_vs]

Сообщение от Ruslikkk

значит у тя какой то GTA не такой ведь у меня получаеться...

До 9999999? О_о А я думал что кроме handling есть ограничение скорости в коде игры. Во всяком случае такие ограничения на скорость, массу и прочее были в Вайсе...

[Ruslikkk]

Сообщение от Chkalov_vs

До 9999999? О_о А я думал что кроме handling есть ограничение скорости в коде игры. Во всяком случае такие ограничения на скорость, массу и прочее были в Вайсе...

Когда я разбирался в скрипте ни чего такого не нашел.

[Ruslikkk]

Выкладываю все проги по GTA SA (Некоторые подходят и для поздних версий GTA):

MED – программа для редактирования карты San Andres’ a

TXD workshop – программа для редактировании текстур San Andres’ a

IMG TOOL – программа для редактирования файлов с расширением .img , которые содержат текстуры и модели San Andres’ a

Сoll editor – программа для создания материи для объекта

KAMS Max – скрипт для импорта и\или экспорта объектов из 3ds max

SannyBuilder – программа для создания собственных миссий в San Andres’ е

SARMC – программа для быстрого создания гоночной миссии

SAAT visual 100 – программа для редактирования всех звуков (короче все что вы слышите в San Andres’ е – все можно изменить)

GXT Editor - для редактирования текстов которые встречаются в San Andres’ е

SA Handling Editor - программа для изменения параметров транспортных средств

SA Path Editor - программа для создания и редактирования путей (у меня не запустилась)

G-DAR – программа для редактирования радара (у меня не запустилась)

ZModeler2 – редактор объектов (если у вас нет макса)

Большую часть программ вы наверняка сможете найти на дисках ИгроМании.

Да вот еще:

www.gta.gameguru.ru – самый, по моему мнению, интересный сайт про все серии GTA

Если ссылка на сайт www.gta.gameguru.ru не работает то тогда сделайте следующее:
1) Зайдите на сайт www.gameguru.ru
2) Прокрутите ползунок немного вниз, вы должны увидеть картинку из игры San Andres, на картинке написано gta.gameguru
3) Щелкните по картинке и вы уже на сайте

[_†DAMIAN†_]

1) При попытке компелировать main.scm через SABuilder033 выскакивает сабещие с натпесью: "Install SA PC version first" что это значит и как от этого избавится ?
2) При попытке компелировать все тот-же main.scm через Sanny Builder 3 такая ошибка: Метра "NONAME_1" не найдена. - Это значит что компилятор не смог найти данную метку в скирипте и необходимо указать эту метку. Только где именно ?

[Ruslikkk]

Сообщение от _†DAMIAN†_

1) При попытке компелировать main.scm через SABuilder033 выскакивает сабещие с натпесью: "Install SA PC version first" что это значит и как от этого избавится ?
2) При попытке компелировать все тот-же main.scm через Sanny Builder 3 такая ошибка: Метра "NONAME_1" не найдена. - Это значит что компилятор не смог найти данную метку в скирипте и необходимо указать эту метку. Только где именно ?

Сразу после майна пропиши create_thread @NONAME_1
:main
...
...
create_thread @noname1
:noname1
...
...
end_thread

[_†DAMIAN†_]

Сообщение от Ruslikkk

Сразу после майна пропиши create_thread @NONAME_1
:main
...
...
create_thread @noname1
:noname1
...
...
end_thread

Спасибо.
Но мог бы ты еще указать номер страки после которой нужно вставить эту метку ?
Буду благодарен.

[Ruslikkk]

Сообщение от _†DAMIAN†_

Спасибо.
Но мог бы ты еще указать номер страки после которой нужно вставить эту метку ?
Буду благодарен.

короче у тебя начинаеться :main
его конец будет тогда когда начнеться другой поток
т.е. например твой :NONEME1

сразу перед словом :NONEME1 пишешь то что написал в предыдушем ответе, и после него пишешь end_thead

[Kuirp]

Кто знает статью которая подробно описывает создание(моделирование и текстурирование) персонажа для GTA: San Andreas в 3d's MAX'е(ну и вообще про создание моделей одежды, PED'ов...). Я нигде не нашел статьи, по руководству которой у меня бы получилось сделать своего персонажа и переконвертировать его в ГТА.(чтоб игра работала разумеется ) Везде есть недочеты.
А так хочется увидеть своего персонажа в игре....