Posted: 28th Dec 2002 23:39
Rem Project: earther
Rem Created: 12/26/02 4:59:39 AM
Rem Created BY: Greg Boyarzin/ICERGB
Rem
sync on
Rem ***** Main Source File *****
color backdrop rgb(0,0,0)
load object "burst1.x",1
load object "burst4.x",2
scale object 2,99,99,99
hide object 2
load object "burst6.x",3
scale object 3,96,96,96
hide object 3
load object "burst8.x",4
scale object 4,90,90,90
hide object 4
load object "burst10.x",5
scale object 5,83,83,83
hide object 5
load object "burst12.x",6
scale object 6,74,74,74
hide object 6
load object "burst14.x",7
scale object 7,64,64,64
hide object 7
load object "burst16.x",8
scale object 8,55,55,55
hide object 8
load object "burst17.x",9
ghost object on 9
scale object 9,50,50,50
hide object 9
load object "blit17.x",10
scale object 10,50,50,50
load object "blit17.x",12
scale object 12,50,50,50
make object sphere 11,1
color object 11,rgb(255,0,0)
autocam off
zbarf=45
for i=1 to 10
turn object left i,zbarf
next i
turn object left 12,zbarf
b=zbarf
pitch object down 12,180
move camera -20
cx=camera position x()
cy=camera position y()
cz=camera position z()
position object 11,cx,cy,cz
rem the HIDE OBJECT problem
REM OBJECT 11 AND 12 ARE HIDDEN THEY SHOULD NOT SHOW UP UNTIL
REM AFTER THE REPEAT
hide object 11
hide object 12
set cursor 0,0
print "Press a key"
set cursor 0,20
print "notice that the white square moves on the right, it should be hidden."
remstart
rem The following should not be necessary because
rem it was dealt with using the position object 11,cx,cy,cz
rem above
ox=object position x(11)
oy=object position y(11)
oz=object position z(11)
position camera 0,ox,oy,oz
remend
sync
wait key
for a=1 to 9
rem inc a
b=b+5
show object a
turn object left a,b
if a=9
set cursor 1,1
print "before finished, the white square on right should not be there"
sync
wait key
endif
gosub domove
if a<>9 then hide object a
d=d+b
next a
turn object left 10,d
turn object left 12,d
show object 12
show object 11
wait key
end
domove:
move object 11,1
ox=object position x(11)
oy=object position y(11)
oz=object position z(11)
position camera 0,ox,oy,oz
sync
t=timer()
repeat
until timer()=t+500
return