Keskustelu: Koodit: QB: Boonus

'''boonus pelin eka kierros... saa jatkaa jos joku jaksaa
'''en jaksanu tehä kuin vain pelaajan kierroksen...
'''kaveri häirihtee tossa vieressä(tökkii selkään ja painelee nappuloita...)
'''alkaa pikkuhiljaa nyppiä!
'''joten teille tässä vähän vajaa vinkki
CLS
INPUT "Nimesi pelaaja"; pelaaja1$
nimet:
DATA "Heikki","Liisa","Kalle","Jouko","Anne"
RESTORE nimet
RANDOMIZE TIMER
nimi = INT(RND * 5) + 1
FOR i = 1 TO nimi
READ neimi$
NEXT i
pelaaja2$ = neimi$
RESTORE nimet
nimi = INT(RND * 5) + 1
FOR i = 1 TO nimi
READ neimi$
NEXT i
pelaaja3$ = neimi$
CLS
1 :
DATA "Mikä on paradoksi?"
DATA "Viikunapuu","Ristiriita","Kuollut ihminen","Vastaväite"
DATA 2
2 :
DATA "Minkä käyttäjätunnuksen tekemä ns. vinkki tämä on?"
DATA "Nybe","neeps","neepre","newbie"
DATA 4
3 :
DATA "Jaksaako näitä kysymyksiä tehdä?"
DATA "kyllä helposti","Kyllä heikosti","Ei, mutta pakko","EI!"
DATA 3
'''jaksoin tehdä vain 3 kysymystä eli
'''DATA ylin on itse kysymys
'''DATA neljä vaihtoehtoa
'''DATA oikean vaihtoehdon numero
RANDOMIZE TIMER
FOR i = 1 TO 3
RANDOMIZE TIMER
kysymysnro = INT(RND * 3) + 1    ''' kolmosen tilalle kysymyksien määrä
IF kysymysnro = 1 THEN RESTORE 1 ''näitä lisätään koska ei voi laittaa restore num
IF kysymysnro = 2 THEN RESTORE 2
IF kysymysnro = 3 THEN RESTORE 3
CLS
COLOR 4
PRINT pelaaja1$
READ kysymys$
COLOR 1
PRINT kysymys$
uusi = TIMER
DO UNTIL TIMER >= uusi + 4
LOOP

FOR a = 1 TO 4
LOCATE 4, 1
PRINT "                                           "
 COLOR 2
LOCATE 4, 1
READ vaihtoehto$
PRINT vaihtoehto$

uusi = TIMER
DO UNTIL TIMER >= uusi + 2
IF choice = 0 AND INKEY$ = CHR$(13) THEN
valinta = a
choice = 1
LOCATE 4, 1
PRINT "                                           "
COLOR 10
LOCATE 6, 1
PRINT vaihtoehto$
END IF
LOOP
NEXT a
choice = 0
READ oikea
IF valinta = oikea THEN
score1 = score1 + 40
ELSE
score2 = score2 + 20
score3 = score3 + 20
END IF
CLS
PRINT pelaaja1$; score1
PRINT pelaaja2$; score2
PRINT pelaaja3$; score3
uusi = TIMER
DO UNTIL TIMER >= uusi + 3
LOOP
NEXT i