another one using TRANSPARENCY and GHOST on and object.
Rem Project: lightsallthree
Rem Created: Wednesday, December 09, 2009
Rem ***** Main Source File *****
Rem Project: lightobjectrans
Rem Created: Wednesday, December 09, 2009
Rem ***** Main Source File *****
Rem Project: ghodt_lights
Rem Created: Wednesday, December 09, 2009
Rem ***** Main Source File *****
Rem Project: light_levels1
Rem Created: Tuesday, December 08, 2009
Rem ***** Main Source File *****
sync
sync rate 40
autocam off
position camera 0,0,-20
color backdrop RGB(0,70,255)
make light 1
color light 1,RGB(255,255,0)
position light 1,5,5,-5
hide light 1
SET IMAGE COLORKEY 255,0,0
cls rgb(255,0,0)
for d= 1 to screen width() step 100
box d,0,screen width(),screen height(),rgb(rnd(255),rnd(255),rnd(255))
next d
get image 1,0,0,screen width(),screen height()
`load image "chips.bmp",1
`Level settings
Level_0=0
Level_1=51
Level_2=102
Level_3=153
Level_4=255
power_0=0
power_1=25
power_2=50
power_3=75
power_4=100
flag_0=0
flag_1=1
flag_2=2
flag_3=3
flag_4=4
flag_5=5
flag_6=6
ghost_level_0=0
ghost_level_1=1
ghost_level_2=2
ghost_level_3=3
ghost_level_4=4
ghost_level_5=5
ghost_level_6=6
a=9
b=18
c=27
d=36
e=45
f=54
g=63
x=-7
y=9
for i= 1 to g
make object cube i,1
position object i,x,y,0
texture object i,1
if i>0 then SET OBJECT TRANSPARENCY i, Flag_0
if i>a then SET OBJECT TRANSPARENCY i, Flag_1
if i>b then SET OBJECT TRANSPARENCY i, Flag_2
if i>c then SET OBJECT TRANSPARENCY i, Flag_3
if i>d then SET OBJECT TRANSPARENCY i, Flag_4
if i>e then SET OBJECT TRANSPARENCY i, Flag_5
if i>f then SET OBJECT TRANSPARENCY i, Flag_6
if i>0 then ghost object on i,ghost_level_0
if i>a then ghost object on i,ghost_level_1
if i>b then ghost object on i,ghost_level_2
if i>c then ghost object on i,ghost_level_3
if i>d then ghost object on i,ghost_level_4
if i>e then ghost object on i,ghost_level_5
if i>f then ghost object on i,ghost_level_6
dec y,2
if y=-9 then y=9 :inc x, 3
next i
i=1
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
i=2
SET OBJECT AMBIENCE i, rgb(level_0,0,0)
SET OBJECT AMBIENCE i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE i+d, rgb(level_4,0,0)
i=3
SET OBJECT EMISSIVE i, rgb(level_0,0,0)
SET OBJECT EMISSIVE i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE i+d, rgb(level_4,0,0)
i=4
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR i, power_0
SET OBJECT SPECULAR i+a, power_1
SET OBJECT SPECULAR i+b, power_2
SET OBJECT SPECULAR i+c, power_3
SET OBJECT SPECULAR i+d, power_4
i=5
SET OBJECT AMBIENCE i, rgb(level_0,0,0)
SET OBJECT AMBIENCE i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR i, power_0
SET OBJECT SPECULAR i+a, power_1
SET OBJECT SPECULAR i+b, power_2
SET OBJECT SPECULAR i+c, power_3
SET OBJECT SPECULAR i+d, power_4
i=6
SET OBJECT EMISSIVE i, rgb(level_0,0,0)
SET OBJECT EMISSIVE i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR i, power_0
SET OBJECT SPECULAR i+a, power_1
SET OBJECT SPECULAR i+b, power_2
SET OBJECT SPECULAR i+c, power_3
SET OBJECT SPECULAR i+d, power_4
i=7
SET OBJECT AMBIENCE i, rgb(level_0,0,0)
SET OBJECT AMBIENCE i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER i, power_0
SET OBJECT SPECULAR POWER i+a, power_1
SET OBJECT SPECULAR POWER i+b, power_2
SET OBJECT SPECULAR POWER i+c, power_3
SET OBJECT SPECULAR POWER i+d, power_4
i=8
SET OBJECT AMBIENCE i, rgb(level_0,0,0)
SET OBJECT AMBIENCE i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER i, power_0
SET OBJECT SPECULAR POWER i+a, power_1
SET OBJECT SPECULAR POWER i+b, power_2
SET OBJECT SPECULAR POWER i+c, power_3
SET OBJECT SPECULAR POWER i+d, power_4
i=9
SET OBJECT EMISSIVE i, rgb(level_0,0,0)
SET OBJECT EMISSIVE i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER i, power_0
SET OBJECT SPECULAR POWER i+a, power_1
SET OBJECT SPECULAR POWER i+b, power_2
SET OBJECT SPECULAR POWER i+c, power_3
SET OBJECT SPECULAR POWER i+d, power_4
do
text object screen x(1)-text width("Ghost "),object screen y(1)-57,"Ghost 0 1 2 3 4 5 6"
text object screen x(1)-text width("TRANSPARENCY "),object screen y(1)-47,"TRANSPARENCY 0 1 2 3 4 5 6"
text object screen x(1)-15,object screen y(1)-27," 0 25 50 75 100"
text object screen x(1)-text width("DIFFUSE "),object screen y(1)-12,"DIFFUSE "
text object screen x(2)-text width("DIFFUSE "),object screen y(2)-12,"AMBIENCE "
text object screen x(3)-text width("DIFFUSE "),object screen y(3)-12,"EMISSIVE "
text object screen x(4)-text width("DIFFUSE SPECULAR "),object screen y(4)-12,"DIFFUSE SPECULAR "
text object screen x(5)-text width("AMBIENCE SPECULAR "),object screen y(5)-12,"AMBIENCE SPECULAR "
text object screen x(6)-text width("EMISSIVE SPECULAR "),object screen y(6)-12,"EMISSIVE SPECULAR "
text object screen x(7)-text width("DIFFUSE SPECULAR POWER "),object screen y(7)-12,"DIFFUSE SPECULAR POWER"
text object screen x(8)-text width("AMBIENCE SPECULAR POWER "),object screen y(8)-12,"AMBIENCE SPECULAR POWER"
text object screen x(9)-text width("EMISSIVE SPECULAR POWER "),object screen y(9)-12,"EMISSIVE SPECULAR POWER"
text 0,580,"press L to turn on a yellow position light"
if inkey$()="l"
show light 1
else
hide light 1
endif
sync
loop
Dark Physics makes any hot drink go cold.