Kirjautuminen

Haku

Tehtävät

Keskustelu: Projektit: Reload Poker 1.0

Sivu 1 / 1

Sivun loppuun

Bowlman [30.11.2003 23:26:15]

Lainaa #

Tässä on Relaod Poker 1.0 aikoinaan tekemäni peli qbasicillä. Kun kokeilin koodia Xp:ssä niin peli näkyy vain ruudun yläosassa. En tiedä miksi? Tässä versiossa oli myös listat ja niille omat tiedostot, mutta en laittanut niitä mukaan, koska se olisi tarvinut muita tiedostoja toimiakseen.

En ole valitettavasti kommentoinnut peliä ja koodikin on varmasti sekavaa ja olisi voitu tehdä paremmin, mut mitä sitten.

Myös joitakin bugeja saattaa ilmetä.
Ainii... Caps lock pitää olla päällä, kun pelaa tota.

Kommentoikaa toki!

'             uusittu koodi, toivottavasti toimii

IHANUUS:






COLOR 15, 0

RAHAT = 20

VOITOT = 0
PANOS = 1

PARPAL:
COLOR 15, 0
CLS
COLOR 15, 1

LOCATE 1, 3
PRINT "   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»                                 ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
LOCATE 2, 3
PRINT "   º   PELIT:       º                                 º   VOITOT:      º"
LOCATE 3, 3
PRINT "   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ                                 ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
COLOR 14, 1
LOCATE 1, 37
PRINT "ÚÄÄÄ¿"
LOCATE 2, 37
PRINT "³   ³"
LOCATE 3, 37
PRINT "ÀÄÄÄÙ"
COLOR 1, 1

LOCATE 22, 1
PRINT "                                                                                "
LOCATE 23, 1
PRINT "                                                                                "

LOCATE 5, 5
COLOR 15, 7
PRINT "ÛßßßßßßßßßßÛ"
LOCATE 6, 5
PRINT "Û          Û"
LOCATE 7, 5
PRINT "Û          Û"
LOCATE 8, 5
PRINT "Û          Û"
LOCATE 9, 5
PRINT "Û          Û"
LOCATE 10, 5
PRINT "Û          Û"
LOCATE 11, 5
PRINT "ÛÜÜÜÜÜÜÜÜÜÜÛ"



COLOR 15, 1
LOCATE 23, 5
PRINT "5 = OHJEET"

FOR T = 0 TO 4

LOCATE 13, 5 + T * 15
COLOR 15, 7
PRINT "ÛßßßßßßßßßßÛ"
LOCATE 14, 5 + T * 15
PRINT "Û          Û"
LOCATE 15, 5 + T * 15
PRINT "Û          Û"
LOCATE 16, 5 + T * 15
PRINT "Û          Û"
LOCATE 17, 5 + T * 15
PRINT "Û          Û"
LOCATE 18, 5 + T * 15
PRINT "Û          Û"
LOCATE 19, 5 + T * 15
PRINT "ÛÜÜÜÜÜÜÜÜÜÜÛ"


NEXT T


UUSI:

SLEEP 1

COLOR 1, 1

LOCATE 22, 1
PRINT "                                                                                "
LOCATE 23, 1
PRINT "                                                                                "

COLOR 15, 1
LOCATE 23, 5
PRINT "5 = OHJEET"

COLOR 0, 0



VOITTO = 0

V1 = 0
V2 = 0
V3 = 0
V4 = 0
V5 = 0


RAHAT:

IF VOITOT > SAVER THEN SAVER = VOITOT

IF PANOS > RAHAT + VOITOT THEN PANOS = 1

IF RAHAT = 0 AND VOITOT = 0 THEN PANOS = 1

IF PANOS = 6 THEN PANOS = 1

IF P = 1 THEN SOUND 100 * PANOS, 1

P = 0

COLOR 15, 0

LOCATE 5, 45
COLOR 15, 0
PRINT "NELOSET "; 40 * PANOS
LOCATE 6, 45
PRINT "TŽYSKŽSI "; 25 * PANOS
LOCATE 7, 45
PRINT "VŽRI "; 8 * PANOS
LOCATE 8, 45
PRINT "KOLMOSET "; 3 * PANOS
LOCATE 9, 45
PRINT "KAKSI PARIA"; 2 * PANOS
LOCATE 10, 45
PRINT "KUVAPARI"; PANOS

COLOR 15, 1
LOCATE 2, 10
PRINT "PELIT:"; RAHAT
COLOR 15
LOCATE 2, 60
PRINT "VOITOT:"; VOITOT
 X = 7
LOCATE 2, 38
PRINT PANOS
IF RAHAT = 0 AND VOITOT = 0 THEN : GOTO SAVE

DO
A$ = INKEY$


SELECT CASE A$
CASE "P":  PANOS = PANOS + 1: P = 1: GOTO RAHAT
CASE " ":  GOTO ARVONTA
CASE "L": GOTO SAVE
CASE "5": GOTO OHJEET

END SELECT
LOOP

ARVONTA:

FOR T = 1 TO 10
SOUND 100, 1
SOUND 150, 1
NEXT T

FOR TTT = 1 TO 200000
NEXT TTT

IF RAHAT < PANOS THEN RAHAT = RAHAT - PANOS: VOITOT = VOITOT + RAHAT: RAHAT = 0

IF RAHAT >= PANOS THEN RAHAT = RAHAT - PANOS

ARVONTA2:



COLOR 15, 1
LOCATE 2, 10
PRINT "PELIT:"; RAHAT
COLOR 15
LOCATE 2, 60
PRINT "VOITOT:"; VOITOT



