Dim ish_x As Integer
    Dim ish_y As Integer
    ' for player 2
    Dim p2_x As Integer
    Dim p2_y As Integer
    
    Dim doFall As Boolean
    
    
    ' is set on loading of the level file:
    Dim diamondsLeftToPickUp As Integer
    
    Dim iCurrentLevel As Integer
    
    Dim bCONNECTED As Boolean
    
    Public Sub startLevel(iLevelIndex As Integer)
    
        If bTWO_PLAYER_MODE Then
            If lblP2Name.Visible = False Then
                lblP2Name.Visible = True
                DigControl_P2_Lifes.Visible = True
                DigControl_P2_Nikud.