TEXT FUN - GameCreators Forum

Author

Message

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 28th Dec 2016 19:14 Edited at: 12th Apr 2018 20:46

Link

I'm not sure what people think of this but here it goes

// Project: TextFun 
// Created: 2016-12-29

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "TextFun" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
//UseNewDefaultFonts( 1 ) // since version 2.0.20 we can use nicer default fonts

Words as string = "HELLO WORLD"
i=1
i=CreateText(Words)
SetTextSize(i,Random(50,60))
SetTextColor(i,255,255,255,255)
SetTextPosition(i,Random(0,600),Random(0,400))
sync()
sleep(500)

do
	Words=subtractAscii(Words)
	SetTextString(i,Words)
	//sleep(60)
    
    Print( ScreenFPS() )
    Sync()
loop

function subtractAscii (word as string)
//Each letter or a string passed is replaced with the character 1 less than previous
newWord as String
newWord=""
length=len(word)
for i = 1 to length
	a$=Mid(word,i,1)
	a=asc(a$) 
	if a$<>chr(32) then	a=a-1
	newWord=newWord+chr(a)
next i	
	
endfunction  newWord

+ Code Snippet


// Project: TextFun 
// Created: 2016-12-29

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "TextFun" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
//UseNewDefaultFonts( 1 ) // since version 2.0.20 we can use nicer default fonts

Words as string = "HELLO WORLD"
i=1
i=CreateText(Words)
SetTextSize(i,Random(50,60))
SetTextColor(i,255,255,255,255)
SetTextPosition(i,Random(0,600),Random(0,400))
sync()
sleep(500)

do
	Words=subtractAscii(Words)
	SetTextString(i,Words)
	//sleep(60)
    
    Print( ScreenFPS() )
    Sync()
loop

function subtractAscii (word as string)
//Each letter or a string passed is replaced with the character 1 less than previous
newWord as String
newWord=""
length=len(word)
for i = 1 to length
	a$=Mid(word,i,1)
	a=asc(a$) 
	if a$<>chr(32) then	a=a-1
	newWord=newWord+chr(a)
next i	
	
endfunction  newWord

Just something ive been playing with, Something I wrote quite a while ago in c that read the characters in a dos window then replaced every one with its one
less character equivalent. this effectively gave the effect of the text dissolving away until adventually all text was character 32 a space character. The c version worked
nicely so ive been playing with text in agk and thought ide show what I have so far. A much larger text filling the screen looks allot better but I thought ide post what
I have so far

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 28th Dec 2016 19:26 Edited at: 12th Apr 2018 20:46

Link

to get a better idea of it working change the following

+ Code Snippet

Words as string = "HELLO WORLD is a great place to start programming it teaches people the very basics and is used as a common starting program by many people all over the world. Hello world has been the starter program for most programmers for many years. Its not the best program in the world laughs but it helps people get the drive to start learning"

SetTextMaxWidth( i,1000 )

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 28th Dec 2016 20:01 Edited at: 12th Apr 2018 20:47

Link

Now with added alpha subtraction and removal of the frame limiter as speed was needed
I also added a global variable so that it no longer calls subtract routine once its completed

I hope someone finds this simple routine useful

// Project: TextFun 
// Created: 2016-12-29

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "TextFun" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

Words as string = "HELLO WORLD is a great place to start programming it teaches people the very basics and is used as a common starting program by many people all over the world. Hello world has been the starter program for most programmers for many years. Its not the best program in the world laughs but it helps people get the drive to start learning"
i=1
i=CreateText(Words)
SetTextSize(i,Random(50,60))
SetTextColor(i,255,255,255,255)
SetTextPosition(i,10,10)
SetTextMaxWidth( i,1020 ) 
sync()
sleep(500)
global dontDo as integer
dontDo=0
do
	if dontDo=0
		Words=subtractAscii(Words)
		SetTextString(i,Words)
		//keep subtracting the alpha value until black
		alpha=GetTextColorAlpha(i)
		if alpha>5 then SetTextColorAlpha(i,alpha-5)
	endif
	Print( ScreenFPS() )
    Sync()
loop

function subtractAscii (word as string)
//Each letter or a string passed is replaced with the character 1 less than previous
newWord as String
newWord=""
length=len(word)
empty=0
for i = 1 to length
	a$=Mid(word,i,1)
	a=asc(a$) 
	if a$<>chr(32) 
		a=a-1
	else
		empty=empty+1
	endif
	if empty=length then dontDo=1
	newWord=newWord+chr(a)
next i	
	
endfunction  newWord

+ Code Snippet

// Project: TextFun 
// Created: 2016-12-29

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "TextFun" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

