Sorry your browser is not supported!

FUNCTION Make_Demo_Scene(StartObject)
 
Make Object Box StartObject + 0, 9.000 , 64.000 , 382.000
Position Object StartObject + 0, -136.000 , 32.000 , 0.000
 
Make Object Box StartObject + 1, 9.000 , 64.000 , 382.000
Position Object StartObject + 1, 128.000 , 32.000 , 0.000
 
Make Object cone StartObject + 2, 39.000
Scale Object StartObject + 2, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 2, -116.000 , 22.000 , 170.000
 
Make Object Box StartObject + 3, 287.000 , 31.000 , 8.000
Position Object StartObject + 3, -6.000 , 20.000 , -192.000
 
Make Object Box StartObject + 4, 287.000 , 31.000 , 8.000
Position Object StartObject + 4, -6.000 , 20.000 , 186.000
 
Make Object cone StartObject + 5, 39.000
Scale Object StartObject + 5, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 5, -88.000 , 22.000 , 170.000
 
Make Object cone StartObject + 6, 39.000
Scale Object StartObject + 6, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 6, -56.000 , 22.000 , 170.000
 
Make Object cone StartObject + 7, 39.000
Scale Object StartObject + 7, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 7, -28.000 , 22.000 , 170.000
 
Make Object cone StartObject + 8, 39.000
Scale Object StartObject + 8, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 8, -4.000 , 22.000 , 170.000
 
Make Object cone StartObject + 9, 39.000
Scale Object StartObject + 9, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 9, 22.000 , 22.000 , 170.000
 
Make Object cone StartObject + 10, 39.000
Scale Object StartObject + 10, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 10, 48.000 , 22.000 , 170.000
 
Make Object cone StartObject + 11, 39.000
Scale Object StartObject + 11, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 11, 78.000 , 22.000 , 170.000
 
Make Object cone StartObject + 12, 39.000
Scale Object StartObject + 12, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 12, 108.000 , 22.000 , 170.000
 
Make Object cone StartObject + 13, 39.000
Scale Object StartObject + 13, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 13, 108.000 , 22.000 , 150.000
 
Make Object cone StartObject + 14, 39.000
Scale Object StartObject + 14, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 14, 108.000 , 22.000 , 128.000
 
Make Object cone StartObject + 15, 39.000
Scale Object StartObject + 15, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 15, 108.000 , 22.000 , 110.000
 
Make Object cone StartObject + 16, 39.000
Scale Object StartObject + 16, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 16, 108.000 , 22.000 , 88.000
 
Make Object cone StartObject + 17, 39.000
Scale Object StartObject + 17, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 17, 108.000 , 22.000 , 60.000
 
Make Object cone StartObject + 18, 39.000
Scale Object StartObject + 18, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 18, 108.000 , 22.000 , 30.000
 
Make Object cone StartObject + 19, 39.000
Scale Object StartObject + 19, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 19, 108.000 , 22.000 , 0.000
 
Make Object cone StartObject + 20, 39.000
Scale Object StartObject + 20, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 20, 108.000 , 22.000 , -30.000
 
Make Object cone StartObject + 21, 39.000
Scale Object StartObject + 21, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 21, 108.000 , 22.000 , -62.000
 
Make Object cone StartObject + 22, 39.000
Scale Object StartObject + 22, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 22, 108.000 , 22.000 , -96.000
 
Make Object cone StartObject + 23, 39.000
Scale Object StartObject + 23, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 23, 108.000 , 22.000 , -126.000
 
Make Object cone StartObject + 24, 39.000
Scale Object StartObject + 24, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 24, 108.000 , 22.000 , -156.000
 
Make Object cone StartObject + 25, 39.000
Scale Object StartObject + 25, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 25, 82.000 , 22.000 , -156.000
 
Make Object cone StartObject + 26, 39.000
Scale Object StartObject + 26, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 26, 52.000 , 22.000 , -156.000
 
Make Object cone StartObject + 27, 39.000
Scale Object StartObject + 27, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 27, 20.000 , 22.000 , -156.000
 
Make Object cone StartObject + 28, 39.000
Scale Object StartObject + 28, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 28, -12.000 , 22.000 , -156.000
 
Make Object cone StartObject + 29, 39.000
Scale Object StartObject + 29, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 29, -48.000 , 22.000 , -156.000
 
Make Object cone StartObject + 30, 39.000
Scale Object StartObject + 30, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 30, -80.000 , 22.000 , -156.000
 
Make Object cone StartObject + 31, 39.000
Scale Object StartObject + 31, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 31, -110.000 , 22.000 , -156.000
 
Make Object cone StartObject + 32, 39.000
Scale Object StartObject + 32, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 32, -110.000 , 22.000 , -126.000
 
Make Object cone StartObject + 33, 39.000
Scale Object StartObject + 33, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 33, -116.000 , 22.000 , -108.000
 
Make Object cone StartObject + 34, 39.000
Scale Object StartObject + 34, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 34, -116.000 , 22.000 , -78.000
 
Make Object cone StartObject + 35, 39.000
Scale Object StartObject + 35, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 35, -116.000 , 22.000 , -52.000
 
Make Object cone StartObject + 36, 39.000
Scale Object StartObject + 36, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 36, -116.000 , 22.000 , -18.000
 
Make Object cone StartObject + 37, 39.000
Scale Object StartObject + 37, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 37, -116.000 , 22.000 , 12.000
 
Make Object cone StartObject + 38, 39.000
Scale Object StartObject + 38, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 38, -116.000 , 22.000 , 42.000
 
Make Object cone StartObject + 39, 39.000
Scale Object StartObject + 39, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 39, -116.000 , 22.000 , 76.000
 
Make Object cone StartObject + 40, 39.000
Scale Object StartObject + 40, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 40, -116.000 , 22.000 , 106.000
 
