Confusion over RPG text boxes - GameCreators Forum

Author

Message

Kelz

19

Years of Service

User Offline

Joined: 7th Apr 2005

Location: At the computer

Posted: 18th Apr 2005 07:35

Link

I've seen it in many threads but im still

In an RPG you go up to someone press a button a text box comes up and people talk
I read something about having to paste image because you can't put text onto a sprite? is this right?
Could someone explain to me in words of one syllable how text boxes work in rpg's because i would really like to understand. also if someone could put any sample code for me to look at this would be an added bonus and greatly appreciated

Back to top

Profile PM

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 19th Apr 2005 13:40

Link

It's not too tough.

First, yes - you can put text into a sprite.

+ Code Snippet

sx1=120:sy1=30
Create BitMap 1,sx1,sy1
Set Current Bitmap 1
Center Text sx1/2,sy1/2,"This is a test"
Get Image 1,0,0,sx1-1,sy1-1,1
Set Current Bitmap 0
Sprite 1,10,10,1
Wait key

And basically, the rest is just an expansion of that concept.

Use Mouse Click() and Pick Object() to determine if a character has been 'clicked on.'

Use Object Screen X/Y() to get base to determine where to position the sprite so it appears next to / above the character.

And that's about all there is too it.

Some advanced concepts:
~Determine the size of the BitMap and Image by using Text Width() and Text Height()
~Make a larger bitmap than you need and determine the image size instead.
~Load images from .bmp files you've created with the desired text for better graphics.

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

Kelz

19

Years of Service

User Offline

Joined: 7th Apr 2005

Location: At the computer

Posted: 20th Apr 2005 02:32 Edited at: 22nd Apr 2005 01:21

Link

Thank you thats really helped me understand it!
It's not that complicated when someone explains it clearly

Another question, when writing functions with variables outside it could you copy the variables into a new file save it and then put it within the function?
e.g
function functionname()

#include "variables.DBA"
----function stuff----
endfunction

would this be better than writing them out again?

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 22nd Apr 2005 11:49

Link

get image is slow though.
Here's something I wrote awhile ago. Reads a text file, then outputs the text into a scrollable window with text wrapping. It wouldn't take much to adapt it to what you want.

set display mode 1024,768,16

rem text file to display
filename$ = "c:\vraylog.txt"
rem wrap text to this many characters (0 for no text wrapping)
maxCharWidth = 57
rem array list to hold text from file
dim words$(0) as string

rem check to see if file specified is a text file
if lower$(right$(filename$, 4)) = ".txt"
  rem check if file exists
  if file exist(filename$)
      rem open file for reading
      open to read 1, filename$
      rem add text from file to array list
      while file end(1) = 0
        read string 1, temp$
        if maxCharWidth > 0
            wrapText(temp$, maxCharWidth)
        else
            array insert at bottom words$(0)
            words$(array count(words$(0))) = temp$
        endif
      endwhile
  endif
endif
rem close the file
close file 1

lin as integer
count as integer
tx as integer
ty as integer
lin = 1
count = 20
tx = 100
ty = 100

boxLength = text width(space$(maxCharWidth))
if maxCharWidth = 0 then boxLength = screen width()
boxHeight = text height(space$(1))*(count+1)

repeat
  cls
  if upkey() = 1
      if lin > 1 then dec lin, 1
  endif
  if downkey() = 1
      if lin < array count(words$(0))-count then inc lin, 1
  endif
  rem box to show text boundaries
  ink rgb(100,100,100),0
  box tx, ty, tx+boxLength, ty+boxHeight
  rem display the text
  showText(tx,ty,lin,count, rgb(255,128,255))
until spacekey()

rem wraps text and adds lines appropriately to array list
function wrapText(t$ as string, max as integer)
  r$ = left$(t$,max)
  array insert at bottom words$(0)
  i = array count(words$(0))
  words$(i) = r$
  nl = len(t$) - max
  if nl > 0
      t$ = right$(t$,nl)
      wrapText(t$, max)
  endif
endfunction

rem displays text starting at coordinates X,Y and starts with line "lin"
rem showing "count" number of rows (or until end of text is reached)
function showText(x as integer, y as integer, lin as integer, count as integer, color as dword)
  if lin > 0
      th = text height(words$(1))
      L = 0
      ink color, 0
      for t = lin to lin+count
        if t <= array count(words$(0))
            text x, y + L*th, words$(t)
            inc L
        endif
      next t
  endif
endfunction

+ Code Snippet

set display mode 1024,768,16

rem text file to display
filename$ = "c:\vraylog.txt"
rem wrap text to this many characters (0 for no text wrapping)
maxCharWidth = 57
rem array list to hold text from file
dim words$(0) as string

rem check to see if file specified is a text file
if lower$(right$(filename$, 4)) = ".txt"
  rem check if file exists
  if file exist(filename$)
      rem open file for reading
      open to read 1, filename$
      rem add text from file to array list
      while file end(1) = 0
        read string 1, temp$
        if maxCharWidth > 0
            wrapText(temp$, maxCharWidth)
        else
            array insert at bottom words$(0)
            words$(array count(words$(0))) = temp$
        endif
      endwhile
  endif
endif
rem close the file
close file 1

lin as integer
count as integer
tx as integer
ty as integer
lin = 1
count = 20
tx = 100
ty = 100

boxLength = text width(space$(maxCharWidth))
if maxCharWidth = 0 then boxLength = screen width()
boxHeight = text height(space$(1))*(count+1)

repeat
  cls
  if upkey() = 1
      if lin > 1 then dec lin, 1
  endif
  if downkey() = 1
      if lin < array count(words$(0))-count then inc lin, 1
  endif
  rem box to show text boundaries
  ink rgb(100,100,100),0
  box tx, ty, tx+boxLength, ty+boxHeight
  rem display the text
  showText(tx,ty,lin,count, rgb(255,128,255))
until spacekey()







rem wraps text and adds lines appropriately to array list
function wrapText(t$ as string, max as integer)
  r$ = left$(t$,max)
  array insert at bottom words$(0)
  i = array count(words$(0))
  words$(i) = r$
  nl = len(t$) - max
  if nl > 0
      t$ = right$(t$,nl)
      wrapText(t$, max)
  endif
endfunction



rem displays text starting at coordinates X,Y and starts with line "lin"
rem showing "count" number of rows (or until end of text is reached)
function showText(x as integer, y as integer, lin as integer, count as integer, color as dword)
  if lin > 0
      th = text height(words$(1))
      L = 0
      ink color, 0
      for t = lin to lin+count
        if t <= array count(words$(0))
            text x, y + L*th, words$(t)
            inc L
        endif
      next t
  endif
endfunction

PETA - People for the Eating of Tasty Animals

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Confusion over RPG text boxes