RemStart
****************************************************************************************
¤PROGRAM¤    | A DIALOG BUBBLE SNIPPET  (Perfect for RPGs or MMORPGs.)
¤DESCRIPTION¤ | Allows you to place a dialog bubble anywhere on the screen
              | with up to six lines of any text that you want ( like for
              | example the SCREEN X and Y coordinates of your charcter models)
              | The bubble will be scaled according to the size of the text.
              |
              | NOTE: This example requires that "speech.bmp" be in the same folder
              |
¤AUTHOR¤      | David Yakobi aka Yarbles
¤DATE¤        | September 25,2002
¤CONTACT¤    | Email: dyakobi@hotmail.com
              |
¤CREDITS ¤    | David Smith aka indi for
              | DIALOG BUBBLE GRAPHIC
              |
****************************************************************************************
RemEnd


sync on


rem Create dialog bubble
make object plain 11,128,128
load image "speech.bmp",11
texture object 11,11
set object 11,1,1,0,0,0,0,0
set object collision off 11
lock object on 11


set text font "Arial"
ink 0,0

line1$="Hear the Rime of the Ancient Mariner:"
line2$=" "
line3$="Day after day, day after day, We stuck, nor breath nor motion;"
line4$="As idle as a painted ship upon a painted ocean."
line5$="Water, water, every where, and all the boards did shrink;"
line6$="Water, water, every where, Nor any drop to drink. "


do
  dialog_bubble(mousex(),mousey()-30,1,line1$,line2$,line3$,line4$,line5$,line6$,4)

  sync
loop




function dialog_bubble(screenX,screenY,refresh,line1$,line2$,line3$,line4$,line5$,line6$,textStyle)
  rem Dialog Bubble by David Yakobi aka Yarbles
  rem You will be required to preload a plane with the bubble image
  rem In this example I use object id 11 for that plane

  rem only refresh scale and font for dialog size when requested
  rem this save precious processor cycles when turned off
  if refresh=1
      rem find the max line width to calcualte dialog width
      maxWidth = text width(line1$)

      currentWidth = text width(line2$)
      if currentWidth>maxWidth then maxWidth=currentWidth

      currentWidth = text width(line3$)
      if currentWidth>maxWidth then maxWidth=currentWidth

      currentWidth = text width(line4$)
      if currentWidth>maxWidth then maxWidth=currentWidth

      currentWidth = text width(line5$)
      if currentWidth>maxWidth then maxWidth=currentWidth

      currentWidth = text width(line6$)
      if currentWidth>maxWidth then maxWidth=currentWidth

      rem calculate
      height=0
      if line1$"" then height=height+30
      if line2$"" then height=height+30
      if line3$"" then height=height+30
      if line4$"" then height=height+30
      if line5$"" then height=height+30
      if line6$"" then height=height+30

      rem set the text size
      set text size 16

      rem set the text style
      if textStyle=4
        set text to bolditalic
      else
        if textSyle=3
            set text to bold
        else
            if textSyle=2
              set text to italic
            else
              set text to normal
            endif
        endif
      endif

      rem scale bubble to the size of the text block
      scale object 11,maxWidth,height,1

  endif

  dialogX=screenX-(screen width()/2)
  dialogY=(screen height()/2)-screenY

  rem position the dialog bubble
  position object 11,dialogX,dialogY,0.625*screen width()

  textX=screenX
  textY=screenY

  offset=(height+10)/-2

  rem Display the text in the bubble
  if line1$""
      center text textX,textY+offset,line1$
      offset=offset+15
  endif

  if line2$""
      center text textX,textY+offset,line2$
      offset=offset+15
  endif

  if line3$""
      center text textX,textY+offset,line3$
      offset=offset+15
  endif

  if line4$""
      center text textX,textY+offset,line4$
      offset=offset+15
  endif

  if line5$""
      center text textX,textY+offset,line5$
      offset=offset+15
  endif

  if line6$""
      center text textX,textY+offset,line6$
      offset=offset+15
  endif

endfunction