Ремонт авиатранспорта в аэропортах.

BullDogHEMI427 · 10-09-2010 09:36

Теперь, если есть лётная лицензия, то можно отремонировать самолёт в любом из аэропортов. Стоимость ремонта зависит от степени повреждений и от того, не управляете ли вы часом Боингом/Андромедой;-).
Ремонтироваться в своём аэропорту можно будет только после выполнения "Зелёной Жижи"

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

:AIRREPAIR_2
wait 0
if   
   $TORENO_TOTAL_PASSED_MISSIONS >= 9
jf @AIRREPAIR_17
6@ = 365.3785
7@ = 2537.1365
8@ = 16.6647
gosub @AIRREPAIR_6
jump @AIRREPAIR_17

:AIRREPAIR_6
wait 0
if
   Player.Defined($PLAYER_CHAR)
jf @AIRREPAIR_6
if
   not Actor.Driving($PLAYER_ACTOR)
then return
end
if
84C8:   not actor $PLAYER_ACTOR driving_flying_vehicle 
then return
end
if
80EC:   not actor $PLAYER_ACTOR 0 near_point 6@ 7@ radius 350.0 350.0 
then return
end
03C0: 3@ = actor $PLAYER_ACTOR car 
if
   not Car.Defined(3@)
then return
end
4@ = Car.Health(3@)
if
   not 4@ < 1000
then return
end
03BC: 0@ = create_sphere_at 6@ 7@ 8@ radius 14.0 

:AIRREPAIR_8
wait 0
if and
00EF:   actor $PLAYER_ACTOR 0 near_point 6@ 7@ radius 19.0 19.0 stopped 
   3@ <> -1
   Car.Defined(3@) 
then jump @AIRREPAIR_11
end
4@ = Car.Health(3@)
if or
80EC:   not actor $PLAYER_ACTOR 0 near_point 6@ 7@ radius 360.0 360.0 
84C8:   not actor $PLAYER_ACTOR driving_flying_vehicle 
   4@ >= 1000
then
03BD: destroy_sphere 0@ 
return
end
jump @AIRREPAIR_8

:AIRREPAIR_11
wait 0
00BF: 1@ = current_time_hours, 2@ = current_time_minutes 
4@ = Car.Health(3@)
0A8F: 4@ = 1000 - 4@ // int
4@ *= 20
if or
   Car.Model(3@) == #AT400
   Car.Model(3@) == #ANDROM
then
4@ *= 20
end
4@ -= 1
if
   not Player.Money($PLAYER_ACTOR) > 4@
then
else
00BC: show_text_highpriority GXT 'IE07' time 2000 flag 1  // ~r~You don't have enough cash!
03BD: destroy_sphere 0@ 
while 00EC:   actor $PLAYER_ACTOR 0 near_point 6@ 7@ radius 19.0 19.0 
wait 0
end
return
end
if
   Player.WantedLevel($PLAYER_CHAR) > 1
then
03BD: destroy_sphere 0@ 
00BC: show_text_highpriority GXT 'TUNERR2' time 2000 flag 1  // ~r~Lose the cops!
while 00EC:   actor $PLAYER_ACTOR 0 near_point 6@ 7@ radius 19.0 19.0 
wait 0
end
return
end
03BD: destroy_sphere 0@ 
Player.CanMove($PLAYER_CHAR) = False
0169: set_fade_color_RGB 0 0 0 
fade 0 600 
wait 600
0A30: repair_car 3@
1@ += 3
00C0: set_current_time_hours_to 1@ minutes_to 2@ 
wait 1500
fade 1 600 
4@ += 1
4@ *= -1
0109: player $PLAYER_CHAR money += 4@ 
//Player.Money($PLAYER_ACTOR) += 4@
wait 800
Player.CanMove($PLAYER_CHAR) = True
while 00EC:   actor $PLAYER_ACTOR 0 near_point 6@ 7@ radius 19.0 19.0 
wait 0
end
return

:AIRREPAIR_17
wait 0
if
   $PILOT_LICENSE_OBTAINED == 1
jf @AIRREPAIR_21
6@ = -1254.0619
7@ = -105.8971
8@ = 14.144
gosub @AIRREPAIR_6
jump @AIRREPAIR_21

:AIRREPAIR_21
wait 0
if
   $PILOT_LICENSE_OBTAINED == 1
jf @AIRREPAIR_24
6@ = 1609.3596
7@ = 1625.1526
8@ = 10.8203
gosub @AIRREPAIR_6
jump @AIRREPAIR_24

:AIRREPAIR_24
wait 0
if
   $PILOT_LICENSE_OBTAINED == 1
jf @AIRREPAIR_2
6@ = 1980.9952
7@ = -2381.9631
8@ = 13.5469
gosub @AIRREPAIR_6
jump @AIRREPAIR_2

Скрины:

SannyBuilder.com Forums

#1 10-09-2010 09:36

Ремонт авиатранспорта в аэропортах.

Board footer