line streaks in text input - GameCreators Forum

Author

Message

Rburke

18

Years of Service

User Offline

Joined: 28th Sep 2006

Location:

Posted: 2nd Jan 2013 17:41 Edited at: 3rd Jan 2013 02:51

Link

Is there a way to get rid of the unattractive streaks while inputting text? Also, is there a way to use ink two times on one printed line so that I can have more than one color in a single line?
Edit: Also want it so that the program only accepts real integers instead of numbers like 22.3. Tips?
Edit 2: Found out that I can add another variable selectionReal and do selection# - selectionReal and use the result to determine if the value returned is greater than 0, indicating if partial numbers were entered. Bold are the new additions:

SET TEXT FONT "Console" : SET TEXT SIZE 15

Input "Select a number between 1 and 100: ", selection$
selection# = VAL(selection$)
selectionReal = selection#
repeat
if selection# < 1 OR selection# > 100 OR (selection# - selectionReal) > 0
Print : Ink RGB(255,100,65),1
Print "'",selection$,"'"," is an Invalid selection." : Ink RGB(255,255,255),1
Input "Select a number between 1 and 100: ", selection$
selection# = VAL(selection$)
endif
until selection# > 0 and selection# < 101 AND selectionReal = 0
selectionReal = selection#
print "You chose number ",selection#
print
print "Press any key to close the program..."
wait key

+ Code Snippet

SET TEXT FONT "Console" : SET TEXT SIZE 15

Input "Select a number between 1 and 100: ", selection$
selection = VAL(selection$)
repeat
   if selection < 1 OR selection > 100
      Print : Ink RGB(255,100,65),1
      Print "'",selection$,"'"," is an Invalid selection." : Ink RGB(255,255,255),1
      Input "Select a number between 1 and 100: ", selection$
      selection = VAL(selection$)
   endif
until selection > 0 and selection < 101
print "You chose number ",selection
print
print "Press any key to close the program..."
wait key

[b]

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 3rd Jan 2013 03:04

Link

1. No you cannot use multiple colors on the same line input.
2. No you cannot limit the format of data the user types using the input command.

1. You'd have to write your own input routine to control the displayed output in the manner you want.

2. You can use INT() on the user-submitted value after it's type to get the integer part.

"You're not going crazy. You're going sane in a crazy world!" ~Tick

Back to top

Profile PM Email Website

MrValentine

AGK Backer

13

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 3rd Jan 2013 04:41

Link

Rburke -

1 =

+ Code Snippet

INK RGB(255,87,255),0 : PRINT "HELLO " : INK RGB(255,0,0),0 : SET CURSOR 35,0 : PRINT " WORLD"

WAIT KEY
END

I even tested this with input, so just experiment...

Although, it probably should be mentioned that using this method has apparently performance impacts... have a look at D3Dfunc and Advanced2D for apparently improved text calls... [I am yet to experiment with them]

2 =
Using a tokeniser plugin, or string manipulation techniques like those found in STYX, you indeed can limit what the user can input, just you have to do a little programming... [Sorry at this time I cannot provide any code as such as I am yet to play further with string manipulation...]

Hope this helps...

Back to top

Profile PM

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 4th Jan 2013 16:05 Edited at: 4th Jan 2013 16:05

Link

1. With the printc command you can. This is off the top of my head:

+ Code Snippet

ink 0xFFFF0000, 0
printc "You"
ink 0xFF00FF00, 0
print "Suck"

(if that doesn't work, try switching the two commands print and printc.)

2. Not with input you can't. You could use the entry buffer however (sorry, also off the top of my head.)

+ Code Snippet

function get_entry( x, y )

   rem some local variables
   local buffer$ as string
   local char$ as string
   local currentEntry$ as string
   local n as integer

   rem loop until return key is pressed
   repeat

      rem read the buffer
      buffer$ = entry$()
      clear entry buffer

      rem process the buffer
      for n = 1 to len(buffer$)

         rem get next character
         char$ = right$( left$( buffer$, n ), 1 )
         
         rem only allow numbers
         if asc(char$) > 47 and asc(char$) < 58
            currentEntry$ = currentEntry$ + char$
         endif

         rem handle backspace
         if asc(char$) = 8
            currentEntry$ = left$( currentEntry$, len(currentEntry$)-1 )
         endif

      next n

      rem print the text to the screen
      set cursor x, y
      print currentEntry$

   until returnkey() and len( currentEntry$ ) > 0

endfunction currentEntry$

You have to specify where it should print the input on the screen with x and y like so:

myNumber = val( get_entry( 0, 50 ) )

That will print the input text at 0,50.

TheComet

PonyCraft dev blog(s):
http://blankflankstudios.tumblr.com/
http://blankflankstudios.blogspot.ch/

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 21st Jan 2013 09:52

Link

I didn't know about printc.

"You're not going crazy. You're going sane in a crazy world!" ~Tick

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / line streaks in text input