Make Object cone StartObject + 41, 39.000
Scale Object StartObject + 41, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 41, -116.000 , 22.000 , 134.000
 
Make Object cone StartObject + 42, 39.000
Scale Object StartObject + 42, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 42, -116.000 , 22.000 , 154.000
 
Make Object Box StartObject + 43, 284.000 , 8.000 , 320.000
Position Object StartObject + 43, -4.000 , 64.000 , -10.000
 
Make Object Box StartObject + 44, 77.000 , 58.000 , 4.000
Position Object StartObject + 44, -94.000 , 36.000 , -94.000
 
Make Object Box StartObject + 45, 78.000 , 58.000 , 4.000
Position Object StartObject + 45, -18.000 , 36.000 , -94.000
 
Make Object Box StartObject + 46, 35.000 , 58.000 , 4.000
Position Object StartObject + 46, 34.000 , 36.000 , -94.000
 
Make Object Box StartObject + 47, 7.000 , 58.000 , 62.000
Position Object StartObject + 47, 54.000 , 36.000 , -64.000
 
Make Object Box StartObject + 48, 7.000 , 58.000 , 62.000
Position Object StartObject + 48, 54.000 , 36.000 , -2.000
 
Make Object Box StartObject + 49, 7.000 , 58.000 , 62.000
Position Object StartObject + 49, 54.000 , 36.000 , 58.000
 
Make Object Box StartObject + 50, 56.000 , 58.000 , 8.000
Position Object StartObject + 50, 24.000 , 36.000 , 82.000
 
Make Object Box StartObject + 51, 56.000 , 58.000 , 8.000
Position Object StartObject + 51, -30.000 , 36.000 , 82.000
 
Make Object Box StartObject + 52, 342.000 , 2.000 , 401.000
Position Object StartObject + 52, -4.000 , 6.000 , 0.000
 
 
remstart
=================================
 
USER NOTES:
 
NO NOTES
 
=================================
remend 
 
