Ryan
70fa89de8c
Internal functions fixed! now empty args on internal functions will not bug out! Added some new methods
62 lines
1.3 KiB
Plaintext
62 lines
1.3 KiB
Plaintext
ENTRY TESTSTART
|
|
[TESTSTART]{
|
|
SetFG(Color_Blue)
|
|
write("This is blue ")
|
|
SetFG(Color_Red)
|
|
print("This is red")
|
|
ResetColor()
|
|
"Hello (Press Enter)"
|
|
print("PLAY SONG (1)")
|
|
print("MESSAGE (2)")
|
|
print("An Adventure (3)")
|
|
print("QUIT (4)")
|
|
::choice::
|
|
write("Choose: ")
|
|
choice=GetInput()
|
|
if choice=="1" then JUMP("SONG")|SKIP(0)
|
|
if choice=="2" then JUMP("YO")|SKIP(0)
|
|
if choice=="4" then QUIT()|SKIP(0)
|
|
if choice=="3" then SKIP(2)|SKIP(0)
|
|
GOTO("choice")
|
|
"We are here now! Time for some fun..."
|
|
write("Please enter your name: ")
|
|
name=GetInput()
|
|
setCC()
|
|
if name=="" then SKIP(-4)|SKIP(0)
|
|
ClearLine()
|
|
print("So your name is $name$ huh...")
|
|
"I won't judge haha"
|
|
"Anyway let's get controls for that song"
|
|
print("Stop (s)")
|
|
print("Play (t)")
|
|
print("Pause (a)")
|
|
print("Resume (r)")
|
|
print("Quit (q)")
|
|
::control::
|
|
write("Choose: ")
|
|
choice=GetInput()
|
|
if choice=="s" then STOP(song)|SKIP(0)
|
|
if choice=="t" then JUMP("PLAYS")|SKIP(0)
|
|
if choice=="a" then PAUSE(song)|SKIP(0)
|
|
if choice=="r" then RESUME(song)|SKIP(0)
|
|
if choice=="q" then QUIT()|SKIP(0)
|
|
GOTO("control")
|
|
}
|
|
[ClearLine:function()]{
|
|
whiteOut()
|
|
setCC()
|
|
}
|
|
[PLAYS]{
|
|
PAUSE(song)
|
|
song=PLAY("test.flac")
|
|
GOTO("control")
|
|
}
|
|
[SONG]{
|
|
song=PLAY("test.flac")
|
|
GOTO("choice")
|
|
}
|
|
[YO]{
|
|
"How are you doing?"
|
|
GOTO("choice")
|
|
}
|