Advertisement
Tenrys13

cl_tenrys_simple_hud_main

Jun 17th, 2013
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 4.24 KB | None | 0 0
  1. --X52 HUD based by Sauermaster and modified by Tenrys
  2. if CLIENT then
  3.  
  4.     surface.CreateFont("Normal",{font = "Arial",size = 18,weight = 700,antialias = true,additive = false})
  5.     surface.CreateFont("Big",{font = "Myriad Pro",size = 28,weight = 500,antialias = true,additive = false})
  6.     surface.CreateFont("BigBig",{font = "Myriad Pro",size = 44,weight = 300,antialias = true,additive = false})
  7.  
  8.     function sauermodhud()
  9.         local ply = LocalPlayer()
  10.         if !ply:Alive() then return end
  11.         if (ply:GetActiveWeapon() == NULL or ply:GetActiveWeapon() == "camera") then return end
  12.         local pc = team.GetColor(ply:Team())
  13.         local pt = team.GetName(ply:Team())
  14.         local wep = ply:GetActiveWeapon()
  15.         local wepname = ply:GetActiveWeapon():GetClass()
  16.         local leftammo = ply:GetAmmoCount(wep:GetPrimaryAmmoType())
  17.         local clip = wep:Clip1()
  18.        
  19.         txt = {}
  20.         txt.l=TEXT_ALIGN_LEFT
  21.         txt.c=TEXT_ALIGN_CENTER
  22.         txt.r=TEXT_ALIGN_RIGHT
  23.         txt.t=TEXT_ALIGN_TOP
  24.         txt.b=TEXT_ALIGN_BOTTOM
  25.        
  26.         COLOR_WHITE  = Color(255, 255, 255, 255)
  27.         COLOR_BLACK  = Color(0, 0, 0, 255)
  28.         COLOR_GREEN  = Color(0, 255, 0, 255)
  29.         COLOR_DGREEN = Color(0, 100, 0, 255)
  30.         COLOR_DRED    = Color(200, 0, 0, 255)
  31.         COLOR_RED    = Color(255, 0, 0, 255)
  32.         COLOR_YELLOW = Color(255, 255, 100, 255)
  33.         COLOR_LGRAY  = Color(200, 200, 200, 255)
  34.         COLOR_BLUE   = Color(0, 100, 255, 255)
  35.         COLOR_NAVY   = Color(0, 0, 100, 255)
  36.         COLOR_PINK   = Color(255,0,255, 255)
  37.         COLOR_ORANGE = Color(250, 100, 0, 255)
  38.         COLOR_OLIVE  = Color(100, 100, 0, 255)
  39.  
  40.             --Main HUD
  41.         draw.RoundedBox(0,ScrW()*.364,ScrH()-80,ScrW()*.273,80,Color(30,30,30,155))
  42.         surface.SetDrawColor(color_black)
  43.         surface.DrawOutlinedRect(ScrW()*.364,ScrH()-80,ScrW()*.2739,81)
  44.             --HP/Armor
  45.         draw.RoundedBox(0,ScrW()*.44,ScrH()-71,243,42,Color(0,0,0,255))
  46.         draw.RoundedBox(0,ScrW()*.44,ScrH()-68,240,18,Color(50,25,25,255))
  47.         draw.RoundedBox(0,ScrW()*.4412,ScrH()-69,math.Clamp(ply:Health(),0,100)*2.390,18,COLOR_DRED)
  48.         draw.RoundedBox(0,ScrW()*.4412,ScrH()-69,math.Clamp(ply:Health(),0,100)*2.390,6,Color(255,255,255,30))
  49.         draw.RoundedBox(0,ScrW()*.4412,ScrH()-69,math.Clamp(ply:Health(),0,100)*2.390,2.75,Color(255,255,255,30))
  50.         draw.RoundedBox(0,ScrW()*.4412,ScrH()-50,238,18,Color(30,30,30,255))
  51.         if ply:Armor() >= 1 then
  52.             draw.RoundedBox(0,ScrW()*.4412,ScrH()-49,math.Clamp(ply:Armor(),0,100)*2.390,18,Color(0,125,200))
  53.             draw.RoundedBox(0,ScrW()*.4412,ScrH()-49,math.Clamp(ply:Armor(),0,100)*2.390,6,Color(255,255,255,30))
  54.             draw.RoundedBox(0,ScrW()*.4412,ScrH()-49,math.Clamp(ply:Armor(),0,100)*2.390,2.75,Color(255,255,255,30))
  55.         else end
  56.         draw.SimpleTextOutlined(ply:Health().." HP","Normal",ScrW()*.405,ScrH()-60,COLOR_DRED,txt.c,txt.c,1,Color(0,0,0,255))
  57.         draw.SimpleTextOutlined(ply:Armor().." AP","Normal",ScrW()*.405,ScrH()-40,COLOR_BLUE,txt.c,txt.c,1,Color(0,0,0,255))
  58.             --Ammo [WIP]
  59.         if clip != -1 and wepname != "weapon_physcannon" then
  60.             draw.RoundedBox(0,ScrW()*.74,ScrH()-70,ScrW()*.133,50,Color(30,30,30,100))
  61.             surface.SetDrawColor(color_black)
  62.             surface.DrawOutlinedRect(ScrW()*.74,ScrH()-70,ScrW()*.133,50)
  63.             draw.SimpleTextOutlined("AMMO","Big",ScrW()*.775,ScrH()-85,COLOR_YELLOW,txt.c,txt.c,1.25,Color(0,0,0,255))
  64.             draw.SimpleTextOutlined("/","BigBig",ScrW()*.805,ScrH()-44,Color(255,255,255,255),txt.c,txt.c,1.25,Color(0,0,0,255))
  65.             draw.SimpleTextOutlined(leftammo,"Big",ScrW()*.835,ScrH()-44,Color(255,255,255,255),txt.c,txt.c,1.25,Color(0,0,0,255))
  66.             draw.SimpleTextOutlined(clip,"BigBig",ScrW()*.775,ScrH()-44,Color(255,255,255,255),txt.c,txt.c,1,Color(0,0,0,255))
  67.         end
  68.             --OS Date                                          
  69.         draw.SimpleTextOutlined(os.date("%A, %B %d, %H:%M"),"Big",ScrW()*.5,ScrH()-15,Color(255,255,255,255),txt.c,txt.c,1,Color(0,0,0,255))
  70.             --User Name
  71.         draw.SimpleTextOutlined(ply:GetName(),"Big",ScrW()*.505,ScrH()-100,Color(125,200,0,255),txt.l,txt.c,1,Color(0,0,0,255))
  72.             --User Group
  73.         draw.SimpleTextOutlined(pt,"Big",ScrW()*.502,ScrH()-100,Color(pc.r,pc.g,pc.b,255),txt.r,txt.c,1,Color(0,0,0,255))
  74.             --Low HP Warning [separate file]
  75.     end
  76.  
  77.     hook.Add("HUDPaint", "HUD", sauermodhud)
  78.     function hidehud(name)
  79.         for k, v in pairs{"CHudHealth", "CHudBattery", "CHudAmmo"} do
  80.             if name == v then return false end
  81.         end
  82.     end
  83.     hook.Add("HUDShouldDraw", "hidehud", hidehud)
  84. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement