Add A new bit that let you move around and in and out your object.
do loop part at the end.
Rem Project: skyboxandclearobject
Rem Created: 6/9/2005 6:48:39 PM
Rem ***** Main Source File *****
Rem Project: skybox2 with clear object
Rem Created: 5/7/2005 12:31:01 AM
Rem ***** Main Source File *****
rem Standard Setup Code
sync on : sync rate 0 :
backdrop on
color backdrop rgb(0,0,0) : hide mouse
set text font "arial" : set text size 16 : set text transparent
rem gram an image
for j=0 to 14
cls
rem black box
box 0,0,250,32,RGB(0,0,0),RGB(0,0,0),RGB(0,0,0),RGB(0,0,0)
rem yellow box
box 2,2,248,30,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0)
rem black box
box 4,4,246,28,RGB(0,0,0),RGB(0,0,0),RGB(0,0,0),RGB(0,0,0)
rem makes a green block if i and j are the same number
for i=0 to 14
if i=j then ink rgb(0,255,0),0 else ink RGB(0,0,0),0
box 6+(i*14)+(i*2),6,20+(i*16),26
next i
get image j+1,2,2,250,30
ink rgb(255,255,255),0
center text screen width()/2,300," Grab image "+str$(j)
center text screen width()/2,320,"get image "+str$(j)+",2,2,250,30"
sync
`wait 1000
lx=247
k=0
b=29
next j
sync
rem 1
paste image 1,0,k:paste image 2,lx,k
inc k,b
rem 2
paste image 3,0,k:paste image 4,lx,k
inc k,b
rem 3
paste image 5,0,k:paste image 6,lx,k
inc k,b
rem 4
paste image 7,0,k:paste image 8,lx,k
inc k,b
rem 5
paste image 9,0,k:paste image 10,lx,k
inc k,b
rem 6
paste image 11,0,k:paste image 12,lx,k
inc k,b
rem 7
paste image 13,0,k:paste image 14,lx,k
inc k,b
rem 8
paste image 15,0,k:paste image 14,lx,k
inc k,b
rem 9
paste image 13,0,k:paste image 12,lx,k
inc k,b
rem 10
paste image 11,0,k:paste image 10,lx,k
inc k,b
rem 11
paste image 9,0,k:paste image 8,lx,k
inc k,b
rem 12
paste image 7,0,k:paste image 6,lx,k
inc k,b
rem 13
paste image 5,0,k:paste image 4,lx,k
inc k,b
rem 14
paste image 3,0,k:paste image 2,lx,k
inc k,b
center text screen width()/2,410,"Grab all above and put it into image 1. and then save it"
get image 16,0,0,493,k
sync
`wait 2000
`DELETE file "loadingbar.bmp"
`save image "loadingbar.bmp",16
cls
`wait 10
rem ======================================
`center text 150,150,"this be ob 1"
`ink RGB(0,255,0),0
`center text 150,170,"this is the ball"
`get image 1,0,0,300,300
rem ======================================
rem setup
set camera range 0,0, 30000
load object "media\skybox2.x", 100 ` REPLACE WITH PATH TO YOUR BOX!!!
set object texture 100, 2, 1
set object light 100, 0
SET OBJECT AMBIENT 100,75
set image colorkey 0,0,0
scale object 100, 24000,24000,24000
position object 100, 0,0,0
position camera 0,0,0
rem add bit to sky box
rem make an object - change to some other type
`make object sphere 1,100
make object cube 1,100
`make object cone 1,100
rem add image from above grab
texture object 1,2
rem this make clear knock this line out to make object a mirror
set object transparency 1,1
rem make letters a mirror
`set reflection shading on 1
rem part of 5.8 update
read objectnumber,x,y,z
SET OBJECT SPECULAR 1,RGB(255,255,0)
pitch object up 1,90
` insert game loop here to control camera with arrow keys or mouse
`set object filter 1,1
fog on
fog color RGB(192,192,192)
`set object fog 1,1
fog distance 15000
in#=-300
do
center text screen width()/2,0,"Press < or > to fly around object Press up or down arrows to move in and out from object."
if timer()>oldtime
if mi<15
mi=mi+1
pitch object up 1,mi
oldtime=timer()+100
else
mi=0
endif
endif
rem play images
`play sprite 1,1,28,150
rem change image on object
texture object 1,mi
position object 1,0,15,0
`CONTROL CAMERA USING ARROWKEYS 0,0.1,0.1
rem bits add lets fly around your object
set camera to follow object position x(1),object position y(1),object position z(1),wrapvalue(360)+rt#,in#,0,1,1
rem key to make it fly in out and around
if scancode()=200
inc in#,.1
endif
if scancode()=208
dec in#,.1
endif
if scancode()=51
inc rt#,.1
endif
if scancode()=52
dec rt#,.1
endif
sync
loop
I'm not getting you down am I, Ho Look! another fancy Door?