`End Of Function
ENDFUNCTION

sync on
sync rate 60


Make_Demo_Scene(1)

do
rotate camera camera angle x()+mousemovey()/8,camera angle y()+mousemovex()/8,0
move camera 3*(upkey()-downkey())
sync
loop







FUNCTION Make_Demo_Scene(StartObject)

Make Object Box StartObject + 0, 9.000 , 64.000 , 382.000
Position Object StartObject + 0, -136.000 , 32.000 , 0.000

Make Object Box StartObject + 1, 9.000 , 64.000 , 382.000
Position Object StartObject + 1, 128.000 , 32.000 , 0.000

Make Object cone StartObject + 2, 39.000
Scale Object StartObject + 2, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 2, -116.000 , 22.000 , 170.000

Make Object Box StartObject + 3, 287.000 , 31.000 , 8.000
Position Object StartObject + 3, -6.000 , 20.000 , -192.000

Make Object Box StartObject + 4, 287.000 , 31.000 , 8.000
Position Object StartObject + 4, -6.000 , 20.000 , 186.000

Make Object cone StartObject + 5, 39.000
Scale Object StartObject + 5, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 5, -88.000 , 22.000 , 170.000

Make Object cone StartObject + 6, 39.000
Scale Object StartObject + 6, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 6, -56.000 , 22.000 , 170.000

Make Object cone StartObject + 7, 39.000
Scale Object StartObject + 7, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 7, -28.000 , 22.000 , 170.000

Make Object cone StartObject + 8, 39.000
Scale Object StartObject + 8, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 8, -4.000 , 22.000 , 170.000

Make Object cone StartObject + 9, 39.000
Scale Object StartObject + 9, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 9, 22.000 , 22.000 , 170.000

Make Object cone StartObject + 10, 39.000
Scale Object StartObject + 10, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 10, 48.000 , 22.000 , 170.000

Make Object cone StartObject + 11, 39.000
Scale Object StartObject + 11, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 11, 78.000 , 22.000 , 170.000

Make Object cone StartObject + 12, 39.000
Scale Object StartObject + 12, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 12, 108.000 , 22.000 , 170.000

Make Object cone StartObject + 13, 39.000
Scale Object StartObject + 13, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 13, 108.000 , 22.000 , 150.000

Make Object cone StartObject + 14, 39.000
Scale Object StartObject + 14, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 14, 108.000 , 22.000 , 128.000

Make Object cone StartObject + 15, 39.000
Scale Object StartObject + 15, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 15, 108.000 , 22.000 , 110.000

Make Object cone StartObject + 16, 39.000
Scale Object StartObject + 16, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 16, 108.000 , 22.000 , 88.000

Make Object cone StartObject + 17, 39.000
Scale Object StartObject + 17, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 17, 108.000 , 22.000 , 60.000

Make Object cone StartObject + 18, 39.000
Scale Object StartObject + 18, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 18, 108.000 , 22.000 , 30.000

Make Object cone StartObject + 19, 39.000
Scale Object StartObject + 19, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 19, 108.000 , 22.000 , 0.000

Make Object cone StartObject + 20, 39.000
Scale Object StartObject + 20, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 20, 108.000 , 22.000 , -30.000

Make Object cone StartObject + 21, 39.000
Scale Object StartObject + 21, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 21, 108.000 , 22.000 , -62.000

Make Object cone StartObject + 22, 39.000
Scale Object StartObject + 22, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 22, 108.000 , 22.000 , -96.000

Make Object cone StartObject + 23, 39.000
Scale Object StartObject + 23, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 23, 108.000 , 22.000 , -126.000

Make Object cone StartObject + 24, 39.000
Scale Object StartObject + 24, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 24, 108.000 , 22.000 , -156.000

Make Object cone StartObject + 25, 39.000
Scale Object StartObject + 25, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 25, 82.000 , 22.000 , -156.000

Make Object cone StartObject + 26, 39.000
Scale Object StartObject + 26, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 26, 52.000 , 22.000 , -156.000

Make Object cone StartObject + 27, 39.000
Scale Object StartObject + 27, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 27, 20.000 , 22.000 , -156.000

Make Object cone StartObject + 28, 39.000
Scale Object StartObject + 28, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 28, -12.000 , 22.000 , -156.000

Make Object cone StartObject + 29, 39.000
Scale Object StartObject + 29, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 29, -48.000 , 22.000 , -156.000

Make Object cone StartObject + 30, 39.000
Scale Object StartObject + 30, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 30, -80.000 , 22.000 , -156.000

Make Object cone StartObject + 31, 39.000
Scale Object StartObject + 31, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 31, -110.000 , 22.000 , -156.000

Make Object cone StartObject + 32, 39.000
Scale Object StartObject + 32, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 32, -110.000 , 22.000 , -126.000

Make Object cone StartObject + 33, 39.000
Scale Object StartObject + 33, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 33, -116.000 , 22.000 , -108.000

Make Object cone StartObject + 34, 39.000
Scale Object StartObject + 34, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 34, -116.000 , 22.000 , -78.000

Make Object cone StartObject + 35, 39.000
Scale Object StartObject + 35, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 35, -116.000 , 22.000 , -52.000

Make Object cone StartObject + 36, 39.000
Scale Object StartObject + 36, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 36, -116.000 , 22.000 , -18.000

Make Object cone StartObject + 37, 39.000
Scale Object StartObject + 37, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 37, -116.000 , 22.000 , 12.000

Make Object cone StartObject + 38, 39.000
Scale Object StartObject + 38, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 38, -116.000 , 22.000 , 42.000

Make Object cone StartObject + 39, 39.000
Scale Object StartObject + 39, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 39, -116.000 , 22.000 , 76.000

Make Object cone StartObject + 40, 39.000
Scale Object StartObject + 40, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 40, -116.000 , 22.000 , 106.000

Make Object cone StartObject + 41, 39.000
Scale Object StartObject + 41, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 41, -116.000 , 22.000 , 134.000

Make Object cone StartObject + 42, 39.000
Scale Object StartObject + 42, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 42, -116.000 , 22.000 , 154.000

Make Object Box StartObject + 43, 284.000 , 8.000 , 320.000
Position Object StartObject + 43, -4.000 , 64.000 , -10.000

Make Object Box StartObject + 44, 77.000 , 58.000 , 4.000
Position Object StartObject + 44, -94.000 , 36.000 , -94.000

Make Object Box StartObject + 45, 78.000 , 58.000 , 4.000
Position Object StartObject + 45, -18.000 , 36.000 , -94.000

Make Object Box StartObject + 46, 35.000 , 58.000 , 4.000
Position Object StartObject + 46, 34.000 , 36.000 , -94.000

Make Object Box StartObject + 47, 7.000 , 58.000 , 62.000
Position Object StartObject + 47, 54.000 , 36.000 , -64.000

Make Object Box StartObject + 48, 7.000 , 58.000 , 62.000
Position Object StartObject + 48, 54.000 , 36.000 , -2.000

Make Object Box StartObject + 49, 7.000 , 58.000 , 62.000
Position Object StartObject + 49, 54.000 , 36.000 , 58.000

Make Object Box StartObject + 50, 56.000 , 58.000 , 8.000
Position Object StartObject + 50, 24.000 , 36.000 , 82.000

Make Object Box StartObject + 51, 56.000 , 58.000 , 8.000
Position Object StartObject + 51, -30.000 , 36.000 , 82.000

Make Object Box StartObject + 52, 342.000 , 2.000 , 401.000
Position Object StartObject + 52, -4.000 , 6.000 , 0.000


remstart
=================================

USER NOTES:

NO NOTES

=================================
remend

`End Of Function
ENDFUNCTION

sync on
sync rate 60


Make_Demo_Scene(1)

do
rotate camera camera angle x()+mousemovey()/8,camera angle y()+mousemovex()/8,0
move camera 3*(upkey()-downkey())
sync
loop

sync on
sync rate 60




Make_Demo_Scene(1)

for o = 1 to 53
color object o,rgb(rnd(255),rnd(255),rnd(255))
next o

do
rotate camera camera angle x()+mousemovey()/8,camera angle y()+mousemovex()/8,0
move camera 3*(upkey()-downkey())
sync
loop







FUNCTION Make_Demo_Scene(StartObject)

Make Object Box StartObject + 0, 9.000 , 64.000 , 382.000
Position Object StartObject + 0, -136.000 , 32.000 , 0.000

Make Object Box StartObject + 1, 9.000 , 64.000 , 382.000
Position Object StartObject + 1, 128.000 , 32.000 , 0.000

Make Object cone StartObject + 2, 39.000
Scale Object StartObject + 2, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 2, -116.000 , 22.000 , 170.000

Make Object Box StartObject + 3, 287.000 , 31.000 , 8.000
Position Object StartObject + 3, -6.000 , 20.000 , -192.000

Make Object Box StartObject + 4, 287.000 , 31.000 , 8.000
Position Object StartObject + 4, -6.000 , 20.000 , 186.000

Make Object cone StartObject + 5, 39.000
Scale Object StartObject + 5, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 5, -88.000 , 22.000 , 170.000

Make Object cone StartObject + 6, 39.000
Scale Object StartObject + 6, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 6, -56.000 , 22.000 , 170.000

Make Object cone StartObject + 7, 39.000
Scale Object StartObject + 7, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 7, -28.000 , 22.000 , 170.000

Make Object cone StartObject + 8, 39.000
Scale Object StartObject + 8, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 8, -4.000 , 22.000 , 170.000

