Spelling Out

Blitz3D Forums/Blitz3D Beginners Area/Spelling Out

Yo! Wazzup?

(Posted 2007) [#1]

Write "H"
Delay 100
Write "I"
Delay 100
Write ","
Delay 100
Write " "
Delay 100
Write "I"
Delay 100
Write "'"
Delay 100
Write "M"
Delay 100
Write " "
Delay 100
Write "B"
Delay 100
Write "O"
Delay 100
Write "B"
Delay 100
Write "!"
Delay 100
Write " "
Delay 100
Write "W"
Delay 100
Write "H"
Delay 100
Write "A"
Delay 100
Write "T"
Delay 100
Write "'"
Delay 100
Write "S"
Delay 100
Write " "
Delay 100
Write "Y"
Delay 100
Write "O"
Delay 100
Write "U"
Delay 100
Write "R"
Delay 100
Write " "
Delay 100
Write "N"
Delay 100
Write "A"
Delay 100
Write "M"
Delay 100
Write "E"
Delay 100
Write "?"
Print
name$=Input("")
name=Upper(name$)
Print
Delay 100
Write "H"
Delay 100
Write "I"
Delay 100
Write ","
Delay 100
Write " "
Delay 100
Write name
Delay 100
Write "!"
Delay 1000
Write " "
Delay 100
Write "O"
Delay 100
Write "H"
Delay 100
Write ","
Delay 100
Write " "
Delay 100
Write "I"
Delay 100
Write " "
Delay 100
Write "H"
Delay 100
Write "A"
Delay 100
Write "V"
Delay 100
Write "E"
Delay 100
Write " "
Delay 100
Write "T"
Delay 100
Write "O"
Delay 100
Write " "
Delay 100
Write "G"
Delay 100
Write "O"
Delay 100
Write " "
Delay 100
Write "N"
Delay 100
Write "O"
Delay 100
Write "W"
Delay 100
Write "."
Delay 100
Write " "
Delay 100
Write "B"
Delay 100
Write "Y"
Delay 100
Write "E"
Delay 100
Write "!"
Delay 2000
End

Or, for a shorter version:

Delay 100
Write "H"
Delay 100
Write "I"
Delay 100
Write ","
Delay 100
Write " "
Delay 100
Write "N"
Delay 100
Write "A"
Delay 100
Write "M"
Delay 100
Write "E"
Delay 100
Write "?"
Print
name$=Input("")
name=Upper(name$)
Print
Delay 100
Write "H"
Delay 100
Write "I"
Delay 100
Write ","
Delay 100
Write " "
Delay 100
Write name
Delay 100
Write "!"

Alright, my question is...
How do you spell out the name (like all the other text) that the user types in?

b32	(Posted 2007) [#2]

Use a For..Next loop and the Mid$() command.

Rob Farley

(Posted 2007) [#3]

Indeed, to expand on that

t$ = "Hello my name is Earl"
for n=1 to len(t)
write mid(t,n,1)
delay 100
next
waitkey

Yo! Wazzup?

(Posted 2007) [#4]

Thanks, works now.