For i = 0 To 10000

            For kingdomI = 0 To 7
                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
            Next

        Next