FOR T = 1 TO 5
RANDOMIZE TIMER
KN(T) = INT(RND(1) * 13) + 1
KM(T) = INT(RND(1) * 4) + 1
'LOCATE 16, 6
'IF KM(T) = 3 THEN COLOR 4
'IF KM(T) = 4 THEN COLOR 4
'IF KM(T) = 1 THEN COLOR 0
'IF KM(T) = 2 THEN COLOR 0
'PRINT KN(T)
NEXT T



IF KN(1) = KN(2) AND KM(1) = KM(2) THEN GOTO ARVONTA2
IF KN(1) = KN(3) AND KM(1) = KM(3) THEN GOTO ARVONTA2
IF KN(1) = KN(4) AND KM(1) = KM(4) THEN GOTO ARVONTA2
IF KN(1) = KN(5) AND KM(1) = KM(5) THEN GOTO ARVONTA2
IF KN(2) = KN(3) AND KM(2) = KM(3) THEN GOTO ARVONTA2
IF KN(2) = KN(4) AND KM(2) = KM(4) THEN GOTO ARVONTA2
IF KN(2) = KN(5) AND KM(2) = KM(5) THEN GOTO ARVONTA2
IF KN(3) = KN(4) AND KM(3) = KM(4) THEN GOTO ARVONTA2
IF KN(3) = KN(5) AND KM(3) = KM(5) THEN GOTO ARVONTA2
IF KN(4) = KN(5) AND KM(4) = KM(5) THEN GOTO ARVONTA2

IF TUP = 1 THEN GOTO V33

SS = 5
FOR TT = 1 TO 5

FOR T = 1 TO 7

LOCATE 12 + T, SS
COLOR 0, 0
PRINT "            "
NEXT T
SS = SS + 15
SOUND 100, 1
FOR TTT = 1 TO 100000
NEXT TTT
NEXT TT

FOR TTT = 1 TO 100000
NEXT TTT

JAKO:

FOR T = 0 TO 4

LOCATE 13, 5 + T * 15
COLOR 15, 7
PRINT "ÛßßßßßßßßßßÛ"
LOCATE 14, 5 + T * 15
PRINT "Û          Û"
LOCATE 15, 5 + T * 15
PRINT "Û          Û"
LOCATE 16, 5 + T * 15
PRINT "Û          Û"
LOCATE 17, 5 + T * 15
PRINT "Û          Û"
LOCATE 18, 5 + T * 15
PRINT "Û          Û"
LOCATE 19, 5 + T * 15
PRINT "ÛÜÜÜÜÜÜÜÜÜÜÛ"

IF KN(T + 1) = 1 THEN KN$(T + 1) = "A "
IF KN(T + 1) = 2 THEN KN$(T + 1) = "2 "
IF KN(T + 1) = 3 THEN KN$(T + 1) = "3 "
IF KN(T + 1) = 4 THEN KN$(T + 1) = "4 "
IF KN(T + 1) = 5 THEN KN$(T + 1) = "5 "
IF KN(T + 1) = 6 THEN KN$(T + 1) = "6 "
IF KN(T + 1) = 7 THEN KN$(T + 1) = "7 "
IF KN(T + 1) = 8 THEN KN$(T + 1) = "8 "
IF KN(T + 1) = 9 THEN KN$(T + 1) = "9 "
IF KN(T + 1) = 10 THEN KN$(T + 1) = "10"
IF KN(T + 1) = 11 THEN KN$(T + 1) = "J "
IF KN(T + 1) = 12 THEN KN$(T + 1) = "Q "
IF KN(T + 1) = 13 THEN KN$(T + 1) = "K "

IF KM(T + 1) = 1 THEN KM$(T + 1) = "�"
IF KM(T + 1) = 2 THEN KM$(T + 1) = "�"
IF KM(T + 1) = 3 THEN KM$(T + 1) = "�"
IF KM(T + 1) = 4 THEN KM$(T + 1) = "�"


 IF KM(T + 1) = 3 THEN COLOR 4
 IF KM(T + 1) = 4 THEN COLOR 4
 IF KM(T + 1) = 1 THEN COLOR 0
 IF KM(T + 1) = 2 THEN COLOR 0

 LOCATE 14, X
 PRINT KN$(T + 1)

 LOCATE 18, X + 7
 PRINT KN$(T + 1)

 LOCATE 18, X
 PRINT KM$(T + 1)

 LOCATE 14, X + 7
 PRINT KM$(T + 1)

 X = X + 15

 SOUND 1500, 1
 SOUND 1000, 1
 FOR TT = 1 TO 100000
 NEXT TT
 NEXT T

VALITSE1:

V = 0

DO

A$ = INKEY$
SELECT CASE A$
CASE "1": V = 1: GOTO HOLD
CASE "2": V = 2: GOTO HOLD
CASE "3": V = 3: GOTO HOLD
CASE "4": V = 4: GOTO HOLD
CASE "5": V = 5: GOTO HOLD
CASE " ": GOTO ARVONTA3

END SELECT
LOOP

HOLD:

IF V = 1 AND V1 = 0 THEN V1 = 1: GOTO HOLD2
IF V = 2 AND V2 = 0 THEN V2 = 1: GOTO HOLD2
IF V = 3 AND V3 = 0 THEN V3 = 1: GOTO HOLD2
IF V = 4 AND V4 = 0 THEN V4 = 1: GOTO HOLD2
IF V = 5 AND V5 = 0 THEN V5 = 1: GOTO HOLD2

IF V = 1 AND V1 = 1 THEN V1 = 0
IF V = 2 AND V2 = 1 THEN V2 = 0
IF V = 3 AND V3 = 1 THEN V3 = 0
IF V = 4 AND V4 = 1 THEN V4 = 0
IF V = 5 AND V5 = 1 THEN V5 = 0


