Sorry your browser is not supported!

rem Dark Basic WTH
rem by TheComet
rem sit back and enjoy
rem code is poorly commented

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem make a texture
create bitmap 1,64,64
for n=0 to 32
   ink rgb(255-(n*7),255-(n*7),255-(n*7)),0
   circle 32,32,n
   circle 32,33,n
next n
get image 1,0,0,64,64
delete bitmap 1

rem make a plain object using matrix1
make object plain 1,0,0,1,1
lock vertexdata for limb 1,0
   set vertexdata position 0,-5,5,0
   set vertexdata position 1,5,5,0
   set vertexdata position 2,-5,-5,0
   set vertexdata position 3,5,-5,0
unlock vertexdata
texture object 1,1
set object diffuse 1,rgb(180,180,255)
position object 1,-10,0,0

rem make a normal plain object
make object plain 2,10,10
texture object 2,1
set object diffuse 2,rgb(180,180,255)
position object 2,10,0,0

rem position camera
position camera 0,0,-45
point camera 0,0,0
ink 0xFFFFFFFF,0

for n=0 to 150
   center text 380,270,"Plain using Matrix1"
   center text 650,270,"Normal Plain from DBP"
   sync
next n

for n=0 to 150
   center text 380,270,"Plain using Matrix1"
   center text 650,270,"Normal Plain from DBP"
   center text 300,500,"See this object? ^"
   sync
next n

for n=0 to 150
   center text 380,270,"Plain using Matrix1"
   center text 650,270,"Normal Plain from DBP"
   center text 300,500,"See how it glows blue?"
   sync
next n

for n=0 to 250
   center text 380,270,"Plain using Matrix1"
   center text 650,270,"Normal Plain from DBP"
   center text 512,600,"Why does this glow more than a normal plain object?"
   sync
next n

for n=0 to 150
   center text 380,270,"Plain using Matrix1"
   center text 650,270,"Normal Plain from DBP"
   center text 512,600,"Now, Watch carefully..."
   sync
next n

for n=0 to 180 step 2
   center text 380,270,"Plain using Matrix1"
   center text 650,270,"Normal Plain from DBP"
   zrotate object 1,n
   zrotate object 2,n
   sync
next n

for n=0 to 250
   center text 380,270,"Plain using Matrix1"
   center text 650,270,"Normal Plain from DBP"
   center text 512,600,"DID YOU SEE THAT?!?"
   sync
next n

for n=0 to 150
   center text 380,270,"Plain using Matrix1"
   center text 650,270,"Normal Plain from DBP"
   center text 512,600,"Let me wind back there a bit..."
   sync
next n

for n=180 to 0 step -2
   center text 380,270,"Plain using Matrix1"
   center text 650,270,"Normal Plain from DBP"
   zrotate object 1,n
   zrotate object 2,n
   sync
next n

for n=0 to 250
   center text 380,270,"Plain using Matrix1"
   center text 650,270,"Normal Plain from DBP"
   center text 512,600,"OK, so left one glows, right one doesn't..."
   sync
next n

for n=0 to 180 step 2
   center text 380,270,"Plain using Matrix1"
   center text 650,270,"Normal Plain from DBP"
   zrotate object 1,n
   zrotate object 2,n
   sync
next n

for n=0 to 250
   center text 380,270,"Plain using Matrix1"
   center text 650,270,"Normal Plain from DBP"
   center text 512,600,"AND NOW THE LEFT ONE SUDDENLY DECIDES NOT TO GLOW?!?!!"
   sync
next n

for n=0 to 80
   center text 380,270,"Plain using Matrix1"
   center text 650,270,"Normal Plain from DBP"
   center text 512,600,"WHAT THE ****"
   sync
next n

for n=0 to 100
   center text 380,270,"Plain using Matrix1"
   center text 650,270,"Normal Plain from DBP"
   center text 512,600,"/rage"
   sync
next n

repeat
   center text 380,270,"Plain using Matrix1"
   center text 650,270,"Normal Plain from DBP"
   center text 512,600,"I need a way to make a plain that always glows"
   center text 512,612,"And I need to be able to change the diffuse value of said plain"
   center text 512,624,"<SET OBJECT LIGHT obj,0> won't let me change the diffuse value"
   sync
until returnkey()=1
end

set object normals 1

#define FVF_XYZ 0x002
#define FVF_XYZRHW 0x004
#define FVF_XYZB1 0x006
#define FVF_XYZB2 0x008
#define FVF_XYZB3 0x00a
#define FVF_XYZB4 0x00c 
#define FVF_XYZB5 0x00e
#define FVF_NORMAL 0x010
#define FVF_PSIZE 0x020 
#define FVF_DIFFUSE 0x040
#define FVF_SPECULAR 0x080
#define FVF_TEX0 0x000
#define FVF_TEX1 0x100
#define FVF_TEX2 0x200
#define FVF_TEX3 0x300
#define FVF_TEX4 0x400
#define FVF_TEX5 0x500
#define FVF_TEX6 0x600
#define FVF_TEX7 0x700
#define FVF_TEX8 0x800

#define FVF_XYZ 0x002
#define FVF_XYZRHW 0x004
#define FVF_XYZB1 0x006
#define FVF_XYZB2 0x008
#define FVF_XYZB3 0x00a
#define FVF_XYZB4 0x00c 
#define FVF_XYZB5 0x00e
#define FVF_NORMAL 0x010
#define FVF_PSIZE 0x020 
#define FVF_DIFFUSE 0x040
#define FVF_SPECULAR 0x080
#define FVF_TEX0 0x000
#define FVF_TEX1 0x100
#define FVF_TEX2 0x200
#define FVF_TEX3 0x300
#define FVF_TEX4 0x400
#define FVF_TEX5 0x500
#define FVF_TEX6 0x600
#define FVF_TEX7 0x700
#define FVF_TEX8 0x800