Hardcoding

Public Sub Generar_Fases()

    Dim LoopC As Long
    Dim LoopX As Long
    Dim LoopI As Long
    Dim X As Byte
    Dim Y As Byte
    Dim Tp As Obj
    Tp.objIndex = 1012
    Tp.Amount = 1
    With Teleports
        X = X_FaseInicial
        .InscripcionActivada = True
        For LoopC = 1 To Cantidad_Fases
            X = X + Fase_Separamiento
            For LoopI = 1 To Max_Usuarios
                Y = Y_FaseInicial - LoopI
                With MapData(Mapa_Evento, X, Y).TileExit
                    .map = Mapa_Evento
                    .X = X_Evento
                    .Y = Y_Evento
                End With
                If .InscripcionActivada = True Then Call MakeObj(Tp, Mapa_Evento, X, Y)
            Next LoopI
            Y = CByte(RandomNumber(Y_FaseInicial, (Y_FaseInicial - Max_Usuarios)))
            For LoopX = 1 To Cantidad_TPs
                .Fase(LoopC).Teleport(LoopX).X = X
                .Fase(LoopC).Teleport(LoopX).Y = Y
                With MapData(Mapa_Evento, X, Y)
                    .TileExit.map = Mapa_Evento
                    .TileExit.X = X + 5
                    .TileExit.Y = Y
                End With
            Next LoopX
        Next LoopC
    End With
End Sub