Text Not Displaying

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|734\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Text Not Displaying
Thu, 25 Apr 2013, 18:36
dna	Hey All. In this source Function GETIN$(MAXCHR) NCHR=0 While CHRS<>13 Cls CHRS=GetKey() If CHRS=8 And Len(IN$)>0 Then IN$=Left$(IN$,Len(IN$)-1):NCHR=NCHR-1 If CHRS>13 And NCHR<=MAXCHR Then IN$=IN$+Chr$(CHRS):NCHR=NCHR+1 Text TXX,TYY,IN$ Flip Wend Return IN$ End Function --v The text is not displaying for some reason when the caps lock is on. What am I doing wrong in this source? -=-=- DNA
Fri, 26 Apr 2013, 03:18
waroffice	is IN$ defined as a global?
Fri, 26 Apr 2013, 06:11
steve_ancell	My Tetris clone has functions that replace the Input command, for inputting a name into the highscore table, you're more than welcome to rip those out and use them. Assuming that's what you're trying to achieve. socoder.net/uploads/51/TetrisClone.zip
Sat, 27 Apr 2013, 14:20
dna	@Steve: Thanks Steve. @Waroffice: No I did not declare it as a global variable. I never thought it would be necessary. -=-=- DNA
Sun, 28 Apr 2013, 14:19
dna	Wow Steve. That code.
Sun, 28 Apr 2013, 16:10
steve_ancell	dna Wow Steve. That code. Yeah, chaos ain't it!.
Sun, 28 Apr 2013, 16:14
steve_ancell	InputHighScore() would be the function you are looking for.
Mon, 29 Apr 2013, 16:14
dna	I tried that routine and it's calling other routines That does not stand alone. I might use what I have. When finished it would stand alone in any source. -=-=- DNA
Tue, 30 Apr 2013, 16:15
dna	The routine just waits for a character and then exits after I press a key. -=-=- DNA
Thu, 02 May 2013, 14:13
dna	Hey All Global IN$ NCHR=0:MAXCHR=15:IN$="" Text 20,150,GETIN$(7):Delay 1000:End Function GETIN$(MAXCHR) NCHR=0 While CHRS<>13 Cls CHRS=GetKey() If CHRS=8 And Len(IN$)>0 Then IN$=Left$(IN$,Len(IN$)-1):NCHR=NCHR-1 If CHRS>13 And NCHR<=MAXCHR Then IN$=IN$+Chr$(CHRS):NCHR=NCHR+1 Text TXX,TYY,IN$ Flip Wend Return IN$ End Function --v I got this code to work for the input however, I'm having trouble with a thin cursor flashing. I'm trying to make the cursor flash in this like a word processor does. -=-=- DNA
Thu, 02 May 2013, 17:24
steve_ancell	Create a timer function and use that to make a variable switch between true and false, then use that to regulate displaying and not displaying the cursor.
Thu, 02 May 2013, 17:33
steve_ancell	Here's something to get you started, I just ripped some timer functions from my Mutant Monty game. Type Timer Field name$ Field lastTime# Field threshold# Field delay_# End Type Global gTimer.Timer = NewTimer(500) Global showCursor = True Repeat Cls If showCursor = True Rect 0, 0, 30, 30, True EndIf Flip If GetTimerState(gTimer) = True showCursor = showCursor Xor True EndIf Until KeyHit(1) = True End Function NewTimer.Timer(delay_#) Local l_timer.Timer = New Timer l_timer\lastTime = MilliSecs() l_timer\delay_= delay_ Return l_timer End Function Function GetTimerState(timer_.Timer) If MilliSecs() >= (timer_\lastTime + timer_\delay_) timer_\lastTime = MilliSecs() Return True EndIf Return False End Function --v