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
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.
En ole kokeillut. Peli kuvauksen ja koodin perusteella on ihan kiva, mutta koodi on paljon pidempi, kuin se jossa se voisi olla.
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
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?
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.
Outoa... Pitäiskö mun vielä testata peliä? Olen kyllä testannut useamman kerran ja on toiminut...
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.
Nyt kokeilin, et toimii. Toivottasti myös teillä.
IHAN HIANOHAN TUO...
saisko binäärinä? :D
mis toi muute piirtää kortit?
ikivanhal jostain qbasic new zealandist ladatul 4.5:ella kestää varmaa vuosi ennen kuin toi koodi on kopsattu
dos aikane laite
Aika hyvä!
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)
Aihe on jo aika vanha, joten et voi enää vastata siihen.