Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit näytille: QB: Hitaasti esiin tuleva teksti

Sivu 1 / 1

HtH [11.03.2002 11:25:06]

#

Joskus näin eräässä vm. 94 olevassa pelissä tälläisen tekstin. Nyt se on totetutettu QB:lle. Kyseessä ei ole mikään super hieno 3d efekti, vaan noin 10 minuutissa tehty tuherrus. Sopii hyvin esim " Meidän software Presents" tyyliseen alkuhommaan. Tekstin "piirto" on coolprint aliohjelmassa.

DECLARE SUB coolprint (x!, y!, t$, c!)
SCREEN 12
coolprint 1, 1, "http://www.furyproductions.tk", 14

SUB coolprint (x, y, t$, c)
COLOR c
FOR jk = 1 TO LEN(t$)
xx = 3
DO
GOSUB hidasta
LOCATE y, x
PRINT LEFT$(t$, jk - 1)
IF xx > 0 THEN LOCATE y, xx
IF xx > 0 THEN PRINT " "
xx = xx + 1
LOCATE y, xx - 1
IF xx > 0 THEN LOCATE y, xx - 1
IF xx > 0 THEN PRINT MID$(t$, jk, 1)
LOOP UNTIL xx >= x + jk
NEXT jk
LOCATE y, x
PRINT t$ 'Varmuuden vuoksi vielä kirjoitetaan vanhalla
'kunnon printillä, että ei jää varmana aukkoja.
GOTO loppu
hidasta:
'Laitetaan koodi, joka hidastaa saman verran jokaisella koneella kahdesti,
'että ei ole liian nopea.
DO: LOOP UNTIL (INP(&H3DA) AND &H8) = 0
DO: LOOP UNTIL (INP(&H3DA) AND &H8) <> 0
DO: LOOP UNTIL (INP(&H3DA) AND &H8) = 0
DO: LOOP UNTIL (INP(&H3DA) AND &H8) <> 0
RETURN
loppu:
END SUB

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta