Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

Code Snippets / Silly typing thing..

Author
Message
Lampton Worm
21
Years of Service
User Offline
Joined: 4th Sep 2002
Location: United Kingdom
Posted: 27th Nov 2002 00:34
Umm, just something I did ages ago, maybe handy for newbies. Basically you have to type the word in correctly then hit enter.. sure you'll understand the code.. add a timer and turn it into a typing game if u like..
(p.s. the code button isn't working for me)


sync on : sync rate 60:backdrop off : hide mouse
dim words$(10)
words$(1)="Hello1"
words$(2)="Hello2"
words$(3)="Hello3"
words$(4)="Hello4"
words$(5)="Hello5"
words$(6)="Hello6"
words$(7)="Hello7"
words$(8)="Hello8"
words$(9)="Hello9"
words$(10)="Hello10"
randomize rnd(100):choose=rnd(10):test$=words$(choose)
do
cls
text 0,0, "test$ :"+test$
text 0,10,"entry$ :"+entry$()
text 0,20,"points :"+str$(points)
if entry$()=test$
inc points,1
choose=rnd(10)
test$=words$(choose)
clear entry buffer
endif
if returnkey()=1
clear entry buffer
endif
sync
loop

Login to post a reply

Server time is: 2024-03-28 23:53:45
Your offset time is: 2024-03-28 23:53:45