1. A few simple questions...
- Posted by Scott Husen <husen at epix.net> Feb 01, 2001
- 412 views
I have a few simple questions that are just questions about a few Euphoria commands. I included a few examples if you dont understand what I mean from the text: 1. Does anybody know a command that makes it so at ANY time during the ENTIRE program (such as a game) you can assign a few different keys to hotkeys for the user that will always do a certain command and ALWAYS work until you tell them not to or reasign them(not just after that one if statement or while loop)? 2. Do you know of anyway to do a wrap function that wraps the text for long sentences but not at whatever letter the side of the screen ends at but then goes back to the last Word and wraps it? Example: Instead of: - Hello Scott h- (Screen End -ow are you? - at Dashes) - - It would be: - Hello Scott - -how are you? - - - 3.( And last) Do you know anyway to get out of the computer puting that annoying \n after every prinf? Example: object name puts(1, "What is your name?\n" name = gets(0) printf(1, "Hello %s! How are you???", {name}) On my computer that apears when you run the program as: What is your name? Hello (name) ! How are you? I want it to be: What is your name? Hello (name)! How are you??? I hope you are able to answer a majority of my questions. Thanks, Scott Husen P.S. If you don't feel like or can't answer all of my questions please answer #1. Im dieing for the answer to that one!
2. Re: A few simple questions...
- Posted by Michael Nelson <MichaelANelson at WORLDNET.ATT.NET> Feb 01, 2001
- 418 views
Scott Husen wrote: <snip> Do you know of anyway to do a wrap function that wraps the text for > long sentences but not at whatever letter the side of the screen ends at > but then goes back to the last Word and wraps it? > </snip> The following code will do it on DOS or Linux, printing a given text string with word wrapping: include graphics.e global procedure wrap_text(sequence theText) -- For DOS and Linux -- Wraps text at end of last word in line. -- Honors newlines in the text, replaces tabs with 5 spaces. -- Assumes that theText is a valid string sequence vidconf,pos integer cols,col,index vidconf=video_config() cols=vidconf[VC_COLUMNS] pos=get_position() col=pos[2]-1 theText=repeat(' ',col)&theText while 1 do index=find('\t',theText) if index=0 then exit end if theText=theText[1..index-1]&repeat(' ',5) &theText[index+1..length(theText)] end while while length(theText)>cols do index=find('\n',theText) if index>0 and index<=cols then puts(1,theText[col+1..index]) theText=theText[index+1..length(theText)] col=0 else for i=cols to 1 by -1 do if theText[i]=' ' then theText[i]='\n' exit end if if i=1 then end if end for end if end while if length(theText)>0 then puts(1,theText) end if end procedure