Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1. Dim Shared VIRA_TTY_Visible                 As Integer
    
  2. Dim Shared VIRA_TTY_BackBufferH             As Uinteger = 10
    
  3. Dim Shared VIRA_TTY_PosY                    As Integer  = 0
    
  4. Dim Shared VIRA_TTY_SpeedSH                 As Integer  = 1
    
  5. 
    
  6. Dim TKey As String
    
  7. Do
    
  8.     TKey = Inkey()
    
  9.     If TKey = Chr(27) Then Exit Do
    
  10.     If TKey = "1" Then VIRA_TTY_Visible = 0
    
  11.     If TKey = "2" Then VIRA_TTY_Visible = 1
    
  12.     If VIRA_TTY_Visible = 0 Then
    
  13.         If VIRA_TTY_PosY > -VIRA_TTY_BackBufferH Then VIRA_TTY_PosY -= VIRA_TTY_SpeedSH
    
  14.         If VIRA_TTY_PosY < -VIRA_TTY_BackBufferH Then VIRA_TTY_PosY = -VIRA_TTY_BackBufferH
    
  15.     Else
    
  16.         If VIRA_TTY_PosY < 0 Then VIRA_TTY_PosY += VIRA_TTY_SpeedSH
    
  17.         If VIRA_TTY_PosY > 0 Then VIRA_TTY_PosY = 0
    
  18.     End If
    
  19.     Print VIRA_TTY_PosY
    
  20.     Sleep 250, 1
    
  21. Loop
    
  22. End 0
    
  23.