ZScript Night-Vision Device Help

[Graaicko]

Hello. So sometime ago, I created a Night-Vision script using ZScript which is put in the players inventory, It works perfectly much like the DN3D, which has a limit, I even created a slight static filter for it.
There are still a few problems with it which are:

1. Toggling it is done through the inventory selection (inventory activation) but is turned off when I press the GZDoom use key... I would like it to have its own hotkey which I would like to be "N" that toggles it both on and off.

2. As I understand when activated, it illuminates ALL sectors of any existing map. This is fine except its not really how conventional Night-vision works. I would like it to respond much more like Duke Nukem 3D's Night-Vision, dark sectors but actors are seen with that "infrared" vision effect which brings me to issue number 3.

3. I have absolutely no idea how to make it do that infrared vision effect of enemies and actors. The ZScript I built for it doesn't actually do that at the moment.

Conclusion: So to pretty much sum up what I am looking for is I would like it to conviently be activated and deactivated by a single key which I would like to be "N" key. I would also like it to be more dark but somehow have the ability to activate that "infrared" effect on actors, items and enemies preferably. Also If possible, I have created some mugshots of my character wearing the Night-Vision. If it would be possible to implement that when it is activated and deactivated I would be greatly thankful, but this is certainly not required right now. I don't really know how too work with ZScript that much which is why I am seeking assistance.

Decorate

---

Code: Select all

ACTOR PVS14 : CustomInventory Replaces Infrared 5618
{
//$Category Gear Items
+COUNTITEM
+INVENTORY.INVBAR
+INVENTORY.KEEPDEPLETED
+INVENTORY.HUBPOWER
+INVENTORY.FANCYPICKUPSOUND
+INVENTORY.UNTOSSABLE
Inventory.Amount 200
Inventory.MaxAmount 200
Scale 0.6
Radius 12
Height 9
Inventory.PickupFlash "PickupFlash"
Inventory.Icon "NVGAI0" 
Inventory.PickupSound "NVGPU"
Inventory.PickupMessage "AN/PVS-14 Monocular Night Vision Device "
Tag "Night-Vision"
States
{
Spawn:
NVGA A 7
NVGA B 7
NVGA C 7
NVGA D 7
NVGA C 7
NVGA B 7
Loop

Use:
TNT1 A 0 A_GiveInventory("Colorize")
TNT1 A 0 A_Overlay(5,"NightVisorOn",1)
TNT1 A 0 A_PlaySound("NVGON")
Stop

NightVisorOn:
PVS1 A 3
NightVisorWork:
PVS1 B 3

{
If(CountInv("PVS14")<1||GetPlayerInput(MODINPUT_OLDBUTTONS)&(BT_USER1|BT_USE))
   {
      A_TakeInventory("Colorize");
      A_TakeInventory("PowerNightVision");
      Return state("Null");
   }
Else
   {
      If(CountInv("PowerNightVision")>0){Return state("");}
      Else
         {
            A_GiveInventory("PowerNightVision",1);
            A_TakeInventory("PVS14",1);
            Return state("");
         }
   }

}
PVS1 A 3
Loop
}
}

ACTOR PowerNightVision : PowerLightAmp
{
//Powerup.Color GreenMap
//Powerup.Color
Powerup.Duration -1 //Nightvision depletion speed, 1 per second by default
}

ACTOR Colorize : Powerup
{
Powerup.Color GreenMap
Powerup.Colormap 0.0, 0.0, 0.0, 0.0, 1.2, 0.0
Powerup.Duration 0x7FFFFFFF
}

Additonal Code

---

Code: Select all

#library "pvs14"
#include "zcommon.acs"

function void updateGoggles(void)
{
	int amt = CheckInventory("Cell");
	TakeInventory("NightGoggles", 999);
	GiveInventory("NightGoggles", amt);
}