Keskustelu: Koodit: QB: Noppa

CLS
kesto = 20
pahis = 20
valmis = 0
DO
PRINT "Oma kesto:" + STR$(kesto)
PRINT "Vastustajan kesto:" + STR$(pahis)
DO
INPUT "Mitä teet? 1.Hyökkää 2.Pakoon ", toimi
PRINT
LOOP UNTIL toimi <> 0
IF toimi = 2 THEN
        pakoon = Noppa(1, 100, 0) 'Prosenttinoppa
        IF pakoon < 50 THEN
                PRINT "Pääsit pakoon!"
                valmis = 1
                GOTO loppu
        ELSE
                PRINT "Et pääsyt pakoon!"
                GOTO pahis
        END IF
END IF
hyokkaa = Noppa(1, 6, 0) 'Tavallinen 6-sivuinen noppa
suoja = Noppa(1, 2, 0)
vahinko = hyokkaa - suoja
IF vahinko < 0 THEN vahinko = 0
pahis = pahis - vahinko
IF pahis <= 0 THEN
        PRINT "Teit hirviölle" + STR$(vahinko) + " vahinkoa ja se kuoli."
        valmis = 1
        GOTO loppu
ELSE
        PRINT "Teit hirviölle" + STR$(vahinko) + " vahinkoa."
END IF
pahis:
PRINT
hyokkaa = Noppa(1, 6, 0)
suoja = Noppa(1, 2, 0)
vahinko = hyokkaa - suoja
IF vahinko < 0 THEN vahinko = 0
kesto = kesto - vahinko
IF kesto <= 0 THEN
        PRINT "Hirviö teki sinulle" + STR$(vahinko) + " vahinkoa ja kuolit."
        valmis = 1
ELSE
        PRINT "Hirviö teki sinulle" + STR$(vahinko) + " vahinkoa."
END IF
PRINT
loppu:
LOOP UNTIL valmis = 1