For kingdomI = 0 To 7
            Select realmI
                Case 0 : Generate.King(0, kingdomI, 0, 0, 0, 0) 'KING OF ESCA
                Case 1 : Generate.King(1, kingdomI, 0, 0, 0, 0) 'KING OF HELVARCOS
                Case 2 : Generate.King(2, kingdomI, 0, 0, 0, 0) 'KING OF ANGLARR
                Case 3 : Generate.King(3, kingdomI, 0, 0, 0, 0) 'KING OF ORDANO
                Case 4 : Generate.King(4, kingdomI, 0, 0, 0, 0) 'KING OF IBBYRA
                Case 5 : Generate.King(5, kingdomI, 0, 0, 0, 0) 'KING OF ATONNIS
                Case 6 : Generate.King(6, kingdomI, 0, 0, 0, 0) 'KING OF LAURBYLL
                Case 7 : Generate.King(7, kingdomI, 0, 0, 0, 0) 'KING OF EGYA
            End Select
            If kingdomI = 0 Then
                For realmI = 0 To 5 'ESCA
                    Select Case realmI
                        Case 0 : Generate.Duke(8, 0, realmI, 0, 0, 0)
                        Case 1 : Generate.Duke(9, 0, realmI, 0, 0, 0)
                        Case 2 : Generate.Duke(10, 0, realmI, 0, 0, 0)
                        Case 3 : Generate.Duke(11, 0, realmI, 0, 0, 0)
                        Case 4 : Generate.Duke(12, 0, realmI, 0, 0, 0)
                        Case 5 : Generate.Duke(13, 0, realmI, 0, 0, 0)
                    End Select
                    If realmI = 0 Then
                        For provinceI = 0 To 4 'HELMERE
                            Select Case provinceI
                                Case 0 : Generate.Count(8, 0, 0, provinceI, 0, 0)
                                Case 1 : Generate.Count(8, 0, 0, provinceI, 0, 0)
                                Case 2 : Generate.Count(8, 0, 0, provinceI, 0, 0)
                                Case 3 : Generate.Count(8, 0, 0, provinceI, 0, 0)
                                Case 4 : Generate.Count(8, 0, 0, provinceI, 0, 0)
                            End Select
                        Next
                    End If
                Next
            End If
        Next