Sorry your browser is not supported!

//LIGHT MAPPER
	//ADD LIGHTS
	If File Exist("addlight") = 1
	Open To Read 22, "addlight"
	If File Open(22) = 1
	Read String 22, lightrange$
	Read String 22, lightcolorr$
	Read String 22, lightcolorg$
	Read String 22, lightcolorb$
	EndIf
	Close File 22
	If lightobject < 10000
	INC lightobject
	Make Object Sphere lightobject, 15
	Position Object lightobject, Camera Position X(0), Camera Position Y(0), Camera Position Z(0) + Object Size Z(lightobject)
	Point Camera 0, Object Position X(lightobject), Object Position Y(lightobject), Object Position Z(lightobject)
	Color Object lightobject, RGB(VAL(lightcolorr$), VAL(lightcolorg$), VAL(lightcolorb$))
	Set Object Fog lightobject, 0
	Set Object Ambient lightobject, 0
	//ADD DYNAMIC LIGHT
	inc dynamiclight
	make light dynamiclight
 color light dynamiclight, rgb(val(lightcolorr$), val(lightcolorg$), val(lightcolorb$))
 set light range dynamiclight, 600
 position light dynamiclight, object position x(lightobject), object position y(lightobject), object position z(lightobject)
 hide light dynamiclight
	Open To Write 23, "Maps/" + currentmapname$ + "/" + "Lights/Static/" + STR$(lightobject)
	If File Open(23) = 1
	Write String 23, lightrange$
	Write String 23, lightcolorr$
	Write String 23, lightcolorg$
	Write String 23, lightcolorb$
	EndIf
	Close File 23
	Delete File "addlight"
	//IF OBJECT IS ALREADY SELECTED APPLY PROPERTIES
	If File Exist("objectselected") = 1
	Hide Object Bounds objectselected
 	objectselected = lightobject
	TG Set Active Object objectselected
	Show Object Bounds objectselected, 1
	//ENGINE OBJECT SELECTED DETECTION
	WriteToObjectSelectedFile()
	EndIf
	//IF OBJECT IS NOT SELECTED ENTER OBJECT SELECTED FUNCTION
	If File Exist("objectselected") = 0
 	objectselected = lightobject
 ObjectSelect()
	Exit
	EndIf
	EndIf
	EndIf
	//BUILD LIGHTS
	If File Exist("buildlights") = 1	
 
 
 
 if effect exist(1) = 1
 delete effect 1
 endif
 
 
 
 for nwobj = 1 to sceneobject
 if object exist(nwobj) = 1
 
 litobjposx# = object position x(nwobj)
 litobjposy# = object position y(nwobj)
 litobjposz# = object position z(nwobj)
 litobjrotx# = object angle x(nwobj)
 litobjroty# = object angle y(nwobj)
 litobjrotz# = object angle z(nwobj)
 litobjscx# = object scale x(nwobj)
 litobjscy# = object scale y(nwobj)
 litobjscz# = object scale z(nwobj)
 
 delete object nwobj
 
 if file exist("Maps/" + currentmapname$ + "/" + "Resources/" + str$(nwobj)) = 1
 open to read 2, "Maps/" + currentmapname$ + "/" + "Resources/" + str$(nwobj)
 if file open(2) = 1
 read string 2, modelnw$
 read string 2, texturenw$
 read string 2, normalmaptexturenw$
 endif
 close file 2
 
 load object modelnw$, nwobj
 position object nwobj, litobjposx#, litobjposy#, litobjposz#
 rotate object nwobj, litobjrotx#, litobjroty#, litobjrotz#
 scale object nwobj, litobjscx#, litobjscy#, litobjscz#
 endif
 endif
 
 next nwobj
 
 LM Start
	LM Clear Collision Objects
	LM Clear Light Map Objects
	LM Clear Lights
	//SET AMBIENT LIGHT
	If File Exist("Maps/" + currentmapname$ + "/" + "Lights/Settings/Ambient Light/AmbientLight") = 1
	Open To Read 24, "Maps/" + currentmapname$ + "/" + "Lights/Settings/Ambient Light/AmbientLight"
	If File Open(24) = 1
	Read String 24, ambientlight$
	EndIf
	Close File 24
	LM Set Ambient Light VAL(ambientlight$), VAL(ambientlight$), VAL(ambientlight$)
	Else
	If File Exist("Maps/" + currentmapname$ + "/" + "Lights/Settings/Ambient Light/AmbientLight") = 0
	LM Set Ambient Light 0.5, 0.5, 0.5
	EndIf
	EndIf
	//SET AMBIENT OCCLUSION
	If File Exist("Maps/" + currentmapname$ + "/" + "Lights/Settings/Ambient Occlusion/AmbientOcclusion") = 1
	Open To Read 25, "Maps/" + currentmapname$ + "/" + "Lights/Settings/Ambient Occlusion/AmbientOcclusion"
	If File Open(25) = 1
	Read String 25, ambientocclusion$
	EndIf
	Close File 25
	If ambientocclusion$ = "enable"
	LM Set Ambient Occlusion On 1, 1, 1
	Else
	If ambientocclusion$ = "disable"
	LM Set Ambient Occlusion Off
	EndIf
	EndIf
	Else
	If File Exist("Maps/" + currentmapname$ + "/" + "Lights/Settings/Ambient Occlusion/AmbientOcclusion") = 0
	LM Set Ambient Occlusion On 1, 1, 1
	EndIf
	EndIf
	For lmaddcollobj = 1 To sceneobject
	If Object Exist(lmaddcollobj) = 1
	LM Add Collision Object lmaddcollobj
	EndIf
	Next lmaddcollobj
	LM Build Collision Data
	For lmaddlmobj = 1 To sceneobject
	If Object Exist(lmaddlmobj) = 1
	LM Add Light Map Object lmaddlmobj
	EndIf
	Next lmaddlmobj
	For litobjs = 9004 To lightobject
	If File Exist("Maps/" + currentmapname$ + "/" + "Lights/Static/" + STR$(litobjs)) = 1	
	Open To Read 26, "Maps/" + currentmapname$ + "/" + "Lights/Static/" + STR$(litobjs)
	If File Open(26) = 1
	Read String 26, lightrange$
	Read String 26, lightcolorr$
	Read String 26, lightcolorg$
	Read String 26, lightcolorb$
	EndIf
	Close File 26
	If Object Exist(litobjs) = 1
	LM Add Point Light Object Position X(litobjs), Object Position Y(litobjs), Object Position Z(litobjs), VAL(lightrange$), VAL(lightcolorr$), VAL(lightcolorg$), VAL(lightcolorb$)
	EndIf
	EndIf
	Next litobjs	
	LM Set Light Map Name currentmapname$
	LM Build Light Maps 256, 1.0, 0.5, 3
	LM Build Light Maps Thread 256, 1.0, 0.5, 3
	Load DLL "Kernel32.dll", 1
	Sync Off
	While LM Get Complete() = 0
	Call DLL 1, "Sleep", 100
	CLS
	
	open to write 1, "lightmapstatus"
	if file open(1) = 1
	write string 1, lm get status()
	endif
	close file 1
	
	EndWhile
	If DLL Exist(1) = 1
	Delete DLL 1
	EndIf
	Sync On
 	LM Terminate Thread
	LM Reset
	If File Exist("Lightmap Quality Changed.txt") = 1
	Delete File "Lightmap Quality Changed.txt"
	EndIf
	
	if file exist("lightmapstatus") = 1
	delete file "lightmapstatus"
	endif
	
	//RELOAD EFFECT
 if effect exist(1) = 0
 load effect "GGbump06a.fx", 1, 0
 null = make vector4(1)
 set vector4 1,-0.57735,-0.57735,0.57735,0
 set effect constant vector 1,"lightDirection", 1
 set vector4 1,1.0,1.0,1.0,1.0
 set effect constant vector 1,"lightColour", 1
 set effect constant float 1, "specLevel", 5.5
 set vector4 1, 0, 10, 0, 0.005
 set effect constant vector 1, "lightPosition", 1
 set vector4 1, 0.0, 0.0, 0.0, 1.0
 set effect constant vector 1, "posLightColour", 1
 set effect technique 1,"t0"
 endif
	//LOAD OBJECT AND APPLY TEXTURES AND SHADER
 for reabobj = 1 to sceneobject
 if object exist(reabobj) = 1
 //READ OBJECT RESOURCES FILE
 if file exist("Maps/" + currentmapname$ + "/" + "Resources/" + str$(reabobj)) = 1
 open to read 1, "Maps/" + currentmapname$ + "/" + "Resources/" + str$(reabobj)
 if file open(1) = 1
 read string 1, model$
 read string 1, texture$
 read string 1, normalmaptexture$
 endif
 close file 1
 //DELETE SHADER IMAGES
 //TEXTURE
 if image exist(reabobj) = 1
 delete image reabobj
 endif
 //NORMAL TEXTURE
 if image exist(reabobj + 89833) = 1
 delete image reabobj + 89833
 endif
 //APPLY TEXTURE
 if file exist(texture$) = 1
 load image texture$, reabobj
 texture object reabobj, 0, reabobj
 endif
 //APPLY NORMAL MAP TEXTURE
 if file exist(normalmaptexture$) = 1
 load image normalmaptexture$, reabobj + 89833
 texture object reabobj, 2, reabobj + 89833
 endif
 set object effect reabobj, 1
 endif
 endif
 next reabobj
	Delete File "buildlights"
	EndIf

