Learn How To Type - GameCreators Forum

Author

Message

comando 300

20

Years of Service

User Offline

Joined: 23rd Nov 2003

Location:

Posted: 1st May 2004 21:51 Edited at: 1st May 2004 23:20

Link

This the little program that a letter is falling across the screen and you have to hit that letter in the keyboard.If you hit it right you get a point else if u hit the wrong key or let the letter fall to the bottom of the screen you gain nothing.

+ Code Snippet

sync on:sync rate 30:hide mouse
start:
y=0-1:letter=rnd(25):x=rnd(550)
do:cls:if letter=1:letter$="a":endif:if letter=2:letter$="b":endif
if letter=3:letter$="c":endif:if letter=4:letter$="e":endif:if letter=5:letter$="f":endif
if letter=6:letter$="g":endif:if letter=7:letter$="h":endif:if letter=8:letter$="i":endif
if letter=9:letter$="j":endif:if letter=10:letter$="k":endif:if letter=11:letter$="l":endif
if letter=12:letter$="m":endif:if letter=13:letter$="n":endif:if letter=14:letter$="o":endif
if letter=15:letter$="p":endif:if letter=16:letter$="q":endif:if letter=17:letter$="r":endif
if letter=18:letter$="s":endif:if letter=19:letter$="t":endif:if letter=20:letter$="u":endif
if letter=21:letter$="v":endif:if letter=22:letter$="w":endif:if letter=23:letter$="y":endif:if letter=24:letter$="z":endif
if inkey$()=letter$:good=good+1:goto start:endif:text x,y,letter$:Print "Good:";good:inc y,3:if y=>430:bad=bad+1:goto start:endif
if good=>20:end:endif:sync:loop

CURRENT PROJECT: RETRO PAC-MAN

Back to top

Profile PM Website

Saikoro

21

Years of Service

User Offline

Joined: 6th Oct 2003

Location: California

Posted: 2nd May 2004 01:31

Link

Nice, just implement whole words, an enhanced scoring system, and some other add ons. It could make a nice little keyboard skills learning game.

-Vash the Stampede

Need help? Ask me via email, msn, aim, or forums and Ill see what I can do.

Back to top

Profile PM Email Website

comando 300

20

Years of Service

User Offline

Joined: 23rd Nov 2003

Location:

Posted: 2nd May 2004 01:51

Link

Thanks VST 815 by the reply I'll try to make a good game of it,but I think it doesn't gonna be a 20 liner.

CURRENT PROJECT: RETRO PAC-MAN

Back to top

Profile PM Website

Peter H

20

Years of Service

User Offline

Joined: 20th Feb 2004

Location: Witness Protection Program

Posted: 3rd May 2004 22:23

Link

ya you can't fit the whole english language in 20 lines

Formerly known as "DarkWing Duck"

Back to top

Profile PM Email

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 5th May 2004 05:18

Link

It doesn't work here ..... just a blank screen?

"People don't fail ..... they stop trying." Specs. P4 2.8GHz 800 FSB | 512MB DDR333
GeForce FX 5200 AGP 256MB | Windows XP Pro Full

Back to top

Profile PM Email

Emperor Baal

20

Years of Service

User Offline

Joined: 1st Dec 2003

Location: The Netherlands - Oudenbosch

Posted: 5th May 2004 14:42 Edited at: 5th May 2004 14:55

Link

You can fit your program on 1 line

Take a look at this source (works in dbc too) and learn:

+ Code Snippet

sync on:sync rate 30:hide mouse:y=-1:l$=chr$(rnd(25)+97):x=rnd(550):while good<20:cls:if inkey$()=l$:l$=chr$(rnd(25)+97):x=rnd(550):y=-1:inc good:endif:text x,y,l$:print "Good:";good:inc y,3:if y>429:inc bad:endif:sync:endwhile

Quote: "UPDATED
Amd 2800+

1024mb pc3200

A7N8X - Deluxe

Ati Radeon 9800PRO 256mb"

Back to top

Profile PM Email Website

comando 300

20

Years of Service

User Offline

Joined: 23rd Nov 2003

Location:

Posted: 5th May 2004 19:15

Link

CURRENT PROJECT: RETRO PAC-MAN

Back to top

Profile PM Website

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 7th May 2004 09:30 Edited at: 7th May 2004 10:12

Link

And it still doesn't work here.

[Edit] windowed full screen works with this one.

+ Code Snippet

sync on:sync rate 30:hide mouse:y=-1:l$=chr$(rnd(25)+97):x=rnd(550)
while good<20:cls
	if inkey$()=l$:l$=chr$(rnd(25)+97):x=rnd(550):y=-1:inc good: endif
	text x,y,l$:print "Good:";good:inc y,3:if y>429:inc bad:endif
	sync
endwhile

[Edit2] It all works in this one I donn't know why neither of your's works here. Hrm.

+ Code Snippet

sync on:sync rate 30:randomize timer():hide mouse:y=-1:l$=chr$(rnd(25)+97):x=rnd(510)+40
while good<20:cls
	if y > screen height() 
		l$=chr$(rnd(25)+97):x=rnd(550):y=-1:inc bad
	endif
	if inkey$()<>l$ and scancode() > 0 and keypress = 0
		inc bad
	endif	
	if scancode() > 0 then keypress = 1
	if scancode() = 0 then keypress = 0
	if inkey$()=l$:l$=chr$(rnd(25)+97):x=rnd(510)+40:y=-1:inc good: endif
	text x,y,l$:print "Good:";good:inc y,3
	set cursor 5,15: print "Bad: ",bad 
	sync
endwhile

"People don't fail ..... they stop trying." Specs. P4 2.8GHz 800 FSB | 512MB DDR333
GeForce FX 5200 AGP 256MB | Windows XP Pro Full

Back to top

Profile PM Email

Kequor

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location: United States

Posted: 11th May 2004 07:07

Link

Works for me. Nice job comando 300!

Dont worry and keep a cool head.

Back to top

Profile PM Email Website

comando 300

20

Years of Service

User Offline

Joined: 23rd Nov 2003

Location:

Posted: 11th May 2004 07:18

Link

Thanks,Emperor Baal won me

CURRENT PROJECT: RETRO PAC-MAN

Back to top

Profile PM Website

The Lone Programmer

21

Years of Service

User Offline

Joined: 29th Jan 2003

Location: California, USA

Posted: 12th May 2004 03:26

Link

Hmm I have this game on my Palm OS V (Pocket PC / Organizer)

Still a good idea though. Keep up the good work

Nicolas

Who Am I? Are You Sure You Want To Know? Spiderman

Visit Me And See All My Awsome Stuff Here: http://www.yobarinteractive.tk

Back to top

Profile PM Website

goku

20

Years of Service

User Offline

Joined: 11th May 2004

Location:

Posted: 12th May 2004 08:15

Link

Are you a goku fan to if so contact me at my email:peepsed@yahoo.com
We can chat all day about db-dbz-dbgt.I am a HUGE fan I can get you all the inside information about all db-dbz-dbgt.BYE