This is the decorate for the monster or 'entity'.
Code: Select all
Actor The_Entity : PlayerPawn 900
{
limitedtoteam 1
Speed 1
Health 100
Radius 16
Height 56
Mass 100
PainChance 255
Player.Maxhealth 100
Player.DisplayName "The Entity"
Player.CrouchSprite "PLYC"
Player.StartItem "TheEntity_Power"
Player.StartItem "TheEntity_Eye"
Player.StartItem "TheEnt_Noises"
Player.StartItem "TheEnt_Sight"
Player.StartItem "TheEht_Ammo1"
Player.SoundClass "theent"
Player.WeaponSlot 1, TheEntity_Power
Player.ColorRange 112, 127
-PICKUP
-SHOOTABLE
+SHADOW
+INVULNERABLE
+NODAMAGE
+NEVERTARGET
+NOTRIGGER
+NOSKIN
+NOCLIP
States
{
Spawn:
UDM2 A 0 ACS_ExecuteAlways(992)
UDM2 A 0 SetPlayerProperty(0, 1, 1)
UDM2 A 1
Loop
See:
UDM2 ABCD 4
Loop
Missile:
UDM2 E 12
Goto Spawn
Melee:
UDM2 F 6 BRIGHT
Goto Missile
Pain:
UDM2 G 4
UDM2 G 4 A_Pain
Goto Spawn
IfNoclipOn:
UDM2 A 0 A_SetTranslucent(0, 0)
UDM2 A 0 A_ChangeFlag("THRUACTORS", true)
UDM2 A 0 A_ChangeFlag("FLOATBOB", true)
//UDM2 A 0 A_ChangeFlag("NOCLIP", true)
UDM2 A 0 A_ChangeFlag("SOLID", false)
UDM2 A 0 SetPlayerProperty (0, 1, 3)
UDM2 A 0
UDM2 A 1
Goto Spawn
IfNoclipOff:
UDM2 A 0 A_SetTranslucent(1, 0)
UDM2 A 0 A_ChangeFlag("THRUACTORS", false)
UDM2 A 0 A_ChangeFlag("FLOATBOB", false)
//UDM2 A 0 A_ChangeFlag("NOCLIP", false)
UDM2 A 0 A_ChangeFlag("SOLID", true)
UDM2 A 0 SetPlayerProperty (0, 0, 3)
UDM2 A 0
UDM2 A 1
Goto Spawn
Death:
TNT1 A 0 ACS_ExecuteAlways(993, 0)
UDM2 I 10 A_PlayerScream
UDM2 J 10 A_NoBlocking
UDM2 KLM 10
UDM2 N -1
Stop
XDeath:
TNT1 A 0 ACS_ExecuteAlways(993, 0)
UDM2 O 5
UDM2 P 5 A_XScream
UDM2 Q 5 A_NoBlocking
UDM2 RSTUV 5
UDM2 W -1
Stop
}
}
Actor TheEntity_Power : Weapon
{
Weapon.SelectionOrder 3700
Weapon.Kickback 100
Weapon.AmmoType "TheEnt_Ammo1"
Weapon.AmmoUse 100
Obituary "%o was killed by the entity."
Tag "Kill & Noclip"
+WEAPON.NOALERT
States
{
Ready:
TNT1 A 1 A_WeaponReady
Loop
Deselect:
TNT1 A 1 A_Lower
Loop
Select:
TNT1 A 1 A_Raise
Loop
Fire:
TNT1 B 1
TNT1 C 1 A_FireBullets(1.2, 1.2, 64, 999, TheEnt_Puff)
TNT1 D 1
TNT1 C 1
TNT1 B 1 A_ReFire
Goto Ready
AltFire:
TNT1 A 0 ACS_ExecuteAlways(994, 0)
TNT1 A 16
Goto Ready
}
}
ACS for the noclip to activate since I have the noclip be used as a custom key.
Code: Select all
Script 998 (Void) net CLIENTSIDE {
LocalAmbientSound("misc/p_pkup", 0.5);
if(TheEntNoclip == false) {
TheEntNoclip = true;
SetActorProperty(0, APROP_Speed, 1.5);
SetActorState(0, "IfNoclipOn");
//ConsoleCommand("noclip");
} else {
TheEntNoclip = false;
SetActorProperty(0, APROP_Speed, 1.0);
SetActorState(0, "IfNoclipOff");
//ConsoleCommand("noclip");
}
//if(TheEntNoclip == true) TheEntNoclipHUD = true; else TheEntNoclipHUD = false;
Hudmessage(s: "Flight + Invisibility: ", d:TheEntNoclip; HUDMSG_PLAIN, 1, CR_WHITE, 0.1, 0.1, 0);
}
Script 997 (Void) net {
if(TheEntNoclip == true) {
TheEntNoclip = false;
SetActorProperty(0, APROP_Speed, 1.0);
//ConsoleCommand("noclip");
Print(s: "Noclip Off");
}
/*if(davidNotarget == false) {
davidNotarget = true;
}*/
}