Sorry your browser is not supported!

hide mouse
sync on
sync rate 85

bc=1000

dim x#(bc)
dim t$(bc)


load bitmap "knight6.bmp",1
ox=32 : oy=25 :os=2 : s=6

x=0 : y=0 : bw#=ox*os

for i=1 to 60

   get image i,x,y,x+ox,y+oy
   inc x,ox

  if x>=319

       x=0
       inc y,oy
       endif

     sync

next i

i=1

create bitmap 2,640,480

if os>1

   for z=61 to 120

    create bitmap 1,ox*os,oy*os
       paste image i,0,0
       set current bitmap 2
       copy bitmap 1,0,0,ox,oy,2,0,0,ox*os+os,oy*os
       get image z,0,0,ox*os+os,oy*os
       inc i

   next z

endif

set current bitmap 0
delete bitmap 2

bc=640/bw#+1

   for a=1 to bc

       st$=st$+" "

   next a

read s$
st$=st$+s$
lot=len(st$)+1

   if lot<12 then st$=st$+" "

   for a=1 to bc

    x#(a)=bw#*a
        `t$(a)=mid$(st$,a)
        ast=asc(t$(a))
        sprite a,x#(a),0,29+ast
        set sprite a,0,1

   next a

`y=(480-oy*os)/2 : t=bc

do

cls 0
  for a=1 to bc

  x#=x#(a)
  `inc x#,s

  `if x#=<-0-bw#
  `x#(a)=640
  inc t

  if t=lot
    t=1
    read st$
    if st$="*"
    restore
    read st$
   endif
    `lot=len(st$)+1
  endif
  x#(a)=0
     t$(a)=mid$(st$,t)
  `else
   `x#(a)=x#
  `endif

  ast=asc(t$(a))
  sprite a,xpos,ypos,29+ast
  inc xpos,1

     if xpos>640
          xpos=0
          inc ypos,bw#
           endif

  next a

sync
wait 100
loop

data "WELCOME TO THE NEW DEMO, "
data "BROUGHT TO YOU BY       "
data "*"

hide mouse
sync on
sync rate 85

set text font "arial"
set text size 18

max=1000
dim word$(max)
xx=640

data "Welcome to the new "
data "demo, brought to you "
data "by the one and only "
data "COBRA !!!!  "
data "Respects go out to all in the Darkbasic community, "
data "Thank you all so much for your help and advice !! "
data "Now I am trying to delve a little deeper into this  "
data "complex world of programming, maybe you guys could tell "
data "me, how the hell you can do this text, but use bitmap "
data "fonts to make it look real pretty !!! Thanks !!!!!!!"

for i=1 to 10
   read s$
      for j=1 to len(s$)
         c$=mid$(s$,j)
         word$=word$+c$
      next j
next i

sw=screen width()

do

height=text height(a$)
width=text width(a$)

text xpos+10,ypos+10,a$
a$=mid$(word$,ptr)

 if xpos>sw-40
   xpos=xpos-xpos-width
   ypos=ypos+height
 endif

inc ptr
inc xpos,width

sync

line 0,0,0,470
line 0,0,630,0
line 630,0,630,470
line 630,470,0,470

box 295,150,345,300
circle 320,340,25
wait 50
loop

wait key
end

`by the way, if you could tell me how I can stop the text
`from breaking up when it reaches the edge of the screen
`I would be grateful, I guess its an if endif, but have
`tried unsuccessfully.

hide mouse
sync on
sync rate 85

max=1000
dim x#(max)
dim t$(max)
global ptr

sw=screen width()
tw=text width(str$(bw#))

load bitmap "knight6.bmp",1
ox=32 : oy=25 :os=2 : s=6

x=0 : y=0 : bw#=ox*os

   for i=1 to 60

      get image i,x,y,x+ox,y+oy
      inc x,ox

     if x>=319
          x=0
          inc y,oy
          endif
        sync

   next i

i=1

create bitmap 2,640,480

if os>1

   for z=61 to 120

    create bitmap 1,ox*os,oy*os
       paste image i,0,0
       set current bitmap 2
       copy bitmap 1,0,0,ox,oy,2,0,0,ox*os+os,oy*os
       get image z,0,0,ox*os+os,oy*os
       inc i

   next z

endif

set current bitmap 0
delete bitmap 2

`if I change a=1 to 1 then it prints out 1st line of data
`sequence, why?

  for a=1 to 2

      read s$
      s$=s$+t$(a)
      gosub _store

   next a


for a=1 to max

    t$(a)=mid$(s$,a)
    ast=asc(t$(a))
    lx=ast+29

       sprite a,xpos,ypos,lx
        set sprite a,0,1
               wait 50

        inc xpos,bw#

`Have tried to play around with screen width commands and text
`width commands to display text on screen properly, but
`I dont know how to move a word if its too long for the screen
`width, which results in broken words! Any ideas ???????

      if xpos=>sw
             xpos=0-bw#
             ypos=ypos+bw#
          endif
   sync

next a


wait key
end

data "WELCOME TO THE NEW DEMO, "
data "BROUGHT TO YOU BY       "

_store:

inc ptr
t$(ptr)=t$(a)
return

set display mode 800,600,32
hide mouse
sync on
sync rate 85

max=1000
dim x#(max)
dim t$(max)
global ptr

sw=screen width()
sh=screen height()
tw=text width(str$(bw#))

load bitmap "knight6.bmp",1
ox=32 : oy=25 :os=2 : s=6

x=0 : y=0 : bw#=ox*os

   for i=1 to 60

      get image i,x,y,x+ox,y+oy
      inc x,ox

     if x>=319
          x=0
          inc y,oy
          endif
        sync

   next i

i=1

create bitmap 2,640,480

if os>1

   for z=61 to 120

    create bitmap 1,ox*os,oy*os
       paste image i,0,0
       set current bitmap 2
       copy bitmap 1,0,0,ox,oy,2,0,0,ox*os+os,oy*os
       get image z,0,0,ox*os+os,oy*os
       inc i

   next z

endif

set current bitmap 0
delete bitmap 2


do
   for a=1 to max
     read s$
       for j=1 to len(s$)
         c$=mid$(s$,j)
         word$=word$+c$
       next j
   next a

   for a=1 to max
     t$(a)=mid$(word$,index)
     ast=asc(t$(a))
     lx=ast+29
     paste image lx,xpos-bw#,ypos
     wait 50


   `Have tried to play around with screen width commands and text
   `width commands to display text on screen properly, but
   `I dont know how to move a word if its too long for the screen
   `width, which results in broken words! Any ideas ???????

         if xpos=>sw-bw#
             xpos=xpos-xpos
              ypos=ypos+bw#
         endif

`if text reaches bottom of screen I'd like it to continue
`like the print command, by pushing the text up.

         `if ypos=>sh
            `xpos=0-bw#
            ` ypos=ypos+bw#
              `inc ypos
        ` endif

            inc index
         inc xpos,bw#
      sync

   next a
