;========================================================================================\
; ConsoleReady    => wenn Zeile komplett erschienen ist, wird ConsoleReady auf 1 gesetzt ;
;                    dadurch kann man z.B. sicherstellen, dass die jetzige Zeile vor der ;
;                    nächsten Eingabe auch wirklich komplett zu sehen ist                ;
; MaxConsoleLines => maximale Anzahl der möglichen Zeilen innerhalb der Console          ;
; ConsoleSpeed    => Geschwindigkeit zum Erscheinen der einzelnen Buchstaben             ;
;                    wenn ConsoleSpeed = 0 erscheint die komplette Zeile direkt          ;
;========================================================================================/

Global ConsoleFont, ConsoleCounter, ConsoleReady=1, MaxConsoleLines=5, ConsoleSpeed=4
ConsoleFont  = LoadFont("Verdana", "12")

Type ConsoleType
   Field Text$
   Field Color
   Field MaxLetter
   Field ActiveLetter
End Type

Dim Console.ConsoleType(MaxConsoleLines)
For a=1 To MaxConsoleLines
   Console(a) = New ConsoleType
Next

Function WriteConsole(String$, Red=150, Green=150, Blue=150)

   For a=MaxConsoleLines To 2 Step -1
      Console(a)\Text       = Console(a-1)\Text
      Console(a)\Color      = Console(a-1)\Color
      Console(a)\MaxLetter    = Console(a-1)\MaxLetter
      Console(a)\ActiveLetter = Console(a-1)\MaxLetter
   Next
   
   Console(1)\Text         = String$
   Console(1)\Color        = Red*$10000 + Green*$100 + Blue
   Console(1)\MaxLetter    = Len(String$)
   Console(1)\ActiveLetter = 0
   ConsoleReady=0
   
End Function

Function ShowConsole(x=0, y=0, TopToBottom=1)

;============================================================================\
; x            => x-Position der Console                                     ;
; y            => y-Position der Console                                     ;
; TopToBottom  => wenn 1 erscheinen die Zeilen von oben nach unten           ;
;                 wenn 0 erscheinen die Zeilen von unten nach oben           ;
;============================================================================/

   If ConsoleReady=0
      If ConsoleSpeed=0
         Console(1)\ActiveLetter = Console(1)\MaxLetter
         ConsoleReady=1
      Else
         ConsoleCounter = ConsoleCounter + 1
         If ConsoleCounter = ConsoleSpeed
            ConsoleCounter = 0
            If Console(1)\ActiveLetter = Console(1)\MaxLetter
               ConsoleReady=1
            Else
               Console(1)\ActiveLetter = Console(1)\ActiveLetter + 1
            EndIf
         EndIf
      EndIf
   EndIf

   
   SetFont ConsoleFont
   For a=1 To MaxConsoleLines
   
      If TopToBottom
         b=a-1
      Else
         b=MaxConsoleLines-a
      EndIf
      
      Color 0, 0, Console(a)\Color
      Text x+OriginX,y+OriginY+b*12,Mid(Console(a)\Text, 1, Console(a)\ActiveLetter)
      
   Next
End Function

;=======================\
;     21.04.2004        ;
;     Code by Junky     ;
;     ICQ: 98837491     ;
;=======================/

Graphics(800,600,32,1)
SeedRnd MilliSecs()

Include "Console.bb"

WriteConsole("Mit Space nächste Textzeile in Console schreiben lassen")
SetBuffer(BackBuffer())
Repeat
   ; Zeileneingabe erst, wenn SpaceTaste gedrückt und Console bereit
   If KeyHit(57) And ConsoleReady
      WriteConsole("Test ABCdef123", Rand(1,255), Rand(1,255), Rand(1,255))
   EndIf
   Cls
   ShowConsole(GraphicsWidth()-300,0)
   Flip
Until(KeyHit(1))
End

Graphics 640,480,16,1
SetBuffer BackBuffer()

Dim letters$(1000)
satz$ = "Lassen wir's mal auf sich beruhen..."
anz = Len(satz$)

;festlegen
For i = 1 To anz
letters$(i) = Left$(satz$,i)
Next

WaitKey
;ausgeben
For i = 1 To anz
Text 0,0,letters$(i),0,0
Flip
Delay 50
Cls
Next

WaitKey
End