@name Smart Opener
@inputs S:wirelink
@outputs Door
@persist [P Distance A]:array Target:entity D Z
@persist Color:vector
@trigger

interval(500)

if (first())
{
    # Run On Chat
    runOnChat(1)


    #Distance
    D = 35

    # Clear Screen
    S:writeString("Auto Door Opener -            ",0,0,1000,Color,0)
    S:writeString("                              ",0,1,1000,Color,0)
    S:writeString("                              ",0,2,1000,Color,0)
    S:writeString("                              ",0,3,1000,Color,0)
    S:writeString("                              ",0,4,1000,Color,0)
    S:writeString("                              ",0,5,1000,Color,0)
    S:writeString("                              ",0,6,1000,Color,0)
    S:writeString("                              ",0,7,1000,Color,0)
    S:writeString("                              ",0,8,1000,Color,0)
    S:writeString("                              ",0,9,1000,Color,0)
    S:writeString("                              ",0,10,1000,Color,0)
    S:writeString("                              ",0,11,1000,Color,0)
    S:writeString("                              ",0,12,1000,Color,0)
    S:writeString("                              ",0,13,1000,Color,0)
    S:writeString("                              ",0,14,1000,Color,0)
    S:writeString("                              ",0,15,1000,Color,0)
    S:writeString("                              ",0,16,1000,Color,0)
    S:writeString("                              ",0,17,1000,Color,0)

    # Hints
    print("--- [Auto Door Opener] ---")
    print("Usage: !add <playername>")
    print("Usage: !rem <playername>")
    print("Made by Mr`Beav")
}


if (changed(P:count()) | changed(Door))
{

    # Clear Screen
    S:writeString("Auto Door Opener -            ",0,0,1000,Color,0)
    S:writeString("                              ",0,1,1000,Color,0)
    S:writeString("                              ",0,2,1000,Color,0)
    S:writeString("