Sub life()
Dim randomNumber As Integer = rng.Next(1, maxRange)
Console.Clear()
Console.WriteLine("Permainan Menebak Angka")
Console.WriteLine("=======================")
Console.WriteLine()
Console.WriteLine("Anda Mempunyai " & bykLife & "x Kesempatan untuk Menebak")
Console.WriteLine("Tingkat Kesulitan " & lvl & " <Range Angka dari 1 s.d " & maxRange & ">")
Console.WriteLine()
For i As Integer = 1 To bykLife
ulang:
Console.WriteLine("Percobaan " & i)
Console.WriteLine("---------------")
Try
Console.Write("Masukan Angka Tebakan Anda : ")
tebakan = Console.ReadLine()
Catch ex As Exception
Console.WriteLine("Hati-Hati")
Console.WriteLine("Yang Anda Masukkan Bukan Angka")
Console.WriteLine("Anda akan Diminta Menebak ulang")
Console.WriteLine()
GoTo ulang
End Try

If tebakan > maxRange Or tebakan < 1 Then
Console.WriteLine("Hati-Hati")
Console.WriteLine("Anda telah Memasukan Angka Kurang/Melebihi Range")
Console.WriteLine("Anda akan Diminta Menebak ulang")
Console.WriteLine()
GoTo ulang
ElseIf (tebakan < randomNumber) Then
If (randomNumber - tebakan <= 3) Then
Console.WriteLine("Tebakan Sedikit Terlalu Kecil")
Else
Console.WriteLine("Tebakan Terlalu Kecil")
End If

ElseIf (tebakan > randomNumber) Then
If (tebakan - randomNumber <= 3) Then
Console.WriteLine("Tebakan Sedikit Terlalu Besar")
Else
Console.WriteLine("Tebakan Terlalu Besar")
End If
ElseIf tebakan = randomNumber Then
Exit For
End If
Select Case i
Case 1 To bykLife - 1
Console.WriteLine("Kesempatan Anda Tinggal " & bykLife - i & "x lagi")
Case bykLife
Console.WriteLine()
Console.WriteLine("Anda Gagal ... Kesempatan Anda Telah Habis T.T")
Console.WriteLine("Jawaban yang Benar adalah " & randomNumber)
Console.WriteLine("Silakan Coba Lagi")
Console.ReadLine()
Call HalUtama()
End Select
Console.WriteLine()
Next
Call win()
End Sub