HOLD2:

COLOR 15, 0

IF V1 = 1 THEN LOCATE 21, 7: PRINT "LUKITTU"
IF V2 = 1 THEN LOCATE 21, 22: PRINT "LUKITTU"
IF V3 = 1 THEN LOCATE 21, 37: PRINT "LUKITTU"
IF V4 = 1 THEN LOCATE 21, 52: PRINT "LUKITTU"
IF V5 = 1 THEN LOCATE 21, 67: PRINT "LUKITTU"

IF V1 = 0 THEN LOCATE 21, 7: PRINT "       "
IF V2 = 0 THEN LOCATE 21, 22: PRINT "       "
IF V3 = 0 THEN LOCATE 21, 37: PRINT "       "
IF V4 = 0 THEN LOCATE 21, 52: PRINT "       "
IF V5 = 0 THEN LOCATE 21, 67: PRINT "       "

GOTO VALITSE1

ARVONTA3:


RANDOMIZE TIMER

 IF V1 = 0 THEN : KN(1) = INT(RND(1) * 13) + 1: KM(1) = INT(RND(1) * 4) + 1
 IF V2 = 0 THEN : KN(2) = INT(RND(1) * 13) + 1: KM(2) = INT(RND(1) * 4) + 1
 IF V3 = 0 THEN : KN(3) = INT(RND(1) * 13) + 1: KM(3) = INT(RND(1) * 4) + 1
 IF V4 = 0 THEN : KN(4) = INT(RND(1) * 13) + 1: KM(4) = INT(RND(1) * 4) + 1
 IF V5 = 0 THEN : KN(5) = INT(RND(1) * 13) + 1: KM(5) = INT(RND(1) * 4) + 1

IF KN(1) = KN(2) AND KM(1) = KM(2) THEN GOTO ARVONTA3
IF KN(1) = KN(3) AND KM(1) = KM(3) THEN GOTO ARVONTA3
IF KN(1) = KN(4) AND KM(1) = KM(4) THEN GOTO ARVONTA3
IF KN(1) = KN(5) AND KM(1) = KM(5) THEN GOTO ARVONTA3
IF KN(2) = KN(3) AND KM(2) = KM(3) THEN GOTO ARVONTA3
IF KN(2) = KN(4) AND KM(2) = KM(4) THEN GOTO ARVONTA3
IF KN(2) = KN(5) AND KM(2) = KM(5) THEN GOTO ARVONTA3
IF KN(3) = KN(4) AND KM(3) = KM(4) THEN GOTO ARVONTA3
IF KN(3) = KN(5) AND KM(3) = KM(5) THEN GOTO ARVONTA3
IF KN(4) = KN(5) AND KM(4) = KM(5) THEN GOTO ARVONTA3

LOCATE 23, 1
V1:
IF V1 = 1 THEN GOTO V2
FOR T = 1 TO 7
LOCATE 12 + T, 5
COLOR 0, 0
PRINT "            "
NEXT T
SOUND 100, 1
FOR T = 1 TO 100000: NEXT T

V2:
IF V2 = 1 THEN GOTO V3
FOR T = 1 TO 7
LOCATE 12 + T, 20
COLOR 0, 0
PRINT "            "
NEXT T
SOUND 100, 1
FOR T = 1 TO 100000: NEXT T

V3:
IF V3 = 1 THEN GOTO V4
V33:
FOR T = 1 TO 7
LOCATE 12 + T, 35
COLOR 0, 0
PRINT "            "
NEXT T
SOUND 100, 1
FOR T = 1 TO 100000: NEXT T
IF TUP = 1 THEN TUP = 0: GOTO JAKO

V4:
IF V4 = 1 THEN GOTO V5
FOR T = 1 TO 7
LOCATE 12 + T, 50
COLOR 0, 0
PRINT "            "
NEXT T
SOUND 100, 1
FOR T = 1 TO 100000: NEXT T

V5:
IF V5 = 1 THEN GOTO KUVA
FOR T = 1 TO 7
LOCATE 12 + T, 65
COLOR 0, 0
PRINT "            "
NEXT T
SOUND 100, 1
FOR T = 1 TO 100000: NEXT T


KUVA:
FOR T = 0 TO 4

IF KN(T + 1) = 1 THEN KN$(T + 1) = "A "
IF KN(T + 1) = 2 THEN KN$(T + 1) = "2 "
IF KN(T + 1) = 3 THEN KN$(T + 1) = "3 "
IF KN(T + 1) = 4 THEN KN$(T + 1) = "4 "
IF KN(T + 1) = 5 THEN KN$(T + 1) = "5 "
IF KN(T + 1) = 6 THEN KN$(T + 1) = "6 "
IF KN(T + 1) = 7 THEN KN$(T + 1) = "7 "
IF KN(T + 1) = 8 THEN KN$(T + 1) = "8 "
IF KN(T + 1) = 9 THEN KN$(T + 1) = "9 "
IF KN(T + 1) = 10 THEN KN$(T + 1) = "10"
IF KN(T + 1) = 11 THEN KN$(T + 1) = "J "
IF KN(T + 1) = 12 THEN KN$(T + 1) = "Q "
IF KN(T + 1) = 13 THEN KN$(T + 1) = "K "

IF KM(T + 1) = 1 THEN KM$(T + 1) = "�"
IF KM(T + 1) = 2 THEN KM$(T + 1) = "�"
IF KM(T + 1) = 3 THEN KM$(T + 1) = "�"
IF KM(T + 1) = 4 THEN KM$(T + 1) = "�"

