January 26, 2021, 05:59:24 AM

Author Topic: [bb] AppTitle() by n8r2k [ 1+ years ago ]  (Read 485 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
[bb] AppTitle() by n8r2k [ 1+ years ago ]
« on: June 29, 2017, 12:28:42 AM »
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/[/url]


Code :
Code: BlitzBasic
  1. Graphics 800,600,16,2
  2. Global apptime = 0
  3. Global apptext$ = app1$
  4. Global appnum = 0
  5. Global texttime = 0
  6. Global appdir = 0
  7. Const app1$ = "If you like you could"  ;change these lines
  8. Const app2$ = "Mess with this code and"
  9. Const app3$ = "Add more messages"
  10. SeedRnd(MilliSecs())
  11.  
  12. While Not KeyHit(1)
  13. AppletTitle()
  14. Flip
  15. Wend
  16.  
  17. Function AppletTitle()
  18. AppTitle apptext$
  19. Cls
  20. apptext$ = " " + apptext$
  21. apptime = apptime + 1
  22. If apptime = 100 ;mess with this var
  23.         If appnum = 0
  24.                 apptext$ = app2$
  25.                 apptime = 0
  26.                 appnum = 1
  27.         ElseIf appnum = 1
  28.                 apptext$ = app3$
  29.                 apptime = 0
  30.                 appnum = 2
  31.         ElseIf appnum = 2
  32.                 apptext$ = app1$
  33.                 apptime = 0
  34.                 appnum = 0
  35.         EndIf
  36. EndIf
  37. Color Rand(0,255),Rand(0,255),Rand(0,255)
  38. Text 0,500,apptext$
  39. End Function


Comments : none...

 

SimplePortal 2.3.6 © 2008-2014, SimplePortal