| Ad_Infinitum |
| Administrator |
 |
 |
| Data inscrierii: 23/Iun/2007 |
| Mesaje: 212 |
|
|
|
|
|
 |
|
Super scena doar din 26 de linii si fara fisiere media  
| Citat: |
create bitmap 1,50,50:for i= 1 to 3550:ink rgb(230,95,155),0:line rnd(60),i,i,rnd(130)
next i:blur bitmap 1,6:get image 1,0,0,50,50:delete bitmap 1:create bitmap 2,50,50
ink rgb(124,90,80),0:box 0,0,50,50:ink rgb(0,0,0),0:line 0,0,50,0:line 0,50,50,50
line 0,25,50,25:line 25,0,25,25:line 0,25,0,50:blur bitmap 2,2:get image 5,0,0,50,50
delete bitmap 2:make light 1:position light 1,100,300,100:set light range 1,44400
for i= 1 to 9:make object box i,100,130,100:texture object i,5:yrotate object i,i*90
move object i,200:next i:for i= 1 to 4:scale object i,400,70,10:xrotate object i,4:next i
for i=1 to 4:scale object texture i,15,5:next i:for i=5 to 8 :scale object texture i,8,7:next i
scale object 9,800,2,800 :position object 9,0,-29,0:scale object texture 9,40,40
make object sphere 50,1500 :texture object 50,1:make object sphere 51,2000:texture object 51,1
set object cull 51,0:set object cull 50,0:set object 51,0,1,0,1:ghost object on 51
set object collision off 50:set object collision off 51
for i= 21 to 28:make object box i,32,170,1:yrotate object i,i*45:xrotate object i,-10
move object i,10:color object i,rgb(150,240,0):position object i,0,20,0:next i
make object cylinder 30,140:scale object 30,130,4,130:position object 30,0,0,0:set object cull 30,0
make object cylinder 31,140:scale object 31,130,4,130:position object 31,0,50,0:set object cull 31,0
make object sphere 53,60:position object 53,0,110,0:ghost object on 53:ghost object on 30
ghost object on 31:position camera 190,0,190::yrotate camera 220:do:gira#=wrapvalue(gira#+0.01)
yrotate object 50,gira#*3:yrotate object 51,gira#*10:g=wrapvalue(g+1):m#=wrapvalue(m#+0.2)
yrotate object 30,-g*3:xrotate object 30,15:yrotate object 31,-g*3:xrotate object 31,-15
yrotate object 50,m#:yrotate object 51,m#:zrotate object 51,m#
for i= 21 to 28:yrotate object i,i*45+g:xrotate object i,30:next i
automatic camera collision 0,3,0:control camera using arrowkeys 0,1,1: sync:loop
|
 |
|
