SAYI TAHMİNİ OYUNU

TextWindow.Title="Sayı Bulmaca (0-100)"

TextWindow.BackgroundColor = "Blue"

TextWindow.ForegroundColor = "White"

TextWindow.Top = 99

TextWindow.Left = 99

basla:

TextWindow.Clear()

TextWindow.WriteLine("0 ile 100 arasında bir sayı tuttum. 10 hakkın var. Kolaysa bul bakalım :)")

TextWindow.WriteLine("")

TextWindow.WriteLine("Sayı Gir:")

Sound.PlayBellRing()

Sayi=Math.GetRandomNumber(100)

For x = 1 To 10

girilen = TextWindow.ReadNumber()

If (Sayi=girilen) Then

goto tebrik

EndIf

If (Sayi>girilen) Then

TextWindow.WriteLine("Daha büyük bir sayı girmelisin. " + (10-x) + " hakkın kaldı")

Else

TextWindow.WriteLine("Daha küçük bir sayı girmelisin. " + (10-x) + " hakkın kaldı")

EndIf

TextWindow.WriteLine("Sayı Gir:")

EndFor

TextWindow.WriteLine("Üzgünüm bilemedin. Enter tuşuna basıp yeniden oynayabilirsin")

TextWindow.Read()

Goto basla

tebrik:

TextWindow.WriteLine("Tebrikler! Bildiniz...")

TextWindow.WriteLine("Sayımız:" + Sayi + " idi")

TextWindow.WriteLine("Tekrar oynamak için Enter tuşuna basınız")

For z = 0 To 5

Sound.PlayBellRing()

Program.Delay(1000)

EndFor

TextWindow.Read()

Goto basla