ACTOR TK3CerebralBore : Weapon
{
  Weapon.Kickback 100
  scale 0.2
      	Weapon.AmmoUse 1
	Weapon.AmmoGive 4
	Weapon.AmmoType "TK3SmallCoreAmmo"
  Inventory.PickupMessage "Cerebral Bore"
  	inventory.Icon "TKA5B0"
	Weapon.SelectionOrder 400
  Obituary  "%k used a pistol to shoot down %o."
  	Inventory.PickupSound "Turok3/Items/PickupWeapon"
	+WEAPON.EXPLOSIVE
  TAG "Cerebral Bore"
  States
  {
  Spawn:
    TKA3 G -1
    Loop
  Ready:
	TNT1 A 0 A_PlaySound ("Turok3/Weapons/BoreUp","Weapon")
    TK40 A 2 
    TK40 B 2
    TK40 C 2
    TK40 D 2
    TK40 E 2
    TK40 FGHOPQRST 2 A_WeaponReady
	MK22 ABCDEFGHIJKLMN 2 A_WeaponReady
    Goto Ready+9
  Deselect:
    MK23 MNOPQR 2
    TK09 T 0 A_Lower
    wait
  Select: 
    TK40 A 0 A_Raise 
    Loop  
  Fire: 
 	TNT1 A 0 A_PlaySound ("Turok3/Weapons/BoreAttack","Weapon")
	TNT1 A 0 A_FireCustomMissile("TK3BoreShot", -1, 1, 6, 5)
    MK22 OPQRSTUVXYZ 2
	MK23 ABCDEFGHIJKL 2
    Goto Ready+9
  }
}

actor TK3BoreShot
{
  obituary "%o got a noogie from %k."
  radius 8
  height 8
  speed 8
  damage 90
        radius 8
  height 8
  scale 0.1
  PROJECTILE
  	+BLOODSPLATTER
  +RANDOMIZE
    +FORCEXYBILLBOARD
  states
  {
  Spawn:
    TF37 A 6 A_PlaySoundEx("Turok3/Weapons/BoreLoop","Body",1)
    loop
DEATH:
NULL A 0
TNT1 A 0 A_PlaySoundEx("Turok3/Weapons/Boom","Weapon",0)
TNT1 A 0 A_StopSoundEx("Body")
NULL A 0 A_ALERTMONSTERS
NULL A 0 A_SPAWNITEMEX("TK3BoreBoom",0,0,0,random(0,0),random(0,0),0)
STOP
}}

ACTOR TK3BoreBoom
{
SCALE 0.2
	  obituary "%o got a noogie from %k."
+NOGRAVITY
+FORCEXYBILLBOARD
+BRIGHT

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