NEXT T


 IF KM(T + 1) = 3 THEN COLOR 4
 IF KM(T + 1) = 4 THEN COLOR 4
 IF KM(T + 1) = 1 THEN COLOR 0
 IF KM(T + 1) = 2 THEN COLOR 0

FOR T = 1 TO 100000: NEXT T

VV1:

IF V1 = 1 THEN GOTO VV2

LOCATE 13, 5
COLOR 15, 7
PRINT "ÛßßßßßßßßßßÛ"
LOCATE 14, 5 + 0 * 15
PRINT "Û          Û"
LOCATE 15, 5 + 0 * 15
PRINT "Û          Û"
LOCATE 16, 5 + 0 * 15
PRINT "Û          Û"
LOCATE 17, 5 + 0 * 15
PRINT "Û          Û"
LOCATE 18, 5 + 0 * 15
PRINT "Û          Û"
LOCATE 19, 5 + 0 * 15
PRINT "ÛÜÜÜÜÜÜÜÜÜÜÛ"


IF KM(1) = 3 THEN COLOR 4
IF KM(1) = 4 THEN COLOR 4
IF KM(1) = 1 THEN COLOR 0
IF KM(1) = 2 THEN COLOR 0


 LOCATE 14, 7
 PRINT KN$(1)

 LOCATE 18, 7 + 7
 PRINT KN$(1)

 LOCATE 18, 7
 PRINT KM$(1)

 LOCATE 14, 7 + 7
 PRINT KM$(1)

SOUND 1500, 1
SOUND 1000, 1
FOR T = 1 TO 100000: NEXT T

VV2:

IF V2 = 1 THEN GOTO VV3

LOCATE 13, 5 + 15
COLOR 15, 7
PRINT "ÛßßßßßßßßßßÛ"
LOCATE 14, 5 + 1 * 15
PRINT "Û          Û"
LOCATE 15, 5 + 1 * 15
PRINT "Û          Û"
LOCATE 16, 5 + 1 * 15
PRINT "Û          Û"
LOCATE 17, 5 + 1 * 15
PRINT "Û          Û"
LOCATE 18, 5 + 1 * 15
PRINT "Û          Û"
LOCATE 19, 5 + 1 * 15
PRINT "ÛÜÜÜÜÜÜÜÜÜÜÛ"

IF KM(2) = 3 THEN COLOR 4
IF KM(2) = 4 THEN COLOR 4
IF KM(2) = 1 THEN COLOR 0
IF KM(2) = 2 THEN COLOR 0


 LOCATE 14, 22
 PRINT KN$(2)

 LOCATE 18, 29
 PRINT KN$(2)

 LOCATE 18, 22
 PRINT KM$(2)

 LOCATE 14, 29
 PRINT KM$(2)


SOUND 1500, 1
SOUND 1000, 1
FOR T = 1 TO 100000: NEXT T

VV3:

IF V3 = 1 THEN GOTO VV4

LOCATE 13, 5 + 30
COLOR 15, 7
PRINT "ÛßßßßßßßßßßÛ"
LOCATE 14, 5 + 2 * 15
PRINT "Û          Û"
LOCATE 15, 5 + 2 * 15
PRINT "Û          Û"
LOCATE 16, 5 + 2 * 15
PRINT "Û          Û"
LOCATE 17, 5 + 2 * 15
PRINT "Û          Û"
LOCATE 18, 5 + 2 * 15
PRINT "Û          Û"
LOCATE 19, 5 + 2 * 15
PRINT "ÛÜÜÜÜÜÜÜÜÜÜÛ"

IF KM(3) = 3 THEN COLOR 4
IF KM(3) = 4 THEN COLOR 4
IF KM(3) = 1 THEN COLOR 0
IF KM(3) = 2 THEN COLOR 0


 LOCATE 14, 37
 PRINT KN$(3)

 LOCATE 18, 44
 PRINT KN$(3)

 LOCATE 18, 37
 PRINT KM$(3)

 LOCATE 14, 44
 PRINT KM$(3)


SOUND 1500, 1
SOUND 1000, 1
FOR T = 1 TO 100000: NEXT T

VV4:

IF V4 = 1 THEN GOTO VV5

LOCATE 13, 5 + 45
COLOR 15, 7
PRINT "ÛßßßßßßßßßßÛ"
LOCATE 14, 5 + 3 * 15
PRINT "Û          Û"
LOCATE 15, 5 + 3 * 15
PRINT "Û          Û"
LOCATE 16, 5 + 3 * 15
PRINT "Û          Û"
LOCATE 17, 5 + 3 * 15
PRINT "Û          Û"
LOCATE 18, 5 + 3 * 15
PRINT "Û          Û"
LOCATE 19, 5 + 3 * 15
PRINT "ÛÜÜÜÜÜÜÜÜÜÜÛ"

IF KM(4) = 3 THEN COLOR 4
IF KM(4) = 4 THEN COLOR 4
IF KM(4) = 1 THEN COLOR 0
IF KM(4) = 2 THEN COLOR 0


 LOCATE 14, 52
 PRINT KN$(4)

 LOCATE 18, 59
 PRINT KN$(4)

 LOCATE 18, 52
 PRINT KM$(4)

 LOCATE 14, 59
 PRINT KM$(4)


SOUND 1500, 1
SOUND 1000, 1
FOR T = 1 TO 100000: NEXT T

VV5:

IF V5 = 1 THEN GOTO KUVA2

