Sorry your browser is not supported!

`Input function
global w$
global pl$
global back
w$=""
pl$=""
back=0
make object cube 1,10
do
jinput(1,1,"Input words into my function: ")
yrotate object 1,object angle y(1)+0.1
loop


function jinput(xcoord,ycoord,message$)
set text opaque
set cursor xcoord,ycoord
if inkey$()<>pl$
   pl$=inkey$()
   w$=w$+pl$
   back=0
endif
if timer()/2.0=int(timer()/2)
   print message$+w$+" "
else
   print message$+w$+"|"
endif
if scancode()=14 and back=0
   neww$=""
   for i=1 to len(w$)-1
      neww$=neww$+mid$(w$,i)
   next i
   w$=neww$
   back=1
   print w$+" "
endif
endfunction

sync on : sync rate 70

make object sphere 1,1
position object 1,0,0,10

`it make automatic color for camera to green and I like green ^_^
make camera 1

do
control camera using arrowkeys 1,1,1
if object in screen(1)>0
text object screen x(1),object screen y(1),"Hello, it here : )"
endif
sync
loop

`Text to be displayed
a$="Any text would work here"
print a$
get image 1,0,0,text width(a$),text height(a$)
cls
make object sphere 1,10
make object plain 2,text width(a$)/2,text height(a$)/2
texture object 2,1
set object transparency 2,1
yrotate object 1,180
w=0
autocam off
do
move object 1,upkey()-downkey()
move object right 1,rightkey()-leftkey()
yrotate object 1,object angle y(1)+shiftkey()-controlkey()
position object 2,object position x(1),object position y(1)+8,object position z(1)
yrotate object 2,object angle y(1)
if spacekey()=1 and w=0
   w=1
   delete object 2
   ink 0,0
   box 0,0,screen width(),screen height()
   ink -1,0
   a$="The message can change"
   set cursor 1,1
   print a$
   get image 1,0,0,text width(a$),text height(a$)
   make object plain 2,text width(a$)/2,text height(a$)/2
   texture object 2,1
   set object transparency 2,1
endif
loop