set ambient light colours didn`t work too well, here`s an example using a alpha`d sprite to make the scene blue, even with pure blue the object colours show through, thats not the right effect, pressing space just alters the model texture and un-hides the blue transparent sprite, change the model name for whatever you have, you need to make a second texture, mine was ColZ.TGA I altered that by making it black and white and then adding noise, then tinted it orange, I then saved it as ColZir.TGA for the second texture.
Rem Project: night vision
Rem Created: 15/08/2005 13:15:21
Rem ***** Main Source File *****
cls rgb(0,0,255)
get image 30,0,0,8,8
load object "ColZ_Run.X",1
load image "Col_Z.TGA",1
load image "Col_Zir.TGA",2
for i=2 to 25
make object sphere i,rnd(4)
position object i,5-rnd(10),0,rnd(10)+2
color object i, rgb(rnd(155),rnd(155),rnd(155))
next i
sprite 1,0,0,30
size sprite 1,640,480
set sprite alpha 1,70
color backdrop 0
pitch object up 1,90
scale object 1,2,2,2
position camera -8,8,-8
point camera 0,0,0
toggle=0
loop object 1
set object speed 1,1050
do
if spacekey()
toggle=1-toggle
wait key
endif
if toggle=1 then texture object 1,1:set object light 1,1:hide sprite 1:set ambient light 2
if toggle=0 then texture object 1,2:set object light 1,0:show sprite 1:set ambient light 50
loop
