000113. Делаем гоночную миссию ( SARMC v0.9 )

{$cleo}
0000:

:STARTER
thread 'STARTER'
wait 0
if
Player.Defined($PLAYER_CHAR)
jf @STARTER_END
0@ = Marker.CreateIconAndSphere(53, -2239.009, -206.6812, 35.4655)

while true
 if AND
 00EC: actor $PLAYER_ACTOR 0 near_point -2239.009 -206.6812 radius 2.0 2.0
 $ONMISSION == 0
 not actor.Driving($PLAYER_ACTOR)
 then
 break
 end
wait 0
end

Player.CanMove($PLAYER_CHAR) = false
Actor.SetImmunities($PLAYER_ACTOR, 1, 1, 1, 1, 1)
fade 0 1000
wait 1000

Marker.Disable(0@)
054C: use_GXT_table 'RACETOR'
00BA: text_styled 'RACES_0' 1500 ms 2 // Races
00BE: text_clear_all
03E6: remove_text_box
0A94: start_custom_mission "TEST_RC"
wait 1000
jump @STARTER

:STARTER_END
wait 0
0A93: end_custom_thread

{$cleo .cm}
0000:

//-------------Mission 0---------------

var
$money : integer = 20000
$traff : float = 0.0
$a : integer = 3
$ak : integer = 1
$b : integer = 2
$d : integer = 0
end

var
$nar : integer
$tar : integer
$time : float = 0.0
$dist : float
$dist2 : float
$pos : integer = 1
$pos2 : integer = 1
$stage : array 7 of integer
$car : array 7 of car
$model : array 7 of integer
$act : array 7 of actor
$mark : array 7 of marker
$carx : array 7 of float
$cary : array 7 of float
$carz : array 7 of float
$angle : array 7 of float
$pointx : array 10 of float
$pointy : array 10 of float
$pointz : array 10 of float
$speed : array 10 of float
$type : array 10 of integer
end

:TEST_RC_000
thread 'TEST_RC'
gosub @TEST_RC_47
if
 wasted_or_busted
jf @TEST_RC_38
gosub @TEST_RC_2497

:TEST_RC_38
gosub @TEST_RC_2762
end_thread

:TEST_RC_47
increment_mission_attempts
$ONMISSION = 1 // integer values
00C0: set_current_time 0 0
Player.ClearWantedLevel($PLAYER_CHAR)
00BE: text_clear_all
$a0 = 0 // integer values
$a1 = 1 // integer values
$a2 = 2 // integer values
$a3 = 3 // integer values
$a4 = 4 // integer values
$a5 = 5 // integer values
$a6 = 6 // integer values
$a7 = 7 // integer values
$a8 = 8 // integer values
$a9 = 9 // integer values
$a10 = 10 // integer values
$a11 = 11 // integer values

for $par = 1 to $a
$stage[$par] = 1
end

$pointx[$a1] = -2252.6108 // floating-point values
$pointy[$a1] = -36.9271 // floating-point values
$pointz[$a1] = 34.7809 // floating-point values
$speed[$a1] = 100.0 // floating-point values
$type[$a1] = 1 // integer values
$pointx[$a2] = -2250.3931 // floating-point values
$pointy[$a2] = 222.0426 // floating-point values
$pointz[$a2] = 34.774 // floating-point values
$speed[$a2] = 100.0 // floating-point values
$type[$a2] = 1 // integer values
$carx[$a1] = -2252.9915 // floating-point values
$cary[$a1] = -203.6328 // floating-point values
$carz[$a1] = 34.8808 // floating-point values
$angle[$a1] = 0.8863 // floating-point values
$carx[$a2] = -2256.1475 // floating-point values
$cary[$a2] = -203.5943 // floating-point values
$carz[$a2] = 34.8783 // floating-point values
$angle[$a2] = 0.2939 // floating-point values
$carx[$a3] = -2259.1709 // floating-point values
$cary[$a3] = -203.6472 // floating-point values
$carz[$a3] = 34.8799 // floating-point values
$angle[$a3] = 1.4727 // floating-point values
$model[$a1] = #MANANA
$model[$a2] = #STRATUM
$model[$a3] = #JESTER
054C: use_GXT_table 'RACETOR'

for $par = 1 to $a
Model.Load($model[$par])
end
038B: load_requested_models

:TEST_RC_111
wait 0 ms
for $par = 1 to $a
 if
 Model.Available($model[$par])
 jf @TEST_RC_111
end

