Почему не работают текстуры?

Domneriot

Новичок
Автор темы
2
0
В этом коде, я хотел создать графическое меню, но, почему-то, текстуры, что я загружаю, исчезают сразу, как только появились на экране.
То есть, я ввёл код, картинки появились и тут-же исчезли. Почему?
Графическое меню:
{$CLEO .cs}
0000:

var
$PLAYER_ACTOR: actor
$PLAYER_CHAR: player
end

:MENU
thread 'Menu'
wait 0

while true
if
0ADC: test_cheat "Menu"
then
gosub [USER=296779]@load[/USER]
wait 1000
end
wait 0
end

:LOAD
wait 0
0390: load_txd_dictionary 'ARMOR'
038F: load_texture "armor_1" as 1
038F: load_texture "armor_2" as 2
038F: load_texture "armor_3" as 3
30@ = 0
0826: enable_hud 0
0581: enable_radar 0
Actor.LockInCurrentPosition($PLAYER_ACTOR,true)
0619: enable_actor $PLAYER_ACTOR collision_detection 0
wait 100
0@ = 0
1@ = 64
2@ = 64
3@ = 64
8@ = #FAM1
9@ = 0.0
while 30@ == 0
if or
0ADC: test_cheat "F"
09FA: is_menu_closed
then
30@ = -1
end

if
9@ = 0.0
then
0@ = 0
end
if
9@ = 1.0
then
0@ = 1
if
9@ = 2.0
then
0@ = 2
end

wait 0
end

if
9@ > 4.75
then
9@ = 0.0
end

if
9@ < -0.75
then
9@ = 3.0
end

{NAVIGATE}
if
0AB0: 37
then
9@ -= 0.80
end
if
0AB0: 39
then
9@ += 0.80
end

{SWITCH}
0871: init_jump_table 0@ total_jumps 3 default_jump 0 @MENU_DRAW jumps 110 @SUIT_1 111 @SUIT_2 112 @SUIT_3 -1 @MENU_DRAW -1 @MENU_DRAW -1 @MENU_DRAW -1 @MENU_DRAW

:SUIT_1
8@ = #FAM1
1@ = 255
2@ = 64
3@ = 64
jump @MENU_DRAW

:SUIT_2
8@ = #FAM2
1@ = 64
2@ = 255
3@ = 64
jump @MENU_DRAW

:SUIT_3
8@ = #FAM3
1@ = 64
2@ = 64
3@ = 255
jump @MENU_DRAW

:MENU_DRAW
03F0: enable_text_draw 1
074B: draw_texture 1 position 79.1995 174.8 scale 64.0 100.0 angle 0.0 color_RGBA 220 220 220 1@
03E3: set_texture_to_be_drawn_antialiased 1
074B: draw_texture 2 position 158.2 174.8 scale 64.0 100.0 angle 0.0 color_RGBA 220 220 220 2@
03E3: set_texture_to_be_drawn_antialiased 1
074B: draw_texture 3 position 235.8 174.8 scale 64.0 100.0 angle 0.0 color_RGBA 220 220 220 3@
03E3: set_texture_to_be_drawn_antialiased 1
if
0AB0: 32
then
30@ = 1
end
0391: release_txd_dictionary

if
30@ = 1
then
fade 0 1000
wait 1000
jump @SUIT_ON
end

0826: enable_hud 1
0581: enable_radar 1
Camera.Restore($PLAYER_ACTOR)
Actor.LockInCurrentPosition($PLAYER_ACTOR,false)
0619: enable_actor $PLAYER_ACTOR collision_detection 1
return

:SUIT_ON
wait 0
0826: enable_hud 1
0581: enable_radar 1
Model.Load(8@)

repeat
wait 0
until Model.Available(8@)

09C7: change_player $PLAYER_CHAR model_to 8@
Actor.SetImmunities($PLAYER_ACTOR,1,1,1,1,1)
01B9: set_actor $PLAYER_ACTOR armed_weapon_to 0
0992: set_player $PLAYER_CHAR weapons_scrollable 0
30@ = 0

while 30@ == 0
if
0ADC: test_cheat "MENU"
then
30@ = 1
end
wait 0
end

if
30@ = 1
then
Model.Load(#NULL)
09C7: change_player $PLAYER_CHAR model_to #NULL
end
end

return