Rem ******************************
Rem *                            *
Rem *         Text-Test          *
Rem *                            *
Rem *    Written By K Turner     *
Rem *          ©2019             *
Rem *                            *
Rem ******************************

Rem *** Show all Errors ***
SetErrorMode(2)

Rem *** Set Window Name ***
SetWindowTitle("Lost-Hero")

Rem *** Set Window Size and Type - (0=Windowed 1=Full Screen) ***
SetWindowSize(640,360,1)

Rem *** Allow User to Resize the Window (0=No 1=Yes) ***
SetWindowAllowResize(0)

Rem *** Set Display Size ***
SetVirtualResolution(640,360)

Rem *** Set Screen Orientations (P1-P2-L1-L2) ***
SetOrientationAllowed(0,0,1,1)

Rem *** Set Mouse to Visibility (0=off 1=on) ***
SetRawMouseVisible(0)

Rem *** Since Version 2.0.22 we can use nicer default fonts ***
UseNewDefaultFonts(1)

Rem *** Uses OpenGL ***
`#renderer "Basic"

Rem *** Uses Vulkan ***
`#renderer "Advanced

Rem *** Will try and use Vulkan but drop back to OpenGL if required ***
#renderer "Prefer Best"

Rem *** Setup the Info Window Scrolling Texts x 6 ***
For n=125 to 130
	CreateText(n,"")
	SettextColor(n,255,255,255,255)
	SetTextSize(n,7)
	SetTextBold(n,1)
	SetTextDepth(n,94)
	SetTextVisible(n,0)
	FixTextToScreen(n,1)
Next n

Rem *** Initialise Chat Texts ***
chat$ as String[6]
chat$[6]=">LOST-HERO - A Fully Mouse Driven RPG Written by K. Turner ©2019 - UK"
chat$[5]=">You have been transported against your wishes, to a unknown and hostile land"
chat$[4]=">Your Quest is to find out why this has happened, and how to return safely home"
chat$[3]=">Along your Journey, you will need to learn and increase all your skills,"
chat$[2]=">even using magic to help you survive in this ultimate challenge..."
chat$[1]=">Good Luck and Happy Hunting......"
text$=">"

Rem *** Show Game Info Scrolling Texts ***
newline=336
For n=1 to 6
	SetTextString(124+n,chat$[n])
	SetTextVisible(124+n,1)
	SetTextPosition(124+n,364,newline)
	newline=newline-6
Next n



Rem *** Main Loop ***
Do
	
	Rem *** 'Escape Key' to Exit Game ***
	If GetRawKeyReleased(27) Then End
	
    Print( ScreenFPS() )
    Sync()
Loop