30 lines
400 B
Plaintext
30 lines
400 B
Plaintext
ENTRY init
|
|
USING audio as audio
|
|
[init]{
|
|
bgm = audio:new("Audio/Lost World - myuu.ogg")
|
|
bgm:play(1)
|
|
bgm:setVolume(.1)
|
|
JUMP("CHOOSE")
|
|
}
|
|
[CHOOSE]{
|
|
"Choose"<
|
|
"fade in" JUMP("FADEIN")
|
|
"fade out" JUMP("FADEOUT")
|
|
"exit" JUMP("quit")
|
|
>
|
|
}
|
|
[FADEIN]{
|
|
for x = 100,1,-1 <
|
|
sleep(.1)
|
|
bgm:setVolume(100/x)
|
|
>
|
|
}
|
|
[FADEOUT]{
|
|
for x = 100,1,-1 <
|
|
sleep(.1)
|
|
bgm:setVolume(x/100)
|
|
>
|
|
}
|
|
[quit]{
|
|
QUIT()
|
|
} |