Arvauspeli, ei häävi.
en osaa käyttää randomize timeria.
RANDOMIZE TIMER CLS PRINT "Tämä on peli, jossa arvataan luku. Ajattelen lukua väliltä 1-50." PRINT "Jos peli päättyy kesken, olet hävinnyt." INPUT "Ensimmäinen arvaus:"; y IF y = 14 THEN PRINT "Voitit!" ELSE END INPUT "Toinen arvaus"; w IF w = 47 THEN PRINT "Voitit!" ELSE END INPUT "Viimeinen arvaus"; r IF r = 25 THEN PRINT "Voitit koko pelin!" ELSE END
Ei tule pääsemään, mutta kummiskin näytän paremman version:
RANDOMIZE TIMER CLS DIM Arvattava AS INTEGER Arvattava = 50 * RND PRINT "Tämä on arvauspeli. Ajattelen lukua väliltä 1-50." PRINT "Sinulla on 5 arvausta." INPUT "Ensimmäinen arvaus: ", a IF a > Arvattava THEN PRINT "Liikaa!" ELSEIF a < Arvattava THEN PRINT "Liian vähän!" ELSE PRINT "Voitit!": SLEEP: END INPUT "Toinen arvaus: ", a IF a > Arvattava THEN PRINT "Liikaa!" ELSEIF a < Arvattava THEN PRINT "Liian vähän!" ELSE PRINT "Voitit!": SLEEP: END INPUT "Kolmas arvaus: ", a IF a > Arvattava THEN PRINT "Liikaa!" ELSEIF a < Arvattava THEN PRINT "Liian vähän!" ELSE PRINT "Voitit!": SLEEP: END INPUT "Neljäs arvaus: ", a IF a > Arvattava THEN PRINT "Liikaa!" ELSEIF a < Arvattava THEN PRINT "Liian vähän!" ELSE PRINT "Voitit!": SLEEP: END INPUT "Viides arvaus: ", a IF a > Arvattava THEN PRINT "Liikaa!" ELSEIF a < Arvattava THEN PRINT "Liian vähän!" ELSE PRINT "Voitit!": SLEEP: END PRINT "Luuseri, et arvannut oikein. Oikea olisi ollut" PRINT PRINT Arvattava PRINT "Hahhahhaaa!" SLEEP END
Aihe on jo aika vanha, joten et voi enää vastata siihen.