[adrian09_01]

Tytuł: Kości 2014

Gatunek: Logiczna
Język: QBasic (QB64, ale nie korzystałem z nowych komend)

Autor: Adrian09_01
Grafika: Naprawdę prymitywna - polecenie LINE
Dźwięk: PC speaker
Muzyka: PC speaker

Kod gry:

Spoiler:

SCREEN 12
CLS
RANDOMIZE TIMER
PRINT -----------------------
PRINT KOSCI!
PRINT (C) 2014 by Adrian09_01
PRINT -----------------------
PRINT Wcisnij Enter!
PRINT -----------------------
WYNIK = 5
DO
INPUT A$
CLS
LINE (504, 357)-(622, 455), 15, B
LOCATE 25, 69
PRINT KOSCI
LOCATE 26, 69
PRINT 2014
LOCATE 2, 1
PLAY C4
PLAY E4
PLAY E16
PLAY D4
PLAY C16
PLAY C4
PLAY G16
KOSC1 = INT(RND * 6 + 1)
PRINT KOSC1
PLAY C4
PLAY G16
KOSC2 = INT(RND * 6 + 1)
PRINT KOSC2
PLAY C4
PLAY G16
KOSC3 = INT(RND * 6 + 1)
PRINT KOSC3
PLAY C4
PLAY G16
KOSC4 = INT(RND * 6 + 1)
PRINT KOSC4
PLAY C4
PLAY G16
PLAY C16
KOSC5 = INT(RND * 6 + 1)
PRINT KOSC5
RAZEM = KOSC1 + KOSC2 + KOSC3 + KOSC4 + KOSC5
SELECT CASE RAZEM
CASE IS = 5
PLAY E4E4F4G4G4F4E4D4C4C4D4D4E4D4D4C4
PRINT WYGRALES! +10 pkt.
WYNIK = WYNIK + 10
CASE IS = 10
PLAY E4E4F4G4G4F4E4D4C4C4D4D4E4D4D4C4
PRINT WYGRALES! +10 pkt.
WYNIK = WYNIK + 10
CASE IS = 15
PLAY E4E4F4G4G4F4E4D4C4C4D4D4E4D4D4C4
PRINT WYGRALES! +10 pkt.
WYNIK = WYNIK + 10
CASE IS = 20
PLAY E4E4F4G4G4F4E4D4C4C4D4D4E4D4D4C4
PRINT WYGRALES! +10 pkt.
WYNIK = WYNIK + 10
CASE IS = 25
PLAY E4E4F4G4G4F4E4D4C4C4D4D4E4D4D4C4
PRINT WYGRALES! +10 pkt.
WYNIK = WYNIK + 10
CASE IS = 30
PLAY E4E4F4G4G4F4E4D4C4C4D4D4E4D4D4C4
PRINT WYGRALES! +10 pkt.
WYNIK = WYNIK + 10
CASE ELSE
PLAY C4
PLAY < B4
PLAY > C4
PRINT PRZEGRALES... -1 pkt.
WYNIK = WYNIK - 1
END SELECT
IF WYNIK < 0 THEN
PLAY < A4 A4 A4 A4 > C4 < B4 B4 A4 A4 A4
PRINT KONIEC GRY, KOLEGO!
PRINT Zacznijmy od nowa.
WYNIK = 5
RAZEM = 0
END IF
PRINT Twoj wynik to:
PRINT WYNIK
PRINT Wcisnij Enter jeszcze raz, aby ponownie rzucic...
LOOP

Opis:
Kości 2014 - QBasic to pierwsza gra, którą "zaprogramowałem" naprawdę, w porównaniu do tych tworzonych w Multimedia Fusion 2, może być dosyć słaba, ale to pierwsza gra, w której nauczyłem używać się INKEY$, SCREEN, LINE, IF-THEN i SELECT-CASE. Zasady gry są proste:
Jeżeli wyrzucisz równowartość wielokrotności liczby 5, wygrywasz i dostajesz 10 kredytów.
Jeżeli nie wyrzucisz tej równowartości, tracisz kredyt.
Jeżeli nie będziesz miał kredytów, gra się kończy.
Gra została tak naprawdę zaprogramowana w QB64, ponieważ QB4.5 nie działa u mnie i wywala błędy dzielenia przez zero.

Zrzuty ekranu:
http://tropicgames.manifo.com/kosci-2014---qbasic

Download:
http://tropicgames.manifo.com/kosci-2014---qbasic

Uwagi:
Jak już mówiłem, grę napisałem w QB64, nowym interpreterze QuickBasica, ponieważ stary (ten na DOS'a) wywalał mi błędy "Division by zero"

[msg]

[wermi]

[Ayth]

popraw błąd: gdy jest losowanie liczb i wciśnie się ponownie enter to gra po zakończeniu losowania zaczyna ponownie losować bez podania wyniku