ACTOR FisherPrice : CustomInventory replaces Infrared
{
  Inventory.Icon ARTIFISH
  Inventory.PickupMessage "You've got the Sam Fisher's fancy spectacles!"
  Inventory.PickupSound "Infrared/Pickup"
  Inventory.MaxAmount 100
  Inventory.Amount 100
  Inventory.InterHubAmount 100
  Inventory.UseSound ""
  Tag "Smelly darkness can go fuck itself"
  +INVBAR
  +INVENTORY.UNDROPPABLE
  States
  {
  Spawn:
    PVIS B -1
    Stop
  Use:
    TNT1 A 0 A_JumpIfInventory("PowerFisherVision", 1, "Deactivate")
    TNT1 A 0 A_PlaySound("Infrared/On",3)
    TNT1 A 0 A_GiveInventory("FisherSet")
	TNT1 A 0 ACS_NamedExecuteAlways("AnInfraredThing")
    Fail
  Deactivate:
    TNT1 A 0 A_TakeInventory("PowerFisherVision",1)
    TNT1 A 0 A_PlaySound("Infrared/Off",3)
    Fail
  }
}

ACTOR FisherSet : PowerupGiver
{
  +INVENTORY.AUTOACTIVATE
  +INVENTORY.ALWAYSPICKUP
  Inventory.MaxAmount 0
  Powerup.Type "FisherVision"
}

ACTOR PowerFisherVision : PowerLightAmp
{
  Powerup.Duration 0x7FFFFFFF
  Powerup.Color Green, 0.05
}