From 773394d47df878b9d4a5966dbe27acde3421c345 Mon Sep 17 00:00:00 2001 From: cheetah Date: Mon, 3 May 2021 20:16:14 +0200 Subject: [PATCH] Add files via upload --- .../entities/scripted_ferriswheel/shared.lua | 29 +++ .../entities/scripted_ferriswheel/sv_init.lua | 190 ++++++++++++++++++ 2 files changed, 219 insertions(+) create mode 100644 scripted_ferriswheel/lua/entities/scripted_ferriswheel/shared.lua create mode 100644 scripted_ferriswheel/lua/entities/scripted_ferriswheel/sv_init.lua diff --git a/scripted_ferriswheel/lua/entities/scripted_ferriswheel/shared.lua b/scripted_ferriswheel/lua/entities/scripted_ferriswheel/shared.lua new file mode 100644 index 0000000..32c8a41 --- /dev/null +++ b/scripted_ferriswheel/lua/entities/scripted_ferriswheel/shared.lua @@ -0,0 +1,29 @@ +AddCSLuaFile() +if SERVER then + include("sv_init.lua") +end +DEFINE_BASECLASS( "base_anim" ) +ENT.Base = "base_anim" +ENT.Type = "anim" + +ENT.Spawnable = true +ENT.AdminSpawnable = true +ENT.PrintName = "Ferris Wheel" +ENT.Category = "catSIXe" +ENT.Author = "" + +if CLIENT then + function ENT:Initialize() + + end + function ENT:OnRemove() + if self.CSoundLoop then self.CSoundLoop:Stop() end + end + function ENT:Think() + if not self.CSoundLoop or self.CSoundLoop:IsPlaying() == false then + self.CSoundLoop = CreateSound(self, "ambience/mechwhine.wav") + self.CSoundLoop:Play() + end + self.CSoundLoop:ChangeVolume(0.2) + end +end \ No newline at end of file diff --git a/scripted_ferriswheel/lua/entities/scripted_ferriswheel/sv_init.lua b/scripted_ferriswheel/lua/entities/scripted_ferriswheel/sv_init.lua new file mode 100644 index 0000000..2fabeb0 --- /dev/null +++ b/scripted_ferriswheel/lua/entities/scripted_ferriswheel/sv_init.lua @@ -0,0 +1,190 @@ +function ENT:CreatePhysicsProp(mdl) + local ent = ents.Create("prop_physics") + ent:SetModel(mdl) + ent:Spawn() + --ent.PhysgunDisabled = true + self:DeleteOnRemove(ent) + return ent +end +function ENT:CreateParentedProp(mdl) + local ent = self:CreatePhysicsProp(mdl) + ent:SetParent(self) + ent:SetAngles(self:GetAngles()) + ent:SetLocalPos(Vector(0)) + return ent +end +function ENT:Initialize() + self:SetModel("models/props_fairground/ferriswheel/base.mdl") + self:PhysicsInit(SOLID_VPHYSICS) + self:SetSolid(SOLID_VPHYSICS) + self:SetMoveType(MOVETYPE_VPHYSICS) + local phys = self:GetPhysicsObject() + if IsValid(phys) then phys:SetMass(50000) end +end +function ENT:Populate() + local selfAng = self:GetAngles() + self:CreateParentedProp("models/props_fairground/ferriswheel/bg_wall.mdl") + self:CreateParentedProp("models/props_fairground/ferriswheel/label.mdl") + + self.Holder = self:CreatePhysicsProp("models/props_fairground/ferriswheel/holder.mdl") + self.Holder:SetPos(self:GetPos()-Vector(0,0,25)) + self.Holder:GetPhysicsObject():SetMass(25000) + --self.Holder:SetMoveType(MOVETYPE_VPHYSICS) + self.Holder:GetPhysicsObject():EnableMotion(false) + + self.Gondels = {} -- should be named Carrige + self.Wheel = self:CreatePhysicsProp("models/props_fairground/ferriswheel/wheel.mdl") + self.Wheel:SetPos(self:GetPos()-Vector(0,0,25)) + self.Wheel:GetPhysicsObject():SetMass(25000) + local wheelAxis = constraint.AdvBallsocket( + self.Holder, self.Wheel, + 0, 0, + Vector(0, 62,665.247742), + Vector(0, 62,665.247742), + 0, 0, + 0, -180,90, + 0, 180, 90, + 0, 2, 0, + 0, 0 + ) + + for i,k in pairs(self.Wheel:GetAttachments()) do + local newGondel = #self.Gondels + 1 + local gondelAttachment = self.Wheel:GetAttachment( i ) + self.Gondels[ newGondel ] = self:CreatePhysicsProp("models/props_fairground/ferriswheel/gondel.mdl") + self.Gondels[ newGondel ]:GetPhysicsObject():EnableMotion(false) + self.Gondels[ newGondel ]:SetColor(HSVToColor(i*30, 1, 1)) + self.Gondels[ newGondel ]:SetPos(gondelAttachment.Pos) + -- ( Ent1, Ent2, Bone1, Bone2, LPos1, LPos2, forcelimit, torquelimit, xmin, ymin, zmin, xmax, ymax, zmax, xfric, yfric, zfric, onlyrotation, nocollide ) + local gondelAxis = constraint.AdvBallsocket( + self.Wheel, self.Gondels[ newGondel ], + 0, 0, + self.Wheel:WorldToLocal(gondelAttachment.Pos), Vector(0,0,0), + 0, 0, + 0, -180, 90, + 0, 180, 90, + 0,0,0, + 0, 1 + ) + MsgN("gondelAxis="..tostring(gondelAxis)) + self.Gondels[ newGondel ]:GetPhysicsObject():EnableMotion(true) + self.Gondels[ newGondel ]:GetPhysicsObject():SetMass(500) + end + self.Holder:SetAngles(selfAng) + self.Wheel:SetAngles(selfAng) + for i,k in pairs(self.Gondels) do k:SetAngles(selfAng) end + constraint.Weld(self.Holder, self, 0, 0, 0, 1) +end +local targetSpeed = 8 +function ENT:Think() + if not self.FirstThink then + self.FirstThink = true + self:Populate() + end + local phys = self.Wheel:GetPhysicsObject() + local wheelSpeed = phys:GetAngleVelocity():Length() + --MsgN(wheelSpeed) + if wheelSpeed > targetSpeed*1.2 then + phys:EnableMotion(false) + for i,k in pairs(self.Gondels) do k:SetAngles(self:GetAngles()) end + end + if wheelSpeed < targetSpeed then + phys:EnableMotion(true) + end + if self.ReasonToMove then + phys:AddAngleVelocity(Vector(0,wheelSpeed - targetSpeed,0)*10) + end + local playerCount = 0 + for i, k in pairs(self.Gondels) do + for j,l in pairs(k:GetChildren()) do + if l:IsVehicle() && IsValid(l:GetDriver()) then + playerCount = playerCount + 1 + end + end + end + self.ReasonToMove = playerCount > 0 +end +function ENT:SpawnFunction(ply, trace) + local ent = ents.Create("scripted_ferriswheel") + local SpawnAng = ply:EyeAngles() + SpawnAng.p = 0 + SpawnAng.y = SpawnAng.y + 90 + ent:SetAngles( SpawnAng ) + ent:SetPos( trace.HitPos ) + ent:Spawn() + ent:Activate() + return ent +end +-- Tries to find the lowest Gondel and if found, searches for a free seatLocation +function ENT:FindLowestGondel() + local lowestZ, lowestGondel = math.huge, nil + for i, k in pairs(self.Gondels) do + local gondelZ = k:GetPos().z + if gondelZ < lowestZ then + lowestZ = gondelZ + lowestGondel = k + end + end + return lowestGondel +end +function ENT:GetEntryGondel() + local lowestGondel = self:FindLowestGondel() + for i, k in pairs(lowestGondel:GetAttachments()) do + local seatPos = lowestGondel:GetAttachment(i).Pos + local seatAtPosCount = 0 + for i,k in pairs(ents.FindInSphere(seatPos, 5)) do + if k:GetClass() == "prop_vehicle_prisoner_pod" then seatAtPosCount = seatAtPosCount + 1 end + end + if seatAtPosCount == 0 then + return { + status = true, + gondelEntity = lowestGondel, + gondelSeat = i + } + end + end + return { + status = false + } +end +function ENT:TeleportPlayerIntoFreeGondel(ply) + local freeSeat = self:GetEntryGondel() + if freeSeat.status == false then + ply:PrintMessage(HUD_PRINTCENTER, "No seat") + return + end + local gondel = freeSeat.gondelEntity + local attachment = gondel:GetAttachment( freeSeat.gondelSeat ) + local vehicle = ents.Create("prop_vehicle_prisoner_pod") + vehicle:SetPos(attachment.Pos) + local ang = attachment.Ang + ang:RotateAroundAxis(ang:Forward(), -90) + vehicle:SetAngles(ang) + vehicle:SetModel("models/nova/airboat_seat.mdl") + vehicle:SetKeyValue("vehiclescript", "scripts/vehicles/prisoner_pod.txt") + vehicle:SetKeyValue("limitview","0") + vehicle:Spawn() + vehicle:SetNoDraw(true) + vehicle.PositionBeforeEnter = ply:GetPos() + vehicle.IsGondelVehicle = true + vehicle:SetParent(gondel, freeSeat.gondelSeat) + vehicle:Activate() + ply:EnterVehicle(vehicle) +end +function ENT:Use(ply) + --MsgN(self:WorldToLocal(ply:EyePos())) + if ply:KeyDown(IN_SPEED) then + end + if ply.FerrisWheelTimeout && ply.FerrisWheelTimeout > CurTime() then return end + self:TeleportPlayerIntoFreeGondel(ply) +end + + + +hook.Add("PlayerLeaveVehicle", "ferrisWheelExit", function(ply, veh) + if veh.IsGondelVehicle then + SafeRemoveEntity(veh) + ply:SetPos(veh.PositionBeforeEnter) + ply.FerrisWheelTimeout = CurTime() + 2 + end +end) \ No newline at end of file