Nieklikowe twory - [Logiczna] Kości 2014 adrian09_01 - 05-02-2014, 19:19 : Temat postu: [Logiczna] Kości 2014Tytuł: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.
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 - 05-02-2014, 19:26 :
adrian09_01 napisał/a:
QB4.5 nie działa u mnie i wywala błędy dzielenia przez zero.
To nie dziel przez zero.
Okej, odkryłeś programowanie, a teraz popraw estetykę aplikacji, bo na początku nie ma nic, nie wiadomo zbytnio co jest grane. Wylosowane liczby mogłyby pokazywać się w postaci jednej ściany kostki z kółeczkami. Proste do zrobienia.
Nie lubię gier w pełni losowych .
EDIT: chciałeś ugrać hymn unii ale ci nie wyszło trochę wermi - 06-02-2014, 14:20 :
adrian09_01 napisał/a:
QB4.5 nie działa u mnie
Jeżeli próbujesz odpalić aplikację 16bit na 64bit to się nie dziw że ci nie działa. Ayth - 06-02-2014, 15:16 :
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