Make Object cone StartObject + 9, 39.000
Scale Object StartObject + 9, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 9, 22.000 , 22.000 , 170.000

Make Object cone StartObject + 10, 39.000
Scale Object StartObject + 10, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 10, 48.000 , 22.000 , 170.000

Make Object cone StartObject + 11, 39.000
Scale Object StartObject + 11, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 11, 78.000 , 22.000 , 170.000

Make Object cone StartObject + 12, 39.000
Scale Object StartObject + 12, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 12, 108.000 , 22.000 , 170.000

Make Object cone StartObject + 13, 39.000
Scale Object StartObject + 13, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 13, 108.000 , 22.000 , 150.000

Make Object cone StartObject + 14, 39.000
Scale Object StartObject + 14, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 14, 108.000 , 22.000 , 128.000

Make Object cone StartObject + 15, 39.000
Scale Object StartObject + 15, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 15, 108.000 , 22.000 , 110.000

Make Object cone StartObject + 16, 39.000
Scale Object StartObject + 16, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 16, 108.000 , 22.000 , 88.000

Make Object cone StartObject + 17, 39.000
Scale Object StartObject + 17, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 17, 108.000 , 22.000 , 60.000

Make Object cone StartObject + 18, 39.000
Scale Object StartObject + 18, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 18, 108.000 , 22.000 , 30.000

Make Object cone StartObject + 19, 39.000
Scale Object StartObject + 19, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 19, 108.000 , 22.000 , 0.000

Make Object cone StartObject + 20, 39.000
Scale Object StartObject + 20, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 20, 108.000 , 22.000 , -30.000

Make Object cone StartObject + 21, 39.000
Scale Object StartObject + 21, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 21, 108.000 , 22.000 , -62.000

Make Object cone StartObject + 22, 39.000
Scale Object StartObject + 22, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 22, 108.000 , 22.000 , -96.000

Make Object cone StartObject + 23, 39.000
Scale Object StartObject + 23, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 23, 108.000 , 22.000 , -126.000

Make Object cone StartObject + 24, 39.000
Scale Object StartObject + 24, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 24, 108.000 , 22.000 , -156.000

Make Object cone StartObject + 25, 39.000
Scale Object StartObject + 25, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 25, 82.000 , 22.000 , -156.000

Make Object cone StartObject + 26, 39.000
Scale Object StartObject + 26, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 26, 52.000 , 22.000 , -156.000

Make Object cone StartObject + 27, 39.000
Scale Object StartObject + 27, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 27, 20.000 , 22.000 , -156.000

Make Object cone StartObject + 28, 39.000
Scale Object StartObject + 28, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 28, -12.000 , 22.000 , -156.000

Make Object cone StartObject + 29, 39.000
Scale Object StartObject + 29, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 29, -48.000 , 22.000 , -156.000

Make Object cone StartObject + 30, 39.000
Scale Object StartObject + 30, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 30, -80.000 , 22.000 , -156.000

Make Object cone StartObject + 31, 39.000
Scale Object StartObject + 31, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 31, -110.000 , 22.000 , -156.000

Make Object cone StartObject + 32, 39.000
Scale Object StartObject + 32, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 32, -110.000 , 22.000 , -126.000

Make Object cone StartObject + 33, 39.000
Scale Object StartObject + 33, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 33, -116.000 , 22.000 , -108.000

Make Object cone StartObject + 34, 39.000
Scale Object StartObject + 34, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 34, -116.000 , 22.000 , -78.000

Make Object cone StartObject + 35, 39.000
Scale Object StartObject + 35, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 35, -116.000 , 22.000 , -52.000

Make Object cone StartObject + 36, 39.000
Scale Object StartObject + 36, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 36, -116.000 , 22.000 , -18.000

Make Object cone StartObject + 37, 39.000
Scale Object StartObject + 37, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 37, -116.000 , 22.000 , 12.000

Make Object cone StartObject + 38, 39.000
Scale Object StartObject + 38, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 38, -116.000 , 22.000 , 42.000

Make Object cone StartObject + 39, 39.000
Scale Object StartObject + 39, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 39, -116.000 , 22.000 , 76.000

Make Object cone StartObject + 40, 39.000
Scale Object StartObject + 40, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 40, -116.000 , 22.000 , 106.000

Make Object cone StartObject + 41, 39.000
Scale Object StartObject + 41, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 41, -116.000 , 22.000 , 134.000

Make Object cone StartObject + 42, 39.000
Scale Object StartObject + 42, 100 , 100*( 43.000 / 39.000 ) , 100*( 27.000 / 39.000 )
Position Object StartObject + 42, -116.000 , 22.000 , 154.000

Make Object Box StartObject + 43, 284.000 , 8.000 , 320.000
Position Object StartObject + 43, -4.000 , 64.000 , -10.000

Make Object Box StartObject + 44, 77.000 , 58.000 , 4.000
Position Object StartObject + 44, -94.000 , 36.000 , -94.000

Make Object Box StartObject + 45, 78.000 , 58.000 , 4.000
Position Object StartObject + 45, -18.000 , 36.000 , -94.000

Make Object Box StartObject + 46, 35.000 , 58.000 , 4.000
Position Object StartObject + 46, 34.000 , 36.000 , -94.000

Make Object Box StartObject + 47, 7.000 , 58.000 , 62.000
Position Object StartObject + 47, 54.000 , 36.000 , -64.000

Make Object Box StartObject + 48, 7.000 , 58.000 , 62.000
Position Object StartObject + 48, 54.000 , 36.000 , -2.000

Make Object Box StartObject + 49, 7.000 , 58.000 , 62.000
Position Object StartObject + 49, 54.000 , 36.000 , 58.000

