Toast's EOTD [Gmod E2]

@name Toast's EOTD
@inputs
@outputs Feet MPH LightToggle FlagType
@persist O:entity E:entity LightToggle Light FlagType
@trigger
@model models/sprops/cuboids/height06/size_1/cube_6x24x6.mdl
#[
To operate the E2, pull out the crowbar.
While holding the crowbar and aiming at the EOTD, press E to toggle the light,
and alt fire to cycle flags.
]#
if(first() | dupefinished()){
E = entity()
E:setAlpha(0)
O = owner()

Color = vec(150,150,150)

A = 1
holoCreate(A, entity():toWorld(vec(0,0,0)), vec(1),
entity():toWorld(ang(0,0,0)))
holoColor(A, Color)
holoModel(A, "models/sprops/cuboids/height06/size_1/cube_6x24x6.mdl")
holoScale(A, vec(1,1,0.7))
holoParent(A, entity())
holoMaterial(A,"WTP/metal_2")

A = 2
holoCreate(A, entity():toWorld(vec(6.7,2.8,0)), vec(1),
entity():toWorld(ang(0,0,90)))
holoColor(A, vec4(30,30,30,255))
holoModel(A, "models/sprops/cylinders/size_1/cylinder_1_5x3.mdl")
holoScale(A, vec(0.6))
holoParent(A, entity())
holoMaterial(A,"WTP/metal_2")

A = 3
holoCreate(A, entity():toWorld(vec(6,4.75,0)), vec(1),
entity():toWorld(ang(0,90,90)))
holoColor(A, vec4(30,30,30,255))
holoModel(A, "models/sprops/misc/fittings/bend_long_90_1_5.mdl")
holoScale(A, vec(0.6))
holoParent(A, entity())
holoMaterial(A,"WTP/metal_2")

A = 4
holoCreate(A, entity():toWorld(vec(3.1,5.44,0)), vec(1),
entity():toWorld(ang(0,90,90)))
holoColor(A, vec4(30,30,30,255))
holoModel(A, "models/sprops/cylinders/size_1/cylinder_1_5x12.mdl")
holoScale(A, vec(0.6,0.6,0.3))
holoParent(A, entity())
holoMaterial(A,"WTP/metal_2")

A = 5
holoCreate(A, entity():toWorld(vec(0.3,4.75,0)), vec(1),
entity():toWorld(ang(0,180,90)))
holoColor(A, vec4(30,30,30,255))
holoModel(A, "models/sprops/misc/fittings/bend_long_90_1_5.mdl")
holoScale(A, vec(0.6))
holoParent(A, entity())
holoMaterial(A,"WTP/metal_2")

A = 6
holoCreate(A, entity():toWorld(vec(-0.41,2.8,0)), vec(1),
entity():toWorld(ang(0,0,90)))
holoColor(A, vec4(30,30,30,255))
holoModel(A, "models/sprops/cylinders/size_1/cylinder_1_5x3.mdl")
holoScale(A, vec(0.6))
holoParent(A, entity())
holoMaterial(A,"WTP/metal_2")

A = 7
holoCreate(A, entity():toWorld(vec(4.5,0,1.1)), vec(1),
entity():toWorld(ang(0,0,0)))
holoColor(A, vec4(255,10,10,255))
holoModel(A, "models/sprops/rectangles/size_1_5/rect_6x6x3.mdl")
holoScale(A, vec(1.5,0.9,0.7))
holoParent(A, entity())
holoMaterial(A,"WTP/metal_2")

A = 8
holoCreate(A, entity():toWorld(vec(-13,-1,0)), vec(1),
entity():toWorld(ang(-90,0,0)))
holoColor(A, vec4(30,30,30,255))
holoModel(A, "models/sprops/misc/fittings/cred_3_1_5_tall.mdl")
holoScale(A, vec(0.7))
holoParent(A, entity())
holoMaterial(A,"WTP/metal_2")

A = 9
holoCreate(A, entity():toWorld(vec(-14,-1,0)), vec(1),
entity():toWorld(ang(-90,0,0)))
holoColor(A, vec4(30,30,30,255))
holoModel(A, "models/sprops/geometry/sphere_3.mdl")
holoScale(A, vec(0.35))
holoParent(A, entity())
holoMaterial(A,"WTP/metal_2")

A = 10
holoCreate(A, entity():toWorld(vec(-12,1,0)), vec(1),
entity():toWorld(ang(-90,0,0)))
holoColor(A, vec4(30,30,30,255))
holoModel(A, "models/sprops/cylinders/size_2/cylinder_3x3.mdl")
holoScale(A, vec(0.5))
holoParent(A, entity())
holoMaterial(A,"WTP/metal_2")

A = 11
holoCreate(A, entity():toWorld(vec(-4,0,1.1)), vec(1),
entity():toWorld(ang(0,0,0)))
holoColor(A, vec4(255,100,100,255))
holoModel(A, "models/sprops/rectangles/size_1_5/rect_6x6x3.mdl")
holoScale(A, vec(0.6,0.9,0.7))
holoParent(A, entity())
holoMaterial(A,"WTP/metal_2")

A = 12
holoCreate(A, entity():toWorld(vec(-4,-1.5,2)), vec(1),
entity():toWorld(ang(0,90,-90)))
holoColor(A, vec4(10,10,10,255))
holoModel(A, "models/sprops/misc/alphanum/alphanum_a.mdl")
holoScale(A, vec(0.175))
holoParent(A, entity())
holoMaterial(A,"WTP/metal_2")

A = 13
holoCreate(A, entity():toWorld(vec(-4,0,2)), vec(1),
entity():toWorld(ang(0,90,-90)))
holoColor(A, vec4(10,10,10,255))
holoModel(A, "models/sprops/misc/alphanum/alphanum_t.mdl")
holoScale(A, vec(0.175))
holoParent(A, entity())
holoMaterial(A,"WTP/metal_2")

A = 14
holoCreate(A, entity():toWorld(vec(-4,1.5,2)), vec(1),
entity():toWorld(ang(0,90,-90)))
holoColor(A, vec4(10,10,10,255))
holoModel(A, "models/sprops/misc/alphanum/alphanum_x.mdl")
holoScale(A, vec(0.175))
holoParent(A, entity())
holoMaterial(A,"WTP/metal_2")

A = 15
holoCreate(A, entity():toWorld(vec(-9,0,1.1)), vec(1),
entity():toWorld(ang(0,0,0)))
holoColor(A, vec4(200,200,200,50))
holoModel(A, "models/sprops/rectangles/size_1_5/rect_6x6x3.mdl")
holoScale(A, vec(0.6,0.6,0.7))
holoParent(A, entity())
holoMaterial(A,"WTP/metal_2")

A = 16
holoCreate(A, entity():toWorld(vec(-9,0,2.3)), vec(1),
entity():toWorld(ang(0,0,0)))
holoColor(A, vec4(255,0,0,0))
holoModel(A, "plane")
holoScale(A, vec(5))
holoParent(A, entity())
holoMaterial(A,"jazzie/light_glow01")

A = 17
lightCreate(A)
lightColor(A,vec(0))
lightPos(A,entity():toWorld(vec(-9,0,3)))
lightParent(A,entity())

A = 18
holoCreate(A, entity():toWorld(vec(-15,3.75,0)), vec(1),
entity():toWorld(ang(-90,0,0)))
holoColor(A, vec4(30,30,30,0))
holoModel(A, "models/sprops/cylinders/size_1/cylinder_1_5x30.mdl")
holoScale(A, vec(0.5,0.5,0.5))
holoParent(A, entity())
holoMaterial(A,"WTP/metal_2")


A = 19
holoCreate(A, entity():toWorld(vec(-7,3.75,0)), vec(1),
entity():toWorld(ang(-90,0,0)))
holoColor(A, vec4(150,150,150,255))
holoModel(A, "models/sprops/rectangles/size_1/rect_3x3x3.mdl")
holoScale(A, vec(0.5,0.5,0.5))
holoParent(A, entity())
holoMaterial(A,"WTP/metal_2")

A = 20
holoCreate(A, entity():toWorld(vec(30,3.75,0)), vec(1),
entity():toWorld(ang(0,90,-90)))
holoColor(A, vec4(250,250,250,0))
holoModel(A, "models/props_fairgrounds/fairgrounds_flagpole01.mdl")
holoScale(A, vec(0.1))
holoParent(A, entity())
holoMaterial(A,"models/debug/debugwhite")
holoAnim(A,"idle")
holoClipEnabled(A,1,1)
holoClip(A,1,vec(0,0,40),vec(0,0,1),0)

A = 21
holoCreate(A, entity():toWorld(vec(-23,3.75,0)), vec(1),
entity():toWorld(ang(-90,0,0)))
holoColor(A, vec4(255,255,255,0))
holoModel(A, "models/sprops/cylinders/size_1/cylinder_1_5x3.mdl")
holoScale(A, vec(0.52,0.52,0.52))
holoParent(A, entity())
holoMaterial(A,"models/props_gulch/gulch_crystal_white")


}
interval(100)
VelL = -E:velL():z()
MPH = abs(toUnit("mph",VelL))
Feet = round(MPH*5280)

