@name iPhone -- made by peter / paperlacks ;33
@inputs E:wirelink
@outputs
@persist SlidePos Alpha BeginUnlock
@trigger

interval(10)

if (duped()){selfDestruct()
    print("~Paperlacks' Anti-Dupe~")
    hint("~Protected by Paperlacks' Anti-Dupe~",5)
}

if (first()){
    BeginUnlock = 0
    SlidePos = 70
    Alpha = 255
    E:egpAlpha(2, 255)
    E:egpAlpha(3, 255)
    E:egpAlpha(4, 255)
    E:egpAlpha(5, 0)
    E:egpAlpha(6, 0)
    E:egpAlpha(7, 0)
    E:egpAlpha(8, 0)
    E:egpAlpha(9, 0)
}


#Background
E:egpBox(1, vec2(256,256), vec2(512,512))
E:egpColor(1, vec(0,255,0))
#

#box for slider
E:egpRoundedBox(2, vec2(256,450), vec2(450, 70))
E:egpColor(2, vec(109,109,109))
#

#slider
E:egpRoundedBox(3, vec2(SlidePos, 450), vec2(70,55))
#

#find the closest player
if (findCanQuery()){
    findByClass("player")
    Ply = findClosest(entity():pos())
}
#

#Set the cursor the the closest players' cursor
Cursor = E:egpCursor(Ply)
#


#function to move the slider
if (inrange(Cursor, E:egpPos(3)-vec2(35, 27.5), E:egpPos(3)+vec2(35, 27.5)) & Ply:keyUse()){
    BeginUnlock = 1
}

if (BeginUnlock==1){
    if (SlidePos==70){
        Alpha = 255
    }
    SlidePos = SlidePos + 7
    #fading text
    if (SlidePos>100){
        Alpha = 230
    }
    if (SlidePos>150){
        Alpha = 180
    }
    if (SlidePos>220){
        Alpha = 140
    }
    if (SlidePos>250){
        Alpha = 100
    }
    #end of fading text
}
#

#Text
E:egpText(4, "Slide to unlock", vec2(SlidePos - 35, 440))
E:egpSize(4, 20)
E:egpColor(4, vec(0,0,0))
E:egpAlpha(4, Alpha)
#

#function to unlock
if (SlidePos>=450){
    #hide lock screen
    E:egpAlpha(2, 0)
    E:egpAlpha(3, 0)
    E:egpAlpha(4, 0)
    #
    #show main screen
    E:egpAlpha(5, 255)
    E:egpAlpha(6, 255)
    E:egpAlpha(7, 255)
    #show lock button
    E:egpAlpha(8, 255)
    E:egpAlpha(9, 255)
    #
}
#

#home screen shit
E:egpRoundedBox(5, vec2(40, 40), vec2(70, 70))
E:egpRoundedBox(6, vec2(130, 40), vec2(70, 70))
E:egpText(7, "Main Screen", vec2(40, 120))
E:egpSize(7, 60)
#

#lock button
E:egpRoundedBox(8, vec2(256, 256), vec2(170, 70))
E:egpText(9, "Press to lock", vec2(170, 235))
E:egpColor(9, vec(109,109,109))
E:egpSize(9, 25)
#

#function to lock
if (inrange(Cursor, E:egpPos(8)-vec2(85, 35), E:egpPos(8)+vec2(85, 35)) & Ply:keyUse()){
    BeginUnlock = 0
    SlidePos = 70
    Alpha = 255
    E:egpAlpha(2, 255)
    E:egpAlpha(3, 255)
    E:egpAlpha(4, 255)
    E:egpAlpha(5, 0)
    E:egpAlpha(6, 0)
    E:egpAlpha(7, 0)
    E:egpAlpha(8, 0)
    E:egpAlpha(9, 0)
}
#