Make Object Box StartObject + 50, 56.000 , 58.000 , 8.000
Position Object StartObject + 50, 24.000 , 36.000 , 82.000

Make Object Box StartObject + 51, 56.000 , 58.000 , 8.000
Position Object StartObject + 51, -30.000 , 36.000 , 82.000

Make Object Box StartObject + 52, 342.000 , 2.000 , 401.000
Position Object StartObject + 52, -4.000 , 6.000 , 0.000


remstart
=================================

USER NOTES:

NO NOTES

=================================
remend

`End Of Function
ENDFUNCTION

REM Project: SceneEdit
REM Created: 9/4/2006 6:05:54 PM
REM
REM ***** Main Source File *****
REM
sync on
sync rate 60
autocam off
disable escapekey
set text font "Verdana"
Set text size 14
set camera range 1,10000
randomize Timer()
color backdrop 0
Dim TEMP$(2000)

set dir "DB CODE"
perform checklist for files

if Checklist Quantity()>0
for l = 1 to Checklist quantity()
TEMP$(l)=Checklist String$(l)
next l
CQ=Checklist Quantity()
set dir ".."
Set dir "Scenes"

for t = 1 to CQ

if file exist( Left$(TEMP$(t),Len(TEMP$(t))-4)+".sqs" )=0
SET DIR ".."
set dir "DB CODE"
delete file TEMP$(t)
set dir ".."
set dir "SCENES"
endif

next t

set dir ".."

else
set dir ".."
endif




Empty Checklist
for z = 1 to 2000
TEMP$(z)=""
next z

set dir "Scenes"
perform checklist for files

if Checklist Quantity()>0

for l = 1 to Checklist quantity()
TEMP$(l)=Checklist String$(l)
next l
CQ=Checklist Quantity()
set dir ".."
Set dir "DB CODE"

for t = 1 to CQ

if file exist( Left$(TEMP$(t),Len(TEMP$(t))-4)+".txt" )=0
SET DIR ".."
set dir "Scenes"
delete file TEMP$(t)
set dir ".."
set dir "DB CODE"
endif

next t

set dir ".."

else
set dir ".."
endif




global Speed as float


sync : input "Please enter program movement speed-(2 is a good number): ",SPEED : sync
if SPEED<=0 then SPEED=2
Make MAtrix 1,10000,10000,60,60
position matrix 1,-5000,0,-5000
ghost matrix on 1

Dim Notes$(5000)
Dim Scene#(2000,11)
remstart
1=x
2=y
3=z
4=xs
5=ys
6=zs
7=xr
8=yr
9=zr
10=type
11=exist
remend

create bitmap 1,10,10



ink rgb(0,0,0),0
box 0,0,10,10
ink rgb(0,255,0),0
box 1,1,9,9


get image 1,0,0,10,10
delete bitmap 1

prepare matrix texture 1,1,1,1


MAKE OBJECT CONE 2001,30
xrotate object 2001,180
fix object pivot 2001
texture object 2001,1
fade object 2001,300
set object specular power 2001,75

MAKE OBJECT BOX 2002,3,100,3


MAKE OBJECT BOX 2003,3,3,100


MAKE OBJECT BOX 2004,100,3,3




global XS as float
global YS as float
global ZS as float
global Obj as integer

global XR as integer
global YR as integer
global ZR as integer

global OBJX as float
global OBJY as float
global OBJZ as float
global KIND as integer
global MaxKIND as integer
global ZOOM as float


XS=30
yS=30
ZS=30

OBJ=12
SEL=Obj
KIND=1

MaxKIND=5
MakeObject(OBJ,KIND)

Camera(OBJ)
CAMON=1

do
set cursor 0,0
ink rgb(155,155,155),0
if object in screen(2002) then Center Text OBject Screen X(2002),Object Screen y(2002),"ORIGIN- 0,0,0"
print "Press F1 to view controls."
if keystate(59) then gosub Controls
gosub EditLevel

set point light 0,Object position x(OBJ),OBJECT POSITION Y(OBJ)+100,OBJECT POSITION Z(OBJ)
ANGLE=WRAPVALUE(ANGLE+1)
position object 2001,OBject position x(OBJ),OBject position y(OBJ)+OBject size y(OBJ)/2+50+abs(20*COS(ANGLE)),OBJECT POSITION Z(OBJ)
sync
loop


function MakeObject(Num,Kind)

if Num=0 then exitfunction

if object exist(Num) then delete object Num

if Kind=1
Make object box Num,XS,YS,ZS
endif

if Kind=2
Make object sphere Num,XS
endif

if Kind=3
Make object Cylinder Num,XS
endif

if Kind=4
Make object Cone Num,XS
endif

if Kind=5
Make object plain Num,XS,YS
endif

Rotate Object Num,XR,YR,ZR
position object num,OBJX,OBJY,OBJZ


Set object specular power Num,100
set ambient light 40
endfunction


























EditLevel:

GOSUB MouseChoose

MoveOBJ(Obj,SPEED)
RotateOBJ(OBJ,SPEED/2)

gosub MouseMoveOBJ

gosub OCC

if keystate(14) and PMK=0 then ChangeTYPE() : PMK=1

if keystate(14)=0 then PMK=0

if KEystate(61) then Save()
if KEystate(62) then LOAD()
if Keystate(63) then LookAround()
if Keystate(65) then TakePicture()

if returnkey() then ResetStuff()
Always()
return

























function ResetStuff()
YS=Xs
ZS=XS
XR=0
YR=0
ZR=0
SizeObject(OBJ,XS,YS,ZS)
rotate object OBJ,0,0,0
endfunction








function ChangeTYPE()
Inc KIND,1
if KIND>MaxKIND then KIND=1
MakeOBJect(OBJ,KIND)
endfunction




OCC:
Always()
if CamON=1 then Camera(OBJ)

ScaleOBJ(OBJ,SPEED/2)
if spacekey() and SPK=0 then PlaceOBJ()
SPK=Spacekey()

if shiftkey() and SK=0 then inc CamON
SK=shiftkey()
if CamON>1 then CamON=0
return


MouseChoose:
SEL=Pick Object(Mousex(),Mousey(),1,1000)

for o = 1 to 10000

if object exist(o)
if SEL=o then Set Object diffuse o,rgb(255,155,155) else Set OBject diffuse o,rgb(255,255,255)
if o=OBJ then Set OBject diffuse o,rgb(155,255,155) : Set OBject specular o,rgb(0,255,0)
endif

next o


if SEL>0 and mouseclick()=2
delete object SEL
Scene#(Sel,11)=0

if OBJ=SEL then OBJ=UsedOBJ()
if OBJ=0 then OBJ=12 : MakeOBJECT(OBJ,KIND)
endif

if SEL>0 and mouseclick()=1
if OBJ<>SEL and SCENE#(Obj,11)=0 then delete object OBJ
OBJ=SEL
XR=Object angle x(OBJ)
YR=Object angle y(OBJ)
ZR=Object angle z(OBJ)

XS=Object Size x(OBJ,1)
yS=Object Size y(OBJ,1)
zS=Object Size z(OBJ,1)

OBJX=Object position x(OBJ)
OBJY=Object position y(OBJ)
OBJZ=OBject position z(OBJ)


MC=1
endif
return









Controls:
while keystate(59)=1
endwhile
repeat
cls
box 0,0,screen width(),screen height(),0,rgb(255,255,255),rgb(0,255,255),0
ink rgb(255,0,0),0
print "PRESS SPACE to place an object."
print "Use the arrow keys to move an object. Hold control to move it on the Y axis."
RL(1)
print "Use the mouse to select an object. Right-click to delete an object."
RL(1)
print "Use backspace to cycle through object types."
RL(1)
print "Use TFGH to roate an object. Hold control to rotate on the Y axis."
print "Use WASD to scale an object. Hold control to scale on the y axis."
RL(1)

if CamON=1
print "Press shift to turn camera mode off"
print "USE THE Middle Mouse button or <> to zoom."
else
print "PRess shift to turn camera mode on"
endif
RL(1)
print "Press ENTER to reset rotation and level out scale."
RL(1)
RL(1)
RL(2)
Print "OBJECT SIZES: "
print "  X: ",STR$(Object Size X(OBJ,1),3)
print "  Y: ",STR$(Object Size y(OBJ,1),3)
print "  Z: ",STR$(Object Size z(OBJ,1),3)
RL(1)
Print "OBJECT POSITIONS: "
print "  X: ",STR$(Object Position X(OBJ),3)
print "  Y: ",STR$(Object Position y(OBJ),3)
print "  Z: ",STR$(Object Position z(OBJ),3)
RL(3)
print "Use F5 to look around your scene."
RL(1)
print "USE F3 to save and F4 to load."
sync
until keystate(59)
while keystate(59)=1
endwhile
return








MouseMoveOBJ:

OBJX=Object position x(OBJ)
OBJY=Object position y(OBJ)
OBJZ=OBject position z(OBJ)

if SEL=OBJ and mouseclick() and MC=0 then DRAGOBJ=OBJ

if Mouseclick()=0 then DragOBJ=0 : MC=0
show mouse
if DragOBJ>0
hide mouse
OBJX=Object position x(OBJ)
OBJY=Object position y(OBJ)
OBJZ=OBject position z(OBJ)
position object DragOBJ,OBJX,OBJY,OBJZ
OBJX=OBJX+SPEED*(Mousemovex())/10
if controlkey()=1 then OBJY=OBJY+SPEED*(-1*Mousemovey())/10 else OBJZ=OBJZ+SPEED*(-1*Mousemovey())/10
position object DragOBJ,OBJX,OBJY,OBJZ
endif


return



function MoveOBJ(Num,SPD)
OBJX=Object position x(Num)
OBJY=Object position y(Num)
OBJZ=OBject position z(Num)

OBJX=OBJX+SPD*(rightkey()-leftkey())
if controlkey()=1 then OBJY=OBJY+SPD*(Upkey()-Downkey()) else OBJZ=OBJZ+SPD*(Upkey()-Downkey())
position object Num,OBJX,OBJY,OBJZ
endfunction



function Camera(Num)
inc ZOOM,-1*MousemoveZ()/10
inc ZOOM,5*(KEystate(51)-Keystate(52))
AVGS=(OBject Size X(Num)+OBject Size Y(Num)+Object Size z(Num))/12
if ZOOM<AVGS then ZOOM=AVGS
Position Camera Object position x(Num),Object Position y(Num)+Object Size y(Num,1)/2+50+ZOOM, Object Position z(Num)-Object Size z(Num,1)/2-200-ZOOM
point camera OBject position x(Num),Object position y(Num),OBject position Z(Num)
endfunction

function ScaleOBJ(Num,SPD as float)
if keystate(17) and controlkey()=0 then ZS=ZS+SPD
if keystate(17) and controlkey()=1 then yS=yS+SPD

if keystate(31) and controlkey()=0 then ZS=ZS-SPD
if keystate(31) and controlkey()=1 then yS=yS-SPD

if keystate(30) then XS=XS-SPD
if keystate(32) then XS=XS+SPD



SizeObject(Num,XS,YS,ZS)
endfunction





function RotateOBJ(Num,SPD)

if keystate(20) then XR=XR+spd
if keystate(34) then XR=XR-spd
if keystate(33) and controlkey()=0 then ZR=ZR+spd
if keystate(35) and controlkey()=0 then ZR=ZR-spd
if keystate(33) and controlkey()=1 then yR=yR-spd
if keystate(35) and controlkey()=1 then yR=yR+spd
XR=Wrapvalue(XR)
YR=Wrapvalue(YR)
ZR=Wrapvalue(ZR)
rotate object Num,XR,YR,Zr
endfunction


function SizeObject(SQ_OBject,SQ_x#,SQ_y#,SQ_z#)
SQ_sx#=object size x(SQ_Object)
SQ_sy#=Object size y(SQ_Object)
SQ_sz#=Object size z(SQ_Object)

SQ_px#=100*(SQ_x# / SQ_sx#)
SQ_py#=100*(SQ_y# / SQ_sy#)
SQ_pz#=100*(SQ_z# / SQ_sz#)

Scale OBject SQ_OBject, SQ_px# , SQ_py# ,SQ_pz#
endfunction



function PlaceOBJ()
OSX=OBject Size X(OBJ,1)
OSY=Object size y(OBJ,1)
OSZ=Object Size Z(Obj,1)

Scene#(Obj,1)=Object position x(OBJ)
Scene#(Obj,2)=Object position y(OBJ)
Scene#(Obj,3)=Object position z(OBJ)
Scene#(Obj,4)=OSX
Scene#(Obj,5)=OSY
Scene#(Obj,6)=OSZ
Scene#(Obj,7)=OBject angle x(Obj)
Scene#(Obj,8)=Object Angle y(OBj)
Scene#(OBj,9)=Object angle z(Obj)
Scene#(Obj,10)=KIND
Scene#(Obj,11)=1



OBJ=FreeOBJ()
MakeOBJECT(OBj,Kind)

Position object OBJ,OBJX,OBJY,OBJZ

endfunction


function FreeOBJ()
Obj=12
repeat
inc OBJ
until object exist(OBJ)=0
endfunction OBJ







function UsedOBJ()
Obj=2001
repeat
dec OBJ
until object exist(OBJ)=1
endfunction OBJ







function Save()
ResetNotes()
Clear Entry buffer
repeat
set cursor 0,0
print "PRESS CONTROL TO CANCEL"
if controlkey() then exitfunction

if Keystate(14)=0
KT=0
FName$=FName$+Entry$()
else
if KT=0
FName$=Left$(FName$,Len(FName$)-1)
KT=1
endif
endif

Center Text Screen Width()/2,Screen Height()/2,"ENTER SAVE Name (no spaces): "+FName$
Clear Entry buffer
sync
until returnkey()
cls
if Len(FName$)=0 then FName$="Untitled"
for l = 1 to Len(FName$)
if Mid$(FName$,l)=" " then FName$=Left$(FName$,l-1)+"_"+Right$(FName$,l-1)
next l

NextOBJ=-1


SET DIR "DB Code"
if file exist(FName$+".txt") then delete file FName$+".txt"
Open To Write 1,FName$+".txt"
Write String 1,"FUNCTION Make_"+Upper$(mid$(Fname$,1))+Right$(FName$,len(FName$)-1)+"(StartObject)"
write string 1," "

for l = 1 to 2000

if Scene#(l,11)=1
inc NextOBJ
NextOBJ$="StartObject + "+str$(NextOBJ)
XP$=STR$(Scene#(l,1),3)
YP$=STR$(Scene#(l,2),3)
ZP$=STR$(Scene#(l,3),3)
XS$=STR$(Scene#(l,4),3)
yS$=STR$(Scene#(l,5),3)
zS$=STR$(Scene#(l,6),3)
xr$=STR$(Scene#(l,7),3)
yr$=STR$(Scene#(l,8),3)
zr$=STR$(Scene#(l,9),3)
KD=Scene#(l,10)

if KD=1
Write String 1,"Make Object Box "+NExtOBJ$+", "+XS$+" , "+YS$+" , "+ZS$
Write String 1,"Position Object "+NExtOBJ$+", "+xP$+" , "+YP$+" , "+ZP$
if Val(Xr$)<>Val(Yr$) or Val(Xr$)<>Val(Zr$) then write string 1,"Rotate Object "+NExtOBJ$+", "+XR$+" , "+YR$+" , "+ZR$
Write String 1," "
endif

if KD=2
Write String 1,"Make Object Sphere "+NExtOBJ$+", "+XS$
if Val(XS$)<>Val(YS$) or Val(XS$)<>Val(ZS$) then Write String 1,"Scale Object "+NExtOBJ$+", 100 "+", 100*( "+yS$+" / "+xs$+" ) "+", 100*( "+zS$+" / "+XS$+" )"
Write String 1,"Position Object "+NExtOBJ$+", "+xP$+" , "+YP$+" , "+ZP$
if Val(Xr$)<>Val(Yr$) or Val(Xr$)<>Val(Zr$) then write string 1,"Rotate Object "+NExtOBJ$+", "+XR$+" , "+YR$+" , "+ZR$
Write String 1," "
endif

if KD=3
Write String 1,"Make Object Cylinder "+NExtOBJ$+", "+XS$
if Val(XS$)<>Val(YS$) or Val(XS$)<>Val(ZS$) then Write String 1,"Scale Object "+NExtOBJ$+", 100 "+", 100*( "+yS$+" / "+xs$+" ) "+", 100*( "+zS$+" / "+XS$+" )"
Write String 1,"Position Object "+NExtOBJ$+", "+xP$+" , "+YP$+" , "+ZP$
if Val(Xr$)<>Val(Yr$) or Val(Xr$)<>Val(Zr$) then write string 1,"Rotate Object "+NExtOBJ$+", "+XR$+" , "+YR$+" , "+ZR$
Write String 1," "
endif

if KD=4
Write String 1,"Make Object cone "+NExtOBJ$+", "+XS$
if Val(XS$)<>Val(YS$) or Val(XS$)<>Val(ZS$) then Write String 1,"Scale Object "+NExtOBJ$+", 100 "+", 100*( "+yS$+" / "+xs$+" ) "+", 100*( "+zS$+" / "+XS$+" )"
Write String 1,"Position Object "+NExtOBJ$+", "+xP$+" , "+YP$+" , "+ZP$
if Val(Xr$)<>Val(Yr$) or Val(Xr$)<>Val(Zr$) then write string 1,"Rotate Object "+NExtOBJ$+", "+XR$+" , "+YR$+" , "+ZR$
Write String 1," "
endif

if KD=5
Write String 1,"Make Object plain "+NExtOBJ$+", "+XS$+" , "+YS$
Write String 1,"Position Object "+NExtOBJ$+", "+xP$+" , "+YP$+" , "+ZP$
if Val(Xr$)<>Val(Yr$) or Val(Xr$)<>Val(Zr$) then write string 1,"Rotate Object "+NExtOBJ$+", "+XR$+" , "+YR$+" , "+ZR$
Write String 1," "
endif


endif

next l
write string 1," "
write string 1,"remstart"
write string 1,"================================="
write string 1," "
write string 1,"USER NOTES:"
write string 1," "
for o = 1 to Array Count(NOTES$(0))
if Notes$(o)="" then exit
write String 1,NOTES$(o)
write string 1," "
next o
write string 1,"================================="
Write String 1,"remend "
Write String 1," "

Write String 1,"`End Of Function"
write String 1,"ENDFUNCTION"
close file 1