if(O:weapon():type()=="weapon_crowbar"){
if(changed(O:keyUse()) &O:keyUse() & owner():aimEntity() == E){
LightToggle = !LightToggle
O:soundPlay(1,1,"buttons/button3.wav")
}

if(changed(O:keyAttack2()) &O:keyAttack2() & owner():aimEntity() == E){
FlagType++
O:soundPlay(0,0,"buttons/lightswitch2.wav")
if(FlagType > 3){FlagType = 0}

if(FlagType == 0){
holoAlpha(18,0)
holoAlpha(20,0)
holoAlpha(21,0)
}elseif(FlagType == 1){
holoAlpha(18,255)
holoColor(20, vec4(250,250,250,255))
holoColor(21, vec4(250,250,250,255))
}elseif(FlagType == 2){
holoColor(20, vec4(250,0,0,255))
holoColor(21, vec4(250,0,0,255))
}elseif(FlagType == 3){
holoColor(20, vec4(0,255,0,255))
holoColor(21, vec4(0,255,0,255))
}
}

}
if(LightToggle){
timer("pulse",500)
}else{stoptimer("pulse") Light = 0}


if(clk("pulse")){Light = !Light}

holoColor(16, vec4(255,0,0,Light*250))
lightColor(17,vec(Light*255,0,0))