Initial commit

2 files changed, 384 insertions, 0 deletions

diff --git a/entities/weapons/pill_pigeon/pigeon.lua b/entities/weapons/pill_pigeon/pigeon.lua
new file mode 100644
index 0000000..c9dd11d
--- /dev/null
+++ b/entities/weapons/pill_pigeon/pigeon.lua
@@ -0,0 +1,266 @@
+
+CROW = {}
+
+CROW.BURROWIN = 1
+CROW.BURROWOUT = 2
+CROW.BURROWED = 3
+
+CROW.damage = 25
+CROW.model = Model( "models/crow.mdl" )
+CROW.sounds = {}
+CROW.sounds.attack = Sound( "Weapon_Bugbait.Splat" )
+CROW.sounds.attackHit = Sound( "Weapon_Crowbar.Melee_Hit" )
+CROW.sounds.banghowdy = Sound( "Weapon_Bugbait.Splat" )
+CROW.sounds.burrowIn = Sound( "NPC_CROW.BurrowIn" )
+CROW.sounds.burrowOut = Sound( "NPC_CROW.BurrowOut" )
+
+CROW.Hooks = {}
+
+function CROW.SetSpeeds( ply, run, sprint, crouch )
+	ply:SetWalkSpeed( run )
+	ply:SetRunSpeed( sprint )
+	ply:SetCrouchedWalkSpeed( crouch )
+end
+
+function CROW.Enable( ply )
+	if ( ply.CROW ) then return end
+	if ( CLIENT ) then
+		ply.CROW = true
+		return
+	end
+
+	CROW.BangHowdy( ply )
+	ply.CROW = {}
+	ply.CROW.burrowed = nil
+	ply.CROW.burrowedTimer = 0
+
+	ply.CROW.model = ply:GetModel()
+	ply.CROW.color = ply:GetColor()
+	ply.CROW.speeds = { run = ply:GetWalkSpeed(), sprint = ply:GetRunSpeed(), crouch = ply:GetCrouchedWalkSpeed() }
+
+	CROW.SetSpeeds( ply, 100, 100, 100 )
+	ply:SetHull( Vector( -16, -16, 0 ), Vector( 16, 16, 32 ) )
+	ply:SetHullDuck( Vector( -16, -16, 0 ), Vector( 16, 16, 32 ) )
+
+	ply:SetModel( CROW.model )
+	ply:SetRenderMode( RENDERMODE_TRANSALPHA )
+	ply:SetColor( Color( 255, 255, 255, 0 ) )
+
+	ply.CROW.ghost = CROW.Ghost( ply )
+	ply:SetNetworkedEntity( "CROW.ghost", ply.CROW.ghost )
+	if ( !ply.CROWHasPrinted ) then
+		ply:PrintMessage( HUD_PRINTTALK, "You're a Crow! AWESOME!\nJump to start flying and then jump again to speed up.\nSprint to hop forward.\nReload to make a cute noise.\nMouse 1 or 2 to eat some ground and gain health.\n" )
+		ply.CROWHasPrinted = true
+	end
+	ply.CROW.LastEatenTimer = CurTime() + 15
+end
+
+function CROW.Disable( ply )
+	ply:ResetHull()
+
+	if ( CLIENT ) then
+		ply.CROW = false
+		return
+	end
+
+	if ( !ply.CROW ) then return end
+	CROW.BangHowdy( ply )
+	ply.CROW.ghost:Remove()
+	ply:SetNetworkedEntity( "CROW.ghost", nil )
+	ply:SetModel( ply.CROW.model )
+	ply:SetColor( ply.CROW.color )
+	CROW.SetSpeeds( ply, ply.CROW.speeds.run, ply.CROW.speeds.sprint, ply.CROW.speeds.crouch )
+	ply:SetMoveType( MOVETYPE_WALK )
+	ply.CROW = nil
+
+	/*if ( ply:HasUnlock( "Sprinting_II" ) ) then
+		GAMEMODE:SetPlayerSpeed( ply, 400, 100 )
+	elseif ( ply:HasUnlock( "Sprinting_I" ) ) then
+		GAMEMODE:SetPlayerSpeed( ply, 250, 400 )
+	else
+		GAMEMODE:SetPlayerSpeed( ply, 250, 250 )
+	end*/
+end
+
+if ( CLIENT ) then
+	usermessage.Hook( "CROW.enable", function( um )
+		if ( !IsValid( LocalPlayer() ) || !LocalPlayer().GetActiveWeapon ) then return end
+		local weapon = LocalPlayer():GetActiveWeapon()
+		if ( !IsValid( weapon ) or !weapon:IsWeapon() or weapon:GetClass() != "pill_pigeon" ) then return end
+		CROW.Enable( LocalPlayer() )
+	end )
+
+	usermessage.Hook( "CROW.disable", function( um )
+		if ( !IsValid( LocalPlayer() ) || !LocalPlayer().GetActiveWeapon ) then return end
+		local weapon = LocalPlayer():GetActiveWeapon()
+		if ( IsValid( weapon ) and weapon:IsWeapon() and weapon:GetClass() == "pill_pigeon" ) then return end
+		CROW.Disable( LocalPlayer() )
+	end )
+end
+
+function CROW.BangHowdy( ply )
+	local ed = EffectData()
+	ed:SetOrigin( ply:GetPos() )
+	ed:SetStart( ply:GetPos() )
+	ed:SetScale( 1000 )
+	util.Effect( "cball_explode", ed )
+	ply:EmitSound( CROW.sounds.banghowdy )
+end
+
+function CROW.Burrow( ply )
+	if ( ply.CROW.burrowed != CROW.BURROWED and CurTime() < ply.CROW.burrowedTimer ) then return end
+	if ( !ply.CROW.burrowed ) then
+		if ( ply.CROW.attacking or not ply:OnGround() ) then return end 
+		local t = {}
+		t.start = ply:GetPos()
+		t.endpos = t.start + Vector( 0, 0, -20 )
+		t.filter = ply
+		local tr = util.TraceLine( t )
+		if ( !tr.HitWorld or !( tr.MatType == MAT_DIRT or tr.MatType == MAT_FOLIAGE or tr.MatType == MAT_SAND ) ) then
+			ply:PrintMessage( HUD_PRINTTALK, "You can't eat that. Look for some dirt!" )
+			return
+		end
+		ply:EmitSound( CROW.sounds.burrowIn )
+		ply:SetMoveType( MOVETYPE_WALK )
+		ply.CROW.burrowed = CROW.BURROWIN
+		ply.CROW.burrowedTimer = CurTime() + 0.5
+	else
+		ply:EmitSound( CROW.sounds.burrowOut )
+		ply:DrawShadow( true )
+		ply.CROW.ghost:DrawShadow( true )
+		ply.CROW.burrowed = CROW.BURROWOUT
+		ply.CROW.burrowedTimer = CurTime() + 0.5
+	end
+	ply.CROW.LastEatenTimer = CurTime() + 15
+end
+
+function CROW.BurrowThink( ply )
+	local health = ply:Health()
+	if ( health >= ply:GetMaxHealth() ) then
+		ply.CROW.burrowed = false
+	end
+	if ( !ply.CROW.burrowed ) then return end
+	if ( CurTime() >= ply.CROW.burrowedTimer ) then
+		if ( ply.CROW.burrowed == CROW.BURROWIN ) then
+			ply:DrawShadow( false )
+			ply.CROW.ghost:DrawShadow( false )
+			ply.CROW.burrowed = CROW.BURROWED
+		elseif ( ply.CROW.burrowed == CROW.BURROWOUT ) then
+			ply:SetMoveType( MOVETYPE_WALK )
+			ply.CROW.burrowed = false
+		elseif ( ply.CROW.burrowed == CROW.BURROWED ) then
+			if ( health < ply:GetMaxHealth() ) then ply:SetHealth( math.min( health + 2, ply:GetMaxHealth() ) ) end
+			ply.CROW.burrowedTimer = CurTime() + 1
+		end
+	end
+end
+
+function CROW.Ghost( ply )
+	local e = ents.Create( "prop_dynamic" )
+	e:SetAngles( ply:GetAngles() )
+	e:SetPos( ply:GetPos() )
+	e:SetModel( CROW.model )
+	e:SetCollisionGroup( COLLISION_GROUP_NONE )
+	e:SetMoveType( MOVETYPE_NONE )
+	e:SetSolid( SOLID_NONE )
+	e:SetParent( ply )
+	e:Spawn()
+	return e
+end
+
+function CROW.Hooks.KeyPress( ply, key )
+	local health = ply:Health()
+	if ( !ply.CROW ) then return end
+
+	if ( ply.CROW.burrowed ) then
+		ply:SetMoveType( 0 )
+		return
+	end
+
+	if ( health < 30 ) then
+		GAMEMODE:SetPlayerSpeed( ply, 50, 100 )
+	end
+
+	if ( health >= 30 ) then
+		if ( key == IN_JUMP and ply:IsOnGround() ) then
+			ply:SetMoveType( 4 )
+			ply:SetVelocity( ply:GetForward() * 300 + Vector( 0, 0, 100 ) )
+		elseif ( key == IN_JUMP and ply:IsOnGround() ) then
+			ply:SetMoveType( 2 )
+		elseif ( key == IN_JUMP and !ply:IsOnGround() ) then
+			ply:SetVelocity( ply:GetForward() * 300 + ply:GetAimVector() )
+		elseif ply:IsOnGround() then
+			ply:SetMoveType( 2 )
+		elseif ( !ply:IsOnGround() and key == IN_WALK ) then
+			ply:SetMaxSpeed( 250 )
+		else
+			ply:SetMoveType( 0 )
+		end
+	else
+		ply:SetMoveType( 0 )
+	end
+
+	if ( health < 50 ) then return end
+
+	if ( ply:OnGround() and key == IN_SPEED ) then
+		ply:SetVelocity( ply:GetForward() * 1500 + Vector( 0, 0, 100 ) )
+		ply:SetMoveType( 2 )
+	end
+end
+
+function CROW.Hooks.UpdateAnimation( ply )
+	if ( !ply.CROW ) then return end
+
+	local sequence = "idle01"
+	local rate = 1
+	local speed = ply:GetVelocity():Length()
+
+	if ( !ply.CROW.burrowed ) then
+		if ( ply:IsOnGround() ) then
+			ply:SetMoveType( 2 )
+			if ( speed > 0 ) then
+				sequence = "Walk"
+				rate = 2
+				ply:SetMaxSpeed( 200 )
+				if ( speed > 200 ) then
+					sequence = "Run"
+				end
+			end
+		elseif ( !ply:IsOnGround() ) then
+			ply:SetMoveType( 4 )
+			ply:SetMaxSpeed( 100 )
+			sequence = "Soar"
+			if ( speed > 400 ) then sequence = "Fly01" end
+
+			if ( ply:Health() < 30 ) then
+				ply:SetMoveType( 2 )
+				sequence = "Ragdoll"
+			end
+		elseif ( ply:WaterLevel() > 1 ) then
+			sequence = "Soar"
+		end
+	elseif ( ply.CROW.burrowed == CROW.BURROWED ) then
+		sequence = "Eat_a"
+	end
+
+	local sequenceIndex = ply:LookupSequence( sequence )
+	if ( ply:GetSequence() != sequenceIndex ) then
+		ply:Fire( "setanimation", sequence, 0 )
+	end
+	sequenceIndex = ply.CROW.ghost:LookupSequence( sequence )
+	if ( ply.CROW.ghost:GetSequence() != sequenceIndex ) then
+		ply.CROW.ghost:Fire( "setanimation", sequence, 0 )
+	end
+	ply:SetPlaybackRate( rate )
+	ply.CROW.ghost:SetPlaybackRate( rate )
+end
+
+if ( CLIENT ) then return end
+
+hook.Add( "KeyPress", "CROW.KeyPress", CROW.Hooks.KeyPress )
+hook.Add( "UpdateAnimation", "CROW.UpdateAnimation", CROW.Hooks.UpdateAnimation )
+hook.Add( "PlayerSetModel", "CROW.PlayerSetModel", function( ply ) if ( ply.CROW ) then return false end end )
+hook.Add( "SetPlayerAnimation", "CROW.SetPlayerAnimation", function( ply, animation ) if ( ply.CROW ) then return false end end )
+hook.Add( "PlayerHurt", "CROW.PlayerHurt", function( ply, attacker )
+	if ( ply.CROW ) then ply:EmitSound( Sound( "npc/crow/pain" .. math.random( 1, 2 ) .. ".wav", 100, math.random( 95, 105 ) ) ) end
+end )
diff --git a/entities/weapons/pill_pigeon/shared.lua b/entities/weapons/pill_pigeon/shared.lua
new file mode 100644
index 0000000..445f1d2
--- /dev/null
+++ b/entities/weapons/pill_pigeon/shared.lua
@@ -0,0 +1,118 @@
+
+AddCSLuaFile()
+AddCSLuaFile( "pigeon.lua" )
+
+include( "pigeon.lua" )
+
+SWEP.PrintName = "Crow Pill"
+SWEP.Slot = 5
+SWEP.SlotPos = 1
+SWEP.DrawAmmo = false
+SWEP.DrawCrosshair = false
+
+SWEP.Weight = 5
+SWEP.AutoSwitchTo = false
+SWEP.AutoSwitchFrom = false
+
+SWEP.Author = "grea$emonkey"
+SWEP.Contact = ""
+SWEP.Purpose = ""
+SWEP.Instructions = "Press reload to make a cute sound.\nJump to start flying, jump again to speed up."
+
+SWEP.Spawnable = false
+
+SWEP.Primary.ClipSize, SWEP.Secondary.ClipSize = -1, -1
+SWEP.Primary.DefaultClip, SWEP.Secondary.DefaultClip = -1, -1
+SWEP.Primary.Automatic, SWEP.Primary.Automatic = false, false
+SWEP.Primary.Ammo, SWEP.Secondary.Ammo = "none", "none"
+SWEP.ViewModel = Model( "models/weapons/v_hands.mdl" )
+SWEP.WorldModel = Model( "models/weapons/w_crowbar.mdl" )
+
+function SWEP:Deploy()
+	CROW.Enable( self.Owner )
+	if ( CLIENT ) then return end
+	self.Owner:DrawViewModel( false )
+	timer.Simple( 0.01, function() self.Owner:DrawViewModel( false ) end )
+	self.Owner:DrawWorldModel( false )
+	umsg.Start( "CROW.enable", self.Owner )
+	umsg.End()
+	return true
+end
+
+function SWEP:Holster()
+	CROW.Disable( self.Owner )
+	if ( CLIENT ) then return end
+	if ( self.Owner:Health() <= 0 ) then
+		umsg.Start( "CROW.disable", self.Owner )
+		umsg.End()
+	end
+	return true
+end
+
+if ( CLIENT ) then
+
+function SWEP:PrimaryAttack()
+end
+
+function SWEP:SecondaryAttack()
+end
+
+function SWEP:DrawWeaponSelection( x, y, wide, tall, alpha )
+	draw.SimpleText( "5", "HL2MPTypeDeath", x + wide / 2, y + tall * 0.2, Color( 255, 210, 0, 255 ), TEXT_ALIGN_CENTER )
+end
+
+function SWEP:CalcView( ply, pos, ang, fov )
+	if ( !ply.CROW ) then return end
+	ang = ply:GetAimVector():Angle()
+	local ghost = ply:GetNetworkedEntity( "CROW.ghost" )
+	if ( ghost and ghost:IsValid() ) then
+		if ( GetViewEntity() == ply ) then
+			ghost:SetColor( Color( 255, 255, 255, 255 ) )
+		else
+			ghost:SetColor( Color( 255, 255, 255, 255 ) )
+			return
+		end
+	end
+
+	local t = {}
+	t.start = ply:GetPos() + ang:Up() * 20
+	t.endpos = t.start + ang:Forward() * -50
+	t.filter = ply
+	local tr = util.TraceLine( t )
+	pos = tr.HitPos
+
+	if ( tr.Fraction < 1 ) then pos = pos + tr.HitNormal * 2 end
+	return pos, ang, fov
+end
+
+return end
+
+function SWEP:Destroy()
+	hook.Remove( "KeyPress","CROW.KeyPress" )
+	hook.Remove( "PlayerHurt", "CROW.PlayerHurt" )
+	hook.Remove( "PlayerSetModel", "CROW.PlayerSetModel" )
+	hook.Remove( "SetPlayerAnimation", "CROW.SetPlayerAnimation" )
+	hook.Remove( "UpdateAnimation", "CROW.UpdateAnimation" )
+end
+
+function SWEP:PrimaryAttack()
+	CROW.Burrow( self.Owner )
+end
+
+function SWEP:SecondaryAttack()
+	self:PrimaryAttack()
+end
+
+SWEP.NextCrowTimer = 0
+function SWEP:Reload()
+	if ( CurTime() >= self.NextCrowTimer ) then
+		self.NextCrowTimer = CurTime() + 2
+		self.Owner:EmitSound( Sound( "npc/crow/idle" .. math.random( 1, 4 ) .. ".wav", 100, math.random( 90, 110 ) ) )
+	end
+end
+
+function SWEP:Think()
+	self.Owner.CROW.ghost:SetLocalAngles( self.Owner:GetAngles() )
+	self.Owner.CROW.ghost:SetAngles( self.Owner:GetAngles() )
+	CROW.BurrowThink( self.Owner )
+end