--s★_tool -> rflc

--[[
	configuring
	to configure this tool,
	in your _init() or when ever
	you see a need to change 
	the waters settings, you can
	use this code 

	 ◆ s★_rf_sy = 105

	the sample code above
	sets the start-y position of
	the water. 

	 ◆ s★_rf_data = value

	data: 
		◆ sy - start y
	 ◆ bg - background color
	 ◆ ic - ignore color (for cls
	         background colors so it
	         doesn't draw a color that
	         it doesn't need to.

	         if you're using cls(1) then
	         set ic to 1, for example.)
	 ◆ rq - reflection quality
	 ◆ wa - wave amp (how large 
	         it waves left/right)
	 ◆ ws - wave speed (how fast
	         it waves left/right)

]]--
--defaults

s★_rf_sy=104
s★_rf_bg=1
s★_rf_ic=0
s★_rf_rq=13
s★_rf_wa=2
s★_rf_ws=0.02
--wave value, don't mod this
--unless you need to.
s★_rf_wv=0

--reflection effects
s★_rflc = function(mode, data, val)
		--if not configuring, then draw

		rectfill(0, s★_rf_sy, 127, 127, s★_rf_bg)
		local _scl=(s★_rf_rq/127)
		local _ht=127-s★_rf_sy
	 local _flc_col = 0

		for i=0,s★_rf_rq do
			for j=0, _ht do

				local _x=((i/s★_rf_rq)*127)+(cos(s★_rf_wv+(j/6))*(s★_rf_wa+j/8))
				local _s=(s★_rf_rq/128)*10
				local c=pget(_x,s★_rf_sy-j)
				if c!= s★_rf_bg and c!= s★_rf_ic and c != 0 then
 				local _y=(j/2)
   		line(_x-_s-_y-j/14, 1+j+s★_rf_sy, _x+_s+_y+j/14, j+s★_rf_sy, c)
   	end
			end
		end
	s★_rf_wv+=s★_rf_ws
end

s★_rf_sy=104
s★_rf_bg=1
s★_rf_ic=0
s★_rf_rq=13
s★_rf_wa=2
s★_rf_ws=0.02
s★_rf_wv=0
s★_rflc = function(mode, data, val) rectfill(0, s★_rf_sy, 127, 127, s★_rf_bg) local _scl=(s★_rf_rq/127) local _ht=127-s★_rf_sy local _flc_col = 0 for i=0,s★_rf_rq do for j=0, _ht do local _x=((i/s★_rf_rq)*127)+(cos(s★_rf_wv+(j/6))*(s★_rf_wa+j/8)) local _s=(s★_rf_rq/128)*10 local c=pget(_x,s★_rf_sy-j) if c!= s★_rf_bg and c!= s★_rf_ic and c != 0 then local _y=(j/2) line(_x-_s-_y-j/14, 1+j+s★_rf_sy, _x+_s+_y+j/14, j+s★_rf_sy, c) end end end s★_rf_wv+=s★_rf_ws end