AddCSLuaFile("shared.lua")
include("shared.lua")

ENT.MODEL = "models/props_c17/briefcase001a.mdl"
ENT.LASTINGEFFECT = 30;
ENT.HASHIGH = true
ENT.MULTIPLY = 1
ENT.LACED = {}

--console commands
CreateConVar( "durgz_witty_sayings", "1", { FCVAR_REPLICATED, FCVAR_ARCHIVE } )  --0 for no witty sayings when you take the drug 
CreateConVar( "durgz_roleplay", "0", { FCVAR_REPLICATED, FCVAR_ARCHIVE } ) --set to 1 for none of those "special" side effects (like ultimate speed and really low gravity)

function ENT:SpawnFunction( ply, tr ) 
   
 	if ( !tr.Hit ) then return end 
 	 
 	local SpawnPos = tr.HitPos + tr.HitNormal * 16 
 	 
 	local ent = ents.Create( self.Classname ) 
 		ent:SetPos( SpawnPos ) 
 	ent:Spawn() 
 	ent:Activate() 
 	 
 	return ent 
 	 
 end 

function ENT:Initialize()	

	self:SetModel( self.MODEL )
	
	self:PhysicsInit( SOLID_VPHYSICS )

	local phys = self:GetPhysicsObject()  	
	if phys:IsValid() then  		
		phys:Wake()  	
	end
	
	self.LACED = {};
	
	if( self.MASS )then
		self.Entity:GetPhysicsObject():SetMass( self.MASS );
	end
	
end

 function ENT:OnTakeDamage( dmginfo ) 
   
 	self.Entity:TakePhysicsDamage( dmginfo ) 
 	 
 end 

 