01EB: set_traffic_density_to 0.0
0395: clear_area 0 at $carx[$ak] $cary[$ak] $carz[$ak] range 300.0
for $par = 1 to $a
$car[$par] = Car.Create($model[$par], $carx[$par], $cary[$par], $carz[$par])
Car.Angle($car[$par]) = $angle[$par]
07EE: car $car[$par] enable_tire_marks 1
Car.DoorStatus($car[$par]) = 2
 if
 $par <> $ak
 then
 0560: $car[$par] = create_random_driver_in_vehicle $act[$par]
 end
end

036A: put_actor $PLAYER_ACTOR in_vehicle $car[$ak]
03BF: set_player $PLAYER_CHAR ignored_by_everyone_to 1
03F4: set_all_vehicles_apply_damage_rules 0
wait 2500 ms
Camera.SetBehindPlayer
Camera.Restore
fade 1 1000
wait 1000 ms
00BA: text_styled 'RACES_4' 1100 ms 4 // 3
097A: at 0.0 0.0 0.0 play_sound 1056
wait 1100 ms
00BA: text_styled 'RACES_5' 1100 ms 4 // 2
097A: at 0.0 0.0 0.0 play_sound 1056
wait 1100 ms
00BA: text_styled 'RACES_6' 1100 ms 4 // 1
097A: at 0.0 0.0 0.0 play_sound 1056
wait 1100 ms
00BA: text_styled 'RACES_7' 800 ms 4 // GO!
097A: at 0.0 0.0 0.0 play_sound 1057
01BD: 11@ = current_time_in_ms
Player.CanMove($PLAYER_CHAR) = True
03BF: set_player $PLAYER_CHAR ignored_by_everyone_to 0
03F4: set_all_vehicles_apply_damage_rules 1
01EB: set_traffic_density_to $traff

for $par = 1 to $a
 if
 $par <> $ak
 then
 Car.SetSpeedInstantly($car[$par], 14.0)
 05D1: AS_actor $act[$par] drive_vehicle -1 to $pointx[$a1] $pointy[$a1] $pointz[$a1] speed $speed[$a1] $type[$a1] 0 2
 $mark[$par] = Marker.CreateAboveCar($car[$par])
 Marker.SetColor($mark[$par], 2)
 Marker.SetIconSize($mark[$par], 2)
 end
end

03C3: set_timer_with_text_to $time type 0 text 'TIMER' // TIME

for $kar = 1 to $b
$nar = $kar // integer values
$nar += 1 // integer values
018A: $chekp = create_checkpoint_at $pointx[$kar] $pointy[$kar] $pointz[$kar]
0168: show_on_radar $chekp 4
 if
 $kar == $b // integer values
 then
 Marker.SetColor($chekp, 0)
 $a0 = 1 // integer values
 end
06D5: $rchekp = create_racing_checkpoint_at $pointx[$kar] $pointy[$kar] $pointz[$kar] point_to $pointx[$nar] $pointy[$nar] $pointz[$nar] type $a0 radius 6.0
 while 8100: not actor $PLAYER_ACTOR near_point_in_vehicle $pointx[$kar] $pointy[$kar] $pointz[$kar] radius 12.0 12.0 12.0 sphere 0
 gosub @TEST_RC_211
 03F0: toggle_text_draw 0
 $pos2 = $pos // integer values
 0340: set_text_draw_color 134 155 184 255
 0349: text_draw_style = 1
 033F: set_text_draw_letter_width_height 1.0 3.6
 0341: unknown_text_stuff 3
 0342: set_text_draw_centered 1
 0343: set_text_linewidth 640.0
 060D: draw_text_shadow 2 color 0 0 0 alpha 180
 038E: draw_box position 570.7242 356.2812 scale 68.2072 48.2072 color 0 0 0 alpha 255
 038E: draw_box position 570.7242 356.2812 scale 66.2072 46.2072 color 134 155 184 alpha 255
 038E: draw_box position 570.7242 356.2812 scale 62.2072 42.2072 color 0 0 0 alpha 255
 045A: text_draw_1number 570.0 339.0 'RACES44' $pos2 // ~1~TH
 $pos = 1 // integer values
 if
 not Actor.InCar($PLAYER_ACTOR, $car[$ak])
 then
 jump @TEST_RC_2497
 end
 if or
 Car.Wrecked($car[$ak])
 02BF: car $car[$ak] sunk
 then
 jump @TEST_RC_2497
 end
 wait 0 ms
 end
Marker.Disable($chekp)
06D6: delete_racing_checkpoint $rchekp
097A: at 0.0 0.0 0.0 play_sound 1058
end
jump @TEST_RC_2491

