Sorry your browser is not supported!

backdrop off : cls : sync on : sync rate 0 : hide mouse

dim vt_textlist$(10)

f_textlist()
f_CreateTexture()

cls

make object plain 1,100,150
texture object 1, 1

sync

wait 10000
end


function f_CreateTexture()
  create bitmap 1,100,150
  CLS
  for n=0 to 9
    print vt_textlist$(n)
  next
  set current bitmap 0
endfunction

function f_textlist()
  vt_textlist$(0) = "Checklist"
  vt_textlist$(1) = "-----------------"
  vt_textlist$(2) = "checking power plant status..."
  vt_textlist$(3) = "powerplant status: 100%"
  vt_textlist$(4) = "checking drive status..."
  vt_textlist$(5) = "drive status: 100%"
  vt_textlist$(6) = "checking defensive screen status:"
  vt_textlist$(7) = "defensive screen status: charging 1%"
  vt_textlist$(8) = "checking weapon status..."
  vt_textlist$(9) = "weapon status: offline"
endfunction

` scrolling text on a plane - by LBFN 5 September, 2010
sync on : sync rate 60
backdrop on : color backdrop 0
autocam off : hide mouse
` make an image holding the text
ink rgb(255,255,0),0
set text size 30
wait 5
MyText$ = "This is some text."
tw = text width(MyText$)
text 40,10,MyText$
x2 = ((80  + tw) / 2) * 2
get image 1,0,0,x2,60
cls
make object plane 100,80,80
texture object 100,1
xrotate object 100,320.0
position camera 0.0,10.0,-50.0
point camera 0.0,0.0,0.0
repeat
  scroll object texture 100,0.0,.001
  sync
until mouseclick() > 0
end

sync on : sync rate 60
backdrop on : color backdrop 0
autocam off : hide mouse
dim vt_textlist$(10)
f_textlist()
f_CreateTexture()
` make an image holding the text
ink rgb(255,255,0),0
set text size 12
make object plane 100,80,80
texture object 100,1
xrotate object 100,320.0
position camera 0.0,10.0,-50.0
point camera 0.0,0.0,0.0
repeat
  scroll object texture 100,0.0,.001
  sync
until mouseclick() > 0
end

 function f_CreateTexture()
  create bitmap 1,300,250
  CLS
  for n=0 to 9
    text 10,n * 20,vt_textlist$(n)
  next
  get image 1,0,0,300,250
  delete bitmap 1
  set current bitmap 0
endfunction

function f_textlist()
  vt_textlist$(0) = "Checklist"
  vt_textlist$(1) = "-----------------"
  vt_textlist$(2) = "checking power plant status..."
  vt_textlist$(3) = "powerplant status: 100%"
  vt_textlist$(4) = "checking drive status..."
  vt_textlist$(5) = "drive status: 100%"
  vt_textlist$(6) = "checking defensive screen status:"
  vt_textlist$(7) = "defensive screen status: charging 1%"
  vt_textlist$(8) = "checking weapon status..."
  vt_textlist$(9) = "weapon status: offline"
endfunction