commit 773394d47df878b9d4a5966dbe27acde3421c345
Author: cheetah <git@cheetah.cat>
Date:   Mon May 3 20:16:14 2021 +0200

    Add files via upload

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