A little help please.. - GameCreators Forum

Author

Message

Maverick

22

Years of Service

User Offline

Joined: 9th Oct 2002

Location:

Posted: 19th Oct 2002 01:47

Link

Ok I figured out my little notepad problem using the SCANCODE() command I was able to Get The keys to write on the screen The problem I am running into now is that the program runs way to fast. If you press the key once it records it 10 or 12 times instead of once. I tried the sleep,wait,suspend for key and wait commands to slow it down or wait for a key then record it but when i use the suspend/wait for key it wont register the key that was pushed. Anyways here is the code any ideas would be appreciated!

DIM msgblock$(10)
lloop=0
xc=1
y=25
line=1

WHILE lloop=0
	INK rgb(255,255,255),1
	IF scancode>0
		TEXT xc,y,ch$
		xc=xc+8
		IF xc>=300 
			xc=1
			y=y+20
			line=line+1
		ENDIF
		IF line>=5
			GOSUB itsdone
			SUSPEND FOR KEY
			END
		ENDIF
		msgblock$(line)=msgblock$(line)+ch$
	ENDIF
	SCANCODE=SCANCODE()
	IF SCANCODE=1 THEN END
	IF SCANCODE=2 THEN CH$="1"
	IF SCANCODE=3 THEN CH$="2"
	IF SCANCODE=4 THEN CH$="3"
	IF SCANCODE=5 THEN CH$="4"
	IF SCANCODE=6 THEN CH$="5"
	IF SCANCODE=7 THEN CH$="6"
	IF SCANCODE=8 THEN CH$="7"
	IF SCANCODE=9 THEN CH$="8"
	IF SCANCODE=10 THEN CH$="9"
	IF SCANCODE=11 THEN CH$="0"
	IF SCANCODE=12 THEN CH$="-"
	IF SCANCODE=13 THEN CH$="="
	IF SCANCODE=16 THEN CH$="q"
	IF SCANCODE=17 THEN CH$="w"
	IF SCANCODE=18 THEN CH$="e"
	IF SCANCODE=19 THEN CH$="r"
	IF SCANCODE=20 THEN CH$="t"
	IF SCANCODE=21 THEN CH$="y"
	IF SCANCODE=22 THEN CH$="u"
	IF SCANCODE=23 THEN CH$="i"
	IF SCANCODE=24 THEN CH$="o"
	IF SCANCODE=25 THEN CH$="p"
	IF SCANCODE=26 THEN CH$="["
	IF SCANCODE=27 THEN CH$="]"
	IF SCANCODE=28 
		line=line+1
		scancode=0
		y=y+20
	ENDIF
	IF SCANCODE=30 THEN CH$="a"
	IF SCANCODE=31 THEN CH$="s"
	IF SCANCODE=32 THEN CH$="d"
	IF SCANCODE=33 THEN CH$="f"
	IF SCANCODE=34 THEN CH$="g"
	IF SCANCODE=35 THEN CH$="h"
	IF SCANCODE=36 THEN CH$="j"
	IF SCANCODE=37 THEN CH$="k"
	IF SCANCODE=38 THEN CH$="l"
	IF SCANCODE=39 THEN CH$=";"
	IF SCANCODE=40 THEN CH$="'"
	IF SCANCODE=41 THEN CH$="`"
	IF SCANCODE=44 THEN CH$="z"
	IF SCANCODE=45 THEN CH$="x"
	IF SCANCODE=46 THEN CH$="c"
	IF SCANCODE=47 THEN CH$="v"
	IF SCANCODE=48 THEN CH$="b"
	IF SCANCODE=49 THEN CH$="n"
	IF SCANCODE=50 THEN CH$="m"
	IF SCANCODE=51 THEN CH$=","
	IF SCANCODE=52 THEN CH$="."
	IF SCANCODE=53 THEN CH$="/"
	IF SCANCODE=57 THEN CH$=" "
ENDWHILE

Itsdone:
CLS
PRINT "ITS DOOOOOOOOOOOOOOONNNNNNNNNNNNNNNEEEEEEEEEEE"
For t=1 TO 10
	PRINT msgblock$(t)
	
NEXT t
SUSPEND FOR KEY

END
RETURN

+ Code Snippet

DIM msgblock$(10)
lloop=0
xc=1
y=25
line=1

