ACTOR TK3CerebralPossessor : Weapon
{
  Weapon.Kickback 100
  scale 0.2
      	Weapon.AmmoUse 1
	Weapon.AmmoGive 4
	Weapon.AmmoType "TK3SmallCoreAmmo"
		inventory.Icon "TKA5D0"
		Weapon.SelectionOrder 400
  Inventory.PickupMessage "Cerebral Possessor"
  Obituary  "%k used a pistol to shoot down %o."
  	Inventory.PickupSound "Turok3/Items/PickupWeapon"
	+WEAPON.EXPLOSIVE
	  TAG "Cerebral Possessor"
  States
  {
  Spawn:
    TKA3 P -1
    Loop
  Ready:
	TNT1 A 0 A_PlaySound ("Turok3/Weapons/BoreUp","Weapon")
    TK42 A 2 
    TK42 B 2
    TK42 C 2
    TK42 D 2
    TK42 E 2
    TK42 F 2
    TK42 GJKLMNO 2 A_WeaponReady
	MK26 ABCDEFGHIJKLMNOPQRST 2 A_WeaponReady
    Goto Ready+7
  Deselect:
    MK27 STUVXYZ 2
    TK09 O 0 A_Lower
    wait
  Select: 
    TK42 G 0 A_Raise 
    Loop  
  Fire: 
 	TNT1 A 0 A_PlaySound ("Turok3/Weapons/BoreAttack","Weapon")
	TNT1 A 0 A_FireCustomMissile("TK3BorePossessorShot", -1, 1, 6, 5)
	TNT1 A 0 A_FireCustomMissile("TK3BorePossessorShot", -1, 1, 3, 5)
    MK26 UVXYZ 2
	MK27 ABCDEFGHIJKLMNOPQR 2
    Goto Ready+7
  }
}

actor TK3BorePossessorShot
{
  Obituary "%o was shown who is the boss by %k's Cerebral Possessor."
  radius 8
  height 8
  speed 8
  damage 90
  DamageType Explosive
        radius 8
  height 8
  scale 0.1
  PROJECTILE
  	+BLOODSPLATTER
  +RANDOMIZE
  +ROCKETTRAIL
  +SEEKERMISSILE
    +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("TK3BorePossessorBoom",0,0,0,random(0,0),random(0,0),0)
STOP
}}

ACTOR TK3BorePossessorBoom
{
DamageType Explosive
SCALE 1.2
  Obituary "%o was shown who is the boss by %k's Cerebral Possessor."
+NOGRAVITY
+FORCEXYBILLBOARD
+BRIGHT

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

