actor VolcanoCannonWep_NormalBar : NormalBar{args 228, 221}
actor VolcanoCannonWep : BaseMM8BDMWep
{
Weapon.AmmoUse 4
Weapon.AmmoGive 28
Weapon.SlotNumber 5
Obituary "$OB_VOLCANOCANNON"
Inventory.Pickupmessage "$PU_VOLCANOCANNON" 
Tag "$TAG_VOLCANOCANNON"
weapon.ammotype "VolcanoCannonAmmo"
inventory.icon "VLCNICON"
Scale 2.0
States
{
SpawnLoop: 
VOLC I 1
loop
Ready: 
VCNW A 0
VCNW A 0 ACS_NamedExecuteWithResult("core_weaponcolor",COLOR_VOLCANOCANNON) 
VCNW A 1 A_WeaponReady
Goto Ready+2
ReadyC: Goto Ready+2
Deselect: 
VCNW A 0
goto DeselectSwap
Select: 
VCNW A 0
goto SelectSwap
Fire: 
VCNW A 0 A_JumpIfNoAmmo("NoAmmo") 
VCNW A 0 A_PlaySoundEx("weapon/volcanocannon","Weapon")
VCNW A 0 A_FireCustomMissile("W_VolcanoCannon",0,1,8,0)
VCN0 ABCDEF 2
VCN0 G 9
VCN0 HIJK 2
Goto Ready+2 
NoAmmo: 
VCNW A 1 ACS_NamedExecute("core_noammo",0)
Goto Ready+2

}
}

actor VolcanoCannonAmmo : Ammo 
{
inventory.amount 1
inventory.maxamount 28
+INVENTORY.IGNORESKILL
}

actor W_VolcanoCannon : BasicProjectile
{
+BRIGHT
renderstyle "translucent"
alpha 1.0
Obituary "$OB_VOLCANOCANNON"
PROJECTILE
Damage (CallACS("vile_cbm_damage",15))
damagetype "VolcanoCannon"
speed 55
Scale 2.5
Height 12
Radius 12
States
{
Spawn:
TNT1 A 0
VOLC A 1
loop
Death:
VOLE A 0 A_ChangeFlag("NOGRAVITY",1)
VOLE A 0 A_ChangeFlag("NOCLIP",1)
VOLE A 0 A_PlaySoundEx("weapon/volcanoexplode","Body")
VOLE A 1 A_FadeOut(0.25)//A_Explode(10,128,0)
TNT1 A 1 
VOLE BCD 1 
TNT1 A 0 A_SpawnItemEx("OilPitIgnite",0,0,8)
VOLE D 1 A_Explode(CallACS("vile_cbm_damage",6),128,0,0,128)
TNT1 A 0 A_SpawnItemEx("OilPitIgnite",0,0,8)
TNT1 A 1
TNT1 A 0 A_SpawnItemEx("OilPitIgnite",0,0,8)
VOLE D 1 A_Explode(CallACS("vile_cbm_damage",6),128,0,0,128)
TNT1 A 0 A_SpawnItemEx("OilPitIgnite",0,0,8)
TNT1 A 1
TNT1 A 0 A_SpawnItemEx("OilPitIgnite",0,0,8)
VOLE D 1 A_Explode(CallACS("vile_cbm_damage",6),128,0,0,128)
TNT1 A 0 A_SpawnItemEx("OilPitIgnite",0,0,8)
TNT1 A 1
TNT1 A 0 A_SpawnItemEx("OilPitIgnite",0,0,8)
VOLE D 1 A_Explode(CallACS("vile_cbm_damage",6),128,0,0,128)
TNT1 A 0 A_SpawnItemEx("OilPitIgnite",0,0,8)
VOLE DCBA 1 A_SpawnItemEx("OilPitIgnite",0,0,8)

stop
}
}