WHILE lloop=0
	INK rgb(255,255,255),1
	IF scancode>0
		TEXT xc,y,ch$
		xc=xc+8
		IF xc>=300 
			xc=1
			y=y+20
			line=line+1
		ENDIF
		IF line>=5
			GOSUB itsdone
			SUSPEND FOR KEY
			END
		ENDIF
		msgblock$(line)=msgblock$(line)+ch$
	ENDIF
	SCANCODE=SCANCODE()
	IF SCANCODE=1 THEN END
	IF SCANCODE=2 THEN CH$="1"
	IF SCANCODE=3 THEN CH$="2"
	IF SCANCODE=4 THEN CH$="3"
	IF SCANCODE=5 THEN CH$="4"
	IF SCANCODE=6 THEN CH$="5"
	IF SCANCODE=7 THEN CH$="6"
	IF SCANCODE=8 THEN CH$="7"
	IF SCANCODE=9 THEN CH$="8"
	IF SCANCODE=10 THEN CH$="9"
	IF SCANCODE=11 THEN CH$="0"
	IF SCANCODE=12 THEN CH$="-"
	IF SCANCODE=13 THEN CH$="="
	IF SCANCODE=16 THEN CH$="q"
	IF SCANCODE=17 THEN CH$="w"
	IF SCANCODE=18 THEN CH$="e"
	IF SCANCODE=19 THEN CH$="r"
	IF SCANCODE=20 THEN CH$="t"
	IF SCANCODE=21 THEN CH$="y"
	IF SCANCODE=22 THEN CH$="u"
	IF SCANCODE=23 THEN CH$="i"
	IF SCANCODE=24 THEN CH$="o"
	IF SCANCODE=25 THEN CH$="p"
	IF SCANCODE=26 THEN CH$="["
	IF SCANCODE=27 THEN CH$="]"
	IF SCANCODE=28 
		line=line+1
		scancode=0
		y=y+20
	ENDIF
	IF SCANCODE=30 THEN CH$="a"
	IF SCANCODE=31 THEN CH$="s"
	IF SCANCODE=32 THEN CH$="d"
	IF SCANCODE=33 THEN CH$="f"
	IF SCANCODE=34 THEN CH$="g"
	IF SCANCODE=35 THEN CH$="h"
	IF SCANCODE=36 THEN CH$="j"
	IF SCANCODE=37 THEN CH$="k"
	IF SCANCODE=38 THEN CH$="l"
	IF SCANCODE=39 THEN CH$=";"
	IF SCANCODE=40 THEN CH$="'"
	IF SCANCODE=41 THEN CH$="`"
	IF SCANCODE=44 THEN CH$="z"
	IF SCANCODE=45 THEN CH$="x"
	IF SCANCODE=46 THEN CH$="c"
	IF SCANCODE=47 THEN CH$="v"
	IF SCANCODE=48 THEN CH$="b"
	IF SCANCODE=49 THEN CH$="n"
	IF SCANCODE=50 THEN CH$="m"
	IF SCANCODE=51 THEN CH$=","
	IF SCANCODE=52 THEN CH$="."
	IF SCANCODE=53 THEN CH$="/"
	IF SCANCODE=57 THEN CH$=" "
ENDWHILE



Itsdone:
CLS
PRINT "ITS DOOOOOOOOOOOOOOONNNNNNNNNNNNNNNEEEEEEEEEEE"
For t=1 TO 10
	PRINT msgblock$(t)
	
NEXT t
SUSPEND FOR KEY

END
RETURN

Back to top

Profile PM

Zed

22

Years of Service

User Offline

Joined: 20th Sep 2002

Location:

Posted: 19th Oct 2002 02:02

Link

Just do something like this

T=timer()+100
do
if timer()>=T
T=timer()+100
.
.
rest of code
.
.
endif
loop

Back to top

Profile PM

Milamber

22

Years of Service

User Offline

Joined: 27th Sep 2002

Location: Australia

Posted: 19th Oct 2002 11:00

Link

Or:
do
IF scancode()<>scode OR count>100
count=0
.
.
rest of code
.
.
endif
scode=scancode()
count=count+1
loop

This has the advantage of only stopping the one key from being registered for a while, not all the keys.

System Specs: AMD Athlon 1700+ XP, GA-7VRX motherboard, 128MB DDR RAM, GeForce2 MX400 64MB VRAM

Back to top

Profile PM

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 19th Oct 2002 12:44

Link

Marc F. who manages

www.dbheaven.com

has a good article on the subject.

http://www.dbheaven.com/thebook/chapter05.php

he also dropped a groovy timed input snippet on the RGT boards ages ago. You might like to ask him for a copy.

Im using it in DT for my RPG game and I can also access secret commands in my game with its method.

basically

in the main loop detect its usage

+ Code Snippet

rem ------------------------------------------------------------------------------------------
rem DETECT COMMAND LINE USAGE
rem ------------------------------------------------------------------------------------------
IF KEYSTATE(62) THEN chatmode = 1
        IF KEYSTATE(63) THEN chatmode = 0
   IF chatmode = 1
                GOSUB CheckInput
           TEXT 10,sh(1)-60,text$+"]"
                TEXT 10,sh(1)-80,"message :"+finaltext$

` detect for secret words
gosub secretwords

      replymsg$ = "mplay..."
                TEXT 10,sh(1)-100,"reply msg:"+replymsg$
        ELSE

        ENDIF

then in this example i used a gosub to do the actual work

+ Code Snippet

`---------------------------------------------------------------------------
` COMMAND LINE CHAT/ SECRET INPUT    ---------------------------------------
`---------------------------------------------------------------------------
CheckInput:
   oldkey$ = newkey$
   newkey$ = INKEY$()
        IF KEYSTATE(14)
                IF LEN(text$) > 0 THEN text$ = LEFT$(text$,LEN(text$)-1)
   ELSE
                IF RETURNKEY()
                        IF text$ <> "" THEN finaltext$ = text$ : text$ = ""
                ELSE
                        IF newkey$ <> oldkey$ THEN text$ = text$ + newkey$
                ENDIF
        ENDIF
return

and the secret word gosub ill leave hidden as its not a requirement here so remove that gosub call.

I will show u one secret command so u know how it would be setup

its not in a gosub so replace the call with this component

` wolf easter egg
if finaltext$ = "wolf"
finaltext$ = "looks like a fullmoon tonight"
play sound 4
endif

naturally u can play sounds or report back text or do anything really.

and thats it in a nutshell.

clear as mud?

good

http://www.lunarpixel.com/ is my new site

Back to top

Profile PM Email

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 19th Oct 2002 12:44

Link

the scancodes are f4 and f5 in that example also

http://www.lunarpixel.com/ is my new site

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / A little help please..