Words as string = "HELLO WORLD is a great place to start programming it teaches people the very basics and is used as a common starting program by many people all over the world. Hello world has been the starter program for most programmers for many years. Its not the best program in the world laughs but it helps people get the drive to start learning"
i=1
i=CreateText(Words)
SetTextSize(i,Random(50,60))
SetTextColor(i,255,255,255,255)
SetTextPosition(i,10,10)
SetTextMaxWidth( i,1020 ) 
sync()
sleep(500)
global dontDo as integer
dontDo=0
do
	if dontDo=0
		Words=subtractAscii(Words)
		SetTextString(i,Words)
		//keep subtracting the alpha value until black
		alpha=GetTextColorAlpha(i)
		if alpha>5 then SetTextColorAlpha(i,alpha-5)
	endif
	Print( ScreenFPS() )
    Sync()
loop

function subtractAscii (word as string)
//Each letter or a string passed is replaced with the character 1 less than previous
newWord as String
newWord=""
length=len(word)
empty=0
for i = 1 to length
	a$=Mid(word,i,1)
	a=asc(a$) 
	if a$<>chr(32) 
		a=a-1
	else
		empty=empty+1
	endif
	if empty=length then dontDo=1
	newWord=newWord+chr(a)
next i	
	
endfunction  newWord

fubar

Back to top

Profile PM Email Website

29 games

19

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 28th Dec 2016 23:51

Link

I like this.

It needs a proper timer so the effect can be transitioned over whatever period time is required. Something like this:

// Project: TextFun
// Created: 2016-12-29

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "TextFun" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

Words as string = "HELLO WORLD is a great place to start programming it teaches people the very basics and is used as a common starting program by many people all over the world. Hello world has been the starter program for most programmers for many years. Its not the best program in the world laughs but it helps people get the drive to start learning"
i=1
i=CreateText(Words)
SetTextSize(i,Random(50,60))
SetTextColor(i,255,255,255,255)
SetTextPosition(i,10,10)
SetTextMaxWidth( i,1020 )
sync()
sleep(500)
global dontDo as integer
dontDo=0

start_time = GetMilliseconds()

do

current_time = GetMilliseconds()

if current_time - start_time > 100

start_time = current_time

if dontDo=0
			Words=subtractAscii(Words)
			SetTextString(i,Words)
			//keep subtracting the alpha value until black
			alpha=GetTextColorAlpha(i)
			if alpha>5 then SetTextColorAlpha(i,alpha-5)
		endif
	endif
    Sync()
loop

function subtractAscii (word as string)

//Each letter or a string passed is replaced with the character 1 less than previous
	newWord as String
	newWord=""
	length=len(word)
	empty=0

for i = 1 to length
		a$=Mid(word,i,1)
		a=asc(a$)
		if a$<>chr(32)
			a=a-1
		else
			empty=empty+1
		endif
		if empty=length then dontDo=1
		newWord=newWord+chr(a)
	next i

endfunction  newWord

+ Code Snippet

// Project: TextFun
// Created: 2016-12-29

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "TextFun" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

Words as string = "HELLO WORLD is a great place to start programming it teaches people the very basics and is used as a common starting program by many people all over the world. Hello world has been the starter program for most programmers for many years. Its not the best program in the world laughs but it helps people get the drive to start learning"
i=1
i=CreateText(Words)
SetTextSize(i,Random(50,60))
SetTextColor(i,255,255,255,255)
SetTextPosition(i,10,10)
SetTextMaxWidth( i,1020 )
sync()
sleep(500)
global dontDo as integer
dontDo=0

start_time = GetMilliseconds()

do

	current_time = GetMilliseconds()

	if current_time - start_time > 100

		start_time = current_time

		if dontDo=0
			Words=subtractAscii(Words)
			SetTextString(i,Words)
			//keep subtracting the alpha value until black
			alpha=GetTextColorAlpha(i)
			if alpha>5 then SetTextColorAlpha(i,alpha-5)
		endif
	endif
    Sync()
loop

function subtractAscii (word as string)

	//Each letter or a string passed is replaced with the character 1 less than previous
	newWord as String
	newWord=""
	length=len(word)
	empty=0

	for i = 1 to length
		a$=Mid(word,i,1)
		a=asc(a$)
		if a$<>chr(32)
			a=a-1
		else
			empty=empty+1
		endif
		if empty=length then dontDo=1
		newWord=newWord+chr(a)
	next i

endfunction  newWord

The function would have be tidied up so it could be used in a project but the effect is nice. I also like the original post, where the individual characters disappeared.

Hover Car Race Challenge! - available now on Google Play
Invaders of the 29th Dimension - available now on Google Play
Find me on indieDB

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / TEXT FUN