Sorry your browser is not supported!

rem When all objecta added (first pass)
if csgpass=1
 rem add a zero-size high object for top of universe (need clearance for player on roofs)
 make object box segobj,0,100,0 : position object segobj,0,highesty+50,0 : inc segobj
 rem record last segment object
 lastsegobj=segobj
endif
if csgpass=3
 if object exist(segobj)=1
  set object transparency segobj,4
  make static object segobj,0,0,0,1
  hide object segobj : inc segobj
 endif
endif
`
rem next pass
next csgpass

rem V102RC6 remove all segment objects to free up memory for next phase ( except the horizon polys )
if gusefloorstate=1 then inc segobjstart,4
if lastsegobj>=segobjstart then delete objects segobjstart,lastsegobj
if gusefloorstate=1 then dec segobjstart,4

rem FPSCV104RC7 - new lightmapper
rem FPSCV105RC1 - added new flag 'glightmappingold'
useoldlightmapper=glightmappingold
usedarklightmapper=1-glightmappingold
if usedarklightmapper=1
 rem DarkLIGHTS Settings
 LM Start
endif

remstart
*
* Shadow Lights
*
* - Shows lights with a negative colour value to remove light from a scene
*
remend

rem render setup
sync on
sync rate 0
set camera range 1,1000
randomize timer()
autocam off
color backdrop 0

set text font "Verdana" : set text size 14

rem call this command to create the light mapper
LM Start

rem make some objects for the scene
make object box 1,100,1,100
make object sphere 2,10

position object 1,0,-0.5,0
position object 2,0,10,-10

rem add level as collision objects to cast shadows
LM Add Collision Object 1
LM Add Collision Object 2
LM Build collision Data

rem creates a negative colour light, it will remove light from places it hits instead of adding light
LM Add Point Light 0,20,-20,300,-1.0,-1.0,-1.0
make object sphere 100,1.0
position object 100,0,20,-20

rem set the ambient light to white to give the shadow light something to remove
LM Set Ambient Light 1.0,1.0,1.0

rem add level as a light map object to receive lightmaps
LM Add Light Map Object 1
LM Add Light Map Object 2

rem start the light mapping thread
starttimer=timer()
LM Build Light Maps Thread 1024,4.0,1

load dll "Kernel32.dll",1
sync off

rem get current status and display whilst running
while LM Get Complete()=0

   rem make DBPro wait before trying again
   call dll 1,"Sleep",100
   cls
   set cursor 0,0
   print LM Get Status( );"  ";int(LM Get Percent());"%"

endwhile

sync on
endtimer = timer()

rem light mapping complete remove all collision and light map objects and lights.
LM Reset

rem position camera and reset mouse movement
position camera 0,50,-50
point camera 0,0,0
null = mousemovex()
null = mousemovey()

do
   if ( keystate(59)=1 and f1Timer<timer() )
      f1Timer = timer()+300

      F1Pressed=1-F1Pressed
   endif

   rem display the build time
   set cursor 0,0
   if F1Pressed=0
      center text screen width()/2.0,20,"-- Press F1 For Help --"
   else
      print "Use Arrows Keys to Move, Hold Shift For Slower Movement"
      print
      print "FPS: ";screen fps()
      print "Build Time: ";(endtimer - starttimer)/1000.0;"s"
   endif

   rem control the camera speed
   if shiftkey()=1 then speed# = 0.2*(60.0/screen fps()) else speed#=2.0*(60.0/screen fps())

   rem move and rotate the camera
   angy# = camera angle y()
   angx# = camera angle x()
   if upkey()=1 then move camera speed#
   if downkey()=1 then move camera -speed#
   xrotate camera 0

   if leftkey()=1 then yrotate camera angy#-90 : move camera speed# : yrotate camera angy#
   if rightkey()=1 then yrotate camera angy#+90 : move camera speed# : yrotate camera angy#
   yrotate camera angy#+mousemovex()/3.0
   xrotate camera angx#+mousemovey()/3.0

   sync
loop

end