BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"TextMatrix", by oopsy

If you have seen The Matrix, you probably noticed how Neo recieves the messages to his computer, like someone's typing it directly to him (Trinity)
This function takes X&Y parameters, STRING, SPEED, and LOOP parameter, if you set speed to higher numbers it will go slower, I recommend 350, and if you set LOOP to 1 it will loop the text.

TextMatrix(50,60,"Knock, knock",350,1)

Code

function TextMatrix(x#,y#,msg$,wait%,loop)
; If loop is under ZERO or ZERO then print only once
     if loop < 0 or loop = 0
       ; Set the text's x&y position
          locate x,y
          ; i = 1 to the lenght of your msg + 1
          ; (Else it will auto remove our last character)                                                                                 
          for i=1 to len(msg$)+1                                                                            
            ; Wait for next character
            delay(wait%)
            ; Write each character of the msg                             
            write(mid$(msg$,i,1))
        ; Give us a new value
          next                                                                                     
          else
    ; Else if loop is over ZERO
          if loop > 0
            ; Create a start label for the loop                                                 
         .loop
               ; Clear the screen                                                                                
         cls
               ; Set the text's x&y position                                                                                     
               locate x,y                                                                 
            for i=1 to len(msg$)+1
                 ; Wait for next character                         
              delay(wait%)                    
                    ; Write each character of the msg          
              write(mid$(msg$,i,1))
      ; Give us a new value
            next
            ; Now, go back and loop =)
            goto loop
       endif
     endif
end function

Code software created by Krylar's Kreations