[bb] AppTitle() by n8r2k [ 1+ years ago ]

Started by BlitzBot, June 29, 2017, 00:28:42

Previous topic - Next topic

BlitzBot

Title : AppTitle()
Author : n8r2k
Posted : 1+ years ago

Description : 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: <a href="http://n8r2k.deviousbytes.com/" target="_blank">http://n8r2k.deviousbytes.com/</a>


Code :
Code (blitzbasic) Select
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...