Imports System

​

Public Module Module1

    'Country Properties 

    Private Prop(10) As String

    'Labour Force

    'Labour Growth(Percentage)

    'Funds

    'Base Revenue

    'Revenue Modifier(Percentage)

    'Inflation(Percentage)

    'Food Supply

    'Base Food Production

    'Food Production Modifier(Percentage)

    'Tech Level

    'Industrial Level

    'Military Men 

    Private mltM() As Integer = {0, 0, 0, 0, 0, 0, 0, 25}

​

    'Infantry 

    'Cavalry 

    'Artillery

    'Vehicle

    'Naval

    'Aeroplane

    'Paratrooper

    'Mobilization(Percentage)

    'Military Equipment

    Private mltE() As Integer = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

    'Rifles -               T1

    'Machine Gun -          T3

    'Hand Grenade -         T1

    'Mortar -               T2

    'Cavalry Gun -          T1

    'Field Artillery -      T3

    'Cannon -               T2 

    'Howitzer -             T4

    'Armored Scout Car -    T3

    'Tank -                 T4

    'Transport Truck -      T2

    'Anti-Air Vehicle -     T3

    'Dreadnought -          T4

    'Destroyer -            T3

    'Cruiser -              T4

    'Frigate -              T3

    'Bomb Ketch -           T2

    'Submarine -            T5

    'Carrier -              T5 

    'Transport Craft -      T2

    'Landing Craft -        T3

    'Aero-fighter -         T4

    'Bomber -               T4 

    'Chopper -              T5

    'Transport Plane -      T3

    Private nCountry() As String = {"Britain", "France", "Germany", "Russia", "China", "Japan", "Netherlands", "Austro-Hungary", "Ottoman Empire", "Spain", "Portugal", "USA", "Italy", "Belgium"}

    Private year As Integer

    Private season As Integer

    Private temp As Integer

    Private valid As Boolean

    Private cmd As String

​

    Public Sub Main()

        Console.WriteLine("Welcome to CountryGame V0.1, please select your starting country by its number.")

        Console.WriteLine("List of countries: 1.Britain, 2.France, 3.Germany, 4.Russia, 5.China, 6.Japan, 7.Netherlands, 8.Austro-Hungary, 9.Ottoman Empire, 10.Spain, 11.Portugal, 12.USA, 13.Italy 14.Belgium")

        Dim propList() As Integer = {

            100000000, 100, 300000, 500000, 100, 100, 2000000, 1500000, 100, 5, 5,

            50000000, 100, 300000, 350000, 100, 100, 500000, 500000, 100, 4, 4, 

            20000000, 100, 250000, 300000, 100, 100, 200000, 100000, 100, 4, 5, 

            25000000, 100, 300000, 250000, 100, 100, 300000, 200000, 100, 3, 2,

            100000000, 100, 1000000, 300000, 100, 100, 2500000, 2000000, 100, 2, 1,

            8000000, 100, 200000, 150000, 100, 100, 100000, 100000, 100, 3, 3,

            4000000, 100, 500000, 250000, 100, 100, 100000, 50000, 100, 3, 4,

            20000000, 100, 250000, 200000, 100, 100, 200000, 200000, 100, 4, 3,

            25000000, 100, 300000, 200000, 100, 100, 400000, 300000, 100, 3, 2,

            10000000, 100, 200000, 250000, 100, 100, 150000, 150000, 100, 3, 4,

            8000000, 100, 300000, 200000, 100, 100, 100000, 80000, 100, 4, 4,

            80000000, 100, 500000, 400000, 100, 100, 1000000, 1000000, 100, 4, 3,

            5000000, 100, 400000, 250000, 100, 100, 80000, 75000, 100, 3, 3,

            3000000, 100, 200000, 150000, 100, 100, 50000, 50000, 100, 3, 5}

        temp = Console.ReadLine()

        For i = 0 to 10

        Prop(i) = propList(i + (temp - 1) * 11)

        Next

        Console.WriteLine("Playing as " & nCountry(temp - 1) & ", loading...")

            Console.WriteLine("")

    Call cmdList    

    End Sub

Public Sub cmdList()

    Console.WriteLine("Command List:")

    Console.WriteLine("Enter #info for Global Information")

    Console.WriteLine("Enter #ctrl for Main Controls")

    Console.WriteLine("Enter #? for Command List")

    Console.WriteLine("Enter #pol for Politics & Diplomacy Page")

    Console.WriteLine("Enter #mil for Military & Warfare Page")

    Console.WriteLine("Enter #fin for Country Property & Finance Page")

    Console.WriteLine("Enter #prod for Industrial Production Page")

    Console.WriteLine("")

    Console.WriteLine("When you are in an action page, you can access its own help page")

    Console.WriteLine("e.g. #pol ? for Politics & Diplomacy help page")

    Console.WriteLine("To move between multiple action pages, you must first go to the main controls")

    Call Ctrl

End Sub

Public Sub Info()

    Console.WriteLine("The current year is " & year & ", season " & season & ", you are playing as " & nCountry(temp - 1) & ".")

    Call Ctrl

End Sub

Public Sub Ctrl()

    valid = False

    Console.WriteLine("Enter a command")

    Do Until valid = True

        cmd = Console.ReadLine()

        If cmd = "#info"

            Call Info

        ElseIf cmd = "#ctrl"

            Console.WriteLine("You are already in the control page")

        ElseIf cmd = "#?"

            Call cmdList

        ElseIf cmd = "#pol"

            Call Pol

        ElseIf cmd = "#mil"

            Call Mil

        ElseIf cmd = "#fin"

            Call Fin

        ElseIf cmd = "#prod"

            Call Prod

        Else

            Console.WriteLine("The command is invalid. Please enter a valid command")

        End If

    Loop

End Sub

Public Sub Pol()

        valid = False

    Console.WriteLine("Enter a command")

    Do Until valid = True

        cmd = Console.ReadLine()

        If cmd = "#pol ?"

            Console.WriteLine("Politics & Diplomacy Command List:")

            Console.WriteLine("Enter #pol party to switch the governing party")

        ElseIf cmd = "#ctrl"

            Console.WriteLine("You are already in the control page")

        ElseIf cmd = "#?"

            valid = True

            Call cmdList

        ElseIf cmd = "#pol"

            valid = True

            Call Pol

        ElseIf cmd = "#mil"

            valid = True

            Call Mil

        ElseIf cmd = "#fin"

            valid = True

            Call Fin

        ElseIf cmd = "#prod"

            valid = True

            Call Prod

        Else

            Console.WriteLine("The command is invalid. Please enter a valid command")

        End If

    Loop

End Sub

Public Sub Mil()

End Sub

Public Sub Fin()

End Sub

Public Sub Prod()

End Sub

End Module