vbproj | C# Online Compiler

vbproj by poataoman

Imports System
				
Public Module Module1
	Dim sideLength As Integer

    Structure treasure
        Dim x As Integer
        Dim y As Integer
        Dim usedcount As Integer

        Sub changeX(amount As Integer)
            x += amount
        End Sub

        Sub changey(amount As Integer)
            y += amount
        End Sub

        Sub increaseUsedCount(amount As Integer)
            usedcount += amount
        End Sub
    End Structure

    Structure coordinate
        Dim x As Integer
        Dim y As Integer
        Sub changeX(amount As Integer)
            If amount > 0 And amount < sideLength Then
                x += amount
            End If
        End Sub

        Sub changey(amount As Integer)
            If amount > 0 And amount < sideLength Then
                y -= amount
            End If
        End Sub
    End Structure

    Dim player As coordinate
    Dim bandits As New List(Of coordinate)
    Dim treasures As New List(Of treasure)
    Dim placeholders As New List(Of coordinate)
    Dim startnumberoftreasure As Integer
    Dim startnumberofbandits As Integer
    Dim score As Integer = 0
    Dim movecount As Integer = 0
    'Dim movespaces As Integer
    Sub main()
        displaymenu()
        customoptions()
        GenerateCoords()
        ValueAssignment()
        Console.Clear()
        While True
            GridDraw()
            MovingPlayer()
            Console.Clear()
            PlayerPosChecker()
        End While


    End Sub
    Sub customoptions()
        Console.WriteLine("what Do you want the sidelength Of your grid To be")
        sideLength = Console.ReadLine
        If sideLength > 25 Then
            Console.WriteLine("Too big")
            customoptions()
        ElseIf sideLength < 6 Then
            Console.WriteLine("Too small")
            Console.ReadLine()
            customoptions()
        Else
        End If
        Console.WriteLine("How many bandits would you like")
        startnumberofbandits = Console.ReadLine
        If startnumberofbandits > sideLength Then
            Console.WriteLine("Too many")
            Console.ReadLine()
            customoptions()
        ElseIf startnumberofbandits < 5 Then
            Console.WriteLine("Too few")
            Console.ReadLine()
            customoptions()
        Else
        End If
        Console.WriteLine("how many treasure chests would you like")
        startnumberoftreasure = Console.ReadLine
        If startnumberoftreasure > sideLength * 2 Then
            Console.WriteLine("Too many")
            Console.ReadLine()
            customoptions()
        ElseIf startnumberoftreasure < sideLength Then
            Console.WriteLine("Too few")
            Console.ReadLine()
            customoptions()
        End If
    End Sub
    Sub displaymenu()
        'Create two variables: string and boolean
        Dim userinput As String
        Dim Validchoice As Boolean = False
        'Begin while loop so question is repeated until either p or q is chosen
        While Validchoice = False
            Console.WriteLine("Welcome To Treasure Hunt! press 'p' to play and 'q' to quit")
            userinput = Console.ReadLine
            If userinput = "p" Then
                Console.WriteLine("You are continueing to the GAME")
                Validchoice = True
            End If
            'If the user input was q then the game will shut down
            If userinput = "q" Then
                Console.WriteLine("Exiting")
                'quits the program
                Environment.Exit(0)
                Validchoice = True
            End If
            'End while loop
        End While
    End Sub
    Sub GenerateCoords()
        player.x = 0
        player.y = sideLength - 1
        Randomize()
        For i = 0 To startnumberofbandits + startnumberoftreasure - 1
            Dim duplicate As Boolean = True
            Dim x As Integer
            Dim y As Integer
            Dim hold As coordinate
            While duplicate = True
                x = CInt(Math.Floor((sideLength - 1 - 0 + 1) * Rnd())) + 0
                y = CInt(Math.Floor((sideLength - 1 - 0 + 1) * Rnd())) + 0
                duplicate = checkDuplicate(x, y)
            End While
            hold.x = x
            hold.y = y
            placeholders.Add(hold)
        Next
    End Sub

    Function checkDuplicate(x As Integer, y As Integer) As Boolean
        If x = player.x And y = player.y Then
            Return True
        End If
        For Each coord In placeholders
            If coord.x = x And coord.y = y Then
                Return True
            End If
        Next
        Return False
    End Function

    Sub ValueAssignment()
        For i = 0 To startnumberoftreasure - 1
            Dim coord As treasure
            coord.x = placeholders(i).x
            coord.y = placeholders(i).y
            coord.usedcount = 0
            treasures.Add(coord)
        Next
        For i = startnumberoftreasure To startnumberofbandits +
                startnumberoftreasure - 1
            Dim coord As coordinate
            coord.x = placeholders(i).x
            coord.y = placeholders(i).y
            bandits.Add(coord)
        Next
    End Sub

    Sub MovingPlayer()
        'requires invalid input response
        Console.WriteLine("You have " + Convert.ToString(score) + " golden coins")
        Console.WriteLine("You have made " + Convert.ToString(movecount) + " Moves")
        Console.WriteLine("There are " + Convert.ToString(treasureCount()) + " Treasure chests")
        Console.WriteLine("There are " + Convert.ToString(banditCount()) + " Bandits")
        Console.WriteLine()
        Console.WriteLine("Please enter Up or Down in the form u or d")
        Dim verticleDir As String = Console.ReadLine()
        Console.WriteLine("Please enter the number of spaces you would like to move in the given direction")
        Dim verticleDis As Integer = Convert.ToInt32(Console.ReadLine())
        If verticleDir = "u" Then
            player.changey(verticleDis)
        ElseIf verticleDir = "d" Then
            player.changey(-verticleDis)
        Else

            Console.WriteLine("Invalid Request")
            Console.ReadKey()
            MovingPlayer()
        End If
        Console.WriteLine("Please enter Left or Right in the form l or r")
        Dim horizontalDir As String = Console.ReadLine()
        Console.WriteLine("Please enter the number of spaces you would like to move in the given direction")
        Dim horizontalDis As Integer = Convert.ToInt32(Console.ReadLine())
        If horizontalDir = "l" Then
            player.changeX(-horizontalDis)
        ElseIf horizontalDir = "r" Then
            player.changeX(horizontalDis)
        Else
            Console.WriteLine("Invalid request")
            Console.ReadKey()
            MovingPlayer()
        End If
        movecount = movecount + 1
    End Sub

    Sub PlayerPosChecker()
        If isbandit(player.x, player.y) Then
            score = 0
        End If
        If checkTreasure(player.x, player.y) Then
            score += 10
        End If
    End Sub

    Sub ScoringChecker()
        If score > 99 Then
            Console.WriteLine("You win well done :-)")
            Console.ReadLine()
        Else
        End If
    End Sub

    Function isbandit(x As Integer, y As Integer) As Boolean
        For Each coord In bandits
            If coord.x = x And coord.y = y Then
                Return True
                Console.WriteLine("You were ambushed by a bandit :-(")
                Console.ReadKey()
            End If
        Next
        Return False
    End Function

    Function istreasure(x As Integer, y As Integer) As Boolean
        For Each coord In treasures
            If coord.x = x And coord.y = y Then
                Return True
            End If
        Next
        Return False
    End Function

    Function getTreasure(x As Integer, y As Integer) As treasure
        For Each coord In treasures
            If coord.x = x And coord.y = y Then
                Return coord
            End If
        Next
    End Function

    Function checkTreasure(x As Integer, y As Integer) As Boolean
        For Each coord In treasures
            If coord.x = x And coord.y = y Then
                If coord.usedcount >= 2 Then
                    treasures.Remove(getTreasure(x, y))
                    Dim newBandit As coordinate
                    newBandit.x = x
                    newBandit.y = y
                    bandits.Add(newBandit)
                End If
                Console.WriteLine(Convert.ToString(coord.usedcount))
                coord.increaseUsedCount(1)
                Console.WriteLine(Convert.ToString(coord.usedcount))
                Return True
            End If
        Next
        Return False
    End Function

    Sub GridDraw()
        For y = 0 To sideLength - 1
            For x = 0 To sideLength - 1
                If y = player.y And x = player.x Then
                    Console.Write("[x]")
                ElseIf istreasure(x, y) Then
                    Console.Write("[t]")
                ElseIf isbandit(x, y) Then
                    Console.Write("[b]")
                Else
                    Console.Write("[_]")
                End If
            Next
            Console.WriteLine()
        Next
    End Sub

    Function treasureCount() As Integer
        Dim testCount As Integer
        For Each treasure In treasures
            testCount += 1
        Next
        Return testCount
    End Function

    Function banditCount() As Integer
        Dim testCount As Integer
        For Each coordinate In bandits
            testCount += 1
        Next
        Return testCount
    End Function
