Move script engine code to xrScriptEngine.

Author: nitrocaster

res/gamedata/shaders/r1/.s

@@ -0,0 +1,41 @@
+--[[
+function printf(fmt,...)
+	log(string.format(fmt,unpack(arg)))
+end
+]]--
+
+t_point_att 	= "internal\\internal_light_attpoint"
+t_rt 		= "$user$rendertarget"
+t_distort	= "$user$distort"
+t_noise		= "fx\\fx_noise2"
+
+function r1_lspot	(shader, t_base, vs, aref)
+	shader:begin	(vs,"add_spot")
+	  		: fog		(false)
+			: zb 		(true,false)
+			: blend		(true,blend.one,blend.one)
+			: aref 		(true,aref or 0)
+	shader:sampler	("s_base")    	:texture	(t_base)
+	shader:sampler	("s_lmap")    	:texture	("internal\\internal_light_att")
+			: clamp		()
+			: f_linear 	()
+			: project   	(true)
+	shader:sampler	("s_att")    	:texture	("internal\\internal_light_attclip")
+			: clamp		()
+			: f_linear	()
+end
+
+function r1_lpoint	(shader, t_base, vs, aref)
+	shader:begin	(vs,"add_point")
+	  		: fog		(false)
+			: zb 		(true,false)
+			: blend		(true,blend.one,blend.one)
+			: aref 		(true,aref or 0)
+	shader:sampler	("s_base")    	:texture	(t_base)
+	shader:sampler	("s_lmap")    	:texture	(t_point_att)
+			: clamp		()
+			: f_linear 	()
+	shader:sampler	("s_att")    	:texture	(t_point_att)
+			: clamp		()
+			: f_linear	()
+end

res/gamedata/shaders/r2/.s

@@ -0,0 +1,40 @@
+--[[
+function printf(fmt,...)
+	log(string.format(fmt,unpack(arg)))
+end
+]]--
+
+--[[
+t_point_att 	= "internal\\internal_light_attpoint"
+
+function r1_lspot	(shader, t_base, vs, aref)
+	shader:begin	(vs,"add_spot")
+	  		: fog		(false)
+			: zb 		(true,false)
+			: blend		(true,blend.one,blend.one)
+			: aref 		(true,aref or 0)
+	shader:sampler	("s_base")    	:texture	(t_base)
+	shader:sampler	("s_lmap")    	:texture	("internal\\internal_light_att")
+			: clamp		()
+			: f_linear 	()
+			: project   	(true)
+	shader:sampler	("s_att")    	:texture	("internal\\internal_light_attclip")
+			: clamp		()
+			: f_linear	()
+end
+
+function r1_lpoint	(shader, t_base, vs, aref)
+	shader:begin	(vs,"add_point")
+	  		: fog		(false)
+			: zb 		(true,false)
+			: blend		(true,blend.one,blend.one)
+			: aref 		(true,aref or 0)
+	shader:sampler	("s_base")    	:texture	(t_base)
+	shader:sampler	("s_lmap")    	:texture	(t_point_att)
+			: clamp		()
+			: f_linear 	()
+	shader:sampler	("s_att")    	:texture	(t_point_att)
+			: clamp		()
+			: f_linear	()
+end
+]]--