SCREEN 12
RANDOMIZE TIMER
CLS
TitleScreen
'SUB LIST'
'TitleScreen - title and game Initialize and Navigation
'GameScreen - main blackjack screen Initialize and GamePlay
'HelpScreen - rules screen Initialize and Navigation
'HelpScreen2 - rules screen part 2
SUB TitleScreen
CLS
DRAW C15 L190 H10 U100 E10 R340 F10 D100 G10 L150
PAINT (322, 242), 2, 15
PAINT (319, 142), 10, 15
LOCATE 11, 28
COLOR 4, 10
PRINT O C Z K O
COLOR 0, 10
LOCATE 13, 27
PRINT Gra od Tropic Games.
LOCATE 14, 20
PRINT (C) 2014. Wszelkie prawa zastrzezone.
LOCATE 18, 28
COLOR 15, 2
PRINT 1 - rozpocznij gre
LOCATE 20, 30
PRINT 2 - zasady gry
LOCATE 22, 30
PRINT 3 - wylacz gre
LOCATE 25, 30
PRINT ? - twoj wybor;
10 LOCATE 25, 29
INPUT , Wybor
SELECT CASE Wybor
CASE 1
PLAY C
GameScreen
CASE 2
PLAY C
HelpScreen
CASE 3
SYSTEM
CASE ELSE
PLAY C64 D64 C64 D64 C64 D64
GOTO 10
END SELECT
END SUB
SUB GameScreen
'max-kart = 24
CLS
COLOR 4, 12
DRAW C15 BU200 L250 D380 R500 U380 L250
PAINT (320, 240), 10, 15
LOCATE 6, 15
PRINT OOOOOOOOO
LOCATE 7, 15
PRINT OOOOOOOOO
LOCATE 8, 15
PRINT OOOOOOOOO
LOCATE 9, 15
PRINT OOOOOOOOO
LOCATE 10, 15
PRINT OOOOOOOOO
LOCATE 11, 15
PRINT OOOOOOOOO
20 COLOR 15, 2
LOCATE 18, 52
COLOR 0, 10
PRINT Wynik
COLOR 15, 2
LOCATE 28, 10
PRINT 1 - daj nowa karte 2 - zakoncz branie
LOCATE 28, 58
INPUT , Karta
SELECT CASE Karta
CASE 1
PLAY C64 E64
KartaNastepna = INT(RND * 24 + 1)
IF KartaInitialized = 1 THEN
'do nothing
ELSE
LOCATE 20, 50
COLOR 15, 15
PRINT OOOOOOOOO
LOCATE 21, 50
PRINT OOOOOOOOO
LOCATE 22, 50
PRINT OOOOOOOOO
LOCATE 23, 50
PRINT OOOOOOOOO
LOCATE 24, 50
PRINT OOOOOOOOO
LOCATE 25, 50
PRINT OOOOOOOOO
END IF
SELECT CASE KartaNastepna
CASE 1
COLOR 0, 15
LOCATE 21, 51
PRINT A
LOCATE 22, 51
PRINT ^
LOCATE 24, 57
PRINT A
LOCATE 25, 57
PRINT ^
LOCATE 28, 10
Wynik = Wynik + 11
Asy = Asy + 1
GOTO 20
CASE 2
COLOR 0, 15
LOCATE 21, 51
PRINT 9
LOCATE 22, 51
PRINT ^
LOCATE 24, 57
PRINT 9
LOCATE 25, 57
PRINT ^
LOCATE 28, 10
Wynik = Wynik + 0
Asy = 0
GOTO 20
CASE 3
COLOR 0, 15
LOCATE 21, 51
PRINT 10
LOCATE 22, 51
PRINT ^
LOCATE 24, 57
PRINT 10
LOCATE 25, 57
PRINT ^
LOCATE 28, 10
Wynik = Wynik + 10
Asy = 0
GOTO 20
CASE 4
COLOR 0, 15
LOCATE 21, 51
PRINT J
LOCATE 22, 51
PRINT ^
LOCATE 24, 57
PRINT J
LOCATE 25, 57
PRINT ^
LOCATE 28, 10
Wynik = Wynik + 2
Asy = 0
GOTO 20
CASE 5
COLOR 0, 15
LOCATE 21, 51
PRINT Q
LOCATE 22, 51
PRINT ^
LOCATE 24, 57
PRINT Q
LOCATE 25, 57
PRINT ^
LOCATE 28, 10
Wynik = Wynik + 3
Asy = 0
GOTO 20
CASE 6
COLOR 0, 15
LOCATE 21, 51
PRINT K
LOCATE 22, 51
PRINT ^
LOCATE 24, 57
PRINT K
LOCATE 25, 57
PRINT ^
LOCATE 28, 10
Wynik = Wynik + 4
Asy = 0
GOTO 20
CASE 7
COLOR 4, 15
LOCATE 21, 51
PRINT A
LOCATE 22, 51
PRINT <3
LOCATE 24, 57
PRINT A
LOCATE 25, 57
PRINT <3
LOCATE 28, 10
Wynik = Wynik + 11
Asy = Asy + 1
GOTO 20
CASE 8
COLOR 4, 15
LOCATE 21, 51
PRINT 9
LOCATE 22, 51
PRINT <3
LOCATE 24, 57
PRINT 9
LOCATE 25, 57
PRINT <3
LOCATE 28, 10
Wynik = Wynik + 0
Asy = 0
GOTO 20
CASE 9
COLOR 4, 15
LOCATE 21, 51
PRINT 10
LOCATE 22, 51
PRINT <3
LOCATE 24, 57
PRINT 10
LOCATE 25, 57
PRINT <3
LOCATE 28, 10
Wynik = Wynik + 10
Asy = 0
GOTO 20
CASE 10
COLOR 4, 15
LOCATE 21, 51
PRINT J
LOCATE 22, 51
PRINT <3
LOCATE 24, 57
PRINT J
LOCATE 25, 57
PRINT <3
LOCATE 28, 10
Asy = 0
Wynik = Wynik + 2
GOTO 20
CASE 11
COLOR 4, 15
LOCATE 21, 51
PRINT Q
LOCATE 22, 51
PRINT <3
LOCATE 24, 57
PRINT Q
LOCATE 25, 57
PRINT <3
LOCATE 28, 10
Asy = 0
Wynik = Wynik + 3
GOTO 20
CASE 12
COLOR 4, 15
LOCATE 21, 51
PRINT K
LOCATE 22, 51
PRINT 3
LOCATE 24, 57
PRINT K
LOCATE 25, 57
PRINT 3
LOCATE 28, 10
Wynik = Wynik + 4
Asy = 0
GOTO 20
CASE 13
COLOR 0, 15
LOCATE 21, 51
PRINT A
LOCATE 22, 51
PRINT *
LOCATE 24, 57
PRINT A
LOCATE 25, 57
PRINT *
LOCATE 28, 10
Wynik = Wynik + 11
Asy = Asy + 1
GOTO 20
CASE 14
COLOR 0, 15
LOCATE 21, 51
PRINT 9
LOCATE 22, 51
PRINT *
LOCATE 24, 57
PRINT 9
LOCATE 25, 57
PRINT *
LOCATE 28, 10
Wynik = Wynik + 0
Asy = 0
GOTO 20
CASE 15
COLOR 0, 15
LOCATE 21, 51
PRINT 10
LOCATE 22, 51
PRINT *
LOCATE 24, 57
PRINT 10
LOCATE 25, 57
PRINT *
LOCATE 28, 10
Wynik = Wynik + 10
Asy = 0
GOTO 20
CASE 16
COLOR 0, 15
LOCATE 21, 51
PRINT J
LOCATE 22, 51
PRINT *
LOCATE 24, 57
PRINT J
LOCATE 25, 57
PRINT *
LOCATE 28, 10
Wynik = Wynik + 2
Asy = 0
GOTO 20
CASE 17
COLOR 0, 15
LOCATE 21, 51
PRINT Q
LOCATE 22, 51
PRINT *
LOCATE 24, 57
PRINT Q
LOCATE 25, 57
PRINT *
LOCATE 28, 10
Wynik = Wynik + 3
Asy = 0
GOTO 20
CASE 18
COLOR 0, 15
LOCATE 21, 51
PRINT K
LOCATE 22, 51
PRINT *
LOCATE 24, 57
PRINT K
LOCATE 25, 57
PRINT *
LOCATE 28, 10
Wynik = Wynik + 4
Asy = 0
GOTO 20
CASE 19
COLOR 4, 15
LOCATE 21, 51
PRINT A
LOCATE 22, 51
PRINT <>
LOCATE 24, 57
PRINT A
LOCATE 25, 57
PRINT <>
LOCATE 28, 10
Wynik = Wynik + 11
Asy = Asy + 1
GOTO 20
CASE 20
COLOR 4, 15
LOCATE 21, 51
PRINT 9
LOCATE 22, 51
PRINT <>
LOCATE 24, 57
PRINT 9
LOCATE 25, 57
PRINT <>
LOCATE 28, 10
Wynik = Wynik + 0
Asy = 0
GOTO 20
CASE 21
COLOR 4, 15
LOCATE 21, 51
PRINT 10
LOCATE 22, 51
PRINT <>
LOCATE 24, 57
PRINT 10
LOCATE 25, 57
PRINT <>
LOCATE 28, 10
Wynik = Wynik + 10
Asy = 0
GOTO 20
CASE 22
COLOR 4, 15
LOCATE 21, 51
PRINT J
LOCATE 22, 51
PRINT <>
LOCATE 24, 57
PRINT J
LOCATE 25, 57
PRINT <>
LOCATE 28, 10
Wynik = Wynik + 2
Asy = 0
GOTO 20
CASE 23
COLOR 4, 15
LOCATE 21, 51
PRINT Q
LOCATE 22, 51
PRINT <>
LOCATE 24, 57
PRINT Q
LOCATE 25, 57
PRINT <>
LOCATE 28, 10
Wynik = Wynik + 3
Asy = 0
GOTO 20
CASE 24
COLOR 4, 15
LOCATE 21, 51
PRINT K
LOCATE 22, 51
PRINT <>
LOCATE 24, 57
PRINT K
LOCATE 25, 57
PRINT <>
LOCATE 28, 10
Wynik = Wynik + 4
Asy = 0
GOTO 20
END SELECT
CASE 2
IF Wynik > 21 THEN
IF Asy = 2 THEN
WinScreen
ELSE
LoseScreen
END IF
ELSE
WynikPrzeciwnika = INT(RND * 20 + 1)
IF Wynik < WynikPrzeciwnika THEN
LoseScreen
ELSE
WinScreen
END IF
END IF
CASE ELSE
PLAY C64 D64 C64 D64 C64 D64
GOTO 20
END SELECT
END SUB
SUB HelpScreen
CLS
COLOR 15, 15
DRAW C15 BU200 L250 D380 R500 U380 L250
PAINT (320, 240), 10, 15
COLOR 0, 10
LOCATE 2, 10
PRINT Zasady gry w Oczko
LOCATE 4, 10
PRINT Oczko polega na dobieraniu kart z talii w taki sposob, aby
LOCATE 5, 10
PRINT suma przypisanych do nich punktow nie przekroczyla 21 pkt.
LOCATE 6, 10
PRINT Najlepsza sytuacja jest wtedy, gdy karty w reku maja razem
LOCATE 7, 10
PRINT 21 pkt. Wyjatkiem od tych regul jest tzw. perskie oczko,
LOCATE 8, 10
PRINT ktore posiadamy, gdy mamy w reku dwa asy. Ich suma wynosi
LOCATE 9, 10
PRINT 22 pkt. lecz dla danego gracza partia jest juz wygrana.
LOCATE 16, 10
PRINT W A R T O S C I K A R T W O C Z K U :
LOCATE 18, 10
PRINT 9 - 0 pkt.
LOCATE 19, 10
PRINT 10 - 10 pkt.
LOCATE 20, 10
PRINT Jopek/Walet - 2 pkt.
LOCATE 21, 10
PRINT Dama - 3 pkt.
LOCATE 22, 10
PRINT Krol - 4 pkt.
LOCATE 23, 10
PRINT As - 11 pkt.
COLOR 15, 2
LOCATE 28, 10
PRINT Enter - powraca do menu
INPUT , Wybor
PLAY C
TitleScreen
END SUB
SUB WinScreen
CLS
DRAW C15 L190 H10 U100 E10 R340 F10 D100 G10 L150
PAINT (322, 242), 2, 15
PAINT (319, 142), 10, 15
LOCATE 11, 28
COLOR 4, 10
PRINT W Y G R A L E S !
LOCATE 18, 28
COLOR 15, 2
PRINT Enter - powrot do menu
INPUT , Wybor
PLAY C D E E E F G G A B B B > C <
TitleScreen
END SUB
SUB LoseScreen
CLS
DRAW C15 L190 H10 U100 E10 R340 F10 D100 G10 L150
PAINT (322, 242), 2, 15
PAINT (319, 142), 10, 15
LOCATE 11, 28
COLOR 4, 10
PRINT S Z K O D A . . .
LOCATE 18, 28
COLOR 15, 2
PRINT Enter - powrot do menu
INPUT , Wybor
PLAY C D E E D C < A B >
TitleScreen
END SUB |
FAQ
Szukaj
Użytkownicy
Download
Zaloguj