End Module

​x
 
Imports System
                
Public Module Module1
    Dim sideLength As Integer
​
    Structure treasure
        Dim x As Integer
        Dim y As Integer
        Dim usedcount As Integer
​
        Sub changeX(amount As Integer)
            x += amount
        End Sub
​
        Sub changey(amount As Integer)
            y += amount
        End Sub
​
        Sub increaseUsedCount(amount As Integer)
            usedcount += amount
        End Sub
    End Structure
​
    Structure coordinate
        Dim x As Integer
        Dim y As Integer
        Sub changeX(amount As Integer)
            If amount > 0 And amount < sideLength Then
                x += amount
            End If
        End Sub
​
        Sub changey(amount As Integer)
            If amount > 0 And amount < sideLength Then
                y -= amount
            End If
        End Sub
    End Structure
​
    Dim player As coordinate
    Dim bandits As New List(Of coordinate)
    Dim treasures As New List(Of treasure)
    Dim placeholders As New List(Of coordinate)
    Dim startnumberoftreasure As Integer
    Dim startnumberofbandits As Integer
    Dim score As Integer = 0
    Dim movecount As Integer = 0
    'Dim movespaces As Integer
    Sub main()
        displaymenu()
        customoptions()
        GenerateCoords()
        ValueAssignment()
        Console.Clear()
        While True
            GridDraw()
            MovingPlayer()
            Console.Clear()
            PlayerPosChecker()
        End While