sync on
sync rate 60

autocam off

backdrop on 0
color backdrop 0, rgb(0,0,0)

position camera 0,0,5,-200

// load media
load object "Slatted_Fence.x", 100
load image "tunnelson.png", 1
load image "tunnelsonnormal.png", 2

// create scene using clones
obj1x# = object size x(100)
for obj = 1 to 6
  clone object obj, 100
  position object obj, (obj-3)*obj1x#, 0.0, 0.0 
next obj

// hide source objects used for cloning
hide object 100

// apply textures to stage 0
for obj = 1 to 6
  texture object obj, 0, 1
next obj

lightobject = 200 ` the first light created will be object 201, i.e. no lights initially
counter = 0 ` this will be used to give each light map a different name
first = 1 ` used to stop lightmapping being applied several times prematurely
do
  control camera using arrowkeys 0, 1, 2
  //LIGHT MAPPER
  //ADD LIGHT OBJECTS to scene in front of camera's current position
  If spacekey() = 1
    mklit = mklit + 1
    if mklit = 2
      inc lightobject
      Make Object Sphere lightobject, 10
      Position Object lightobject, Camera Position X(0), Camera Position Y(0), Camera Position Z(0) + Object Size Z(lightobject)
      Point Camera 0, Object Position X(lightobject), Object Position Y(lightobject), Object Position Z(lightobject)
      Color Object lightobject, rgb(255, 0, 0)
      set object emissive lightobject, rgb(255, 0, 0)
      Set Object Ambient lightobject, 0
    EndIf
  EndIf
  if spacekey() = 0
    mklit = 0
  endif
    
  //BUILD LIGHTS
  If controlkey() = 1  and first = 1
    first = 0
    // first clear old scene and rebuild using source data
  
    for nwobj = 1 to 6
      if object exist(nwobj) = 1
        litobjposx# = object position x(nwobj)
        litobjposy# = object position y(nwobj)
        litobjposz# = object position z(nwobj)
        litobjrotx# = object angle x(nwobj)
        litobjroty# = object angle y(nwobj)
        litobjrotz# = object angle z(nwobj)
        litobjscx# = object scale x(nwobj)
        litobjscy# = object scale y(nwobj)
        litobjscz# = object scale z(nwobj)
        delete object nwobj
        clone object nwobj, 100
        texture object nwobj, 0, 1
        position object nwobj, litobjposx#, litobjposy#, litobjposz#
        rotate object nwobj, litobjrotx#, litobjroty#, litobjrotz#
        scale object nwobj, litobjscx#, litobjscy#, litobjscz#
      endif
    next nwobj

 repeat
   text 20, 20, "scene rebuilt ready for lightmapping - press <space> to build lightmaps"
   sync
 until spacekey()
 while spacekey()
 endwhile
    inc counter
    LM Start
    LM Clear Collision Objects
    LM Clear Light Map Objects
    LM Clear Lights
    // now add the scene objects to the lightmapper
    LM Set Light Map Name "test"+str$(counter)
    For obj = 1 To 6
        LM Add Collision Object obj
        LM Add Light Map Object obj
    next obj
    // now add lights
    LM Set Ambient Light 0.0, 0.2, 0.1
    for lightobjects = 201 to 500
        If Object Exist(lightobjects) = 1
          LM Add Point Light Object Position X(lightobjects), Object Position Y(lightobjects), Object Position Z(lightobjects), 200, 1.0, 0.0, 0.0
        EndIf
    next lightobjects
    LM Build Collision Data
    LM Build Light Maps 256, 1.0, 0.5, 3
    LM Build Light Maps Thread 256, 1.0, 0.5, 3
    Load DLL "Kernel32.dll", 1
    Sync Off
    While LM Get Complete() = 0
      Call DLL 1, "Sleep", 100
      CLS
    EndWhile
    If DLL Exist(1) = 1
      Delete DLL 1
    EndIf
    Sync On
    LM Terminate Thread
    LM Reset
    //RELOAD EFFECT
    if effect exist(1) = 0
      load effect "GGbump06a.fx", 1, 0
      null = make vector4(1)
      set vector4 1,-0.57735,-0.57735,0.57735,0
      set effect constant vector 1,"lightDirection", 1
      set vector4 1,1.0,1.0,1.0,1.0
      set effect constant vector 1,"lightColour", 1
      set effect constant float 1, "specLevel", 5.5
      set vector4 1, 0, 10, 0, 0.005
      set effect constant vector 1, "lightPosition", 1
      set vector4 1, 0.0, 0.0, 0.0, 1.0
      set effect constant vector 1, "posLightColour", 1
      set effect technique 1,"t0"
    endif
    //APPLY TEXTURES AND SHADER
    for reabobj = 1 to 6
        set object effect reabobj, 1
`        texture object reabobj, 0, 1
        texture object reabobj, 2, 2
    next reabobj
  else
    if controlkey() = 0 then first = 1 ` reset lightmapper ready for use
  EndIf
  sync
loop

end

litobjscx# = object size x(nwobj, 1)/object size x(nwobj)*100
litobjscy# = object size y(nwobj, 1)/object size y(nwobj)*100
litobjscz# = object size z(nwobj, 1)/object size z(nwobj)*100

sync on
sync rate 60
 
autocam off
 
backdrop on 0
color backdrop 0, rgb(0,0,0)
 
position camera 0,0,5,-200
 
// load media
load object "Slatted_Fence.x", 100
load image "tunnelson.png", 1
load image "tunnelsonnormal.png", 2
 
// create scene using clones
obj1x# = object size x(100)
for obj = 1 to 6
  clone object obj, 100
  position object obj, (obj-3)*obj1x#, 0.0, 0.0 
next obj
 
// hide source objects used for cloning
hide object 100
 
// apply textures to stage 0
for obj = 1 to 6
  texture object obj, 0, 1
next obj
 
lightobject = 200 ` the first light created will be object 201, i.e. no lights initially
counter = 0 ` this will be used to give each light map a different name
first = 1 ` used to stop lightmapping being applied several times prematurely
do
  control camera using arrowkeys 0, 1, 2
  //LIGHT MAPPER
  //ADD LIGHT OBJECTS to scene in front of camera's current position
  text 20, 20, "Press <space> to add light in front of camera, <control> to build lightmap"
  If spacekey() = 1
    mklit = mklit + 1
    if mklit = 2
      inc lightobject
      Make Object Sphere lightobject, 10
      Position Object lightobject, Camera Position X(0), Camera Position Y(0), Camera Position Z(0) + Object Size Z(lightobject)
      Point Camera 0, Object Position X(lightobject), Object Position Y(lightobject), Object Position Z(lightobject)
      Color Object lightobject, rgb(255, 0, 0)
      set object emissive lightobject, rgb(255, 0, 0)
      Set Object Ambient lightobject, 0
    EndIf
  Else
    mklit = 0
  endif
     
  //BUILD LIGHTS
  ctrl = controlkey()
  If ctrl = 1  and first = 1
    // build or rebuild lightmaps
    inc counter
    first = 0
    // first clear old scene and rebuild using source data
   
    for nwobj = 1 to 6
      tempObjId = nwobj+(counter-1)*1000
      if object exist(tempObjId) = 1
        litobjposx# = object position x(tempObjId)
        litobjposy# = object position y(tempObjId)
        litobjposz# = object position z(tempObjId)
        litobjrotx# = object angle x(tempObjId)
        litobjroty# = object angle y(tempObjId)
        litobjrotz# = object angle z(tempObjId)
        litobjscx# = object scale x(tempObjId)
        litobjscy# = object scale y(tempObjId)
        litobjscz# = object scale z(tempObjId)
        delete object tempObjId
        inc tempObjId, 1000 ` create new object in next block
        clone object tempObjId, 100
        texture object tempObjId, 0, 1
        position object tempObjId, litobjposx#, litobjposy#, litobjposz#
        rotate object tempObjId, litobjrotx#, litobjroty#, litobjrotz#
        scale object tempObjId, litobjscx#, litobjscy#, litobjscz#
      endif
    next nwobj
 
 repeat
   text 20, 20, "scene rebuilt ready for lightmapping - press <space> to build lightmaps"
   sync
 until spacekey()
 while spacekey()
 endwhile
    LM Start
    LM Clear Collision Objects
    LM Clear Light Map Objects
    LM Clear Lights
    // now add the scene objects to the lightmapper
    LM Set Light Map Name "test"+str$(counter)
    For obj = 1 To 6
        tempObjId = obj + counter*1000
        LM Add Collision Object tempObjId
        LM Add Light Map Object tempObjId
    next obj
    // now add lights
    LM Set Ambient Light 0.0, 0.2, 0.1
    for lightobjects = 201 to 500
        If Object Exist(lightobjects) = 1
          LM Add Point Light Object Position X(lightobjects), Object Position Y(lightobjects), Object Position Z(lightobjects), 200, 1.0, 0.0, 0.0
        EndIf
    next lightobjects
    LM Build Collision Data
    LM Build Light Maps 256, 1.0, 0.5, 3
  `  LM Build Light Maps Thread 256, 1.0, 0.5, 3
  `  Load DLL "Kernel32.dll", 1
  `  Sync Off
  `  While LM Get Complete() = 0
  `    Call DLL 1, "Sleep", 100
  `    CLS
  `  EndWhile
  `  If DLL Exist(1) = 1
  `    Delete DLL 1
  `  EndIf
  `  Sync On
  `  LM Terminate Thread
    LM Reset
    //RELOAD EFFECT
    if effect exist(1) = 0
      load effect "GGbump06a.fx", 1, 0
      null = make vector4(1)
      set vector4 1,-0.57735,-0.57735,0.57735,0
      set effect constant vector 1,"lightDirection", 1
      set vector4 1,1.0,1.0,1.0,1.0
      set effect constant vector 1,"lightColour", 1
      set effect constant float 1, "specLevel", 5.5
      set vector4 1, 0, 10, 0, 0.005
      set effect constant vector 1, "lightPosition", 1
      set vector4 1, 0.0, 0.0, 0.0, 1.0
      set effect constant vector 1, "posLightColour", 1
      set effect technique 1,"t0"
    endif
    //APPLY TEXTURES AND SHADER
    for obj = 1 to 6
        tempObjId = obj + counter*1000
        set object effect tempObjId, 1
`        texture object tempObjId, 0, 1
        texture object tempObjId, 2, 2
    next reabobj
  else
    if controlkey() = 0 then first = 1 ` reset lightmapper ready for use
  EndIf
  sync
loop
 
end

	inc counter
    for nwobj = 1 to sceneobject
      tempObjId = nwobj + (counter-1)*1000
      if object exist(tempObjId) = 1
        litobjposx# = object position x(tempObjId)
        litobjposy# = object position y(tempObjId)
        litobjposz# = object position z(tempObjId)
        litobjrotx# = object angle x(tempObjId)
        litobjroty# = object angle y(tempObjId)
        litobjrotz# = object angle z(tempObjId)
        litobjscx# = object scale x(tempObjId)
        litobjscy# = object scale y(tempObjId)
        litobjscz# = object scale z(tempObjId)
        delete object tempObjId
        //RELOAD OBJECTS
 if file exist("Maps/" + currentmapname$ + "/" + "Resources/" + str$(nwobj)) = 1
 open to read 2, "Maps/" + currentmapname$ + "/" + "Resources/" + str$(nwobj)
 if file open(2) = 1
 read string 2, modelnw$
 read string 2, texturenw$
 read string 2, normalmaptexturenw$
 endif
 close file 2
        inc tempObjId, 1000
        load object modelnw$, tempObjId
        texture object tempObjId, 0, 1
        position object tempObjId, litobjposx#, litobjposy#, litobjposz#
        rotate object tempObjId, litobjrotx#, litobjroty#, litobjrotz#
        scale object tempObjId, litobjscx#, litobjscy#, litobjscz#
      endif
      endif
    next nwobj
    
    LM Start
    LM Clear Collision Objects
    LM Clear Light Map Objects
    LM Clear Lights
    LM Set Light Map Name "test"+str$(counter)
    For obj = 1 To sceneobject
        tempObjId = obj + counter*1000
        if object exist(tempObjId) = 1
        LM Add Collision Object tempObjId
        LM Add Light Map Object tempObjId
        endif
    next obj
    // now add lights
    LM Set Ambient Light 0.0, 0.2, 0.1
    for lightobjects = 9003 to lightobject
        If Object Exist(lightobjects) = 1
          LM Add Point Light Object Position X(lightobjects), Object Position Y(lightobjects), Object Position Z(lightobjects), 200, 1.0, 0.0, 0.0
        EndIf
    next lightobjects
    LM Build Collision Data
    LM Build Light Maps 256, 1.0, 0.5, 3
    LM Reset
    //RELOAD EFFECT
    if effect exist(1) = 0
      load effect "GGbump06a.fx", 1, 0
      null = make vector4(1)
      set vector4 1,-0.57735,-0.57735,0.57735,0
      set effect constant vector 1,"lightDirection", 1
      set vector4 1,1.0,1.0,1.0,1.0
      set effect constant vector 1,"lightColour", 1
      set effect constant float 1, "specLevel", 5.5
      set vector4 1, 0, 10, 0, 0.005
      set effect constant vector 1, "lightPosition", 1
      set vector4 1, 0.0, 0.0, 0.0, 1.0
      set effect constant vector 1, "posLightColour", 1
      set effect technique 1,"t0"
    endif
    //APPLY TEXTURES AND SHADER
    for obj = 1 to sceneobject
        tempObjId = obj + counter*1000
        if object exist(tempObjId) = 1
        //READ OBJECT RESOURCES FILE
 if file exist("Maps/" + currentmapname$ + "/" + "Resources/" + str$(tempObjId)) = 1
 open to read 1, "Maps/" + currentmapname$ + "/" + "Resources/" + str$(tempObjId)
 if file open(1) = 1
 read string 1, model$
 read string 1, texture$
 read string 1, normalmaptexture$
 endif
 close file 1
        set object effect tempObjId, 1
        load image normalmaptexture$, obj + 1000
        load image normalmaptexture$, obj
        texture object tempObjId, 0, 1
        texture object tempObjId, 2, obj + 1000
        endif
        endif
    next obj

       load object modelnw$, tempObjId
       texture object tempObjId, 0, 1

       load image normalmaptexture$, obj + 1000
       load image normalmaptexture$, obj
       texture object tempObjId, 0, 1
       texture object tempObjId, 2, obj + 1000

tempObjId = obj + counter*1000

inc counter
    for nwobj = 1 to sceneobject
      tempObjId = nwobj + (counter-1)*1000
      if object exist(tempObjId) = 1
        litobjposx# = object position x(tempObjId)
        litobjposy# = object position y(tempObjId)
        litobjposz# = object position z(tempObjId)
        litobjrotx# = object angle x(tempObjId)
        litobjroty# = object angle y(tempObjId)
        litobjrotz# = object angle z(tempObjId)
        litobjscx# = object scale x(tempObjId)
        litobjscy# = object scale y(tempObjId)
        litobjscz# = object scale z(tempObjId)
        delete object tempObjId
        //RELOAD OBJECTS
 if file exist("Maps/" + currentmapname$ + "/" + "Resources/" + str$(tempObjId)) = 1
 open to read 2, "Maps/" + currentmapname$ + "/" + "Resources/" + str$(tempObjId)
 if file open(2) = 1
 read string 2, modelnw$
 read string 2, texturenw$
 read string 2, normalmaptexturenw$
 endif
 close file 2
        inc tempObjId, 1000
        load object modelnw$, tempObjId
        position object tempObjId, litobjposx#, litobjposy#, litobjposz#
        rotate object tempObjId, litobjrotx#, litobjroty#, litobjrotz#
        scale object tempObjId, litobjscx#, litobjscy#, litobjscz#
      endif
      endif
    next nwobj
    
    LM Start
    LM Clear Collision Objects
    LM Clear Light Map Objects
    LM Clear Lights
    LM Set Light Map Name "test"+str$(counter)
    For obj = 1 To sceneobject
        tempObjId = obj + counter*1000
        if object exist(tempObjId) = 1
        LM Add Collision Object tempObjId
        LM Add Light Map Object tempObjId
        endif
    next obj
    // now add lights
    LM Set Ambient Light 0.0, 0.2, 0.1
    for lightobjects = 9003 to lightobject
        If Object Exist(lightobjects) = 1
          LM Add Point Light Object Position X(lightobjects), Object Position Y(lightobjects), Object Position Z(lightobjects), 200, 1.0, 0.0, 0.0
        EndIf
    next lightobjects
    LM Build Collision Data
    LM Build Light Maps 256, 1.0, 0.5, 3
    LM Reset
    //RELOAD EFFECT
    if effect exist(1) = 0
      load effect "GGbump06a.fx", 1, 0
      null = make vector4(1)
      set vector4 1,-0.57735,-0.57735,0.57735,0
      set effect constant vector 1,"lightDirection", 1
      set vector4 1,1.0,1.0,1.0,1.0
      set effect constant vector 1,"lightColour", 1
      set effect constant float 1, "specLevel", 5.5
      set vector4 1, 0, 10, 0, 0.005
      set effect constant vector 1, "lightPosition", 1
      set vector4 1, 0.0, 0.0, 0.0, 1.0
      set effect constant vector 1, "posLightColour", 1
      set effect technique 1,"t0"
    endif
    //APPLY TEXTURES AND SHADER
    for obj = 1 to sceneobject
        tempObjId = obj + counter*1000
        if object exist(tempObjId) = 1
        //READ OBJECT RESOURCES FILE
 if file exist("Maps/" + currentmapname$ + "/" + "Resources/" + str$(tempObjId)) = 1
 open to read 1, "Maps/" + currentmapname$ + "/" + "Resources/" + str$(tempObjId)
 if file open(1) = 1
 read string 1, model$
 read string 1, texture$
 read string 1, normalmaptexture$
 endif
 close file 1
        set object effect tempObjId, 1
        load image texture$, obj
        load image normalmaptexture$, obj + 1000
        texture object tempObjId, 0, obj
        texture object tempObjId, 2, obj + 1000
        endif
        endif
    next obj

tempObjId = obj + counter*1000

//APPLY TEXTURES AND SHADER
    for obj = 1 to sceneobject
        tempObjId = obj + counter*1000
        if object exist(tempObjId) = 1
        //READ OBJECT RESOURCES FILE
 if file exist("Maps/" + currentmapname$ + "/" + "Resources/" + str$(tempObjId)) = 1
 open to read 1, "Maps/" + currentmapname$ + "/" + "Resources/" + str$(tempObjId)
 if file open(1) = 1
 read string 1, model$
 read string 1, texture$
 read string 1, normalmaptexture$
 endif
 close file 1
        set object effect tempObjId, 1
        load image texture$, obj
        load image normalmaptexture$, obj + 1000
        texture object tempObjId, 0, obj
        texture object tempObjId, 2, obj + 1000
        endif
        endif

For obj = 1 To sceneobject
        tempObjId = obj + counter*1000
        if object exist(tempObjId) = 1
        LM Add Collision Object tempObjId
        LM Add Light Map Object tempObjId
        endif
    next obj

set vector4 1, val(lightcolorr$)/255.0, val(lightcolorg$)/255.0, val(lightcolorb$)/255.0, ???

//DETECT LIGHT PROPERTIES FOR LIVE LIGHT
	If objectselected >= 9004
	If File Exist("Maps/" + currentmapname$ + "/" + "Lights/Static/" + STR$(objectselected)) = 1
	Open To Read 3, "Maps/" + currentmapname$ + "/" + "Lights/Static/" + STR$(objectselected)
	If File Open(3) = 1
	Read String 3, lightrange$
	Read String 3, lightcolorr$
	Read String 3, lightcolorg$
	Read String 3, lightcolorb$
	EndIf
	Close File 3
	//CONVERT VALUES
 	lightrange# = val(lightrange$)
 	lightcolorr = val(lightcolorr$)
 lightcolorg = val(lightcolorg$)
 lightcolorb = val(lightcolorb$)
 //NON SHADED
 if lightsbuilt = 0
 If Light Exist(10001) = 1
 Delete Light 10001
 EndIf
	Make Light 10001
	Position Light 10001, Object Position X(objectselected), Object Position Y(objectselected), Object Position Z(objectselected)
	Color Light 10001, VAL(lightcolorr$), VAL(lightcolorg$), VAL(lightcolorb$)
	Set Light Range 10001, VAL(lightrange$)
	Color Object objectselected, RGB(VAL(lightcolorr$), VAL(lightcolorg$), VAL(lightcolorb$))
	endif
	//SHADED
	if lightsbuilt = 1
	set vector4 1, object position x(objectselected), object position y(objectselected), object position z(objectselected), 1.0/val(lightrange$)
 set effect constant vector 1, "lightPosition", 1
 set vector4 1, 255.0/val(lightcolorr$), 255.0/val(lightcolorg$), 255.0/val(lightcolorb$), 1.0
 set effect constant vector 1, "posLightColour", 1
 endif
	EndIf
	EndIf
	//NON SHADED
	If Light Exist(10001) = 1
	Position Light 10001, Object Position X(objectselected), Object Position Y(objectselected), Object Position Z(objectselected)
	EndIf