Code: Select all
Actor TheAncientSkeletonBook : Weapon 7512
{
Inventory.PickupSound "misc/w_pkup"
Weapon.AmmoGive 12
Weapon.AmmoUse 4
Weapon.SlotPriority 0.1
Weapon.AmmoType "DoomedSouls"
Weapon.SlotNumber 8
Weapon.SelectionOrder 750
Inventory.PickupSound "misc/w_pkup"
Inventory.PickupMessage "Sweet! A magic dark book! I hope you know how to read..."
+FloatBob
States
{
Spawn:
NCRO A -1
Loop
Ready:
NECR A 1 A_WeaponReady
Loop
Deselect:
NECR A 1 A_Lower
Loop
Select:
NECR A 1 A_Raise
Loop
Goto NoAmmo
NECR A 4 A_SetBlend("Red", 1, 20)
TNT1 A 0 A_XScream
TNT1 A 0 A_SpawnItemEx("AncientBookNoAmmoDamage")
Goto Ready
Fire:
TNT1 A 0 A_JumpIfInventory("DoomedSouls", 4, "TrueFire")
Goto NoAmmo
TrueFire:
NECR A 30 A_Playsound("Weapons/Incant")
NECR B 10
NECR C 8
NECR D 2
NECR E 16
TNT1 A 0 A_SpawnItemEx("CustomFog")
NECR A 0 A_Spawnitemex("FriendlyMrSpooky", random(-10, 10), random(-10, 10), random(-10, 10), 0, 0, 0, 0, SXF_SetMaster| SXF_NOCHECKPOSITION)
NECR D 4
NECR C 4
NECR B 4
NECR A 4
Goto Ready
}
}