Type writer effect - GameCreators Forum

Author

Message

chilledoutjohn

21

Years of Service

User Offline

Joined: 10th Aug 2003

Location:

Posted: 4th Jul 2004 06:59

Link

Im sure ive seen it on the forum somewhere but after searching many a time i still cant find it

can anyone point me in the direction of a peice of code that will allow me to type something in and when it apears on screen it will act as if a type writer had typed it. Bit of a weird one i know but if anyone can help id apreciate it

cheers

Back to top

Profile PM

Sleet

21

Years of Service

User Offline

Joined: 3rd Aug 2003

Location:

Posted: 6th Jul 2004 12:39

Link

what do you mean "act as though a typewriter had typed it"

as far as I know typewriter typed letters act the same way any other typed letters do........

Back to top

Profile PM

DaedalusX

21

Years of Service

User Offline

Joined: 10th Mar 2004

Location:

Posted: 7th Jul 2004 02:25

Link

printing letters seperatly one after the other like when u type. i dont know how to do it. i just have it come up as one untill i figure it out

Daedalus

Back to top

Profile PM Email

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 7th Jul 2004 12:41

Link

you mean like "input r$"?

Or you mean typing while a game is still playing?

"eureka" - Archimedes

Back to top

Profile PM Email Website

Axelman

21

Years of Service

User Offline

Joined: 18th Oct 2003

Location: Parallel Universe

Posted: 7th Jul 2004 18:19

Link

try this:

+ Code Snippet

`set text style to courier new
set text font "Courier new"
set text size 14

`type the words (hello world)
text 120,30,"H"
wait 500
text 125,30,"e"
wait 500
text 130,30,"l"
wait 500
text 135,30,"l"
wait 500
text 140,30,"o"
wait 500
text 145,30," "
wait 500
text 150,30,"W"
wait 500
text 155,30,"o"
wait 500
text 160,30,"r"
wait 500
text 165,30,"l"
wait 500
text 170,30,"d"
wait 500
text 175,30,"."

by the way, what do you need this for?

cya later,
Axelman.

CURRENT PROJECT: Enemy At The Gates

Back to top

Profile PM Email

Emperor Baal

21

Years of Service

User Offline

Joined: 1st Dec 2003

Location: The Netherlands - Oudenbosch

Posted: 8th Jul 2004 00:11

Link

Ye can try this:

+ Code Snippet


function typewrite(t$,x,y,x2)
if t$ <> ""
   for a=1 to len(t$)
      text x+x2*(a-1),ymid$(t$,a)
      wait 500
   next a
endif
endfunction

Just call this function:

typewrite("Test 1 2 3!", a, b, c)
a = X start location
b = Y start location
c = X between each letter

example:

typewrite("Test 1, 2, 3!!", 20,5,7)

http://www.nuclearpublishing.com/hosting/emperorbaal/

Back to top

Profile PM Email Website

CornStalks

21

Years of Service

User Offline

Joined: 12th Feb 2004

Location: Utah

Posted: 8th Jul 2004 01:20

Link

hey, i think alexman's code would work the best, but if you want that big line thingy, you know the thing that is always in front of you letters and looks like a big lowercase l, i would try my code. just copy it into the editor and you will see...
I also made it look like sometimes the com is typing fast, and then slowing down like in reality. If you dont like that, set all the waits to the same time. And if you want the | to blink, just erase it in some of the lines

