Added BlitzPointer for some functions (like UpdateSecurityCams) (migh…

…t still need some work) | added Devil Particle System (still not used much, but added for a spark effect for the tunnel room's lights) | fixed some bugs relating to BlitzAL | The document from inrto will now spawn in player inventory if inrto is disabled | added Ulgrin informing command before opening the cell door

about the Pointers: I know that 2 functions are still not used. That's because they were originally used for the DrawHUD and UpdateNPCs functions, altough there wasn't a big difference at all because those functions don't need a lot of millisecs to render per frame. The UpdateSecurityCams function needs a lot of millisecs in room2sl and it still does use like more than 70 millisecs per frame in room2sl which is too much. That's also why the rotation for each camera in room2sl had it's rotation disabled temporary so that it gets at least a little bit more of FPS.

DL_Lights.bb

@@ -0,0 +1,152 @@
+;
+;
+; Textured spotlight thingy
+;
+; Created by Mikkel Fredborg
+; Use as you please!
+;
+
+Type dl_receiver
+	Field mesh
+End Type
+
+Type dl_light
+	Field entity
+	Field range#
+	Field scale#
+	Field intensity#
+	Field flicker#
+	Field flickerrange#
+	Field r#,g#,b#
+End Type
+
+Global dl_brush
+Global dl_tex
+
+Global BigRoomMesh
+
+Function DL_Init()
+
+	;ClearTextureFilters
+	;dl_tex = LoadTexture("..\GFX\player\flashlightblur.png",1+16+32)
+	dl_tex = LoadTexture("GFX\flashlightblur.png",1+2+16+32+256)
+
+	dl_brush = CreateBrush()
+	;BrushBlend dl_brush,3
+	BrushFX dl_brush,1+2
+	BrushTexture dl_brush,dl_tex
+
+	BigRoomMesh = CreateMesh()
+
+End Function
+
+Function DL_Free()
+	Local dlr.dl_receiver, dll.dl_light
+
+	For dlr.dl_receiver = Each dl_receiver
+		;If dlr\mesh<>0 Then FreeEntity dlr\mesh
+		Delete dlr
+	Next
+
+	For dll.dl_light = Each dl_light
+		Delete dll
+	Next
+
+	;If dl_tex	Then FreeTexture dl_tex
+	;If dl_brush	Then FreeBrush dl_brush
+
+	dl_tex		= 0
+	dl_brush	= 0
+
+End Function
+
+Function DL_SetReceiver(mesh,scaleX#=1.0,scaleY#=1.0,scalez#=1.0)
+	Local dlr.dl_receiver
+
+	dlr.dl_receiver = New dl_receiver
+	dlr\mesh = CopyMesh(mesh,mesh)
+	;ScaleEntity dlr\mesh,scaleX#,scaleY#,scalez#
+	;PositionEntity dlr\mesh,EntityX(mesh),EntityY(mesh),EntityZ(mesh)
+	PaintMesh dlr\mesh,dl_brush
+
+End Function
+
+Function DL_SetLight(entity,range#=500.0,scale#=0.75,intensity#=2.0,flicker#=0.05,flickerrange#=0.5,r#=200,g#=220,b#=255)
+	Local dll.dl_light
+
+	dll.dl_light = First dl_light
+
+	If dll = Null
+		dll.dl_light = New dl_light
+	End If
+
+	dll\entity 	 = entity
+	dll\range  	 = range
+	dll\scale		= scale
+	dll\intensity = intensity
+	dll\flicker	 = flicker
+	dll\flickerrange = flickerrange
+
+	dll\r		= r
+	dll\g		= g
+	dll\b		= b
+
+End Function
+
+Function DL_Update()
+	Local dll.dl_light, dlr.dl_receiver, intensity#, mesh, n_surfs, s, surf, n_verts, v, x#, y#, z#, dist#, falloff#, dot#
+
+	dll.dl_light = First dl_light
+	If dll = Null Then Return
+
+	If Rnd(0.0,1.0)<dll\flicker
+		intensity# = dll\intensity*Rnd(dll\flickerrange,1.0)
+	Else
+		intensity# = dll\intensity
+	End If
+
+	For dlr.dl_receiver = Each dl_receiver
+		If dlr\mesh <> 0
+			;If EntityDistance(dlr\mesh,Camera)<10.0
+				mesh = dlr\mesh
+				n_surfs = CountSurfaces(mesh)
+				For s = 1 To n_surfs
+					surf = GetSurface(mesh,s)
+					n_verts = CountVertices(surf)-1
+					For v = 0 To n_verts
+						TFormPoint VertexX(surf,v),VertexY(surf,v),VertexZ(surf,v),mesh,dll\entity
+						x# = TFormedX()
+						y# = TFormedY()
+						z# = TFormedZ()
+
+						dist# = Sqr(x*x + y*y + z*z)*dll\scale
+						;;tu# = (x/dist)+0.5
+						;;tv# = 1.0-((y/dist)+0.5)
+
+						;;VertexTexCoords surf,v,tu,tv
+						VertexTexCoords surf,v,((TFormedX()/5)+0.5),(1-((TFormedY()/5)+.5))
+
+						If z>dll\range Then z = dll\range
+						falloff# = 1.0-(z/dll\range)
+						If falloff<0.0 Then falloff = 0.0
+						If falloff>1.0 Then falloff = 1.0
+
+						TFormNormal VertexNX(surf,v),VertexNY(surf,v),VertexNZ(surf,v),mesh,dll\entity
+						dot# = -TFormedZ()*falloff*intensity
+						If dot>0.0
+							VertexColor surf,v,dot*dll\r,dot*dll\g,dot*dll\b
+						Else
+							VertexColor surf,v,0,0,0
+						EndIf
+					Next
+				Next
+			;EndIf
+		EndIf
+	Next
+
+End Function
+
+
+;~IDEal Editor Parameters:
+;~F#8#C#1B#2A#3E#49#5F
+;~C#Blitz3D

Data/rooms.ini

@@ -322,6 +322,7 @@ shape = 2
 commonness = 100
 walksound=1
 zone1=2
+usevolumelighting = 1
 
 [tunnel2]
 descr=Metal two-way hallway with an SCP-173 spawn
@@ -330,6 +331,7 @@ shape = 2
 commonness = 70
 walksound=1
 zone1=2
+usevolumelighting = 1
 
 [room035]
 descr=The containment chamber of SCP-035
@@ -346,6 +348,7 @@ commonness = 0
 disabledecals = true
 walksound=1
 zone1=2
+usevolumelighting = 1
 
 [room106]
 descr=The containment chamber of SCP-106
@@ -363,6 +366,7 @@ shape = 2C
 commonness = 40
 walksound=1
 zone1=2
+usevolumelighting = 1
 
 [room2nuke]
 descr=The elevator that takes you to the nuclear warheads
@@ -438,6 +442,7 @@ shape = 3
 commonness = 100
 walksound=1
 zone1=2
+usevolumelighting = 1
 
 [room4tunnels]
 descr=Metal four-way hallway
@@ -446,20 +451,23 @@ shape = 4
 commonness = 100
 walksound=1
 zone1=2
+usevolumelighting = 1
 
 [room513]
 descr=The containment chamber of SCP-513
 mesh path=GFX\map\room513_opt.rmesh
 shape = 3
 commonness = 0
 zone1=2
+usevolumelighting = 1
 
 [room966]
 descr=The containment chamber of SCP-966
 mesh path=GFX\map\room966_opt.rmesh
 shape = 3
 commonness = 0
 zone1=2
+usevolumelighting = 1
 
 [room3z2]
 descr=A T-Shaped hallway room in the HCZ