Graphics 250, 300, 16, 2
AppTitle "Falling Numbers. A v66i Game."
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Type TChar
   Field X
   Field Y
   Field Z
End Type

Global Char.TChar

Const NUM_0 = 82
Const NUM_1 = 79
Const NUM_2 = 80
Const NUM_3 = 81
Const NUM_4 = 75
Const NUM_5 = 76
Const NUM_6 = 77
Const NUM_7 = 71
Const NUM_8 = 72
Const NUM_9 = 73

.menu

Cls

Text 125, 1, "Falling Numbers", 1
Text 125, 100, "1 - Start Game", 1
Text 125, 120, "2 - End Game", 1
Text 125, 140, "3 - Credits ;)", 1

Flip

FlushKeys
WaitKey
If KeyHit(2) Or KeyHit(NUM_1) Then Gosub game
If KeyHit(3) Or KeyHit(NUM_2) Then Gosub ende
If KeyHit(4) Or KeyHit(NUM_3) Then Gosub credits

.ende
End

.credits

Cls
Text 125, 1, "Falling Numbers", 1
Text 125, 100, "A Game by Pdd.", 1
Text 125, 280, "Press ESC", 1
Flip

FlushKeys
WaitKey
Gosub menu

.game

Global Pause, Speed = 100, Punkte = 0
Global Timer = CreateTimer(30)

For Char = Each TChar
   Delete Char
   Speed = 100
   Punkte = 0
Next

Repeat
   Cls
      WaitTimer(Timer)
      Speed = 100 - Punkte
      If Pause < 0 Then
         Char = New TChar
         Char\Z = Rnd(1, 9)
         Char\X = Rnd(10, 240)
         Char\Y = -10
         Pause = Speed
      Else
         Pause = Pause - 1
      EndIf
      
      For Char = Each TChar
         Text Char\X, Char\Y, Str(Char\Z)
         Char\Y = Char\Y + 1
         del = 0
         If Char\Y > 300 Then Gosub score
         Select Char\Z
            Case 1
               If KeyHit(NUM_1) Then del = 1
            Case 2
               If KeyHit(NUM_2) Then del = 1
            Case 3
               If KeyHit(NUM_3) Then del = 1
            Case 4
               If KeyHit(NUM_4) Then del = 1
            Case 5
               If KeyHit(NUM_5) Then del = 1
            Case 6
               If KeyHit(NUM_6) Then del = 1
            Case 7
               If KeyHit(NUM_7) Then del = 1
            Case 8
               If KeyHit(NUM_8) Then del = 1               
            Case 9
               If KeyHit(NUM_9) Then del = 1
         End Select
         If del = 1 Then
            Delete Char
            Punkte = Punkte + 1
         endif
         
      Next
      
   Text 1, 287, "Punkte: " + Punkte
      
   FlushKeys   
   Flip
Until KeyHit(1)

.score

Cls

Text 125, 1, "GAME OVER", 1
Text 125, 30, "Erreichte Punkte:", 1
Text 125, 50, Punkte, 1

Text 125, 287, "Weiter mit ESC", 1
Flip
FlushKeys
WaitKey
Punkte = 0

Gosub menu