:TEST_RC_211
for $ind = 1 to $a
 if
 $ind <> $ak // integer values
 then
 if
 $car[$ind] <> -1
 then
 if
 $stage[$ind] <= $b
 then
 $tar = $stage[$ind]
 if
 0100: actor $act[$ind] near_point_in_vehicle $pointx[$tar] $pointy[$tar] $pointz[$tar] radius 12.0 12.0 12.0 sphere 0
 then
 $stage[$ind] += 1
 if
 $stage[$ind] <= $b
 then
 $tar = $stage[$ind]
 05D1: AS_actor $act[$ind] drive_vehicle $car[$ind] to $pointx[$tar] $pointy[$tar] $pointz[$tar] speed $speed[$tar] $type[$tar] 0 2
 end
 end
 if
 $kar == $stage[$ind]
 then
 Car.StorePos($car[$ak], $xpos, $ypos, $zpos)
 0509: $dist = distance between point $xpos $ypos and point $pointx[$kar] $pointy[$kar]
 Car.StorePos($car[$ind], $xpos2, $ypos2, $zpos2)
 0509: $dist2 = distance between point $xpos2 $ypos2 and point $pointx[$kar] $pointy[$kar]
 if
 $dist > $dist2
 then
 $pos += 1
 end
 else
 if
 $stage[$ind] > $kar
 then
 $pos += 1
 end
 end
 else
 $pos += 1
 end
 if or
 01F4: vehicle $car[$ind] flipped
 02BF: car $car[$ind] sunk
 then
 Car.StorePos($car[$ind], $xpos, $ypos, $zpos)
 02C1: set $xpos $ypos $zpos to_car_path_coords_closest_to $xpos $ypos $zpos
 Car.PutAt($car[$ind], $xpos, $ypos, $zpos)
 end
 end
 end
end
return

:TEST_RC_2491
gosub @TEST_RC_REMOVE
if
$pos2 == 1
then
00BA: text_styled 'RACES18' 3000 ms 1 // Winner!
wait 3000 ms
01E3: text_1number_styled 'M_PASS' $money 4000 ms 1 // MISSION PASSED!~n~~w~$~1~
Player.Money($PLAYER_CHAR) += $money
01BD: 12@ = current_time_in_ms
0085: 13@ = 12@ // integer values and handles
0062: 13@ -= 11@ // integer values
13@ /= 1000.0 // floating-point values
0085: 452@ = 13@ // integer values and handles
452@ /= 60 // integer values
0085: 36@ = 452@ // integer values and handles
36@ *= 60 // integer values
0085: 453@ = 13@ // integer values and handles
0062: 453@ -= 36@ // integer values
0394: play_music 1
02FD: text_2numbers_lowpriority 'TIME' 452@ 453@ 8000 ms 1 // ~1~:~1~
else
01E3: text_1number_styled 'RACES_8' 200 5000 ms 1
01BD: 12@ = current_time_in_ms
0085: 13@ = 12@ // integer values and handles
0062: 13@ -= 11@ // integer values
13@ /= 1000.0 // floating-point values
0085: 452@ = 13@ // integer values and handles
452@ /= 60 // integer values
0085: 36@ = 452@ // integer values and handles
36@ *= 60 // integer values
0085: 453@ = 13@ // integer values and handles
0062: 453@ -= 36@ // integer values
02FD: text_2numbers_lowpriority 'TIME' 452@ 453@ 8000 ms 1 // ~1~:~1~
end
0318: set_latest_mission_passed_to 'RACES_0' // Races
Player.ClearWantedLevel($PLAYER_CHAR)
gosub @TEST_RC_38
return

:TEST_RC_2497
gosub @TEST_RC_REMOVE
00BA: text_styled 'RACES_8' 5000 ms 1 // Loser!
return

:TEST_RC_REMOVE
01EB: set_traffic_density_to 1.0
Car.DoorStatus($car[$ak]) = 0
for $par = 1 to $a
 if
 $car[$par] <> -1
 then
 Car.SetImmunities($car[$par], 0, 0, 0, 0, 0)
 Model.Destroy($model[$par])
 Car.RemoveReferences($car[$par])
 if
 $par <> $ak
 then
 Marker.Disable($mark[$par])
 Actor.RemoveReferences($act[$par])
 end
 end
end
Marker.Disable($chekp)
06D6: delete_racing_checkpoint $rchekp
03F0: toggle_text_draw 0
014F: delete_timer $time
01B7: release_weather
return

:TEST_RC_2762
$ONMISSION = 0 // integer values
mission_cleanup
return

Camera.SetBehindPlayer
Camera.Restore

Player.CanMove($PLAYER_CHAR) = False
// и
create_thread @TEST_RA

038B: load_requested_models