Weekly Qbasic and Qb64 Lesson Topics
March 29, 2024, 08:36:16 am
Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
News: Want to see a specific Tutorial? ASK!
 
  Home Help Search Arcade Links Staff List Login Register  

PRINTS TEXT Across Screen

Pages: [1]
  Print  
Author Topic: PRINTS TEXT Across Screen  (Read 1360 times)
GarrisonRicketson
Admin
Administrator
Hero Member
*****
Posts: 583



WWW
« on: September 11, 2011, 11:13:35 pm »

So I started thinking some more and came up with this,
Code:
DEFLNG A-Z
SCREEN _NEWIMAGE(640, 480, 32)
CLS
_DELAY 1
LOCATE 5, 6
PRINT "T"
_DELAY 1.2
LOCATE 5, 7
PRINT "H"
_DELAY 1.2
LOCATE 5, 8
PRINT "I"
_DELAY 1.2
LOCATE 5, 9
PRINT "S"
_DELAY 1.2
LOCATE 5, 11
PRINT "I"
_DELAY 1.2
LOCATE 5, 12
PRINT "S"
_DELAY 1.2
LOCATE 5, 14
PRINT "H"
_DELAY 1.2
LOCATE 5, 15
PRINT "E"
_DELAY 1.2
LOCATE 5, 16
PRINT "L"
_DELAY 1.2
LOCATE 5, 17
PRINT "L"
_DELAY 1.2
LOCATE 5, 18
PRINT "O"
_DELAY 1.2
LOCATE 5, 20
PRINT "W"
_DELAY 1.2
LOCATE 5, 21
PRINT "O"
_DELAY 1.2
LOCATE 5, 22
PRINT "R"
_DELAY 1.2
LOCATE 5, 23
PRINT "L"
_DELAY 1.2
LOCATE 5, 24
PRINT "D"
_DELAY 1.2
LOCATE 5, 25
PRINT "!!!"
_DELAY .5
WorkPage& = _LOADIMAGE("NEWGHOST_blu1.png")
_DEST 0

DO
    FOR x = 0 TO 261 STEP 67
        _PUTIMAGE (100, 100)-(220, 190), WorkPage&, 0, (x, 0)-(x + 67, 67)
        _DELAY .08
    NEXT
    LOCATE 15, 20
    PRINT " I am the ghost comeing to save the world"
    LOCATE 25, 4
    PRINT " use ctrl-pause to exit"

LOOP
'I couldn't remember ,how to say look until the escape key is hit, I have it some
'where, tommorow I'll fix that.
 
You would need this image, or change the name and use any image.
 In my earlier question, about loading text from a file, this is sort of what I had in mind, but to be able to have the text or letters in a file, that could load,...I guess that may be what _include and useing librarys are about ?....Any way I enjoyed putting this together,...on my own, but eagerly look forward to seeing a better way.
from Garry
The image is avaiable here:http://weeklyqbasicandqb64lesson.smfforfree.com/index.php?action=dlattach;topic=136.0;attach=23
from Garry
« Last Edit: September 11, 2011, 11:15:10 pm by GarrisonRicketson » Report Spam   Logged


Pages: [1]
  Print  
 
Jump to:  

Powered by EzPortal
Bookmark this site! | Upgrade This Forum
SMF For Free - Create your own Forum


Powered by SMF | SMF © 2016, Simple Machines
Privacy Policy