LOCATE 13, 5 + 60
COLOR 15, 7
PRINT "ÛßßßßßßßßßßÛ"
LOCATE 14, 5 + 4 * 15
PRINT "Û          Û"
LOCATE 15, 5 + 4 * 15
PRINT "Û          Û"
LOCATE 16, 5 + 4 * 15
PRINT "Û          Û"
LOCATE 17, 5 + 4 * 15
PRINT "Û          Û"
LOCATE 18, 5 + 4 * 15
PRINT "Û          Û"
LOCATE 19, 5 + 4 * 15
PRINT "ÛÜÜÜÜÜÜÜÜÜÜÛ"

IF KM(5) = 3 THEN COLOR 4
IF KM(5) = 4 THEN COLOR 4
IF KM(5) = 1 THEN COLOR 0
IF KM(5) = 2 THEN COLOR 0


 LOCATE 14, 67
 PRINT KN$(5)

 LOCATE 18, 74
 PRINT KN$(5)

 LOCATE 18, 67
 PRINT KM$(5)

 LOCATE 14, 74
 PRINT KM$(5)


SOUND 1500, 1
SOUND 1000, 1
FOR T = 1 TO 100000: NEXT T

KUVA2:

LOCATE 21, 1
COLOR 0, 0
PRINT "                                                                                "

VOITOT:


'                                         NELOSET

IF KN(2) = KN(3) AND KN(2) = KN(4) AND KN(2) = KN(5) THEN VOITTO = PANOS * 40: GOTO TUPLAAKO
IF KN(3) = KN(1) AND KN(3) = KN(4) AND KN(3) = KN(5) THEN VOITTO = PANOS * 40: GOTO TUPLAAKO
IF KN(4) = KN(1) AND KN(4) = KN(2) AND KN(4) = KN(5) THEN VOITTO = PANOS * 40: GOTO TUPLAAKO
IF KN(5) = KN(1) AND KN(5) = KN(2) AND KN(5) = KN(3) THEN VOITTO = PANOS * 40: GOTO TUPLAAKO
IF KN(1) = KN(2) AND KN(1) = KN(3) AND KN(1) = KN(4) THEN VOITTO = PANOS * 40: GOTO TUPLAAKO

'                                        TŽYSKŽSI

IF KN(1) = KN(2) AND KN(3) = KN(4) AND KN(3) = KN(5) THEN VOITTO = PANOS * 25: GOTO TUPLAAKO
IF KN(1) = KN(3) AND KN(2) = KN(4) AND KN(2) = KN(5) THEN VOITTO = PANOS * 25: GOTO TUPLAAKO
IF KN(1) = KN(4) AND KN(2) = KN(3) AND KN(2) = KN(5) THEN VOITTO = PANOS * 25: GOTO TUPLAAKO
IF KN(1) = KN(5) AND KN(2) = KN(3) AND KN(2) = KN(4) THEN VOITTO = PANOS * 25: GOTO TUPLAAKO
IF KN(2) = KN(3) AND KN(1) = KN(4) AND KN(1) = KN(5) THEN VOITTO = PANOS * 25: GOTO TUPLAAKO

IF KN(2) = KN(4) AND KN(1) = KN(3) AND KN(1) = KN(5) THEN VOITTO = PANOS * 25: GOTO TUPLAAKO
IF KN(2) = KN(5) AND KN(1) = KN(3) AND KN(1) = KN(4) THEN VOITTO = PANOS * 25: GOTO TUPLAAKO
IF KN(3) = KN(4) AND KN(1) = KN(2) AND KN(1) = KN(5) THEN VOITTO = PANOS * 25: GOTO TUPLAAKO
IF KN(3) = KN(5) AND KN(1) = KN(2) AND KN(1) = KN(4) THEN VOITTO = PANOS * 25: GOTO TUPLAAKO
IF KN(4) = KN(5) AND KN(1) = KN(2) AND KN(1) = KN(3) THEN VOITTO = PANOS * 25: GOTO TUPLAAKO

'                                         VŽRI

IF KM(1) = KM(2) AND KM(1) = KM(3) AND KM(1) = KM(4) AND KM(1) = KM(5) THEN VOITTO = PANOS * 8: GOTO TUPLAAKO


'                                  KOLMOSET


IF KN(3) = KN(4) AND KN(3) = KN(5) THEN VOITTO = PANOS * 3: GOTO TUPLAAKO
IF KN(2) = KN(4) AND KN(2) = KN(5) THEN VOITTO = PANOS * 3: GOTO TUPLAAKO
IF KN(2) = KN(3) AND KN(2) = KN(5) THEN VOITTO = PANOS * 3: GOTO TUPLAAKO
IF KN(2) = KN(3) AND KN(2) = KN(4) THEN VOITTO = PANOS * 3: GOTO TUPLAAKO
IF KN(1) = KN(4) AND KN(1) = KN(5) THEN VOITTO = PANOS * 3: GOTO TUPLAAKO

IF KN(1) = KN(3) AND KN(1) = KN(5) THEN VOITTO = PANOS * 3: GOTO TUPLAAKO
IF KN(1) = KN(3) AND KN(1) = KN(4) THEN VOITTO = PANOS * 3: GOTO TUPLAAKO
IF KN(1) = KN(2) AND KN(1) = KN(5) THEN VOITTO = PANOS * 3: GOTO TUPLAAKO
IF KN(1) = KN(2) AND KN(1) = KN(4) THEN VOITTO = PANOS * 3: GOTO TUPLAAKO
IF KN(1) = KN(2) AND KN(1) = KN(3) THEN VOITTO = PANOS * 3: GOTO TUPLAAKO

'                                    2PARIA