​
​
    End Sub
    Sub customoptions()
        Console.WriteLine("what Do you want the sidelength Of your grid To be")
        sideLength = Console.ReadLine
        If sideLength > 25 Then
            Console.WriteLine("Too big")
            customoptions()
        ElseIf sideLength < 6 Then
            Console.WriteLine("Too small")
            Console.ReadLine()
            customoptions()
        Else
        End If
        Console.WriteLine("How many bandits would you like")
        startnumberofbandits = Console.ReadLine
        If startnumberofbandits > sideLength Then
            Console.WriteLine("Too many")
            Console.ReadLine()
            customoptions()
        ElseIf startnumberofbandits < 5 Then
            Console.WriteLine("Too few")
            Console.ReadLine()
            customoptions()
        Else
        End If
        Console.WriteLine("how many treasure chests would you like")
        startnumberoftreasure = Console.ReadLine
        If startnumberoftreasure > sideLength * 2 Then
            Console.WriteLine("Too many")
            Console.ReadLine()
            customoptions()
        ElseIf startnumberoftreasure < sideLength Then
            Console.WriteLine("Too few")
            Console.ReadLine()
            customoptions()
        End If
    End Sub
    Sub displaymenu()
        'Create two variables: string and boolean
        Dim userinput As String
        Dim Validchoice As Boolean = False
        'Begin while loop so question is repeated until either p or q is chosen
        While Validchoice = False
            Console.WriteLine("Welcome To Treasure Hunt! press 'p' to play and 'q' to quit")
            userinput = Console.ReadLine
            If userinput = "p" Then
                Console.WriteLine("You are continueing to the GAME")
                Validchoice = True
            End If
            'If the user input was q then the game will shut down
            If userinput = "q" Then
                Console.WriteLine("Exiting")
                'quits the program
                Environment.Exit(0)
                Validchoice = True
            End If
            'End while loop
        End While
    End Sub
    Sub GenerateCoords()
        player.x = 0
        player.y = sideLength - 1
        Randomize()
        For i = 0 To startnumberofbandits + startnumberoftreasure - 1
            Dim duplicate As Boolean = True
            Dim x As Integer
            Dim y As Integer
            Dim hold As coordinate
            While duplicate = True
                x = CInt(Math.Floor((sideLength - 1 - 0 + 1) * Rnd())) + 0
                y = CInt(Math.Floor((sideLength - 1 - 0 + 1) * Rnd())) + 0
                duplicate = checkDuplicate(x, y)
            End While
            hold.x = x
            hold.y = y
            placeholders.Add(hold)
        Next
    End Sub
​
    Function checkDuplicate(x As Integer, y As Integer) As Boolean
        If x = player.x And y = player.y Then
            Return True
        End If
        For Each coord In placeholders
            If coord.x = x And coord.y = y Then
                Return True
            End If
        Next
        Return False
    End Function
​
    Sub ValueAssignment()
        For i = 0 To startnumberoftreasure - 1
            Dim coord As treasure
            coord.x = placeholders(i).x
            coord.y = placeholders(i).y
            coord.usedcount = 0
            treasures.Add(coord)
        Next
        For i = startnumberoftreasure To startnumberofbandits +
                startnumberoftreasure - 1
            Dim coord As coordinate
            coord.x = placeholders(i).x
            coord.y = placeholders(i).y
            bandits.Add(coord)
        Next
    End Sub
