mirror of
https://github.com/lifestorm/wnsrc.git
synced 2025-12-17 21:53:46 +03:00
Upload
This commit is contained in:
lifestorm
578
lua/pac3/editor/client/about.lua
Normal file
578
lua/pac3/editor/client/about.lua
Normal file
@@ -0,0 +1,578 @@
|
||||
--[[
|
||||
| This file was obtained through the combined efforts
|
||||
| of Madbluntz & Plymouth Antiquarian Society.
|
||||
|
|
||||
| Credits: lifestorm, Gregory Wayne Rossel JR.,
|
||||
| Maloy, DrPepper10 @ RIP, Atle!
|
||||
|
|
||||
| Visit for more: https://plymouth.thetwilightzone.ru/
|
||||
--]]
|
||||
|
||||
local DEMO = {}
|
||||
|
||||
DEMO.Title = "Sand"
|
||||
DEMO.Author = "Capsadmin"
|
||||
|
||||
local lines =
|
||||
{
|
||||
--surface.GetTextureID("sprites/laser"),
|
||||
--surface.GetTextureID("sprites/bluelaser"),
|
||||
surface.GetTextureID("effects/laser1"),
|
||||
surface.GetTextureID("trails/laser"),
|
||||
}
|
||||
|
||||
local sprites =
|
||||
{
|
||||
surface.GetTextureID("particle/fire"),
|
||||
}
|
||||
|
||||
local white = surface.GetTextureID("vgui/white")
|
||||
|
||||
function DEMO:DrawLineEx(x1,y1, x2,y2, w, skip_tex)
|
||||
w = w or 1
|
||||
if not skip_tex then surface.SetTexture(white) end
|
||||
|
||||
local dx,dy = x1-x2, y1-y2
|
||||
local ang = math.atan2(dx, dy)
|
||||
local dst = math.sqrt((dx * dx) + (dy * dy))
|
||||
|
||||
x1 = x1 - dx * 0.5
|
||||
y1 = y1 - dy * 0.5
|
||||
|
||||
surface.DrawTexturedRectRotated(x1, y1, w, dst, math.deg(ang))
|
||||
end
|
||||
|
||||
do
|
||||
local fonts = {}
|
||||
|
||||
local function create_fonts(font, size, weight, blursize)
|
||||
local main = "pretty_text_" .. size .. weight
|
||||
local blur = "pretty_text_blur_" .. size .. weight
|
||||
|
||||
surface.CreateFont(
|
||||
main,
|
||||
{
|
||||
font = font,
|
||||
size = size,
|
||||
weight = weight,
|
||||
antialias = true,
|
||||
additive = true,
|
||||
}
|
||||
)
|
||||
|
||||
surface.CreateFont(
|
||||
blur,
|
||||
{
|
||||
font = font,
|
||||
size = size,
|
||||
weight = weight,
|
||||
antialias = true,
|
||||
blursize = blursize,
|
||||
}
|
||||
)
|
||||
|
||||
return
|
||||
{
|
||||
main = main,
|
||||
blur = blur,
|
||||
}
|
||||
end
|
||||
|
||||
local def_color1 = Color(255, 255, 255, 255)
|
||||
local def_color2 = Color(0, 0, 0, 255)
|
||||
|
||||
local surface_SetFont = surface.SetFont
|
||||
local surface_SetTextColor = surface.SetTextColor
|
||||
local surface_SetTextPos = surface.SetTextPos
|
||||
local surface_DrawText = surface.DrawText
|
||||
local surface_GetTextSize = surface.GetTextSize
|
||||
|
||||
function DEMO:DrawPrettyText(text, x, y, font, size, weight, blursize, color1, color2, align_mult_x, align_mult_y)
|
||||
align_mult_x = align_mult_x or 0
|
||||
align_mult_y = align_mult_y or 0
|
||||
font = font or "Arial"
|
||||
size = size or 14
|
||||
weight = weight or 0
|
||||
blursize = blursize or 1
|
||||
color1 = color1 or def_color1
|
||||
color2 = color2 or def_color2
|
||||
|
||||
fonts[font] = fonts[font] or {}
|
||||
fonts[font][size] = fonts[font][size] or {}
|
||||
fonts[font][size][weight] = fonts[font][size][weight] or {}
|
||||
fonts[font][size][weight][blursize] = fonts[font][size][weight][blursize] or create_fonts(font, size, weight, blursize)
|
||||
|
||||
surface_SetFont(fonts[font][size][weight][blursize].blur)
|
||||
local w, h = surface_GetTextSize(text)
|
||||
surface_SetTextColor(color2)
|
||||
|
||||
align_mult_x = (w * align_mult_x)
|
||||
align_mult_y = (h * align_mult_y)
|
||||
|
||||
for i = 1, 5 do
|
||||
surface_SetTextPos(x - align_mult_x, y - align_mult_y) -- this resets for some reason after drawing
|
||||
surface_DrawText(text)
|
||||
end
|
||||
|
||||
surface_SetFont(fonts[font][size][weight][blursize].main)
|
||||
surface_SetTextColor(color1)
|
||||
|
||||
surface_SetTextPos(x - align_mult_x, y - align_mult_y)
|
||||
surface_DrawText(text)
|
||||
|
||||
return w, h
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
function DEMO:OnStart(w, h)
|
||||
|
||||
input.SetCursorPos(w/2, h/2)
|
||||
|
||||
surface.SetDrawColor(0,0,0,255)
|
||||
surface.DrawRect(0,0,w,h)
|
||||
|
||||
self.first = true
|
||||
self.cam_pos = Vector(0, 0, 0)
|
||||
self.spos = Vector(w, h) / 2
|
||||
|
||||
self.max_size = 16
|
||||
|
||||
self.max_particles = 2000
|
||||
self.particles = {}
|
||||
self.base_color = math.random(360)
|
||||
end
|
||||
|
||||
function DEMO:CreateParticle(x, y, vx, vy, life, on_death)
|
||||
life = life or math.Rand(0.25, 2)
|
||||
|
||||
|
||||
local siz = math.Rand(0.5,self.max_size)
|
||||
table.insert(
|
||||
self.particles,
|
||||
{
|
||||
pos = {x = x, y = y},
|
||||
vel = {x = vx, y = vy},
|
||||
siz = siz,
|
||||
clr = HSVToColor(math.Rand(0, 60) + self.base_color, 1, 1),
|
||||
drag = 0.99 - (siz/150) ^ 3,
|
||||
tex_id1 = table.Random(lines),
|
||||
tex_id2 = table.Random(sprites),
|
||||
on_death = on_death,
|
||||
life = self.time + life,
|
||||
random = math.Rand(-1,1),
|
||||
}
|
||||
)
|
||||
end
|
||||
|
||||
function DEMO:PreUpdate(w, h, t, d)
|
||||
if input.IsKeyDown(KEY_W) then
|
||||
self.cam_pos.y = self.cam_pos.y + d
|
||||
elseif input.IsKeyDown(KEY_S) then
|
||||
self.cam_pos.y = self.cam_pos.y - d
|
||||
end
|
||||
|
||||
if input.IsKeyDown(KEY_A)then
|
||||
self.cam_pos.x = self.cam_pos.x - d
|
||||
elseif input.IsKeyDown(KEY_D) then
|
||||
self.cam_pos.x = self.cam_pos.x + d
|
||||
end
|
||||
|
||||
local mat = Matrix()
|
||||
|
||||
mat:Translate(Vector(w/2,h/2,0))
|
||||
|
||||
mat:Translate(Vector(self.cam_pos.x * 100, 0, 0))
|
||||
mat:Scale(Vector(1, 1, 1) * math.min(t ^ 4, 1))
|
||||
mat:Rotate(Angle(0, 0, 0))
|
||||
|
||||
mat:Translate(-Vector(w/2,h/2,0))
|
||||
|
||||
return mat
|
||||
end
|
||||
|
||||
local ext_vel_x = 0
|
||||
local ext_vel_y = 0
|
||||
local ext_vel_z = 0
|
||||
|
||||
local blur = Material("pp/blurscreen")
|
||||
|
||||
local function blur_screen(w, h, x, y)
|
||||
surface.SetMaterial(blur)
|
||||
surface.SetDrawColor(255, 50, 50, 2)
|
||||
|
||||
for i = 0, 10 do
|
||||
blur:SetFloat("$blur", i / 10)
|
||||
blur:Recompute()
|
||||
render.UpdateScreenEffectTexture()
|
||||
surface.DrawTexturedRect(x * math.random(-16, 16), y * math.random(-16, 16), w, h)
|
||||
end
|
||||
end
|
||||
|
||||
surface.CreateFont("pace_about_1", {font = "Roboto Bold", size = 512, weight = 800, additive = false, antialias = true})
|
||||
|
||||
local credits = {}
|
||||
local A = function(str, size, ...) table.insert(credits, {str, size or isstring(str) and 1 or nil, ...}) end
|
||||
|
||||
local cast = {
|
||||
"morshmellow",
|
||||
"immortalyes",
|
||||
"kilroy",
|
||||
"white queen",
|
||||
"dizrahk",
|
||||
"kerahk",
|
||||
"Nomad'Zorah vas Source",
|
||||
"Verbal Silence",
|
||||
"Madness",
|
||||
"Techbot",
|
||||
"Elmo",
|
||||
"Arctic",
|
||||
"krionikal",
|
||||
"Gm Matsilagi",
|
||||
"Daft Lad",
|
||||
"GigiSpahz",
|
||||
"Black Tea",
|
||||
"RocketMania",
|
||||
"ssogal",
|
||||
"Expresso",
|
||||
"Ryokon!",
|
||||
"Zeriga",
|
||||
"Aeo",
|
||||
"techbot",
|
||||
"midori",
|
||||
"sauer",
|
||||
"LilTrenya",
|
||||
"maarc",
|
||||
"dekota",
|
||||
"liltrenya",
|
||||
"nanori",
|
||||
"svetlana",
|
||||
"scud",
|
||||
}
|
||||
|
||||
local koreans = {
|
||||
"black tea",
|
||||
"ssogal",
|
||||
"girong",
|
||||
"scud",
|
||||
"명박오니●",
|
||||
"rocketmania",
|
||||
"maybe",
|
||||
"lac",
|
||||
"chupa",
|
||||
"momo",
|
||||
"천령씨",
|
||||
}
|
||||
|
||||
local japanese = {
|
||||
"kilroy",
|
||||
"bubu",
|
||||
"ゆっけりあーの",
|
||||
"yomofox",
|
||||
"zaguya",
|
||||
"acchan",
|
||||
"cabin mild",
|
||||
"enngawa",
|
||||
"freeman",
|
||||
"piichan",
|
||||
"fia",
|
||||
}
|
||||
|
||||
for _, text in RandomPairs(japanese) do
|
||||
A(text, 1, 0)
|
||||
end
|
||||
|
||||
A("00:06 - *DEAD* Bubu: おおおっきいいいいおおおおおおお", 2)
|
||||
|
||||
for _, text in RandomPairs(koreans) do
|
||||
A(text, 1, 0)
|
||||
end
|
||||
|
||||
A("ㅋㅋㅋㅋㅋㅋㅋㅋㅋ", 2)
|
||||
|
||||
for _, text in RandomPairs(cast) do
|
||||
A(text, 1, 0)
|
||||
end
|
||||
|
||||
A("makeup department", 2)
|
||||
|
||||
A(4)
|
||||
|
||||
A("black tea", 1)
|
||||
A("momo", 1.5)
|
||||
A("yomofox", 1)
|
||||
A("translations", 2)
|
||||
|
||||
A("your imagination")
|
||||
A("garry")
|
||||
A("puush")
|
||||
A("gdrive")
|
||||
A("dropbox")
|
||||
A("metastruct")
|
||||
A("Production Management", 2)
|
||||
|
||||
A("workshop")
|
||||
A("garrysmod.org")
|
||||
A("nexusmods")
|
||||
A("valve")
|
||||
A("Art Direction", 2)
|
||||
|
||||
A("Mark James")
|
||||
A("Editor Icons", 2)
|
||||
|
||||
A("Morten")
|
||||
A("HTML Department", 2)
|
||||
A(4)
|
||||
A("capsadmin", 1)
|
||||
A("written and managed by", 1)
|
||||
A("pac3", 4)
|
||||
|
||||
local start_height = 0
|
||||
local text_size = 32
|
||||
local text_spacing = 4
|
||||
|
||||
for k,v in pairs(credits) do
|
||||
if v[2] then
|
||||
v[1] = v[1]:upper()
|
||||
start_height = start_height + text_size + text_spacing
|
||||
end
|
||||
end
|
||||
|
||||
start_height = start_height * 1.75
|
||||
|
||||
function DEMO:DrawCredits(w, h, d, t, pos)
|
||||
local last_height = 0
|
||||
|
||||
for i, data in pairs(credits) do
|
||||
if not data[2] then
|
||||
last_height = last_height + data[1] * text_size + text_spacing
|
||||
else
|
||||
local w, h = self:DrawPrettyText(
|
||||
data[1],
|
||||
self.spos.x,
|
||||
-t * 30 + self.spos.y - last_height + start_height,
|
||||
|
||||
"Roboto-Black",
|
||||
text_size * data[2],
|
||||
|
||||
0,
|
||||
10,
|
||||
|
||||
Color(255, 255, 255, 200),
|
||||
Color(255, 100, 255, 50),
|
||||
|
||||
data[3] or 0.5,
|
||||
1
|
||||
)
|
||||
|
||||
last_height = last_height + h * data[2] + text_spacing
|
||||
end
|
||||
end
|
||||
|
||||
self.spos = self.spos + ((pos - self.spos) * d)
|
||||
end
|
||||
|
||||
function DEMO:DrawParticles(w, h, d, t, pos)
|
||||
d = d * 50
|
||||
|
||||
local mult = 0.00001
|
||||
|
||||
if input.IsMouseDown(MOUSE_RIGHT) then
|
||||
mult = 0.0001
|
||||
end
|
||||
|
||||
for i, part in pairs(self.particles) do
|
||||
-- random velocity for some variation
|
||||
part.vel.x = part.vel.x + ((pos.x - part.pos.x) * mult * part.siz) + math.Rand(-0.1,0.1)
|
||||
part.vel.y = part.vel.y + ((pos.y - part.pos.y) * mult * part.siz) + math.Rand(-0.1,0.1)
|
||||
|
||||
-- velocity
|
||||
part.pos.x = part.pos.x + (part.vel.x * d)
|
||||
part.pos.y = part.pos.y + (part.vel.y * d)
|
||||
|
||||
-- friction
|
||||
part.vel.x = part.vel.x * part.drag
|
||||
part.vel.y = part.vel.y * part.drag
|
||||
|
||||
-- collision with other particles (buggy)
|
||||
if part.pos.x - part.siz < 0 then
|
||||
part.pos.x = 0 + part.siz * 1
|
||||
part.vel.x = part.vel.x * -part.drag
|
||||
end
|
||||
|
||||
if part.pos.x + part.siz > w then
|
||||
part.pos.x = w - part.siz
|
||||
part.vel.x = part.vel.x * -part.drag
|
||||
end
|
||||
|
||||
if part.pos.y - part.siz < 0 then
|
||||
part.pos.y = 0 + part.siz * 1
|
||||
part.vel.y = part.vel.y * -part.drag
|
||||
end
|
||||
|
||||
if part.pos.y + part.siz > h then
|
||||
part.pos.y = h + part.siz * -1
|
||||
part.vel.y = part.vel.y * -part.drag
|
||||
end
|
||||
|
||||
local l = (part.vel.x * part.vel.y) + 5
|
||||
l = l * 0.75
|
||||
|
||||
local life_scale = math.min(part.life - t, 1) ^ 2
|
||||
local s = math.min(part.siz * l + 40, 100)
|
||||
|
||||
surface.SetTexture(part.tex_id2)
|
||||
|
||||
surface.SetDrawColor(part.clr.r, part.clr.g, part.clr.b, 255)
|
||||
self:DrawLineEx(
|
||||
part.pos.x,
|
||||
part.pos.y,
|
||||
part.pos.x - part.vel.x*l,
|
||||
part.pos.y - part.vel.y*l,
|
||||
|
||||
part.siz * life_scale, true
|
||||
)
|
||||
|
||||
s = s * life_scale
|
||||
|
||||
surface.SetDrawColor(part.clr.r*0.1*l, part.clr.g*0.1*l, part.clr.b*0.1*l, 255)
|
||||
surface.DrawTexturedRect(
|
||||
(part.pos.x - s * 0.5),
|
||||
(part.pos.y - s * 0.5),
|
||||
s,
|
||||
s
|
||||
)
|
||||
|
||||
if part.life < t and (not part.on_death or part:on_death() ~= false) then
|
||||
self.particles[i] = nil
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
function DEMO:DrawPostProcess(w, h, d, t, pos)
|
||||
local params = {}
|
||||
|
||||
params["$pp_colour_addr"] = 0
|
||||
params["$pp_colour_addg"] = 0
|
||||
params["$pp_colour_addb"] = 0
|
||||
params["$pp_colour_brightness"] = -0.1
|
||||
params["$pp_colour_contrast"] = 0.8
|
||||
params["$pp_colour_colour"] = math.sin(t) * 1 - 0.5
|
||||
params["$pp_colour_mulr"] = math.sin(t) / 3
|
||||
params["$pp_colour_mulg"] = math.cos(t) / 2
|
||||
params["$pp_colour_mulb"] = math.asin(t) / 2
|
||||
DrawColorModify(params)
|
||||
|
||||
local vel = ((self.last_pos or pos) - pos):Length() / 200
|
||||
|
||||
if vel > 1 then
|
||||
self.cursor = "arrow"
|
||||
else
|
||||
self.cursor = "none"
|
||||
end
|
||||
|
||||
vel = vel + 0.1
|
||||
|
||||
DrawSunbeams(0.5, vel, 0.05, self.spos.x / w, self.spos.y / h)
|
||||
blur_screen(w, h, self.spos.x / w, self.spos.y / h)
|
||||
end
|
||||
|
||||
local function ang_to_dir(ang, scale)
|
||||
ang = math.deg(ang)
|
||||
scale = scale or 1
|
||||
return math.sin(ang) * scale, math.cos(ang) * scale
|
||||
end
|
||||
|
||||
function DEMO:SpawnFireworks(x, y)
|
||||
local vx, vy = ang_to_dir(math.Rand(-45, 45), math.Rand(10, 20))
|
||||
self:CreateParticle(x, y, vx, vy, nil, function(part)
|
||||
for i = -90, 90 do
|
||||
self:CreateParticle(part.pos.x, part.pos.y, ang_to_dir(i * 2, math.Rand(1, 5) * math.Rand(1, 2)))
|
||||
end
|
||||
|
||||
self.base_color = self.base_color + math.Rand(30, 60)
|
||||
end)
|
||||
end
|
||||
|
||||
function DEMO:OnDraw(w, h, d, t, pos)
|
||||
|
||||
-- background
|
||||
surface.SetDrawColor(0, 0, 0, 20)
|
||||
surface.DrawRect(w*-1, h*-1, w*4, h*4)
|
||||
|
||||
if input.IsMouseDown(MOUSE_LEFT) then
|
||||
self:SpawnFireworks(input.GetCursorPos())
|
||||
end
|
||||
|
||||
if math.random() > 0.99 then
|
||||
self:SpawnFireworks(math.Rand(0, w), h - 20)
|
||||
end
|
||||
|
||||
self:DrawCredits(w, h, d, t, pos)
|
||||
self:DrawParticles(w, h, d, t, pos)
|
||||
self:DrawPostProcess(w, h, d, t, pos)
|
||||
|
||||
self.last_pos = pos
|
||||
end
|
||||
|
||||
function DEMO:OnUpate(w, h, d, t, pos, first)
|
||||
self.time = t
|
||||
|
||||
if first then
|
||||
local ok, err = pcall(self.OnStart, self, w, h)
|
||||
if not ok then return ok, err end
|
||||
end
|
||||
|
||||
local ok, mat = pcall(self.PreUpdate, self, w, h, t, d)
|
||||
|
||||
if not ok then return ok, mat end
|
||||
|
||||
cam.Start2D()
|
||||
if mat then cam.PushModelMatrix(mat) end
|
||||
local ok, err = pcall(self.OnDraw, self, w, h, d, t, pos)
|
||||
if mat then cam.PopModelMatrix() end
|
||||
cam.End2D()
|
||||
|
||||
return ok, err
|
||||
end
|
||||
|
||||
function pace.ShowAbout()
|
||||
|
||||
local pnl = vgui.Create("Panel")
|
||||
pnl:SetPos(0, 0)
|
||||
pnl:SetSize(ScrW(), ScrH())
|
||||
pnl:MakePopup()
|
||||
|
||||
local html = vgui.Create("DHTML", pnl)
|
||||
html:OpenURL("https://www.youtube.com/watch?v=Kvg7oTfGhYg")
|
||||
|
||||
local first = true
|
||||
local start_time = RealTime()
|
||||
|
||||
pac.AddHook("PreRender", "pace_about", function()
|
||||
|
||||
local w, h = ScrW(), ScrH()
|
||||
local t = RealTime() - start_time
|
||||
local d = FrameTime()
|
||||
|
||||
local ok, err = DEMO:OnUpate(w, h, d, t, Vector(input.GetCursorPos()), first)
|
||||
|
||||
if pnl.last_cursor ~= DEMO.cursor then
|
||||
pnl:SetCursor(DEMO.cursor or "arrow")
|
||||
pnl.last_cursor = DEMO.cursor
|
||||
end
|
||||
|
||||
first = false
|
||||
|
||||
local quit = input.IsKeyDown(KEY_SPACE) or input.IsKeyDown(KEY_ESCAPE) or not ok
|
||||
|
||||
if quit then
|
||||
if not ok then print(err) end
|
||||
pnl:Remove()
|
||||
pac.RemoveHook("PreRender", "pace_about")
|
||||
return
|
||||
end
|
||||
|
||||
return true
|
||||
end)
|
||||
end
|
||||
Reference in New Issue
Block a user