IF KN(1) = KN(2) AND KN(3) = KN(4) THEN VOITTO = PANOS * 2: GOTO TUPLAAKO
IF KN(1) = KN(3) AND KN(2) = KN(4) THEN VOITTO = PANOS * 2: GOTO TUPLAAKO
IF KN(1) = KN(4) AND KN(2) = KN(3) THEN VOITTO = PANOS * 2: GOTO TUPLAAKO
IF KN(1) = KN(2) AND KN(3) = KN(5) THEN VOITTO = PANOS * 2: GOTO TUPLAAKO
IF KN(1) = KN(3) AND KN(2) = KN(5) THEN VOITTO = PANOS * 2: GOTO TUPLAAKO
IF KN(1) = KN(5) AND KN(2) = KN(3) THEN VOITTO = PANOS * 2: GOTO TUPLAAKO
IF KN(1) = KN(2) AND KN(4) = KN(5) THEN VOITTO = PANOS * 2: GOTO TUPLAAKO
IF KN(1) = KN(4) AND KN(2) = KN(5) THEN VOITTO = PANOS * 2: GOTO TUPLAAKO
IF KN(1) = KN(5) AND KN(2) = KN(4) THEN VOITTO = PANOS * 2: GOTO TUPLAAKO
IF KN(1) = KN(3) AND KN(4) = KN(5) THEN VOITTO = PANOS * 2: GOTO TUPLAAKO
IF KN(1) = KN(4) AND KN(3) = KN(5) THEN VOITTO = PANOS * 2: GOTO TUPLAAKO
IF KN(1) = KN(5) AND KN(3) = KN(4) THEN VOITTO = PANOS * 2: GOTO TUPLAAKO
IF KN(2) = KN(3) AND KN(4) = KN(5) THEN VOITTO = PANOS * 2: GOTO TUPLAAKO
IF KN(2) = KN(4) AND KN(3) = KN(5) THEN VOITTO = PANOS * 2: GOTO TUPLAAKO
IF KN(2) = KN(5) AND KN(3) = KN(4) THEN VOITTO = PANOS * 2: GOTO TUPLAAKO


'                               KUVAPARI

IF KN(1) = KN(2) AND KN(1) > 10 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(1) = KN(3) AND KN(1) > 10 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(1) = KN(4) AND KN(1) > 10 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(1) = KN(5) AND KN(1) > 10 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(2) = KN(3) AND KN(2) > 10 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(2) = KN(4) AND KN(2) > 10 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(2) = KN(5) AND KN(2) > 10 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(3) = KN(4) AND KN(3) > 10 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(3) = KN(5) AND KN(3) > 10 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(4) = KN(5) AND KN(4) > 10 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO

IF KN(1) = KN(2) AND KN(1) = 1 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(1) = KN(3) AND KN(1) = 1 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(1) = KN(4) AND KN(1) = 1 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(1) = KN(5) AND KN(1) = 1 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(2) = KN(3) AND KN(2) = 1 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(2) = KN(4) AND KN(2) = 1 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(2) = KN(5) AND KN(2) = 1 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(3) = KN(4) AND KN(3) = 1 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(3) = KN(5) AND KN(3) = 1 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO
IF KN(4) = KN(5) AND KN(4) = 1 THEN VOITTO = PANOS * 1: GOTO TUPLAAKO


GOTO UUSI


TUPLAAKO:


SOUND 1000, 1: SOUND 1100, 1: SOUND 1200, 1


COLOR 1, 1

LOCATE 22, 1
PRINT "                                                                                "
LOCATE 23, 1
PRINT "                                                                                "

IF VOITTO > 100 THEN GOTO LISAA

COLOR 1, 5

LOCATE 22, 1
PRINT "                              VOITIT        TUPLAATKO?                          "
LOCATE 22, 38
PRINT VOITTO; "MK"


DO

A$ = INKEY$
SELECT CASE A$
CASE "V": GOTO LISAA
CASE "T": GOTO TUPLAA

END SELECT
LOOP

LISAA:

FOR T = 1 TO VOITTO

COLOR , 5, 5
 FOR TT = 1 TO 10000
NEXT TT

NAYTA:

COLOR 15, 1
LOCATE 2, 60
SOUND 1200, .2

VOITOT = VOITOT + 1
PRINT "VOITOT:"; VOITOT
 NEXT T
GOTO UUSI

TUPLAA:




VOITTO = VOITTO * 2

COLOR 0, 0
LOCATE 5, 30
PRINT "                                               "

LOCATE 6, 30
PRINT "                                               "

LOCATE 7, 30
PRINT "                                               "
LOCATE 8, 30
PRINT "                                               "

LOCATE 9, 30
PRINT "                                               "

LOCATE 10, 30
PRINT "                                               "


IF TUPL = 2 THEN GOTO V33


FOR T = 1 TO 7

LOCATE 12 + T, 1
COLOR 0, 0
PRINT "                                                                             "
NEXT T

SOUND 100, 1
FOR TTT = 1 TO 100000
NEXT TTT


FOR TTT = 1 TO 100000
NEXT TTT



JAKO2:

LOCATE 13, 5 + 30
COLOR 15, 7
PRINT "ÛßßßßßßßßßßÛ"
LOCATE 14, 5 + 2 * 15
PRINT "Û          Û"
LOCATE 15, 5 + 2 * 15
PRINT "Û          Û"
LOCATE 16, 5 + 2 * 15
PRINT "Û          Û"
LOCATE 17, 5 + 2 * 15
PRINT "Û          Û"
LOCATE 18, 5 + 2 * 15
PRINT "Û          Û"
LOCATE 19, 5 + 2 * 15
PRINT "ÛÜÜÜÜÜÜÜÜÜÜÛ"

COLOR 1, 5

LOCATE 22, 1
PRINT "                 ISO VAI PIENI? JOS ARVAAT OIKEIN VOITAT                "
LOCATE 22, 57
PRINT VOITTO; "MK"

