Autor: Adrian09_01
Grafika: Prymitywna, polecenia LINE i COLOR
Dźwięk: PC Speaker, polecenie PLAY
Muzyka: PC Speaker, polecenie PLAY
Opis:
Zgadywanka Adriana to moja druga gra zaprogramowana w QBasic. W grze musimy zgadnąć liczbę, którą proponuje nam program. Zakres liczb wynosi od 1 do 100. Po odpowiedzi, komputer daje Ci podpowiedź - Za dużo lub Za mało. Musimy trafić na właściwą liczbę w dziesięciu próbach.
Kod:
Spoiler:
SCREEN 12
CLS
RANDOMIZE TIMER
PRINT --------------------
PRINT Zgadywanka
PRINT --------------------
PRINT 2014 by adrian09_01
PRINT Wcisnij Enter
PRINT a ja wylosuje Ci
PRINT liczbe do zgadniecia
PRINT --------------------
Zycia = 10
Wynik = 0
INPUT hlkglfolfock
Liczba = INT(RND * 100 * 1)
DO
CLS
COLOR 7, 0
LINE (512, 384)-(632, 487), 4, B
LOCATE 27, 69
COLOR 1, 0
PRINT Zgadywanka
COLOR 6, 0
LOCATE 28, 69
PRINT Adriana
LOCATE 2, 1
COLOR 4, 0
PRINT Podaj liczbe:
COLOR 7, 0
INPUT podanaliczba
SELECT CASE podanaliczba
CASE IS < Liczba
COLOR 3, 0
PRINT Za malo!
COLOR 7, 0
Zycia = Zycia - 1
PRINT Zycia:
PRINT Zycia
PLAY C4
CASE IS > Liczba
COLOR 5, 0
PRINT Troszke za duzo...
COLOR 7, 0
Zycia = Zycia - 1
PRINT Zycia:
PRINT Zycia
PLAY C4
CASE IS = Liczba
COLOR 5, 0
PRINT Super! - 10 pkt.
COLOR 7, 0
Zycia = 10
Wynik = Wynik + 10
PLAY C2 E4 C2 C2 E4 C2
Liczba = INT(RND * 100 * 1)
END SELECT
IF Zycia < 1 THEN
COLOR 3, 0
PRINT Koniec gry, kolego!
Zycia = 10
COLOR 6, 0
PRINT Wynik koncowy:
PRINT Wynik
Wynik = 0
PLAY C2 < B2 > C2 < B2 > C2
Liczba = INT(RND * 100 * 1)
END IF
LOOP