"Реальный" бензобак v. 2.0
Вот, новая и более совершенная версия "реального" бензобака. Фичи остались такими же, но теперь остаток бензина запоминается на 10 машинах, а не на одной, как это было раньше. Также теперь торможение гоночных авто работает лучше, чем в прошлой версии.
:BENZIN
thread 'BENZIN'
var
$MyCar: array 10 of integer
$BENZIN: array 10 of integer
end
1@ = 0
4@ = 0
:BENZIN_2
wait 0
if
Actor.Driving($PLAYER_ACTOR)
jf @BENZIN_2
if
not Actor.InCar($PLAYER_ACTOR, $MyCar[$i])
jf @BENZIN_4
jump @BENZIN_5
:BENZIN_3
wait 0
inc(4@)
if and
4@ > 1
not 4@ == 10
jf @BENZIN_7
008B: $i = 4@
jump @BENZIN_35
:BENZIN_35
03C0: $MyCar[$i] = actor $PLAYER_ACTOR car
if
8119: not car $MyCar[$i] wrecked
jf @BENZIN_8
if 5
8137: NOT car $MyCar[$i] id == #BMX
8137: NOT car $MyCar[$i] id == #MTBIKE
8137: NOT car $MyCar[$i] id == #BIKE
8137: NOT car $MyCar[$i] id == #STREAKC
8137: NOT car $MyCar[$i] id == #STREAK
8137: NOT car $MyCar[$i] id == #FREIGHT
jf @BENZIN_2
1@ = 1
2@ = 200
3@ = 10001
0209: $BENZIN[$i] = random_int 2@ 3@
jump @BENZIN_4
:BENZIN_4
wait 100
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_14
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_14
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_14
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_14
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_14
if
not $BENZIN[$i] = 2.0
jf @BENZIN_12
wait 350
02E3: 6@ = car $MyCar[$i] speed
6@ -= 1.0
Car.SetMaxSpeed($MyCar[$i], 6@)
04BA: set_car $MyCar[$i] speed_instantly 6@
jump @BENZIN_13
Vova