X = INT(RND(1) * 13) + 1
Y = INT(RND(1) * 4) + 1

IF X = 1 THEN X$ = "A "
IF X = 2 THEN X$ = "2 "
IF X = 3 THEN X$ = "3 "
IF X = 4 THEN X$ = "4 "
IF X = 5 THEN X$ = "5 "
IF X = 6 THEN X$ = "6 "
IF X = 7 THEN X$ = "7 "
IF X = 8 THEN X$ = "8 "
IF X = 9 THEN X$ = "9 "
IF X = 10 THEN X$ = "10"
IF X = 11 THEN X$ = "J "
IF X = 12 THEN X$ = "Q "
IF X = 13 THEN X$ = "K "

IF Y = 1 THEN Y$ = "�"
IF Y = 2 THEN Y$ = "�"
IF Y = 3 THEN Y$ = "�"
IF Y = 4 THEN Y$ = "�"


 IF Y = 3 THEN COLOR 4, 7
 IF Y = 4 THEN COLOR 4, 7
 IF Y = 1 THEN COLOR 0, 7
 IF Y = 2 THEN COLOR 0, 7

V = 0

TUP = 1

DO

A$ = INKEY$




SELECT CASE A$
CASE "I": V = 1: GOTO NAYTA2
CASE "P": V = 2: GOTO NAYTA2

END SELECT
LOOP

NAYTA2:

 LOCATE 14, 37
 PRINT X$

 LOCATE 18, 44
 PRINT X$

 LOCATE 18, 37
 PRINT Y$

 LOCATE 14, 44
 PRINT Y$

IF V = 1 AND X > 7 THEN SOUND 1000, 1: SOUND 1100, 1: SOUND 1200, 1: GOTO TUPLAAKO
IF V = 2 AND X < 7 THEN SOUND 1000, 1: SOUND 1100, 1: SOUND 1200, 1: GOTO TUPLAAKO
IF X = 7 THEN SOUND 100, 1: SOUND 32000, 1: SOUND 100, 9
IF V = 1 AND X < 7 THEN SOUND 100, 1: SOUND 32000, 1: SOUND 100, 9
IF V = 2 AND X > 7 THEN SOUND 100, 1: SOUND 32000, 1: SOUND 100, 9

COLOR 1, 5

LOCATE 22, 1
PRINT "                                     VŽŽRIN                             "

GOTO UUSI


SAVE:

COLOR 15, 0

CLS

DO

FOR T = 7 TO 8
COLOR T

LOCATE 1, 1
PRINT "                   _______   _______   ___     ___   ______"
PRINT "                  ³\      \ ³\      \ ³\  \   ³\  \ ³\     \"
PRINT "                  ³ Ûßßßßßß ³ ÛßßßßßÛ ³ ÛßÛ   ³ ÛßÛ ³ Ûßßßßß    "
PRINT "                  ³ Û       ³ Û     Û ³ Û  Û  ³Û³ Û ³ Û-\   "
PRINT "                  ³ Û  ÜÜÜÜ ³ ÛÜÜÜÜÜÛ ³ Û   ßÜß ³ Û ³ Ûßß    "
PRINT "                  ³ Û     Û ³ Û     Û ³ Û       ³ Û ³ Û     "
PRINT "                   \ÛÜÜÜÜÜÛ  \Û    \Û  \Û        \Û  \ÛÜÜÜÜÜ "
PRINT
PRINT "                    _______   _     _   ______   _______"
PRINT "                   ³\      \ ³\\   ³\\ ³\     \ ³\      \"
PRINT "                   ³ ÛßßßßßÛ ³ Û   ³ Û ³ Ûßßßßß ³ ÛßßßßßÛ   "
PRINT "                   ³ Û     Û ³ Û   ³ Û ³ Û-\    ³ Û----\Û "
PRINT "                   ³ Û     Û  ³ Û  ³Û  ³ Ûßß    ³ ÛßßßßÛß "
PRINT "                   ³ Û     Û   ³ Û Û   ³ Û      ³ Û    \Û"
PRINT "                    \ÛÜÜÜÜÜÛ    ³_Û     \ÛÜÜÜÜÜ  \Û     \Û "

COLOR 15
LOCATE 20, 25
PRINT "<PAINA JOTAKIN NŽPPŽINTŽ>"
FOR G = 1 TO 200000
NEXT G
NEXT T

LOOP UNTIL INKEY$ <> ""
SYSTEM

OHJEET:
COLOR 15, 1

CLS

