Wanted Level Alarm

I'm going to start uploading all those personal scripts that I ever done...
:P some of them are funny, but this one, always put me nervous while I had any wanted level in game :P

check it by yourself
as always, you can find it in my ARCHIVE

here is a preview of the code;

{$CLEO}
const
    path_song1   = "cleo\mp3\alarm3.MP3"
    path_song2   = "cleo\mp3\alarm2.MP3"
    path_song3   = "cleo\mp3\alarm1.MP3"
end
0000:
:start
wait 0
if or
8AAB:  not file_exists path_song1
8AAB:  not file_exists path_song2
8AAB:  not file_exists path_song3
then
    0A93: end_custom_thread  
end
:main
wait 0
01C0: 15@ = player $PLAYER_CHAR wanted_level
if
15@ == 6
then
        2@ = 6
        3@ = 6
        0AAC: 0@ = load_mp3 path_song1
        wait 100
        0AAF: 1@ = get_mp3_length 0@
        1@ *= 1001                      // 1@ * 1001 sec wait
        0AAD: set_mp3 0@ perform_action 1
        32@ = 0
        jump @loop 
end

[....] 

if you have any doubt, ask me ;)

HAVE FUN!!


;)