​
    Sub MovingPlayer()
        'requires invalid input response
        Console.WriteLine("You have " + Convert.ToString(score) + " golden coins")
        Console.WriteLine("You have made " + Convert.ToString(movecount) + " Moves")
        Console.WriteLine("There are " + Convert.ToString(treasureCount()) + " Treasure chests")
        Console.WriteLine("There are " + Convert.ToString(banditCount()) + " Bandits")
        Console.WriteLine()
        Console.WriteLine("Please enter Up or Down in the form u or d")
        Dim verticleDir As String = Console.ReadLine()
        Console.WriteLine("Please enter the number of spaces you would like to move in the given direction")
        Dim verticleDis As Integer = Convert.ToInt32(Console.ReadLine())
        If verticleDir = "u" Then
            player.changey(verticleDis)
        ElseIf verticleDir = "d" Then
            player.changey(-verticleDis)
        Else
​
            Console.WriteLine("Invalid Request")
            Console.ReadKey()
            MovingPlayer()
        End If
        Console.WriteLine("Please enter Left or Right in the form l or r")
        Dim horizontalDir As String = Console.ReadLine()
        Console.WriteLine("Please enter the number of spaces you would like to move in the given direction")
        Dim horizontalDis As Integer = Convert.ToInt32(Console.ReadLine())
        If horizontalDir = "l" Then
            player.changeX(-horizontalDis)
        ElseIf horizontalDir = "r" Then
            player.changeX(horizontalDis)
        Else
            Console.WriteLine("Invalid request")
            Console.ReadKey()
            MovingPlayer()
        End If
        movecount = movecount + 1
    End Sub
​
    Sub PlayerPosChecker()
        If isbandit(player.x, player.y) Then
            score = 0
        End If
        If checkTreasure(player.x, player.y) Then
            score += 10
        End If
    End Sub
​
    Sub ScoringChecker()
        If score > 99 Then
            Console.WriteLine("You win well done :-)")
            Console.ReadLine()
        Else
        End If
    End Sub
​
    Function isbandit(x As Integer, y As Integer) As Boolean
        For Each coord In bandits
            If coord.x = x And coord.y = y Then
                Return True
                Console.WriteLine("You were ambushed by a bandit :-(")
                Console.ReadKey()
            End If
        Next
        Return False
    End Function
​
    Function istreasure(x As Integer, y As Integer) As Boolean
        For Each coord In treasures
            If coord.x = x And coord.y = y Then
                Return True
            End If
        Next
        Return False
    End Function
​
    Function getTreasure(x As Integer, y As Integer) As treasure
        For Each coord In treasures
            If coord.x = x And coord.y = y Then
                Return coord
            End If
        Next
    End Function
​
    Function checkTreasure(x As Integer, y As Integer) As Boolean
        For Each coord In treasures
            If coord.x = x And coord.y = y Then
                If coord.usedcount >= 2 Then
                    treasures.Remove(getTreasure(x, y))
                    Dim newBandit As coordinate
                    newBandit.x = x
                    newBandit.y = y
                    bandits.Add(newBandit)
                End If
                Console.WriteLine(Convert.ToString(coord.usedcount))
                coord.increaseUsedCount(1)
                Console.WriteLine(Convert.ToString(coord.usedcount))
                Return True
            End If
        Next
        Return False
    End Function
​
    Sub GridDraw()
        For y = 0 To sideLength - 1
            For x = 0 To sideLength - 1
                If y = player.y And x = player.x Then
                    Console.Write("[x]")
                ElseIf istreasure(x, y) Then
                    Console.Write("[t]")
                ElseIf isbandit(x, y) Then
                    Console.Write("[b]")
                Else
                    Console.Write("[_]")
                End If
            Next
            Console.WriteLine()
        Next
    End Sub
​
    Function treasureCount() As Integer
        Dim testCount As Integer
        For Each treasure In treasures
            testCount += 1
        Next
        Return testCount
    End Function
​
    Function banditCount() As Integer
        Dim testCount As Integer
        For Each coordinate In bandits
            testCount += 1
        Next
        Return testCount
    End Function
End Module

Compilation error (line 5, col 17): There is no argument given that corresponds to the required parameter 'apoQueue' of 'ApoQueueVM.ApoQueueVM(string, string)'

Last Run:	2:15:51 pm
Compile:	0s
Execute:	0.097s
Memory:	0b
CPU:	0s

View IL Code