ACTOR TK3GrenadeLauncher : Weapon
{
  Weapon.Kickback 100
  scale 0.2
    	Weapon.AmmoUse 1
	Weapon.AmmoGive 5
	Weapon.AmmoType "TK3GrenadeAmmo"
  Inventory.PickupMessage "Grenade Launcher"
  	inventory.Icon "TKA5H0"
  Obituary  "%k used a pistol to shoot down %o."
  Weapon.SelectionOrder 500
  	Inventory.PickupSound "Turok3/Items/PickupWeapon"
	+WEAPON.EXPLOSIVE
	Tag "Grenade Launcher"
  States
  {
  Spawn:
    TKA3 F -1
    Loop
  Ready:
	TNT1 A 0 A_PlaySound ("Turok3/Weapons/GrenadeLauncherUp","Weapon")
    TK32 A 2 
    TK32 B 2
    TK32 C 2
    TK32 D 2
    TK32 E 2
    TK32 F 2
    TK32 G 2
	TK32 H 2
	TK32 I 2
	TK32 J 2
	TK32 K 2
	TK32 L 2
	TK32 M 2
	TK32 N 2
	TK32 O 2
	TK32 P 2
    TK32 P -1 A_WeaponReady
    Goto Ready+9
  Deselect:
    TK33 Q 2
    TK33 RSTUV 2
	TK33 XY 2
    TK33 Y 0 A_Lower
    wait
  Select: 
    TK32 A 0 A_Raise 
    Loop  
  Fire: 
 	TNT1 A 0 A_PlaySound ("Turok3/Weapons/GrenadeLauncherAttack","Weapon")
	TK11 C 0 BRIGHT A_FireCustomMissile("WeaponSmokeSpawn",0,0,22,-2,0)
	TNT1 A 0 A_FireCustomMissile("TK3Grenade", -1, 1, 9, 5)
    TK32 QRSTUXYZ 2
	TK33 ABCDEFGHI 2
	TK33 J 2
	TK33 KLMNOP 2 A_Refire
    Goto Ready+14
  }
}

  ACTOR TK3Grenade
{   
  Speed 48
  Damage 60
  Scale 0.4
        radius 8
  height 8
  Projectile
	  obituary "%o couldn't handle %k's grenade."
	    -NOGRAVITY
		+DOOMBOUNCE
	+DEHEXPLOSION
  +FORCEXYBILLBOARD
  	BounceType "Doom"
	BounceSound "Turok3/Weapons/GrenadeBounce"
    BounceFactor .6
  BounceCount 10
  +RANDOMIZE
  States
  {
  Spawn:
  Spawn:
    TF38 G 0
    TF38 A 2
    TF38 B 2 
    TF38 C 2 
    TF38 D 2 
    TF38 E 2
    Loop
		Grenade:
		MISL A 1000 A_Die
		Wait
			Detonate:
		MISL B 4 A_Scream
		MISL C 6 A_Detonate
		MISL D 10
		Stop
	Mushroom:
		MISL B 8 A_Mushroom
		Goto Death+1
DEATH:
NULL A 0
TNT1 A 0 A_PlaySound ("Turok3/Weapons/Boom")
NULL A 0 A_ALERTMONSTERS
NULL A 0 A_SPAWNITEMEX("TK3GrenadeBoom",0,0,0,random(0,0),random(0,0),0)
STOP
}}


ACTOR TK3GrenadeBoom
{
SCALE 1.5
	  obituary "%o tried to run from %k's grenade."
+NOGRAVITY
+FORCEXYBILLBOARD
+BRIGHT

STATES
{
SPAWN:
NULL A 0
NULL A 0 A_QUAKE(2,100,1,250,"")
NULL A 0 A_EXPLODE(42,200)
1588 HIJKLMNOPQRST 2
STOP
}}