Started refactoring item and inventory system

1 files changed, 153 insertions, 0 deletions

diff --git a/gamemode/client/hud/cl_healthbar.lua b/gamemode/client/hud/cl_healthbar.lua
new file mode 100644
index 0000000..67a3090
--- /dev/null
+++ b/gamemode/client/hud/cl_healthbar.lua
@@ -0,0 +1,153 @@
+
+hook.Add( "HUDShouldDraw", "HideHUD", function( name )
+	if name == "CHudHealth" then return false end
+end )
+
+--A function that rotates a point around another point
+local function rotatepoint(x,y,cx,cy,rot)
+	rot = math.rad(rot)
+	local cs,sn = math.cos(rot),math.sin(rot)
+	local px = x * cs - y * sn;
+	local py = x * sn + y * cs;
+	return px,py
+end
+
+--Add a function to the draw library to draw elipses for blood
+local segments = 20
+local fade = 0.5
+function draw.DrawElipse(x,y,radius,elong,rotation)
+	rotation = math.rad(rotation)
+	local cir = {}
+	table.insert( cir, { x = x, y = y, u = fade, v = fade } )
+	for i = 0, segments do
+		local a = math.rad( ( i / segments ) * -360 )
+		local xu,yu = math.sin(a),math.cos(a)
+		local xpos = xu * radius * elong
+		local ypos = yu * radius
+		local cs,sn = math.cos(rotation),math.sin(rotation)
+		xpos,ypos = xpos * cs - ypos * sn, xpos * sn + ypos * cs
+		table.insert( cir, {
+			x = x + xpos,
+			y = y + ypos,
+			u = 1,
+			v = 1 } )
+	end
+	surface.DrawPoly( cir )
+end
+
+local width,height = ScrW(),ScrH()
+local padding = height / 32
+local barheight = height / 16
+local bubbles = {}
+local blobs = {}
+local lastpos = 0
+local bubbleradius = height/64
+local delpoint = height
+hook.Add( "Tick", "Hudpaintbloodtick",function()
+	for k,v in pairs(blobs) do
+		if v.y > delpoint then
+			blobs[k] = nil
+		else
+			blobs[k] = {
+				["x"] = v.x + v.xv,
+				["y"] = v.y + v.yv,
+				["xv"] = v.xv,
+				["yv"] = v.yv + 1,
+			}
+		end
+	end
+    for k,v in pairs(bubbles) do
+        if v.y < height - padding - barheight -bubbleradius then
+            bubbles[k] = nil
+        else
+            local subheight = v.y - (1.5 + math.sin((v.y/4) + (v.x*10)))/5
+            bubbles[k].y = subheight
+        end
+    end
+end)
+
+local lasthealth
+local obarlength = width / 4
+local barlength = obarlength
+local xs,ys = padding,height - padding - barheight
+local bubblespawnrate,bubblespawnchance = 1,0.7
+
+timer.Create("Healthbar_bubble_timer",bubblespawnrate,0,function()
+    if math.random() < bubblespawnchance then
+        local newbubble = {
+            ["x"] = math.random(xs + bubbleradius,barlength-bubbleradius),
+            ["y"] = height - padding + bubbleradius
+        }
+        table.insert(bubbles,newbubble)
+    end
+end)
+
+hook.Add( "HUDPaint", "HUD_DrawHealth", function()
+
+	--Spawn a bunch of blobs if our health has changed
+	local health = LocalPlayer():Health()
+	if lasthealth == nil then
+		lasthealth = health
+	end
+	if health ~= lasthealth then
+		local difference = lasthealth - health
+		barlength = obarlength * (health/100)
+		for i=0,difference*3 do
+			local rtime = math.random()
+			timer.Simple(rtime,function()
+				local yvel = -20 + math.random(10)
+				local xvel = (math.random()*5)
+				local xpos = padding + xs + barlength - difference - 5
+				local ypos = ys + (math.random() * barheight)
+				table.insert(blobs,{
+					x = xpos,
+					y = ypos,
+					xv = xvel,
+					yv = yvel,
+				})
+			end)
+		end
+		lasthealth = health
+	end
+	--Draw the current health thing
+        --Background
+	surface.SetDrawColor(100,100,100,100)
+	surface.DrawRect( xs, ys, obarlength, barheight)
+        --Foreground
+	surface.SetDrawColor( 150, 0, 0, 255 )
+	surface.DrawRect( xs, ys, barlength, barheight )
+
+        --Heighlighting/shadows
+    local heighlightheight = barheight/3
+    for k = 1, heighlightheight do
+        local perc = Lerp(k/heighlightheight,100,0)
+        surface.SetDrawColor( 150+perc, perc, perc, 255)
+        surface.DrawRect( xs, ys+k, barlength, 1)
+    end
+    for k = 1, heighlightheight do
+        local perc = Lerp(k/heighlightheight,0,100)
+        surface.SetDrawColor( 150 - perc, 0, 0, 255)
+        surface.DrawRect(xs, ys+k+(2*heighlightheight), barlength, 1)
+    end
+
+    --Draw bubbles
+    render.SetScissorRect( xs, ys, xs + barlength, ys + barheight, true ) -- Enable the rect
+    surface.SetDrawColor(250,150,150,10)
+    for k,v in pairs(bubbles) do
+        surface.DrawCircle(v.x,v.y,bubbleradius,250,150,150,30)
+        draw.DrawElipse(v.x,v.y,bubbleradius,1,0)
+    end
+    render.SetScissorRect( 0, 0, 0, 0, false ) -- Disable after you are done
+
+	--Draw the animation for blobs
+    surface.SetDrawColor(150,0,0,255)
+	for k,v in pairs(blobs) do
+		--Elongation is based on velocity
+		local elong = (v.yv^2 + v.xv^2)^0.5
+		elong = elong/5
+		elong = math.Clamp(elong,1,3)
+		--Rotation is also based on velcotiy
+		local rot = math.deg(math.atan(v.yv/v.xv))
+		draw.DrawElipse(v.x,v.y,10/elong,elong, rot)
+	end
+end )