loop

wait key
end

data "WELCOME TO THE NEW DEMO, "
data "BROUGHT TO YOU BY "
data "THE ONE AND ONLY COBRA !!! "
data "MASSIVE RESPECT GOES OUT TO ALL "

_store:

inc ptr
t$(ptr)=word$
return

hide mouse
sync on
sync rate 85

max=100
dim t$(max)
width=text width(" ")

   for i=1 to max
    read s$
    word$=""
      for j=1 to len(s$)
        c$=mid$(s$,j)
         word$=word$+c$
         gosub _store
         word$=""
      next j
   next i

box 0,0,10,10
get image 1,0,0,10,10
cls

xx=10

   for i=0 to len(t$(i))*i

      cls rgb(0,0,0)

      paste image 1,xx,3
      `sprite 1,xx,3,1

        text xpos,ypos,t$(i)
        text xpos,20,str$(len(t$(i))*i)
        sync

         inc xx,width
        inc xpos,width

        wait 500

   next i

wait key
end

data "Welcome "
data "to the new "
data "demo "

_store:

inc ptr
t$(ptr)=word$
return

` Define Tex$... this has a space at the end so it detects the last word.
Tex$="This is a test of a text box with wordwrap. "

` Define Text Box Area and show the Area
x1=100:y1=100  :` Upper Left Corner of Text Box
x2=200:y2=200  :` Lower Right Corner of Text Box
ink rgb(100,100,100),0
box x1,y1,x2,y2
ink 0,0
box x1+1,y1+1,x2-1,y2-1
ink rgb(255,255,255),0

x=x1+1:y=y1+1
` Do this until Tex$=""  (after all words have been removed)
while Tex$<>""
 CWord$=""
 ` Take out one word at a time from Tex$
 for t=1 to len(Tex$)
  a$=mid$(Tex$,t)
  CWord$=CWord$+a$
  ` When it sees a space that's the end of the word
  if a$=" "
   ` Redefine Tex$ as Tex$ minus the word just taken out
   Tex$=right$(Tex$,len(Tex$)-t)
   exit
  endif
 next t

 ` Get the size of the word
 WordSize=text width(CWord$)
 
 ` Check if the Current position + WordSize is more than the area
 `  If it is make X = x1+1 (the start of the text box)
 `  and increase y (so it's on the next line)
 if x+WordSize>x2
  x=x1+1
  inc y,text height(CWord$)
 endif
 
 ` Show the current word and increase x by WordSize
 text x,y,CWord$
 inc x,WordSize 
 wait key

endwhile

wait key