set dir ".."
set dir "Scenes"
FName$=Left$(FName$,Len(FName$))+".sqs"
Save Array FName$,Scene#(2000)
set dir ".."
ResetNotes()
ERROR("Save Complete")
endfunction







function LOAD()



Clear Entry buffer
repeat
set cursor 0,0
print "PRESS CONTROL TO CANCEL"
if controlkey() then exitfunction

if Keystate(14)=0
KT=0
FName$=FName$+Entry$()
else
if KT=0
FName$=Left$(FName$,Len(FName$)-1)
KT=1
endif
endif

Center Text Screen Width()/2,Screen Height()/2,"ENTER NAME: "+FName$
Clear Entry buffer
sync
until returnkey()

for l = 1 to Len(FName$)
if Mid$(FName$,l)=" " then FName$=Left$(FName$,l-1)+"_"+Right$(FName$,l-1)
next l

FName$=FName$+".SQS"


SET DIR "Scenes"
if file exist(FName$)=0 then ERROR("SCENE DOES NOT EXIST") : exitfunction

LOAD ARRAY FName$,Scene#(2000)

set dir ".."



for o = 1 to 2000
if object exist(o) then delete object o
XP#=Scene#(o,1)
YP#=Scene#(o,2)
ZP#=Scene#(o,3)
XS#=Scene#(o,4)
yS#=Scene#(o,5)
zS#=Scene#(o,6)
xr#=Scene#(o,7)
yr#=Scene#(o,8)
zr#=Scene#(o,9)
KD=Scene#(o,10)

