MrChristmas
Expert
- Joined
- Jul 29, 2014
- Messages
- 563
- Reaction score
- 26
Hi,
[glow=red,2,300]
I made an new cleo by which you can listen your own music in GTA (It works on foot too). I didn't wanted to release this mod without crypting it but then I think about it and I decided to publish it with source because other people can learn from it (I still know that some faggs gonna say that their made this).
[glow=red,2,300]
Paste ]KRIS[ MP3.cs into your CLEO folder. In your Cleo folder make an folder and name it "MUSIC". Inside that folder paste 9 songs (you can make that it can play more songs by editing the script) and name them as:
- "Song1"
- "Song2"
- "Song3"
- "Song4"
- "Song5"
- "Song6"
- "Song7"
- "Song8"
- "Song9"
*They need to be in format .MP3
[glow=red,2,300]
Press/Type "MP3" to on/off
x+1 = Start/Stop Song 1
x+2 = Start/Stop Song 2
x+3 = Start/Stop song 3
x+4 = Start/Stop song 4
x+5 = Start/Stop song 5
x+6 = Start/Stop song 6
x+7 = Start/Stop song 7
x+8 = Start/Stop song 8
X+9 = Start/Stop song 9
[glow=red,2,300]
[glow=red,2,300]
[glow=red,2,300]
â¢No need to write "MP3" to turn on the script
â¢To stop the currently playing song press "X+0"
x+1 = Start Song 1
x+2 = Start Song 2
x+3 = Start Song 3
x+4 = Start Song 4
x+5 = Start Song 5
x+6 = Start Song 6
x+7 = Start Song 7
x+8 = Start Song 8
X+9 = Start Song 9
X+0 = Stop currently playing song
[glow=red,2,300]
â¢Fixed bug when music didn't start after press a key
â¢Added on/off like in first version to update v1.1
MP3 = ON/OFF
x+1 = Start Song 1
x+2 = Start Song 2
x+3 = Start Song 3
x+4 = Start Song 4
x+5 = Start Song 5
x+6 = Start Song 6
x+7 = Start Song 7
x+8 = Start Song 8
X+9 = Start Song 9
X+0 = Stop currently playing song
[glow=red,2,300]
DESCRIPTION
I made an new cleo by which you can listen your own music in GTA (It works on foot too). I didn't wanted to release this mod without crypting it but then I think about it and I decided to publish it with source because other people can learn from it (I still know that some faggs gonna say that their made this).
[glow=red,2,300]
HOW TO INSTALL
Paste ]KRIS[ MP3.cs into your CLEO folder. In your Cleo folder make an folder and name it "MUSIC". Inside that folder paste 9 songs (you can make that it can play more songs by editing the script) and name them as:
- "Song1"
- "Song2"
- "Song3"
- "Song4"
- "Song5"
- "Song6"
- "Song7"
- "Song8"
- "Song9"
*They need to be in format .MP3
[glow=red,2,300]
ACTIVATION
Press/Type "MP3" to on/off
x+1 = Start/Stop Song 1
x+2 = Start/Stop Song 2
x+3 = Start/Stop song 3
x+4 = Start/Stop song 4
x+5 = Start/Stop song 5
x+6 = Start/Stop song 6
x+7 = Start/Stop song 7
x+8 = Start/Stop song 8
X+9 = Start/Stop song 9
[glow=red,2,300]
VIDEOS
http://youtu.be/OdpsIGAoA6E?list=UUwZ00w3FX9ona1KB3Blu8jg
http://youtu.be/ya-2FgiuEM8?list=UUU2sCgplpphVGID3ablZhRA
http://youtu.be/ya-2FgiuEM8?list=UUU2sCgplpphVGID3ablZhRA
[glow=red,2,300]
SOURCE
Code:
{$CLEO}
0000: NOP
wait 2000
0AA2: 26@ = load_library "SAMP.DLL" // IF and SET
0662: printstring "<><><><><><><><><><><><><><><><><><><><><><><><><><><><><>"
0662: printstring "Made by __Mr.Christmas__"
0662: printstring "<><><><><><><><><><><><><><><><><><><><><><><><><><><><><>"
0662: printstring "With help of __BlackHat__"
0662: printstring "<><><><><><><><><><><><><><><><><><><><><><><><><><><><><>"
//-------------TEXT-----------------------------
:TEXT
wait 5000
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
0085: 28@ = 26@ // (int)
28@ += 500976
0AA6: call_method 28@ struct 29@ num_params 5 pop 0 0 16711680 0 "--------------------------------------------------------------------------------" 8
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
wait 0
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
0085: 28@ = 26@ // (int)
28@ += 500976
0AA6: call_method 28@ struct 29@ num_params 5 pop 0 0 0xFFCC66 0 "MP3 SCRIPT MADE BY MR.CHRISTMAS" 8
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
wait 1000
0085: 28@ = 26@ // (int)
28@ += 500976
0AA6: call_method 28@ struct 29@ num_params 5 pop 0 0 16711680 0 "PLEASE WAIT, SCRIPT IS LOADING..." 8
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
wait 3000
0085: 28@ = 26@ // (int)
28@ += 500976
0AA6: call_method 28@ struct 29@ num_params 5 pop 0 0 0xFFCC66 0 "SCRIPT LOADED" 8
wait 0
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
0085: 28@ = 26@ // (int)
28@ += 500976
0AA6: call_method 28@ struct 29@ num_params 5 pop 0 0 16711680 0 "--------------------------------------------------------------------------------" 8
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
goto @ON_OFF
//-------------ON/OFF-----------------------------
:ON_OFF
wait 0
if
0ADC: test_cheat "MP3"
jf @STRUCTURE
if
31@ == 0
then
31@ = 1
0ACD: show_text_highpriority "~Y~MP3 ~G~ON" time 1000
else
31@ = 0
0ACD: show_text_highpriority "~Y~MP3 ~R~OFF" time 1000
wait 1000
end
//-------------STRUCTURE--------------------------
:STRUCTURE
if
31@ == 1
jf @ON_OFF
//-------------BASE-------------------------------
:BASE
wait 0
if
Player.Defined($PLAYER_ACTOR)
else_jump @BASE
jump @AUDIO1
//-------------SONG 1-----------------------------
:AUDIO1
wait 5
if and
key_down 88 //x
key_down 49 //1
then
0B12: 0@ = 0@ XOR 1
if
0@ == 1
then
print "~Y~Song ~B~1 ~W~started ~G~playing" 1000
Audiostream.Release($HMP1)
Audiostream.Release($HMP2)
Audiostream.Release($HMP3)
$HMP1 = Audiostream.Load("CLEO/MUSIC/Song1.MP3")
Audiostream.PerformAction($HMP1, PLAY)
//-------------SONG STOP 1------------------------
else
print "~Y~Song ~B~1 ~R~paused" 1000
Audiostream.Release($HMP1)
end
end
jump @AUDIO2
//-------------SONG 2-----------------------------
:AUDIO2
wait 5
if and
key_down 88 //x
key_down 50 //2
then
0B12: 0@ = 0@ XOR 1
if
0@ == 1
then
print "~Y~Song ~B~2 ~W~started ~G~playing" 1000
Audiostream.Release($HMP2)
Audiostream.Release($HMP3)
Audiostream.Release($HMP4)
$HMP2 = Audiostream.Load("CLEO/MUSIC/Song2.MP3")
Audiostream.PerformAction($HMP2, PLAY)
//-------------SONG STOP 2------------------------
else
print "~Y~Song ~B~2 ~R~paused" 1000
Audiostream.Release($HMP2)
end
end
jump @AUDIO3
//-------------SONG 3-----------------------------
:AUDIO3
wait 5
if and
key_down 88 //x
key_down 51 //3
then
0B12: 0@ = 0@ XOR 1
if
0@ == 1
then
print "~Y~Song ~B~3 ~W~started ~G~playing" 1000
Audiostream.Release($HMP3)
Audiostream.Release($HMP4)
Audiostream.Release($HMP5)
$HMP3 = Audiostream.Load("CLEO/MUSIC/Song3.MP3")
Audiostream.PerformAction($HMP3, PLAY)
//-------------SONG STOP 3------------------------
else
print "~Y~Song ~B~3 ~R~paused" 1000
Audiostream.Release($HMP3)
end
end
jump @AUDIO4
//-------------SONG 4-----------------------------
:AUDIO4
wait 5
if and
key_down 88 //x
key_down 52 //4
then
0B12: 0@ = 0@ XOR 1
if
0@ == 1
then
print "~Y~Song ~B~4 ~W~started ~G~playing" 1000
Audiostream.Release($HMP4)
Audiostream.Release($HMP5)
Audiostream.Release($HMP6)
$HMP4 = Audiostream.Load("CLEO/MUSIC/Song4.MP3")
Audiostream.PerformAction($HMP4, PLAY)
//-------------SONG STOP 4------------------------
else
print "~Y~Song ~B~4 ~R~paused" 1000
Audiostream.Release($HMP4)
end
end
jump @AUDIO5
//-------------SONG 5-----------------------------
:AUDIO5
wait 5
if and
key_down 88 //x
key_down 53 //5
then
0B12: 0@ = 0@ XOR 1
if
0@ == 1
then
print "~Y~Song ~B~5 ~W~started ~G~playing" 1000
Audiostream.Release($HMP5)
Audiostream.Release($HMP6)
Audiostream.Release($HMP7)
$HMP5 = Audiostream.Load("CLEO/MUSIC/Song5.MP3")
Audiostream.PerformAction($HMP5, PLAY)
//-------------SONG STOP 5------------------------
else
print "Song ~B~5 ~R~paused" 1000
Audiostream.Release($HMP5)
end
end
jump @AUDIO6
//-------------SONG 6-----------------------------
:AUDIO6
wait 5
if and
key_down 88 //x
key_down 54 //6
then
0B12: 0@ = 0@ XOR 1
if
0@ == 1
then
print "~Y~Song ~B~6 ~W~started ~G~playing" 1000
Audiostream.Release($HMP6)
Audiostream.Release($HMP7)
Audiostream.Release($HMP8)
$HMP6 = Audiostream.Load("CLEO/MUSIC/Song6.MP3")
Audiostream.PerformAction($HMP6, PLAY)
//-------------SONG STOP 6------------------------
else
print "Song ~B~6 ~R~paused" 1000
Audiostream.Release($HMP6)
end
end
jump @AUDIO7
//-------------SONG 7-----------------------------
:AUDIO7
wait 5
if and
key_down 88 //x
key_down 55 //7
then
0B12: 0@ = 0@ XOR 1
if
0@ == 1
then
print "~Y~Song ~B~7 ~W~started ~G~playing" 1000
Audiostream.Release($HMP7)
Audiostream.Release($HMP8)
Audiostream.Release($HMP9)
$HMP7 = Audiostream.Load("CLEO/MUSIC/Song7.MP3")
Audiostream.PerformAction($HMP7, PLAY)
//-------------SONG STOP 7---------------
else
print "Song ~B~7 ~R~paused" 1000
Audiostream.Release($HMP7)
end
end
jump @AUDIO8
//-------------SONG 8-----------------------------
:AUDIO8
wait 5
if and
key_down 88 //x
key_down 56 //8
then 0B12: 0@ = 0@ XOR 1
if
0@ == 1
then
print "~Y~Song ~B~8 ~W~started ~G~playing" 1000
Audiostream.Release($HMP8)
Audiostream.Release($HMP9)
Audiostream.Release($HMP10)
$HMP8 = Audiostream.Load("CLEO/MUSIC/Song8.MP3")
Audiostream.PerformAction($HMP8, PLAY)
//-------------SONG STOP 8------------------------
else
print "Song ~B~8 ~R~paused" 1000
Audiostream.Release($HMP8)
end
end
jump @AUDIO9
//-------------SONG 9-----------------------------
:AUDIO9
wait 5
if and
key_down 88 //x
key_down 57 //9
then
0B12: 0@ = 0@ XOR 1
if
0@ == 1
then
print "~Y~Song ~B~9 ~W~started ~G~playing" 1000
Audiostream.Release($HMP9)
Audiostream.Release($HMP10)
Audiostream.Release($HMP11)
$HMP9 = Audiostream.Load("CLEO/MUSIC/Song9.MP3")
Audiostream.PerformAction($HMP9, PLAY)
//-------------SONG STOP 9------------------------
else
print "Song ~B~9 ~R~paused" 1000
Audiostream.Release($HMP9)
end
end
jump @ON_OFF
[glow=red,2,300]
UPDATE v1.1
â¢No need to write "MP3" to turn on the script
â¢To stop the currently playing song press "X+0"
x+1 = Start Song 1
x+2 = Start Song 2
x+3 = Start Song 3
x+4 = Start Song 4
x+5 = Start Song 5
x+6 = Start Song 6
x+7 = Start Song 7
x+8 = Start Song 8
X+9 = Start Song 9
X+0 = Stop currently playing song
Code:
{$CLEO}
0000: NOP
wait 2000
0AA2: 26@ = load_library "SAMP.DLL" // IF and SET
0662: printstring "<><><><><><><><><><><><><><><><><><><><><><><><><><><><><>"
0662: printstring "Made by __Mr.Christmas__"
0662: printstring "<><><><><><><><><><><><><><><><><><><><><><><><><><><><><>"
0662: printstring "With help of __BlackHat__"
0662: printstring "<><><><><><><><><><><><><><><><><><><><><><><><><><><><><>"
//-------------TEXT-----------------------------
:TEXT
wait 5000
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
0085: 28@ = 26@ // (int)
28@ += 500976
0AA6: call_method 28@ struct 29@ num_params 5 pop 0 0 16711680 0 "--------------------------------------------------------------------------------" 8
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
wait 0
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
0085: 28@ = 26@ // (int)
28@ += 500976
0AA6: call_method 28@ struct 29@ num_params 5 pop 0 0 0xFFCC66 0 "MP3 SCRIPT MADE BY MR.CHRISTMAS" 8
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
wait 1000
0085: 28@ = 26@ // (int)
28@ += 500976
0AA6: call_method 28@ struct 29@ num_params 5 pop 0 0 16711680 0 "PLEASE WAIT, SCRIPT IS LOADING..." 8
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
wait 3000
0085: 28@ = 26@ // (int)
28@ += 500976
0AA6: call_method 28@ struct 29@ num_params 5 pop 0 0 0xFFCC66 0 "SCRIPT LOADED" 8
wait 0
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
0085: 28@ = 26@ // (int)
28@ += 500976
0AA6: call_method 28@ struct 29@ num_params 5 pop 0 0 16711680 0 "--------------------------------------------------------------------------------" 8
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
goto @BASE
//-------------BASE-------------------------------
:BASE
wait 0
if
Player.Defined($PLAYER_ACTOR)
else_jump @BASE
jump @AUDIO1
//-------------SONG 1-----------------------------
:AUDIO1
wait 5
if and
key_down 88 //x
key_down 49 //1
jf @AUDIO2
print "~Y~Song ~B~1 ~W~started ~G~playing" 1000
Audiostream.Release($HMP1)
Audiostream.Release($HMP2)
Audiostream.Release($HMP3)
$HMP1 = Audiostream.Load("CLEO/MUSIC/Song1.MP3")
Audiostream.PerformAction($HMP1, PLAY)
goto @MUSIC_STOP
//-------------SONG 2-----------------------------
:AUDIO2
wait 5
if and
key_down 88 //x
key_down 50 //2
jf @AUDIO3
print "~Y~Song ~B~2 ~W~started ~G~playing" 1000
Audiostream.Release($HMP2)
Audiostream.Release($HMP3)
Audiostream.Release($HMP4)
$HMP2 = Audiostream.Load("CLEO/MUSIC/Song2.MP3")
Audiostream.PerformAction($HMP2, PLAY)
goto @MUSIC_STOP
//-------------SONG 3-----------------------------
:AUDIO3
wait 5
if and
key_down 88 //x
key_down 51 //3
jf @AUDIO4
print "~Y~Song ~B~3 ~W~started ~G~playing" 1000
Audiostream.Release($HMP3)
Audiostream.Release($HMP4)
Audiostream.Release($HMP5)
$HMP3 = Audiostream.Load("CLEO/MUSIC/Song3.MP3")
Audiostream.PerformAction($HMP3, PLAY)
goto @MUSIC_STOP
//-------------SONG 4-----------------------------
:AUDIO4
wait 5
if and
key_down 88 //x
key_down 52 //4
jf @AUDIO5
print "~Y~Song ~B~4 ~W~started ~G~playing" 1000
Audiostream.Release($HMP4)
Audiostream.Release($HMP5)
Audiostream.Release($HMP6)
$HMP4 = Audiostream.Load("CLEO/MUSIC/Song4.MP3")
Audiostream.PerformAction($HMP4, PLAY)
goto @MUSIC_STOP
//-------------SONG 5-----------------------------
:AUDIO5
wait 5
if and
key_down 88 //x
key_down 53 //5
jf @AUDIO6
print "~Y~Song ~B~5 ~W~started ~G~playing" 1000
Audiostream.Release($HMP5)
Audiostream.Release($HMP6)
Audiostream.Release($HMP7)
$HMP5 = Audiostream.Load("CLEO/MUSIC/Song5.MP3")
Audiostream.PerformAction($HMP5, PLAY)
goto @MUSIC_STOP
//-------------SONG 6-----------------------------
:AUDIO6
wait 5
if and
key_down 88 //x
key_down 54 //6
jf @AUDIO7
print "~Y~Song ~B~6 ~W~started ~G~playing" 1000
Audiostream.Release($HMP6)
Audiostream.Release($HMP7)
Audiostream.Release($HMP8)
$HMP6 = Audiostream.Load("CLEO/MUSIC/Song6.MP3")
Audiostream.PerformAction($HMP6, PLAY)
goto @MUSIC_STOP
//-------------SONG 7-----------------------------
:AUDIO7
wait 5
if and
key_down 88 //x
key_down 55 //7
jf @AUDIO8
print "~Y~Song ~B~7 ~W~started ~G~playing" 1000
Audiostream.Release($HMP7)
Audiostream.Release($HMP8)
Audiostream.Release($HMP9)
$HMP7 = Audiostream.Load("CLEO/MUSIC/Song7.MP3")
Audiostream.PerformAction($HMP7, PLAY)
goto @MUSIC_STOP
//-------------SONG 8-----------------------------
:AUDIO8
wait 5
if and
key_down 88 //x
key_down 56 //8
jf @AUDIO9
print "~Y~Song ~B~8 ~W~started ~G~playing" 1000
Audiostream.Release($HMP8)
Audiostream.Release($HMP9)
Audiostream.Release($HMP10)
$HMP8 = Audiostream.Load("CLEO/MUSIC/Song8.MP3")
Audiostream.PerformAction($HMP8, PLAY)
goto @MUSIC_STOP
//-------------SONG 9-----------------------------
:AUDIO9
wait 5
if and
key_down 88 //x
key_down 57 //9
jf @AUDIO1
print "~Y~Song ~B~9 ~W~started ~G~playing" 1000
Audiostream.Release($HMP9)
Audiostream.Release($HMP10)
Audiostream.Release($HMP11)
$HMP9 = Audiostream.Load("CLEO/MUSIC/Song9.MP3")
Audiostream.PerformAction($HMP9, PLAY)
goto @MUSIC_STOP
//-------------AUDIO_STOP-------------------------
:MUSIC_STOP
wait 0
if and
key_down 88 //x
key_down 48 //0
else_jump @MUSIC_STOP
print "~Y~Song ~R~Stopped" 1000
Audiostream.Release($HMP9)
Audiostream.Release($HMP8)
Audiostream.Release($HMP7)
Audiostream.Release($HMP6)
Audiostream.Release($HMP5)
Audiostream.Release($HMP4)
Audiostream.Release($HMP3)
Audiostream.Release($HMP2)
Audiostream.Release($HMP1)
jump @BASE
[glow=red,2,300]
UPDATE v1.2
â¢Fixed bug when music didn't start after press a key
â¢Added on/off like in first version to update v1.1
MP3 = ON/OFF
x+1 = Start Song 1
x+2 = Start Song 2
x+3 = Start Song 3
x+4 = Start Song 4
x+5 = Start Song 5
x+6 = Start Song 6
x+7 = Start Song 7
x+8 = Start Song 8
X+9 = Start Song 9
X+0 = Stop currently playing song
Code:
{$CLEO}
0000: NOP
wait 2000
0AA2: 26@ = load_library "SAMP.DLL" // IF and SET
0662: printstring "<><><><><><><><><><><><><><><><><><><><><><><><><><><><><>"
0662: printstring "Made by __Mr.Christmas__"
0662: printstring "<><><><><><><><><><><><><><><><><><><><><><><><><><><><><>"
0662: printstring "With help of __BlackHat__"
0662: printstring "<><><><><><><><><><><><><><><><><><><><><><><><><><><><><>"
//-------------TEXT-----------------------------
:TEXT
wait 5000
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
0085: 28@ = 26@ // (int)
28@ += 500976
0AA6: call_method 28@ struct 29@ num_params 5 pop 0 0 16711680 0 "--------------------------------------------------------------------------------" 8
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
wait 0
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
0085: 28@ = 26@ // (int)
28@ += 500976
0AA6: call_method 28@ struct 29@ num_params 5 pop 0 0 0xFFCC66 0 "MP3 SCRIPT MADE BY MR.CHRISTMAS" 8
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
wait 1000
0085: 28@ = 26@ // (int)
28@ += 500976
0AA6: call_method 28@ struct 29@ num_params 5 pop 0 0 16711680 0 "PLEASE WAIT, SCRIPT IS LOADING..." 8
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
wait 3000
0085: 28@ = 26@ // (int)
28@ += 500976
0AA6: call_method 28@ struct 29@ num_params 5 pop 0 0 0xFFCC66 0 "SCRIPT LOADED" 8
wait 0
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
0085: 28@ = 26@ // (int)
28@ += 500976
0AA6: call_method 28@ struct 29@ num_params 5 pop 0 0 16711680 0 "--------------------------------------------------------------------------------" 8
0085: 27@ = 26@ // (int)
27@ += 2173548
0A8D: 29@ = read_memory 27@ size 4 virtual_protect 1
goto @ON_OFF
//-------------ON_OFF---------------
:ON_OFF
wait 0
if
0ADC: test_cheat "MP3"
jf @MAIN
if
31@ == 0
then
31@ = 1
0ACD: show_text_highpriority "~Y~MP3 ~G~ON" time 1000
else
31@ = 0
0ACD: show_text_highpriority "~Y~MP3 ~R~OFF" time 1000
end
//-------------MAIN-----------------
:MAIN
if
31@ == 1
jf @ON_OFF
goto @BASE
//-------------BASE-----------------
:BASE
wait 0
if
Player.Defined($PLAYER_ACTOR)
else_jump @BASE
jump @AUDIO1
//-------------SONG 1---------------
:AUDIO1
wait 5
if and
key_down 88 //x
key_down 49 //1
jf @AUDIO2
print "~Y~Song ~B~1 ~W~started ~G~playing" 1000
Audiostream.Release($HMP1)
Audiostream.Release($HMP2)
Audiostream.Release($HMP3)
$HMP1 = Audiostream.Load("CLEO/MUSIC/Song1.MP3")
Audiostream.PerformAction($HMP1, PLAY)
goto @AUDIO_STOP
//-------------SONG 2---------------
:AUDIO2
wait 5
if and
key_down 88 //x
key_down 50 //2
jf @AUDIO3
print "~Y~Song ~B~2 ~W~started ~G~playing" 1000
Audiostream.Release($HMP2)
Audiostream.Release($HMP3)
Audiostream.Release($HMP4)
$HMP2 = Audiostream.Load("CLEO/MUSIC/Song2.MP3")
Audiostream.PerformAction($HMP2, PLAY)
goto @AUDIO_STOP
//-------------SONG 3---------------
:AUDIO3
wait 5
if and
key_down 88 //x
key_down 51 //3
jf @AUDIO4
print "~Y~Song ~B~3 ~W~started ~G~playing" 1000
Audiostream.Release($HMP3)
Audiostream.Release($HMP4)
Audiostream.Release($HMP5)
$HMP3 = Audiostream.Load("CLEO/MUSIC/Song3.MP3")
Audiostream.PerformAction($HMP3, PLAY)
goto @AUDIO_STOP
//-------------SONG 4---------------
:AUDIO4
wait 5
if and
key_down 88 //x
key_down 52 //4
jf @AUDIO5
print "~Y~Song ~B~4 ~W~started ~G~playing" 1000
Audiostream.Release($HMP4)
Audiostream.Release($HMP5)
Audiostream.Release($HMP6)
$HMP4 = Audiostream.Load("CLEO/MUSIC/Song4.MP3")
Audiostream.PerformAction($HMP4, PLAY)
goto @AUDIO_STOP
//-------------SONG 5---------------
:AUDIO5
wait 5
if and
key_down 88 //x
key_down 53 //5
jf @AUDIO6
print "~Y~Song ~B~5 ~W~started ~G~playing" 1000
Audiostream.Release($HMP5)
Audiostream.Release($HMP6)
Audiostream.Release($HMP7)
$HMP5 = Audiostream.Load("CLEO/MUSIC/Song5.MP3")
Audiostream.PerformAction($HMP5, PLAY)
goto @AUDIO_STOP
//-------------SONG 6---------------
:AUDIO6
wait 5
if and
key_down 88 //x
key_down 54 //6
jf @AUDIO7
print "~Y~Song ~B~6 ~W~started ~G~playing" 1000
Audiostream.Release($HMP6)
Audiostream.Release($HMP7)
Audiostream.Release($HMP8)
$HMP6 = Audiostream.Load("CLEO/MUSIC/Song6.MP3")
Audiostream.PerformAction($HMP6, PLAY)
goto @AUDIO_STOP
//-------------SONG 7---------------
:AUDIO7
wait 5
if and
key_down 88 //x
key_down 55 //7
jf @AUDIO8
print "~Y~Song ~B~7 ~W~started ~G~playing" 1000
Audiostream.Release($HMP7)
Audiostream.Release($HMP8)
Audiostream.Release($HMP9)
$HMP7 = Audiostream.Load("CLEO/MUSIC/Song7.MP3")
Audiostream.PerformAction($HMP7, PLAY)
goto @AUDIO_STOP
//-------------SONG 8---------------
:AUDIO8
wait 5
if and
key_down 88 //x
key_down 56 //8
jf @AUDIO9
print "~Y~Song ~B~8 ~W~started ~G~playing" 1000
Audiostream.Release($HMP8)
Audiostream.Release($HMP9)
Audiostream.Release($HMP10)
$HMP8 = Audiostream.Load("CLEO/MUSIC/Song8.MP3")
Audiostream.PerformAction($HMP8, PLAY)
goto @AUDIO_STOP
//-------------SONG 9---------------
:AUDIO9
wait 5
if and
key_down 88 //x
key_down 57 //9
then
jf @AUDIO1
print "~Y~Song ~B~9 ~W~started ~G~playing" 1000
Audiostream.Release($HMP9)
Audiostream.Release($HMP10)
Audiostream.Release($HMP11)
$HMP9 = Audiostream.Load("CLEO/MUSIC/Song9.MP3")
Audiostream.PerformAction($HMP9, PLAY)
goto @AUDIO_STOP
//-------------STOP-----------------
:AUDIO_STOP
wait 0
if and
key_down 88 //x
key_down 48 //0
jf @AUDIO_STOP
print "~Y~Song ~R~stopped" 1000
Audiostream.Release($HMP1)
Audiostream.Release($HMP2)
Audiostream.Release($HMP3)
Audiostream.Release($HMP4)
Audiostream.Release($HMP5)
Audiostream.Release($HMP6)
Audiostream.Release($HMP7)
Audiostream.Release($HMP8)
Audiostream.Release($HMP9)
Audiostream.Release($HMP10)
Audiostream.Release($HMP11)
end
goto @ON_OFF
//-------------END-----------------