Keskustelu: Koodit: QB: Palava fontti

Tällä kertaa teksti palaa samaan aikaa kun kirjoittaa elikäs se on niinkuin palava fontti. Kai tätä johonkin voi soveltaa.

SCREEN 13
DEFINT A-Z
Q = 8: W = 72: E = 31: T = 63: Y = 1: I = 1: O = 8: P = 7
PRINT "Kirjoita"
LINE (0, 60)-(319, 81), 9, B
1 COLOR 31
DO
OUT 968, E: OUT 969, T: OUT 969, 12: OUT 969, 0

'palaa
R = INT(RND * 4) + 1
IF POINT(Q, W) = E OR POINT(Q, W) = 16 OR W > 199 THEN
E = E - R: T = T - R: W = W - 1: PSET (Q, W), E
ELSE
  Q = Q + 1
END IF
 IF E < 20 THEN Q = Q + 1: E = 31: T = 63: W = 72
 IF Q = 320 THEN Q = 0: W = 72

'kirjoittaa
A$ = INKEY$
IF A$ = CHR$(27) THEN END
IF O > 8 THEN P = 8
IF A$ = CHR$(8) AND E > 19 THEN E = 19
IF A$ = CHR$(8) AND O > 8 THEN O = O - P: I = I - 1: EXIT DO
IF A$ <> "" AND I < 39 THEN
I = I + 1: O = O + P: COLOR 31: LOCATE 10, I: PRINT A$
END IF

LOOP
'Pyyhkii tekstin
LINE (O, 61)-(318, 80), 0, BF
GOTO 1

Tämä on vähän paranneltu versio edellisestä palavasta tekstistä mutta muttaa... Kommenttia?

Voihan tuosta tehdä "Anna nimesi ennätyslistalle" -ruudun johonkin peliin...

Rivi: IF A$ = CHR$(8) AND O > 8 THEN O = O - P: I = I - 1: EXIT DO
Antaa virheen: Error 477: Syntax error

Millähän sä oot tätä kokeillu. Mun qbasicissa se toimii ihan moitteetta. Näytti toimivan Antillakin.

Bugi,Painapas pohjassa §...

OHO! Nyt kun mä aloin räplää vähän joka näppäintä ni bugeja ilmeni ihan oikeen paljon. Ilmesesti tohon voi suositella kirjottamaan vain kirjaimia ja numeroita.

Mistä mä saan Qbasici??? (aloittelija)

Eli sama virsi kun eräälle toiselle eli: Etsi googlesta qbasic hakusanalla.