if Scene#(o,11)=1
if KD=1 then Make Object Box o,XS#,YS#,ZS#
if KD=2 then MAke Object sphere o,XS# : Scale Object o,100,100*(YS#/XS#),100*(ZS#/XS#)
if KD=3 then MAke Object cylinder o,XS# : Scale Object o,100,100*(YS#/XS#),100*(ZS#/XS#)
if KD=4 then MAke Object cone o,XS# : Scale Object o,100,100*(YS#/XS#),100*(ZS#/XS#)

Position Object o,XP#,YP#,ZP#
rotate object o,XR#,YR#,ZR#
Set object specular power o,100
endif


next o


OBJ=FreeOBJ()
MakeObject(OBJ,1+rnd(3))




ERROR("Load Complete")


endfunction





function RL(Nos)
for NOSP = 1 to NOS
Print " "
next NOSP
if CINK<155 then CINK=155
CINK=CINK+30
if CINK>255 then CINK=155

ink rgb(255,0,0),0
endfunction



function ERROR(SQ_S$)
while returnkey()=1
sync
endwhile
while returnkey()=0
Center Text Screen Width()/2,Screen Height()/2,SQ_S$
sync
endwhile
while returnkey()=1
sync
endwhile
endfunction



Function LookAround()
while scancode()>0
endwhile
do
ink rgb(255,0,0),0
set cursor 0,0
print "Use the MOUSE to look around."
RL(1)
print "Use the UP/DOWN arrow keys to move in the direction you're facing."
RL(1)
print "Press ENTER to return to editing your scene."
if returnkey() then exit
Move Camera Speed*1.5*(Upkey()-Downkey())
rotate camera camera angle x()+mousemovey()/8,Camera Angle y()+mousemovex()/8,0
Always()
sync
loop
while scancode()>0
endwhile
Camera(OBJ)
Endfunction


Function TakePicture()
while scancode()>0
endwhile
get image 99,0,0,screen width(),screen height()
Num=0
repeat
inc Num,1

File$="Screenshot"+str$(num)+".jpg"

until File Exist(file$)=0

Save Image File$,99
while scancode()=0
Center Text Screen Width()/2,Screen Height()/2,"SCREENSHOT TAKEN"
endwhile
while scancode()>0
endwhile
Endfunction





function ResetNotes()
for o = 1 to 5000
Notes$(o)=""
if o=1 then Notes$(o)="NO NOTES"
next o
endfunction


Function Always()
if escapekey()
repeat
ink rgb(255,0,0),0
Center text Screen Width()/2,Screen height()/2,"Do you really want to quit? (y/n)"
if keystate(21) then end
sync
until keystate(49)
endif
Endfunction