Sorry your browser is not supported!

// Project: Text 
// Created: 2016-11-29

// show all errors
SetErrorMode(2)

width=1024
height = 768

// set window properties
SetWindowTitle( "Text" )
SetWindowSize( width, height, 0 )

// set display properties
SetVirtualResolution( width, height )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery

// Setup necessary varibales
textsize = 20
fullwidth = 40 // width of how many characters per line
maxlines=10 // hwow many lines would you like to display out

// Setup the lines of text
for a=1 to maxlines
	createtext(a,"")
	settextsize(a,textsize)
	SetTextAlignment(a,0) //centre
next

do
	text$ = "Hello, This App Game Kit is cool product to work with, such amazing and can do with it.. Ho Ho Ho- Merry Xmas and happy new year"

	y=100 // starting point to display on screen vertical

	// Loop through the text$ string until it reaches the end
	
	for a=1 to maxlines
		t$ = mid(text$, 1, fullwidth)
		settextstring(a, t$)
		y=y + 20
		SetTextPosition(a, width/2-GetTextTotalWidth(a)/2, y)
		text$ = mid(text$, fullwidth+1, len(text$))
	next
    Sync()
loop
		
		

width=1024
height=768
// set window properties
SetWindowTitle( "Text" )
SetWindowSize( width, height, 0 )

// set display properties
SetVirtualResolution( width, height )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery


textsize = 20
fullwidth = 60 // width of how many characters per line
maxlines=10 // hwow many lines would you like to display out

// Setup the lines of text
for a=1 to maxlines
	createtext(a,"")
	settextsize(a,textsize)
	SetTextAlignment(a,0) //centre
	SetTextColorAlpha(a,0)
next
		
textpos=1
	alpha=0
	
do
	text$ = "Hello, This App Game Kit is cool.  hello my name is damian and i love programming and helping others product to work with it as best as I can, such amazing and can do with it.. Ho Ho Ho- Merry Xmas and happy new year"
	y=100 // starting point to display on screen vertical
	// Loop through the text$ string until it reaches the end
	
	for a=1 to maxlines

			
		y=y + 20
		t$ = mid(text$, 1, fullwidth)
		textpos=textpos+1
		for times=0 to len(t$)
			for alpha=0 to 255 step 200
			
			
			
				SetTextCharColorAlpha(a, times, alpha)
		
				
				settextstring(a, t$)
				SetTextPosition(a, width/2-GetTextTotalWidth(a)/2, y)
		
			
			next
		sync()
		
		next
		text$ = mid(text$, fullwidth+1, len(text$))
		
	next
    
loop

width=1024
height=768
// set window properties
SetWindowTitle( "Text" )
SetWindowSize( width, height, 0 )

// set display properties
SetVirtualResolution( width, height )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery

#constant maxtext=3
global text$ as string[maxtext]
text$[0]="Welcome to nightmare of helms street"
text$[1]="One day in the winter of December, a strange noise appeared in the distance of a huge intensive forest, you as an explorer needs to search the forest for gremlins and health"
text$[2]="You start in the location of a miners house , which is dark and empty, with nothing around you, except for a few health packs and a stick"
text$[3]="Press 1 to pick up health packs or 2 to pick up stick or 'space' to Exit the Game"


textsize = 20
fullwidth = 60 // width of how many characters per line
maxlines=10 // hwow many lines would you like to display out

// Setup the lines of text
for a=1 to maxlines
	createtext(a,"")
	settextsize(a,textsize)
	SetTextAlignment(a,0) //centre
	
	SetTextColorAlpha(a,0)
	
next
		
textpos=1
	alpha=0
	
currenttextline=0

do
	
	txt$ = text$[currenttextline]
	y=100 // starting point to display on screen vertical
	// Loop through the text$ string until it reaches the end
	for looptext=1 to maxtext
		
		for a=1 to maxlines

			
		y=y + 20
		t$ = mid(txt$, 1, fullwidth)
		textpos=textpos+1
		for times=0 to len(t$)
			for alpha=0 to 255 step 1
			
			
			
				SetTextCharColorAlpha(a, times, alpha)
		
				
				settextstring(a, t$)
				SetTextPosition(a, width/2-GetTextTotalWidth(a)/2, y)
		
		if GetRawKeyPressed(32)=1 then end
			
			next
		sync()
		
		next
		txt$ = mid(txt$, fullwidth+1, len(txt$))
		
		next
		sleep(2000)
		
		inc currenttextline
		
		if currenttextline>3 then currenttextline=3 // dont repeat any lines and wait for a response
		
		
		txt$ = text$[currenttextline]
		SetTextString(a,txt$)
		y=100 // starting point to display on screen vertical
		//Reset the alpha so it goes to the next text in the adventure 
		for b=0 to maxlines
			for alpha=0 to len(txt$)
				SetTextCharColorAlpha(b, alpha, 0)
			next
		next
	next
	
    
loop