Message #1454

[GarrisonRicketson]

Galleon, on QB64, http://www.qb64.net  posted this,
To see the original post:  http://www.qb64.net/forum/index.php?topic=4469.msg46219#msg46219
--------------------------------------
It truely is better, and the Ghost still has it's movement, later this week I will try to work on explaining , more ...The sprite sheet is the same.

Code:

 DEFLNG A-Z
SCREEN _NEWIMAGE(640, 480, 32)

m$ = "THIS IS HELLO WORLD !"
fps = 2
FOR i = 1 TO LEN(m$)
    c$ = MID$(m$, i, 1)
    IF c$ <> " " THEN _LIMIT fps
    IF c$ = "!" THEN c$ = "!!!"
    PRINT c$;
    IF LEN(INKEY$) THEN fps = 10
NEXT
_DELAY 1.5


WorkPage& = _LOADIMAGE("NEWGHOST_blu1.png")
_DEST 0

_SETALPHA 0, _RGB(0, 0, 0) TO _RGB(50, 50, 50), WorkPage&

DO
    CLS , _RGB(0, 0, 0) '///Note , I (garry) did change this, it had a green back ground, as Galleon had it,anyone can experiment with useing different colors.

    _PUTIMAGE (100, 100)-(220, 190), WorkPage&, 0, (x, 0)-(x + 67, 67)
    x = x + 67: IF x > 261 THEN x = 0

    LOCATE 15, 20
    PRINT " I am the ghost coming to save the world !!! "

    IF INKEY$ = CHR$(27) THEN EXIT DO
    LOCATE 25, 4
    PRINT " Use the ESC key to exit "


    _LIMIT 10
    _DISPLAY
LOOP
 

Thanks again Galleon, for shareing this.
from Garry