AStepByond

its pretty challaging

var/jame = input("Choose a name for your character.","Your Name",usr.name)
var/s=0
s = length(jame)
if(s <= 4)
usr<<"Your name must be inbetween 5 and 20 Charaters yours were [s] chars"
return
if(s >= 20)
usr<<"Your name must be inbetween 5 and 20 Charaters yours was [s] chars"
return
usr.name=jame
usr.deletevars()
usr.loc = locate(15,6,1)