AppTitle()

This code has been declared by its author to be Public Domain code.

AppTitle() by n8r2k

2005

This is a sort of smooth function that animates the AppTitle and can put the text into the document at the same time

Click here to download current versions of all my codes and games including this one: http://n8r2k.deviousbytes.com/

Graphics 800,600,16,2
Global apptime = 0
Global apptext$ = app1$
Global appnum = 0
Global texttime = 0
Global appdir = 0
Const app1$ = "If you like you could"  ;change these lines
Const app2$ = "Mess with this code and"
Const app3$ = "Add more messages"
SeedRnd(MilliSecs())

While Not KeyHit(1)
AppletTitle()
Flip
Wend

Function AppletTitle()
AppTitle apptext$
Cls
apptext$ = " " + apptext$ 
apptime = apptime + 1
If apptime = 100 ;mess with this var
	If appnum = 0
		apptext$ = app2$
		apptime = 0
		appnum = 1
	ElseIf appnum = 1
		apptext$ = app3$
		apptime = 0
		appnum = 2
	ElseIf appnum = 2
		apptext$ = app1$
		apptime = 0
		appnum = 0
	EndIf
EndIf
Color Rand(0,255),Rand(0,255),Rand(0,255)
Text 0,500,apptext$
End Function

Comments

None.

Code Archives Forum