LOCATE 2, 30
PRINT "RELOADPOKERIN OHJEET:"
LOCATE 4, 10
PRINT "RELOADPOKERI ON TAVLLINEN 5KORTIN KONEPOKERI, JOSSA PANOS VOI"
LOCATE 5, 10
PRINT "OLLA 1-5MK. VOITTOYHDISTELMŽT NŽET KOKOAJAN PELIN AIKANA."
LOCATE 6, 10
PRINT "KUN VOITAT JOTAIN, ON SINULLA MAHDOLLISUUS TUPLATA VOITTO,"
LOCATE 7, 10
PRINT "JOLLOIN VOITTAMASI SUMMA KAKSINKERTAISTUU. TUPLAAMISESSA SINUN"
LOCATE 8, 10
PRINT "PITŽŽ ARVATA ONKO KORTTI ISO (8-3) VAI PIENI(1-6), JOS ARVAAT"
LOCATE 9, 10
PRINT "OIKEIN POTTI KAKSINKERTAISEKSI, JOS ARVAAT VŽŽRIN, HŽVIŽT KOKO"
LOCATE 10, 10
PRINT "POTIN. VOIT TUPLATA ALLE 100MK POTTEJA, MUUTEN POTTI SIIRTYY"
LOCATE 11, 10
PRINT "AUTOMAATTISESTI VOITTOIHIN. JOS TUPLATTAVA KORTTI ON SEISKA"
LOCATE 12, 10
PRINT "(TALON KORTTI) HŽVIŽT POTIN. PELISSŽ ON LISTA 5 PARHAASTA"
LOCATE 13, 10
PRINT "PELAAJASTA, JONNE PŽŽSET SIJOITTUMALLA 5 PARHAAN JOUKKOON"
LOCATE 14, 10
PRINT "LISTASIJOITUKSET MŽŽRŽYTYVŽT VOITOISSA OLEVIEN RAHOJEN MUKAAN,"
LOCATE 15, 10
PRINT "MITŽ SINULLA ON PARHAIMMILLASI OLLUT."
LOCATE 17, 10
PRINT "                    PELIN NŽPPŽIMET:         TUPLAUKSESSA:"
LOCATE 18, 10
PRINT "                    P=PANOS                  I=ISO"
LOCATE 19, 10
PRINT "                   'SPACE'=JAKO              P=PIENI"
LOCATE 20, 10
PRINT "                    0=PARHAAT PELAAJAT"
LOCATE 21, 10
PRINT "                    L=LOPETA"
LOCATE 22, 10
PRINT "                    1-5 LUKITUS/LUKITUS POIS"
LOCATE 23, 10
PRINT "                    V=VOITTOIHIN"
LOCATE 24, 10
PRINT "                    T=TUPLAA"
LOCATE 25, 10
PRINT "              <PAINA JOTAKIN NŽPPŽINTŽ>"

DO
LOOP UNTIL INKEY$ <> "" AND INKEY$ <> " "
GOTO PARPAL

Antti Laaksonen [01.12.2003 17:29:29]

Lainaa #

Kortit kannattaisi järjestellä suurimmasta pienimpään (tai toisinpäin) ennen käden tarkistamista, jolloin koodirivejä tarvittaisiin paljon vähemmän. GOTOjen käyttäminen tekee ohjelmasta hieman sekavan.

KimmoKM [01.12.2003 18:06:36]

Lainaa #

En ole kokeillut. Peli kuvauksen ja koodin perusteella on ihan kiva, mutta koodi on paljon pidempi, kuin se jossa se voisi olla.

T.M. [01.12.2003 22:57:37]

Lainaa #

huomasin 2 näppäimen painalluksen jälkeen bugin. "voitit 0 euroa, haluatko tuplata", sen jälkeen sammutin pelin koska se ei enää toiminut :P

Bowlman [01.12.2003 23:46:40]

Lainaa #

Koodi on kirjoitettu aika kauan aikaa sitten jonka jälkeen olen oppinut paljon uutta. Se ei tietenkää ole mikään selitys, eikä anna koodin sekavuutta anteeksi.

Suunnitelmissa olisi tehdä pitkästä aikaa joku uusi isompi peliväsäelmä. Ehkä managerointi peli. Siinä tulen käyttämään parempaa/selkeämpää koodia. En kyllä ymmärrä miten goto käskyä voisi käyttää vähemmän? Gosub-käskyllä ilmeisesti?

hunajavohveli [03.12.2003 12:06:18]

Lainaa #

Pelasin juuri äsken. Sain pari kertaa kolmoset ja kaksi paria. Molemmista tuli voittoa 0 euroa. Itse asiassa en ole kertaakaan voittanut yhtään mitään, vaikka ohjeiden näyttämiä korttija tulee kyllä.

Mutta ei se mitään. Tuplaus toimii kyllä. Tai mistä sen tietää? 0 kertaa 2 kun sattuu olemaan 0.

Bowlman [03.12.2003 17:30:09]

Lainaa #

Outoa... Pitäiskö mun vielä testata peliä? Olen kyllä testannut useamman kerran ja on toiminut...

Bowlman [03.12.2003 17:43:57]

Lainaa #

Kokeilin kopioida ton koodin ja kokeilin, et toimiiko. Ei toimi =( Tääs sivusto muuttaa jotain tossa koodissa, joka aiheuttaa toimimattomuuttA. Voin laittaa ton koodin vielä kerran, et toivottavasti toimii.

Bowlman [03.12.2003 17:54:57]

Lainaa #

Nyt kokeilin, et toimii. Toivottasti myös teillä.

miiro [30.05.2004 20:37:45]

Lainaa #

IHAN HIANOHAN TUO...

moptim [04.07.2006 16:00:39]

Lainaa #

saisko binäärinä? :D

moptim [21.07.2006 14:45:21]

Lainaa #

mis toi muute piirtää kortit?

moptim [21.07.2006 15:02:49]

Lainaa #

ikivanhal jostain qbasic new zealandist ladatul 4.5:ella kestää varmaa vuosi ennen kuin toi koodi on kopsattu

moptim [21.07.2006 15:04:37]

Lainaa #

dos aikane laite

gamehouse [14.10.2007 12:12:14]

Lainaa #

Aika hyvä!

Grez [07.10.2019 10:54:08]

Lainaa #

Bowlman kirjoitti:

En kyllä ymmärrä miten goto käskyä voisi käyttää vähemmän? Gosub-käskyllä ilmeisesti?

Myös funktiot on hyvä tapa jäsentää koodia QB:ssä.

(Jälleen kommentoin ikivanhaan nostettuun koodivinkkiin)


Sivun alkuun

Vastaus

Muista lukea kirjoitusohjeet.
Tietoa sivustosta