sync on
ink rgb(255,255,255),rgb(0,0,0)
print "Get ready!"
wait 2000
cls
print "|";
wait 250
cls
print "";
wait 250
cls
print "|";
wait 250
cls
print "";
wait 250
cls
print "|";
wait 250
cls
print "";
wait 250
cls
print "|";
wait 250
cls
print "3|";
wait 225
cls
print "32|";
wait 225
cls
print "32 |";
wait 225
cls
print "32 M|"
wait 225
cls
print "32 Me|"
wait 215
cls
print "32 Mel|"
wait 205
cls
print "32 Mell|"
wait 195
cls
print "32 Mellt|"
wait 250
cls
print "32 Mellt"
wait 250
cls
print "32 Mellt|"
wait 100
cls
print "32 Mell|"
wait 210
cls
print "32 Mel|"
wait 200
cls
print "32 Melt|"
wait 215
cls
print "32 Melte|"
wait 215
cls
print "32 Melted|"
wait 210
cls
print "32 Melted |"
wait 205
cls
print "32 Melted G|"
wait 200
cls
print "32 Melted Gu|"
wait 195
cls
print "32 Melted Gum|"
wait 190
cls
print "32 Melted Gumm|"
wait 190
cls
print "32 Melted Gummy|"
wait 190
cls
print "32 Melted Gummy |"
wait 190
cls
print "32 Melted Gummy B|"
wait 200
cls
print "32 Melted Gummy Be|"
wait 205
cls
print "32 Melted Gummy Bea|"
wait 210
cls
print "32 Melted Gummy Bear|"
wait 200
cls
print "32 Melted Gummy Bears|"
wait 250
cls
print "32 Melted Gummy Bears"
wait 250
cls
print "32 Melted Gummy Bears|"
wait 250
cls
print "32 Melted Gummy Bears"
wait 250
cls
print "32 Melted Gummy Bears|"
wait 250
cls
print "32 Melted Gummy Bears"
wait 250
cls
print "32 Melted Gummy Bears|"
wait 250
cls
print "32 Melted Gummy Bears"
wait 250
cls
print "32 Melted Gummy Bears|"
wait 200
cls
print "32 Melted Gummy Bear|"
wait 190
cls
print "32 Melted Gummy Bea|"
wait 180
cls
print "32 Melted Gummy Be|"
wait 170
cls
print "32 Melted Gummy B|"
wait 150
cls
print "32 Melted Gummy |"
wait 140
cls
print "32 Melted Gummy|"
wait 140
cls 
print "32 Melted Gumm|"
wait 140
cls
print "32 Melted Gum|"
wait 140
cls
print "32 Melted Gu|"
wait 250
cls
print "32 Melted Gu"
wait 150
cls
print "32 Melted Gun|"
wait 170
cls
print "32 Melted Guns|"
wait 250
cls
print "32 Melted Guns"
wait 250
cls
print "32 Melted Guns|"
wait 250
cls
print "32 Melted Guns"
wait 250
cls
print "32 Melted Guns|"
wait 250
cls
print "32 Melted Guns"
wait 250
cls
print "32 Melted Guns|"
wait 250
cls
print "32 Melted Guns"
wait 250
cls
print "32 Melted Guns|"
wait 250
cls
print "32 Melted Guns"

+ Code Snippet

sync on
ink rgb(255,255,255),rgb(0,0,0)
print "Get ready!"
wait 2000
cls
print "|";
wait 250
cls
print "";
wait 250
cls
print "|";
wait 250
cls
print "";
wait 250
cls
print "|";
wait 250
cls
print "";
wait 250
cls
print "|";
wait 250
cls
print "3|";
wait 225
cls
print "32|";
wait 225
cls
print "32 |";
wait 225
cls
print "32 M|"
wait 225
cls
print "32 Me|"
wait 215
cls
print "32 Mel|"
wait 205
cls
print "32 Mell|"
wait 195
cls
print "32 Mellt|"
wait 250
cls
print "32 Mellt"
wait 250
cls
print "32 Mellt|"
wait 100
cls
print "32 Mell|"
wait 210
cls
print "32 Mel|"
wait 200
cls
print "32 Melt|"
wait 215
cls
print "32 Melte|"
wait 215
cls
print "32 Melted|"
wait 210
cls
print "32 Melted |"
wait 205
cls
print "32 Melted G|"
wait 200
cls
print "32 Melted Gu|"
wait 195
cls
print "32 Melted Gum|"
wait 190
cls
print "32 Melted Gumm|"
wait 190
cls
print "32 Melted Gummy|"
wait 190
cls
print "32 Melted Gummy |"
wait 190
cls
print "32 Melted Gummy B|"
wait 200
cls
print "32 Melted Gummy Be|"
wait 205
cls
print "32 Melted Gummy Bea|"
wait 210
cls
print "32 Melted Gummy Bear|"
wait 200
cls
print "32 Melted Gummy Bears|"
wait 250
cls
print "32 Melted Gummy Bears"
wait 250
cls
print "32 Melted Gummy Bears|"
wait 250
cls
print "32 Melted Gummy Bears"
wait 250
cls
print "32 Melted Gummy Bears|"
wait 250
cls
print "32 Melted Gummy Bears"
wait 250
cls
print "32 Melted Gummy Bears|"
wait 250
cls
print "32 Melted Gummy Bears"
wait 250
cls
print "32 Melted Gummy Bears|"
wait 200
cls
print "32 Melted Gummy Bear|"
wait 190
cls
print "32 Melted Gummy Bea|"
wait 180
cls
print "32 Melted Gummy Be|"
wait 170
cls
print "32 Melted Gummy B|"
wait 150
cls
print "32 Melted Gummy |"
wait 140
cls
print "32 Melted Gummy|"
wait 140
cls 
print "32 Melted Gumm|"
wait 140
cls
print "32 Melted Gum|"
wait 140
cls
print "32 Melted Gu|"
wait 250
cls
print "32 Melted Gu"
wait 150
cls
print "32 Melted Gun|"
wait 170
cls
print "32 Melted Guns|"
wait 250
cls
print "32 Melted Guns"
wait 250
cls
print "32 Melted Guns|"
wait 250
cls
print "32 Melted Guns"
wait 250
cls
print "32 Melted Guns|"
wait 250
cls
print "32 Melted Guns"
wait 250
cls
print "32 Melted Guns|"
wait 250
cls
print "32 Melted Guns"
wait 250
cls
print "32 Melted Guns|"
wait 250
cls
print "32 Melted Guns"

