//...a health pickup that tells a story? Are you fucking retarded?

Actor HalluBonusSpawner : RandomSpawner 2014 {
	Dropitem "HALLUbONUS"
}

actor HalluBonus {
Monster
+FLOORCLIP
speed 0
States {
Spawn:
BON1 A 6 A_chase
TNT1 A 0 A_Jumpifcloser(69,"giveitemandcheck")
BON1 B 6
TNT1 A 0 A_Jumpifcloser(69,"giveitemandcheck")
BON1 C 6
TNT1 A 0 A_Jumpifcloser(69,"giveitemandcheck")
BON1 D 6
TNT1 A 0 A_Jumpifcloser(69,"giveitemandcheck")
BON1 C 6
TNT1 A 0 A_Jumpifcloser(69,"giveitemandcheck")
BON1 B 6
TNT1 A 0 A_Jumpifcloser(69,"giveitemandcheck")
Loop
giveitemandcheck:
TNT1 A 0 A_radiusgive ("Healthbonus", 69, RGF_PLAYERS, 1)
TNT1 A 0 A_radiusgive ("hallutick", 69, RGF_PLAYERS, 1)
TNT1 A 0 A_facetarget
TNT1 A 0 A_jumpifintargetinventory("hallutick",10, "hallutrigger")
stop
hallutrigger:
TNT1 A 0 a_jUMP(256, "justvibin")
stop
justvibin:
TNT1 A 0 A_dropitem("randomvibin", 1)
TNT1 A 0 A_takefromtarget("hallutick", 10)
stop
}
}

actor randomvibin {
+THRUACTORS
+FLOORCLIP
speed 20
States {
Spawn:
TNT1 AAAAAA 1
TNT1 A 0 A_changeflag("TRUACTORS", false)
TNT1 A 0 A_Jump(256, "Zombieman","Shotgunguy","Imp", "Cacodemon", "Pinky", "Mastermind", "Cyberdemon")
stop
Zombieman:
POSS A 0
goto vibintime
Shotgunguy:
SPOS A 0
goto vibintime
Imp:
TROO A 0
goto vibintime
Cacodemon:
HEAD A 0
goto vibintime
Pinky:
SARG A 0
goto vibintime
Mastermind:
SPID A 0
goto vibintime
Cyberdemon:
CYBR A 0
goto vibintime
vibintime:
"####" A 1 A_settranslucent(0.1)
"####" A 1 A_settranslucent(0.2)
"####" A 1 A_settranslucent(0.3)
"####" A 1 A_settranslucent(0.4)
"####" A 1 A_settranslucent(0.5)
"####" A 1 A_settranslucent(0.6)
"####" A 1 A_settranslucent(0.7)
"####" A 1 A_settranslucent(0.8)
"####" A 1 A_settranslucent(0.9)
"####" A 1 A_settranslucent(1.0)
"####" A 0 A_chase
"####" AABBCCDDAABBCCDD 6 A_Wander
"####" A 1 A_settranslucent(1.0)
"####" A 1 A_settranslucent(0.9)
"####" A 1 A_settranslucent(0.8)
"####" A 1 A_settranslucent(0.7)
"####" A 1 A_settranslucent(0.6)
"####" A 1 A_settranslucent(0.5)
"####" A 1 A_settranslucent(0.4)
"####" A 1 A_settranslucent(0.3)
"####" A 1 A_settranslucent(0.2)
"####" A 1 A_settranslucent(0.0)
stop
}
}

actor hallutick : inventory {
inventory.maxamount 10
}