SannyBuilder.com Forums

Sorry Deji, but i don't understand you and i used global variables...
But it's still crashing, could you point me where I'm wrong?

{$VERSION 3.1.0027}
{$CLEO .cs}

//-------------MAIN---------------
thread 'iPox2'
054C: use_GXT_table 'IPOX'

const
ROW = 31@
VMUSIC_NAME = v$MN
TEMP = 21@
end

06D1: VMUSIC_NAME[1] = "CLEO\playlist\01.mp3" // v$ = string 
06D1: VMUSIC_NAME[2] = "CLEO\playlist\02.mp3" // v$ = string 
06D1: VMUSIC_NAME[3] = "CLEO\playlist\03.mp3" // v$ = string 
06D1: VMUSIC_NAME[4] = "CLEO\playlist\04.mp3" // v$ = string 
06D1: VMUSIC_NAME[5] = "CLEO\playlist\05.mp3" // v$ = string 
06D1: VMUSIC_NAME[6] = "CLEO\playlist\06.mp3" // v$ = string 
06D1: VMUSIC_NAME[7] = "CLEO\playlist\07.mp3" // v$ = string 
06D1: VMUSIC_NAME[8] = "CLEO\playlist\08.mp3" // v$ = string 
06D1: VMUSIC_NAME[9] = "CLEO\playlist\09.mp3" // v$ = string 
06D1: VMUSIC_NAME[10] = "CLEO\playlist\10.mp3" // v$ = string 
06D1: VMUSIC_NAME[11] = "CLEO\playlist\11.mp3" // v$ = string 
06D1: VMUSIC_NAME[12] = "CLEO\playlist\12.mp3" // v$ = string 
06D1: VMUSIC_NAME[13] = "CLEO\playlist\13.mp3" // v$ = string 
06D1: VMUSIC_NAME[14] = "CLEO\playlist\14.mp3" // v$ = string 
06D1: VMUSIC_NAME[15] = "CLEO\playlist\15.mp3" // v$ = string 
06D1: VMUSIC_NAME[16] = "CLEO\playlist\16.mp3" // v$ = string 
06D1: VMUSIC_NAME[17] = "CLEO\playlist\17.mp3" // v$ = string 
06D1: VMUSIC_NAME[18] = "CLEO\playlist\18.mp3" // v$ = string 
06D1: VMUSIC_NAME[19] = "CLEO\playlist\19.mp3" // v$ = string 
06D1: VMUSIC_NAME[20] = "CLEO\playlist\20.mp3" // v$ = string 

:load
for TEMP = 1 to 20
wait 10
if
0AAB:  file_exists $MN(TEMP,20v)
then 
wait 10
0AAC: $MN(TEMP,20i) = load_mp3 $MN(TEMP,20v)
else
$MN(TEMP,20i) = -1
end
end

:IP1
wait 10
if 
Player.Defined($PLAYER_CHAR)
jf @IP1
wait 10
if 
0AB0:  key_pressed 106
jf @IP1
jump @IP2a

:IP2a
for TEMP = 1 to 20
0AB9: get_mp3 $MN(TEMP,20i) state_to 30@
wait 10
if
not 30@ == 0
then
jump @IP2b
end
end
Player.CanMove($PLAYER_CHAR) = False
08D4: $Panel = create_panel_with_title 'TYT' position 29.0 145.0 width 200.0 columns 1 interve 1 background 1 alignment 1
08DB: set_panel $Panel column 0 header '0' data 'MUZYKA' 'MUZ2' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY'
08EE: set_panel $Panel column 0 row 2 text_1number GXT 'NIC' number 0  // $~1~
jump @czekaj_na_wybor

:IP2b
for TEMP = 1 to 20
0AB9: get_mp3 $MN(TEMP,20i) state_to 30@
wait 10
if
30@ == 1
then
Player.CanMove($PLAYER_CHAR) = False
08D4: $Panel = create_panel_with_title 'TYT' position 29.0 145.0 width 200.0 columns 1 interve 1 background 1 alignment 1
08DB: set_panel $Panel column 0 header '0' data 'MUZYKA' 'MUZ2' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY'
08EE: set_panel $Panel column 0 row 2 text_1number GXT 'PS' number 0  // $~1~
jump @czekaj_na_wybor
end
end



:IP2c
for TEMP = 1 to 20
0AB9: get_mp3 $MN(TEMP,20i) state_to 30@
wait 10
if
30@ == 2
then
Player.CanMove($PLAYER_CHAR) = False
08D4: $Panel = create_panel_with_title 'TYT' position 29.0 145.0 width 200.0 columns 1 interve 1 background 1 alignment 1
08DB: set_panel $Panel column 0 header '0' data 'MUZYKA' 'MUZ2' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY'
08EE: set_panel $Panel column 0 row 2 text_1number GXT 'PL' number 0  // $~1~
jump @czekaj_na_wybor
end
end

:czekaj_na_wybor
wait 0
if
00E1: player $PLAYER_CHAR pressed_key 15
jf @czekaj_na_wybor_test2
08DA: remove_panel $Panel
Player.CanMove($PLAYER_CHAR) = True

:czekaj_na_wybor_test2
if
00E1: player $PLAYER_CHAR pressed_key 16
jf @czekaj_na_wybor
08D7: $Wybrane = panel $Panel active_row
08DA: remove_panel $Panel
0871: init_jump_table $Wybrane total_jumps 1 -1 -1 jumps 0 @kolejno 1 @nic  2 @nic  -1 -1  -1 -1  -1 -1  -1 -1

:kolejno
jump @IP1

:nic
jump @IP1