Napisano dnia: 2011-01-09 17:56:46
Napisałem sobie skrypt na nową posiadłość. Wszystko byłoby ok gdyby nie to, że muszę to "zgrać" z CLEO_SAVES.
Uruchamiam grę i wszystko jest OK. Wykonuje część skryptu do miejsca w którym tworzy mi się pickup dyskietki. Zapisuję wtedy grę.
Gdy ją wczytam to pasek dochodzi do końca, widzę czarny ekran i gra się wiesza.
Co jest przyczyną?
Kod:
{$CLEO .cs}
0000: NOP
0247: request_model #MAVERICK
0247: request_model #JETMAX
038B: load_requested_models
$cena1 = 250000
0180: set_on_mission_flag_to $ONMISSION // Note: your missions have to use the variable defined here
:petla01
wait 10
if
0256: player $PLAYER_CHAR defined
jf @petla01
jump @spr23
:spr23
wait 10
if
0039: 4@ == 1
jf @petla1
jump @save2_check1
:petla1
wait 10
if and
0256: player $PLAYER_CHAR defined
00EC: actor $PLAYER_ACTOR 0 near_point 724.3397 -2392.6152 radius 250.0 250.0
$ONMISSION = 0
jf @petla1
00A5: $PARKED_HELI = create_car #MAVERICK at 690.2287 -2391.1602 1.6224
0175: set_car $PARKED_HELI Z_angle_to 181.9410
020A: set_car $PARKED_HELI door_status_to 2
00A5: $PARKED_JET = create_car #JETMAX at 724.6205 -2358.9104 -1.6433
0175: set_car $PARKED_JET Z_angle_to 90.0
0518: $domkuptrue = create_available_asset_pickup 'PROP_3' at 724.3397 -2392.6152 2.6896 price $cena1 // Press ~k~~PED_ANSWER_PHONE~ to buy this property.
:dom_check2
wait 10
if and
00EC: actor $PLAYER_ACTOR 0 near_point 724.3397 -2392.6152 radius 1.0 1.0
00E1: player 0 pressed_key 4
010A: player $PLAYER_CHAR money > $cena1
$ONMISSION = 0
jf @dom_check2
0109: player $PLAYER_CHAR money += -250000
0215: destroy_pickup $domkuptrue
01B4: set_player $PLAYER_CHAR can_move 0
wait 500
0826: enable_hud 0
0581: enable_radar 0
Camera.SetPosition(734.0233, -2420.2095, 10.3088, 0.0, 0.0, 0.0)
Camera.PointAt(717.9075, -2382.9634, 2.6896, 2)
0394: play_music 2
00BA: show_text_styled GXT 'BUYPRO' time 5000 style 2
00A6: destroy_car $PARKED_JET
00A6: destroy_car $PARKED_HELI
:stworzauta
014B: $PARKED_HELI = init_parked_car_generator #MAVERICK color 21 0 1 alarm 0 door_lock 0 0 10000 at 690.2287 -2391.1602 1.6224 angle 181.9410
014C: set_parked_car_generator $PARKED_HELI cars_to_generate_to 101
014B: $PARKED_JET = init_parked_car_generator #JETMAX color 21 0 1 alarm 0 door_lock 0 0 10000 at 724.6205 -2358.9104 -1.6433 angle 90.0
014C: set_parked_car_generator $PARKED_JET cars_to_generate_to 102
wait 5000
0826: enable_hud 1
0581: enable_radar 1
02EB: restore_camera_with_jumpcut
0373: set_camera_directly_behind_player
01B4: set_player $PLAYER_CHAR can_move 1
wait 2000
03E5: show_text_box 'POSHELP1'
0039: 4@ == 1
0A95: enable_thread_saving
:save2_check1
wait 10
if and
Player.Defined($PLAYER_CHAR)
$ONMISSION = 0
jf @save2_check1
$SAVEPCKP1 = Pickup.Create(1277, 3, 714.7087, -2389.7297, 2.6896)
:save2_check2
wait 10
if
$ONMISSION == 1
jf @save2_check3
Pickup.Destroy($SavePickup)
jump @save2_check1
:save2_check3
wait 10
if and
80DF: not actor $PLAYER_ACTOR driving
$ONMISSION = 0
0214: pickup $SAVEPCKP1 picked_up
jf @save2_check2
Player.CanMove($PLAYER_CHAR) = False
fade 0 10
:save2_check4
wait 10
if
816B: not fading
jf @save2_check4
0395: clear_area 1 at 714.7087 -2389.7297 2.6896 radius 80.0
00A1: put_actor $PLAYER_ACTOR at 716.7087 -2389.7297 2.6896
0173: set_actor $PLAYER_ACTOR Z_angle_to 12.0
02EB: restore_camera_with_jumpcut
wait 50
03D8: show_save_screen
:save2_check5
wait 10
if
83D9: not save_done
jf @save2_check6
jump @save2_check5
:save2_check6
fade 1 1500
Player.CanMove($PLAYER_CHAR) = True
jump @save2_check1
0A93: end_custom_thread
0000: NOP
0247: request_model #MAVERICK
0247: request_model #JETMAX
038B: load_requested_models
$cena1 = 250000
0180: set_on_mission_flag_to $ONMISSION // Note: your missions have to use the variable defined here
:petla01
wait 10
if
0256: player $PLAYER_CHAR defined
jf @petla01
jump @spr23
:spr23
wait 10
if
0039: 4@ == 1
jf @petla1
jump @save2_check1
:petla1
wait 10
if and
0256: player $PLAYER_CHAR defined
00EC: actor $PLAYER_ACTOR 0 near_point 724.3397 -2392.6152 radius 250.0 250.0
$ONMISSION = 0
jf @petla1
00A5: $PARKED_HELI = create_car #MAVERICK at 690.2287 -2391.1602 1.6224
0175: set_car $PARKED_HELI Z_angle_to 181.9410
020A: set_car $PARKED_HELI door_status_to 2
00A5: $PARKED_JET = create_car #JETMAX at 724.6205 -2358.9104 -1.6433
0175: set_car $PARKED_JET Z_angle_to 90.0
0518: $domkuptrue = create_available_asset_pickup 'PROP_3' at 724.3397 -2392.6152 2.6896 price $cena1 // Press ~k~~PED_ANSWER_PHONE~ to buy this property.
:dom_check2
wait 10
if and
00EC: actor $PLAYER_ACTOR 0 near_point 724.3397 -2392.6152 radius 1.0 1.0
00E1: player 0 pressed_key 4
010A: player $PLAYER_CHAR money > $cena1
$ONMISSION = 0
jf @dom_check2
0109: player $PLAYER_CHAR money += -250000
0215: destroy_pickup $domkuptrue
01B4: set_player $PLAYER_CHAR can_move 0
wait 500
0826: enable_hud 0
0581: enable_radar 0
Camera.SetPosition(734.0233, -2420.2095, 10.3088, 0.0, 0.0, 0.0)
Camera.PointAt(717.9075, -2382.9634, 2.6896, 2)
0394: play_music 2
00BA: show_text_styled GXT 'BUYPRO' time 5000 style 2
00A6: destroy_car $PARKED_JET
00A6: destroy_car $PARKED_HELI
:stworzauta
014B: $PARKED_HELI = init_parked_car_generator #MAVERICK color 21 0 1 alarm 0 door_lock 0 0 10000 at 690.2287 -2391.1602 1.6224 angle 181.9410
014C: set_parked_car_generator $PARKED_HELI cars_to_generate_to 101
014B: $PARKED_JET = init_parked_car_generator #JETMAX color 21 0 1 alarm 0 door_lock 0 0 10000 at 724.6205 -2358.9104 -1.6433 angle 90.0
014C: set_parked_car_generator $PARKED_JET cars_to_generate_to 102
wait 5000
0826: enable_hud 1
0581: enable_radar 1
02EB: restore_camera_with_jumpcut
0373: set_camera_directly_behind_player
01B4: set_player $PLAYER_CHAR can_move 1
wait 2000
03E5: show_text_box 'POSHELP1'
0039: 4@ == 1
0A95: enable_thread_saving
:save2_check1
wait 10
if and
Player.Defined($PLAYER_CHAR)
$ONMISSION = 0
jf @save2_check1
$SAVEPCKP1 = Pickup.Create(1277, 3, 714.7087, -2389.7297, 2.6896)
:save2_check2
wait 10
if
$ONMISSION == 1
jf @save2_check3
Pickup.Destroy($SavePickup)
jump @save2_check1
:save2_check3
wait 10
if and
80DF: not actor $PLAYER_ACTOR driving
$ONMISSION = 0
0214: pickup $SAVEPCKP1 picked_up
jf @save2_check2
Player.CanMove($PLAYER_CHAR) = False
fade 0 10
:save2_check4
wait 10
if
816B: not fading
jf @save2_check4
0395: clear_area 1 at 714.7087 -2389.7297 2.6896 radius 80.0
00A1: put_actor $PLAYER_ACTOR at 716.7087 -2389.7297 2.6896
0173: set_actor $PLAYER_ACTOR Z_angle_to 12.0
02EB: restore_camera_with_jumpcut
wait 50
03D8: show_save_screen
:save2_check5
wait 10
if
83D9: not save_done
jf @save2_check6
jump @save2_check5
:save2_check6
fade 1 1500
Player.CanMove($PLAYER_CHAR) = True
jump @save2_check1
0A93: end_custom_thread
Uruchamiam grę i wszystko jest OK. Wykonuje część skryptu do miejsca w którym tworzy mi się pickup dyskietki. Zapisuję wtedy grę.
Gdy ją wczytam to pasek dochodzi do końca, widzę czarny ekran i gra się wiesza.
Co jest przyczyną?
___________________