Sistema de contraseñas

############Sistema de contraseñas#############
##############by Diego Mertens############
INICIO=202
SININTENTOS=203

def contraseñas(contra,letrasmin=2,letrasmax=8,textoinicial="",intentosmax=5) #inicia todo
  @intentos=0 if !$game_switches[INICIO]#si el switch INICIO está desactivado, los @intentos serán 0
  seña=@scene.pbEnterText(_INTL("Escribe la contraseña."),letrasmin,letrasmax,textoinicial,0,nil,false) #inicia la pantalla de la contraseña y lo que pongas se guarda en "seña"
  if contra==seña # si la contra real es igual a seña, se sigue
    @intentos=0 # se igualan los @intentos a 0
    $game_switches[INICIO]=false # el switch INICIO se desactiva
    return true #se regresa verdadero
  else #si no son iguales contra y seña
    @intentos += 1 #se le suma 1 a @intentos
    $game_switches[INICIO]=true #el switch INICIO se activa
    if @intentos>=intentosmax # si @intentos es mayor o igual a intentosmax
      Kernel.pbMessage(_INTL("Has tenido demasiados intentos. Intenta ingresar la contraseña luego.")) #te salta este mensaje
      $game_switches[SININTENTOS]=true #se enciende este interruptor, que podrás usar para evitar que se ingrese la contraseña inmediatamente
      return false #regresa falso
    else #si @intentos es menor a intentosmax
      return false #sólo regresa falso
    end #termina el if @intentos>=intentosmax
  end # termina el if contra==seña
end # termina el def contraseñas