of corse, it does take a while and a lot of lines, but it looks cool!
please try my code, just copy it, my fricken fingers are numb!

dang im hot...

Back to top

Profile PM Email

Emperor Baal

21

Years of Service

User Offline

Joined: 1st Dec 2003

Location: The Netherlands - Oudenbosch

Posted: 8th Jul 2004 02:46

Link

Lol, my code totally replaces that code

http://www.nuclearpublishing.com/hosting/emperorbaal/

Back to top

Profile PM Email Website

chilledoutjohn

21

Years of Service

User Offline

Joined: 10th Aug 2003

Location:

Posted: 8th Jul 2004 09:19

Link

Ace cheers all

i need it for an intro to a game >whach this space<

Back to top

Profile PM

Axelman

21

Years of Service

User Offline

Joined: 18th Oct 2003

Location: Parallel Universe

Posted: 8th Jul 2004 11:00 Edited at: 8th Jul 2004 11:02

Link

i don't understand your code baal. Please explain.

Quote: "for a=1 to len(t$)"

What is len?
and what is the value of t$?

CURRENT PROJECT: Enemy At The Gates

Back to top

Profile PM Email

Emperor Baal

21

Years of Service

User Offline

Joined: 1st Dec 2003

Location: The Netherlands - Oudenbosch

Posted: 8th Jul 2004 19:40 Edited at: 8th Jul 2004 19:43

Link

Well, first of all, its a function:

+ Code Snippet

function typewrite(t$,x,y,x2)
if t$ <> ""
   for a=1 to len(t$)
      text x+x2*(a-1),y,mid$(t$,a)
      wait 500
   next a
endif
endfunction

If we call it with these parameters:
typewrite("Test", 20, 20,7)

t$ would be "Test"
x would be 20
y would be 20
x2 would be 7

Then it will check if the text is bigger then 0 chars (if t$ <> "")

If its bigger, it will run into a loop:

for a=1 to len(t$)

Now if we replace len(t$):

for a=1 to 4
text x+x2*(a-1),y,mid$(t$,a)
wait 500
next a

It would run the text and wait command 4 times:

text 20,20,mid$(t$,1)
wait 500
text 27,20,mid$(t$,2)
wait 500
text 34,20,mid$(t$,3)
wait 500
text 41,20,mid$(t$,4)
wait 500

mid$ returns a character from a string:

mid$(string$, number)

So, if our string$ would be "ABCDEFG" and number would be 5
it would return: "E"

Pretty simple.
You can even add a sound effect for each letter

+ Code Snippet

   for a=1 to len(t$)
      text x+x2*(a-1),y,mid$(t$,a)
      play sound TICK NUMBER
      wait 500
   next a

Hope it helps.

http://www.nuclearpublishing.com/hosting/emperorbaal/

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / Type writer effect