Initial D Arcade Stage 6 HUD [Gmod E2]

@name Initial D Arcade Stage 6 HUD
@inputs EGP:wirelink RPM Gear KPH
@outputs
@persist Gears:array KPHs:string TachArray:array Tachometer TachEquation:array
@trigger

if(first() | duped() | ~EGP){

Tachometer = 0 #Which type of tach the HUD shows.
NightMode = 0 #If the tach and needle should glow.

    TachArray = array(
    "86",
    "8k",
    "10k",
    "13k",
    "16k",
    "20k"
    )

    Night = array("","night_")

    EGP:egpBox(1,vec2(1311,700),vec2(455,225))
    EGP:egpMaterial(1,"hud_base/background.png")

    EGP:egpBox(2,vec2(1415,690),vec2(225,175))
    EGP:egpMaterial(2,"hud_base/"+Night[NightMode+1,string]+"labels_"+TachArray[Tachometer+1,string]+".png")

    EGP:egpCircle(3,vec2(0,20),vec2(0))
    EGP:egpParent(3,2)

    EGP:egpBox(4,vec2(0,-15),vec2(200,200))
    EGP:egpMaterial(4,"rpm_needle/"+Night[NightMode+1,string]+"needle.png")
    EGP:egpParent(4,3)

    EGP:egpBox(5,vec2(1225,645),vec2(50,60))
    EGP:egpMaterial(5,"gears/gear_1.png")

    EGP:egpBox(6,vec2(1250,765),vec2(60,30))
    EGP:egpMaterial(6,"speed_unit/kmh.png")

    EGP:egpBox(7,vec2(1250,720),vec2(45,60))
    EGP:egpMaterial(7,"speed_digits/speed_digits_0.png")

    EGP:egpBox(8,vec2(1205,720),vec2(45,60))
    EGP:egpMaterial(8,"speed_digits/speed_digits_.png")

    EGP:egpBox(9,vec2(1160,720),vec2(45,60))
    EGP:egpMaterial(9,"speed_digits/speed_digits_.png")


}

    TachEquation = array(
    (-122.5+RPM/32.5),
    (-122.5+RPM/32.5),
    (-122.5+RPM/40.5),
    (-122.5+RPM/53),
    (-122.5+RPM/65),
    (-122.5+RPM/81.5)
    )

EGP:egpAngle(3,TachEquation[Tachometer+1,number])
EGP:egpMaterial(5,"gears/gear_"+(Gear-1):toString()+".png")

KPHs = round(KPH):toString()
KPHd = KPHs:explode(""):count()

EGP:egpMaterial(7,"speed_digits/speed_digits_"+KPHs[1+(KPHd-1)]+".png")
EGP:egpMaterial(8,"speed_digits/speed_digits_"+KPHs[2+(KPHd-3)]+".png")

if(KPHd >= 3){
EGP:egpMaterial(9,"speed_digits/speed_digits_"+KPHs[3+(KPHd-5)]+".png")
}else{
EGP:egpMaterial(9,"speed_digits/speed_digits_.png")
}