actor PoetryProjectile : BFGBall replaces BFGBall
{
	States
	{
	Spawn:
		PBPR AB 4 bright
		loop
	Death:
		PBPE AB 8 bright
		PBPE C 8 bright A_BFGSpray
		PBPE DEF 8 bright
		stop
	}
}

actor PoetryBook : BFG9000 replaces BFG9000
{
	+FLOATBOB
	Height 29
	Radius 14
	States
	{
	Spawn:
		PBPU A -1
		stop
	Select:
		BOOK A 1 A_Raise
		wait
	Deselect:
		TNT1 A 0 A_PlaySound("weapons/poetry/close", CHAN_WEAPON)
		BOOK OPQRSTUVWXY 2
		BOOK Y 0 A_Lower
		wait
	AltFire:
		TNT1 A 0 A_PlaySound("weapons/poetry/flip", CHAN_WEAPON)
		BOOK IJKLMN 2 A_WeaponReady(WRF_NOFIRE)
		goto Idle
	Flash:
		PBK1 HIJ 3 bright
		stop
	Fire:
		TNT1 A 0 A_BFGsound
		PBK1 AB 3
		PBK1 B 0 A_GunFlash
		PBK1 B 0 A_FireCustomMissile("BFGBall", 0, 1)
		PBK1 CDEFG 3
		goto Idle
	Ready:
		TNT1 A 0 A_PlaySound("weapons/poetry/open", CHAN_WEAPON)
		BOOK BCDEFG 2
		goto Idle
	Idle:
		BOOK H 1 A_WeaponReady
		loop
	}
}