local function DoHigh(activator, caller, class, lastingeffect, transition_time, overdosephrase, nicknames)
		--if you're transitioning to the end and you take another, smoothen it out
		if activator:GetNetworkedFloat(class.."_high_end") && activator:GetNetworkedFloat(class.."_high_end") > CurTime() && activator:GetNetworkedFloat(class.."_high_end") - transition_time < CurTime() then
			--set the high start in such a way to where it doesn't snap to the start time, goes smoooothly.
			local set = CurTime() - ( activator:GetNetworkedFloat(class.."_high_end") - CurTime() );
			activator:SetNetworkedFloat(class.."_high_start", set);
			
		--if you're not high at all
		elseif( !activator:GetNetworkedFloat(class.."_high_start") || activator:GetNetworkedFloat(class.."_high_end") < CurTime() )then
			activator:SetNetworkedFloat(class.."_high_start", CurTime());
		end
		
		--high is done
		local ctime;
		if( !activator:GetNetworkedFloat(class.."_high_end") || activator:GetNetworkedFloat(class.."_high_end") < CurTime() )then
			ctime = CurTime();
		--you're already high on the drug,  add more highness
		else
			ctime = activator:GetNetworkedFloat(class.."_high_end") - lastingeffect/3;
		end
		activator:SetNetworkedFloat(class.."_high_end", ctime + lastingeffect);
		
		if( activator:GetNetworkedFloat(class.."_high_end") && activator:GetNetworkedFloat(class.."_high_end") - lastingeffect*5 > CurTime() )then
			--kill em
			activator.DURGZ_MOD_DEATH = class;
			activator.DURGZ_MOD_OVERDOSE = overdosephrase[math.random(1, #overdosephrase)];
			activator.DURGZ_MOD_NICKNAMES = nicknames[math.random(1, #nicknames)];
			activator:Kill();

		end
end

hook.Add("PlayerDeath", "durgz_death_notice", function(victim, inflictor, attacker)

	if( victim.DURGZ_MOD_DEATH )then
			--add shmexy killicon
			umsg.Start( "PlayerKilledByDrug" ) 
					umsg.Entity( victim );
			 		umsg.String( victim.DURGZ_MOD_DEATH );
			umsg.End()
			local s = victim.DURGZ_MOD_OVERRIDE or victim:Nick().." "..victim.DURGZ_MOD_OVERDOSE.." "..victim.DURGZ_MOD_NICKNAMES.." and died.";
			/*for id,pl in pairs(player.GetAll())do
				pl:PrintMessage(HUD_PRINTTALK, s);
			end*/
			MsgAll(s);
			victim.DURGZ_MOD_DEATH = nil;
			victim.DURGZ_MOD_OVERDOSE = nil;
			victim.DURGZ_MOD_NICKNAMES = nil;
			victim.DURGZ_MOD_OVERRIDE = nil;
	return true end
	
end)

function ENT:Use(activator,caller)
	umsg.Start("durgz_lose_virginity", activator)
	umsg.End()

	self:High(activator,caller);
	if( self.HASHIGH )then
		DoHigh( activator, caller, self:GetClass(), self.LASTINGEFFECT, self.TRANSITION_TIME, self.OverdosePhrase, self.Nicknames );
	end
	self:AfterHigh(activator, caller);
	
	for k,v in pairs(self.LACED)do
		local drug = ents.Create(v);
		drug:Spawn();
		drug:High(activator,caller);
		DoHigh( activator, caller, drug:GetClass(), drug.LASTINGEFFECT, drug.TRANSITION_TIME, drug.OverdosePhrase, drug.Nicknames );
		drug:AfterHigh(activator,caller);
		drug:Remove();
	end
	
    self.Entity:Remove()
end

--this is pretty much a function you call if you want the person taking the drug to say something, all this function does is check if the console command is a ok.
function ENT:Say(pl, s)
	local bsool = server_settings.Bool( "durgz_witty_sayings", 0 )
	if( s == "" )then return bsool; end
	if( bsool )then
		pl:ConCommand("say "..s);
		return true;
	end
	return false;
end

function ENT:Realistic()
	return server_settings.Bool( "durgz_roleplay", 0 );
end

function ENT:High(activator, caller)
end

function ENT:AfterHigh(activator, caller)
end



	local function SoberUp(pl, x, y, z, ndeath, didntdie)
		--make a smooth transition and not a instant soberization
		local drugs = {
			"weed",
			"cocaine",
			"cigarette",
			"alcohol",
			"mushroom",
			"meth",
			"ecstasy",
			"caffeine",
			"pcp",
			"lsd",
			"opium"
		}
		
		local ttime = {
			6,
			5,
			4,
			6,
			6,
			3,
			3,
			3,
			3,
			6,
			3
		}
		
		--you can't get out of the heroine high because you die when the high ends
		if( !didntdie )then
			table.insert(ttime, 5)
			table.insert(drugs, "heroine")
		end
		
		for i = 1, #drugs do
			local tend = 0
			if( pl:GetNetworkedFloat("durgz_"..drugs[i].."_high_start") + ttime[i] > CurTime() )then
				tend = ( CurTime() - pl:GetNetworkedFloat("durgz_"..drugs[i].."_high_start") ) + CurTime()
			elseif !( pl:GetNetworkedFloat("durgz_"..drugs[i].."_high_end") - ttime[i] < CurTime() )then	
				tend = CurTime() + ttime[i]
			elseif( pl:GetNetworkedFloat("durgz_"..drugs[i].."_high_end") > CurTime() )then
				tend = pl:GetNetworkedFloat("durgz_"..drugs[i].."_high_end")
			end
		
			pl:SetNetworkedFloat("durgz_"..drugs[i].."_high_start", 0)
			pl:SetNetworkedFloat("durgz_"..drugs[i].."_high_end", tend)
		end
		
		--remove cigarette if there is one
		
		/*if( pl.DurgzModCigarette && pl.DurgzModCigarette:IsValid() )then
			pl.DurgzModCigarette:Remove()
			pl.DurgzModCigarette = nil
		end*/
		
		--set speed back to normal
		
		if( pl:GetNetworkedFloat( "durgz_oldSprintSpeed" ) && pl:GetNetworkedFloat("durgz_oldSprintSpeed") != 0)then
			pl:SetWalkSpeed(pl:GetNetworkedFloat( "durgz_oldWalkSpeed" ))
			pl:SetRunSpeed(pl:GetNetworkedFloat( "durgz_oldSprintSpeed" ))
		else
			local ss = pl:GetNetworkedFloat("SprintSpeed")
			local ws = pl:GetNetworkedFloat("WalkSpeed")
			pl:SetNetworkedFloat( "durgz_oldSprintSpeed", ss)
			pl:SetNetworkedFloat( "durgz_oldWalkSpeed", ws)
		end
		
		--set sound to normal
		pl:SetDSP(1, false)
		--no more floating
		pl:SetGravity(1)
		
		if( ndeath )then
			pl:EmitSound(Sound("vo/npc/male01/moan0"..math.random(4,5)..".wav"))
		end
	end
	hook.Add("DoPlayerDeath", "durgz_sober_up_cmd_death", SoberUp)
	hook.Add("PlayerSpawn", "durgz_sober_up_cmd_spawn", SoberUp)

	function ENT:Soberize(pl)
		SoberUp(pl, true, true, true, true, true);
	end