@name Wasteland Atmosphere
@inputs
@outputs
@persist T Moans:array SW SW2
runOnTick(1)

if(first()||duped())
{
holoCreate(1)
holoModel(1,"hqicosphere")
holoParent(1,entity())
holoScale(1,vec(0.5,0.5,0.5))
holoMaterial(1,"models/props/de_tides/clouds")
entity():setAlpha(0)
T=0
SW=0

Moans[1,string]="ambient/tones/tunnel_wind_loop.wav"
Moans[2,string]="ambient/levels/canals/windmill_wind_loop1.wav"
Moans[3,string]="ambient/tones/tunnel_wind_loop.wav"
Moans[4,string]="ambient/levels/canals/windmill_wind_loop1.wav"
}

if(T<1)
{

if(entity():vel():length()>=200)
{
entity():soundPlay(12,12,"ambient/explosions/citadel_end_explosion1.wav")
holoAlpha(2,0)
T=1
}
}

if(T>=1)
{

if(T<1000)
{
T++
holoScale(1,vec(T/25,T/25,T/10))
}
}

if(T==1000)
{
Player = players()
Total = numPlayers()


for(A=1 ,Total , 1){
holoCreate(A+100)
holoPos(A+100,Player[A,entity]:attachmentPos("eyes"))
holoScale(A+100, -vec(6,6,6))
holoParentAttachment(A+100,Player[A,entity],"eyes")
holoModel(A+100,"hqicosphere")
holoMaterial(A+100,"models/props/de_tides/clouds")


holoAlpha(A+100,255)
holoEntity(A+100):soundPlay(random(1000000),random(10000000),Moans[random(4),string])

holoCreate(A+200)
holoPos(A+200,Player[A,entity]:attachmentPos("eyes"))
holoScale(A+200, -vec(6.1,6.1,6.1))
holoParentAttachment(A+200,Player[A,entity],"eyes")
holoModel(A+200,"hqicosphere")


holoAlpha(A+200,170)
holoEntity(A+100):soundPlay(random(1000000),random(10000000),Moans[random(4),string])

SW++

}
}

if(SW==1)
{
T=1001
}

@name Virus
@inputs
@outputs
@persist T Moans:array
runOnTick(1)

if(first()||duped())
{
holoCreate(1)
holoModel(1,"hqicosphere")
holoParent(1,entity())
holoCreate(2)
holoModel(2,"hqcylinder")
holoParent(2,entity())
holoColor(1,vec(255,0,0))
holoScale(1,vec(0.5,0.5,0.5))
holoMaterial(1,"models/flesh")
holoMaterial(2,"models/props_lab/Tank_Glass001")
entity():setAlpha(0)
T=0

Moans[1,string]="npc/zombie/moan_loop1.wav"
Moans[2,string]="npc/zombie/moan_loop2.wav"
Moans[3,string]="npc/zombie/moan_loop3.wav"
Moans[4,string]="npc/zombie/moan_loop4.wav"
}

if(T<1)
{

if(entity():vel():length()>=200)
{
entity():soundPlay(12,12,"ambient/explosions/explode_1.wav")
holoAlpha(2,0)
T=1
}
}

if(T>=1)
{

if(T<1000)
{
T++
holoScale(1,vec(T/20,T/20,T/20))
}
}

if(T==1000)
{
Player = players()
Total = numPlayers()

for(A=1 ,Total , 1){
holoCreate(A+100)
holoPos(A+100,Player[A,entity]:attachmentPos("eyes"))
holoScale(A+100, -vec(6,6,6))
holoParentAttachment(A+100,Player[A,entity],"eyes")
holoColor(A+100,vec(0,255,0))
holoModel(A+100,"hqicosphere")


holoAlpha(A+100,200)
holoEntity(A+100):setTrails(100,100,100,"trails/smoke",vec(0,255,0),255)
holoEntity(A+100):soundPlay(random(1000000),random(10000000),Moans[random(4),string])


}
}

@name HoloHidebox1
@inputs
@outputs
runOnTick(1)

if(first())
{
holoCreate(1)
holoPos(1,owner()os()+vec(0,0,40))
holoScale(1,vec(8,8,8))
holoCreate(2)
holoPos(2,owner()os()+vec(0,0,40))
holoScale(2,vec(-8,-8,-8))
holoAlpha(2,100)
holoMaterial(1,"hunter/myplastic")
holoMaterial(2,"hunter/myplastic")
}
holoPos(2,owner()os()+vec(0,0,50))
holoPos(1,owner()os()+vec(0,0,50))
holoAng(1,ang(0,0,0))
holoAng(2,ang(0,0,0))

@name RollerBall
@inputs
@outputs
@persist T:entity Dist [Dir]:vector SW
@model models/Roller.mdl
runOnTick(1)

if(first())
{
entity():setTrails(20,20,2.5, "trails/smoke",vec(255,255,255),205)
SW=0
}

findByClass("player")
findSortByDistance(entity()os())
T=find()

Dir=vec(100,0,1)
Dir=Dir:rotate(T:angles())

Dist=Tos():distance(entity()os())

if(Dist<=42)
{
if(T:keyUse()==1)
{
entity():applyForce(Dir*200)
}
}

if(Dist<=42)
{
if(T:keyReload()==1)
{
entity():applyForce((vec(0,0,15))*200)
}
}

if(Dist<=36)
{
if(T:keyAttack2()==1)
{
entity():applyForce((Dir+vec(0,0,10))*1000)
}
}

if(SW==0)
{
if(T:name()=="rassatana")
{
if(T:lastSaid()=="!recognize owner")
{
entity():setTrails(20,20,2.5, "trails/tube",vec(255,0,0),205)
SW=1
}
}
}

@name CarEjectSound
@inputs
@outputs
@persist T A:angle Angle:angle TT
runOnTick(1)

if(first())
{
T=0
A=entity():isWeldedTo():angles()
entity():soundPlay(300000,300000,"vehicles/v8/v8_start_loop1.wav")
soundPitch(300000,0)
}

if(entity():isWeldedTo():driver():type()=="player")
{
T=1
TT=1
soundPitch(300000,100)
}

if(TT==1)
{
TT=0
}

if(entity():isWeldedTo():driver():type()!="player")
{
if(T>0)
{
entity():soundPlay(random(10000),random(10000),"vehicles/apc/apc_shutdown.wav")
T--

soundPitch(300000,0)
}

if(T==1)
{
entity():soundPlay(random(10000),random(10000),"vehicles/apc/apc_shutdown.wav")
}
}