November 24, 2020, 05:53:04 AM

Author Topic: [bmx] Space Writer by MacSven [ 1+ years ago ]  (Read 598 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
[bmx] Space Writer by MacSven [ 1+ years ago ]
« on: June 29, 2017, 12:28:38 AM »
Title : Space Writer
Author : MacSven
Posted : 1+ years ago

Description : This is a Space Writer demo from old C64 Demos. Look and Feel!

Code :
Code: BlitzMax
  1. ' You need the odd.AsciiFont module
  2.  
  3. Import odd.Asciifont
  4.  
  5. Graphics 800,600
  6.  
  7. Global text$[21]
  8. Global lines
  9. Global background:TPixmap=CreatePixmap(800,600,PF_RGBA8888)
  10.  
  11. Local font:TAsciiFont=TAsciiFont.Load("asciifont.png",8,8,ASCII_PADDED|ASCII_EXTENDED)
  12. Global ende
  13.  
  14. Delay 2000
  15.  
  16. Repeat
  17.         SetScale 2,2
  18.         SetColor 64,64,255
  19. '       text$="THIS IS A SPACE WRITER WRITTEN in"+Chr$(13)+"BLITZMAX IN DREAMS OF OLD SCHOOLDEMOS"
  20.         text$[0]="THIS IS A SPACE WRITER WRITTEN IN"
  21.         text$[1]="BLITZMAX IN DREAMS OF OLD SCHOOLDEMOS"
  22.         text$[2]="AND IT LOOKS VERY COOL"
  23.         text$[3]="AND IT WORKS!"
  24.         text$[4]=""
  25.         text$[5]=""
  26.         text$[6]="THANX TO ALL THE BLITZMAX DEVELOPER"
  27.         text$[7]="FOR THIS GREAT PROGRAMMING LANGUAGE"
  28.         text$[8]=""
  29.         text$[9]="THIS IS FREEWARE, USE IT OR NOT"
  30.         text$[10]="BYE"
  31.         text$[11]=""
  32.         text$[12]=""
  33.         text$[13]=""
  34.         text$[14]=""
  35.         text$[15]=""
  36.         text$[16]=""
  37.         text$[17]=""
  38.         text$[18]=""
  39.         text$[19]=""
  40.         text$[20]=""
  41.         If ende=0 Then
  42.                 For lines=0 To 20
  43.                         For test=0 To Len(text$[lines])+1
  44.                                 Cls
  45.                                 DrawPixmap (background,0,0)
  46.  
  47.                                 If test=Len(text$[lines])+1
  48.                                         If KeyHit(key_escape) Then End
  49.                                         font.draw Mid$(text$[lines],1,test)+Chr$(32),0,100+lines*16
  50.                                         Flip
  51.                                         Delay 50
  52.                                 Else
  53.                                         font.draw Mid$(text$[lines],1,test)+Chr$(128),0,100+lines*16
  54.                                         If KeyHit(key_escape) Then End
  55.                                 EndIf
  56.                                 Flip
  57.                                 Delay 50
  58. '                               Flip
  59.  
  60.                         Next
  61.                         background=GrabPixmap(0,0,800,600)
  62.                 Next
  63.         EndIf
  64.         Cls
  65.         background=GrabPixmap(0,0,800,600)
  66. Until KeyDown(KEY_ESCAPE) Or AppTerminate()


Comments : none...

 

SimplePortal 2.3.6 © 2008-2014, SimplePortal