Imports System

Imports System.Object

Imports System.Drawing

Imports System.Collections.Generic

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Dim dimX As Integer = 30

        Dim dimY As Integer = 10

        Dim niveau As new Niveau(dimX, dimY)

        Dim cEntry As char = ""

        Dim pos As Point = new Point(1,1)

        Dim LeHero As New Hero()

        niveau.Zone(1,1) = new zone(zoneType.floor)

        niveau.Zone(1,1).Elems.Add(LeHero)

        while CEntry <> "x"

            Console.WriteLine(pos)

            ui.Update(niveau)

            cEntry = Console.ReadLine()

            if cEntry = "w" OrElse

                cEntry = "a" OrElse

                cEntry = "s" OrElse

                cEntry = "d" then

                move(cEntry, Lehero, pos, niveau)

            end if

        end while

    End Sub

​

End Module

​

Public Module control

    Public sub move(cEntry as char, ByRef entity As Entity, ByRef pos As Point, ByRef niveau As Niveau)

        Dim target as Point

        Select cEntry

            case "w"

                target = new Point(pos.X, pos.Y-1)

            case "a"

                target = new Point(pos.X -1, pos.Y)

            case "s"

                target = new Point(pos.X, pos.Y + 1)

            case "d"

                target = new Point(pos.X + 1, pos.Y)            

        End Select

        if niveau.zone(target.X, target.Y).Type = zoneType.floor then

            niveau.Zone(pos.X, pos.Y).Elems.Remove(entity)

            niveau.Zone(target.X, target.Y).Elems.Add(entity)

            pos.X = target.X

            pos.Y = target.Y

        end if          

    end sub

End module

​

Public Module ui

    Public sub nl

        Console.Write(Chr(10))

    End Sub

​

    Public sub wall

        Console.Write(Chr(35))

    End Sub

​

    Public sub floor

        Console.Write(".")  

    End Sub

    public sub hero

        Console.Write("O")

    End sub

​

    Public sub Update(ByRef niveau As niveau)

        Dim i,j As New Integer

        Dim dimX, dimY As new Integer

        dimX = niveau.Dimensions.Width

        dimY = niveau.Dimensions.Height

            For i = 0 to dimY+1     

                For j = 0 to dimX+1

                    if niveau.zone(j,i).Elems.Count > 0 then

                        ui.hero

                    else

                        If niveau.zone(j,i).type = zoneType.Floor

                            ui.floor

                        else

                            ui.wall

                        end if

                    end if

                Next

                ui.nl

            Next

    End Sub

End Module

​

Public Module data

    Dim rnd As New Random()

​

    Public class niveau

        private _zone(,) As Zone

​

        public Property Dimensions As Size

​

        public Property Zone(ByVal i As Integer, ByVal j As Integer) As Zone

            Get

                Return _zone(i,j)

            End Get

            Set(ByVal Value As Zone)

                _zone(i,j) = Value

            End Set

        End Property

​

        public sub New(dimX As Integer, dimY As Integer)

            Me.Dimensions = new Size(dimX, dimY)

            Redim _zone(dimX+1, dimY+1)

            Level1

        End sub

​

        public sub Generate()

            Dim nbRnd As new Integer

            For i = 0 to Me.Dimensions.Width + 1

                For j = 0 to Me.Dimensions.Height + 1

                    nbRnd = rnd.Next(10)

                    if (nbRnd < 2)

                        Zone(i,j) = new Zone(zoneType.wall)

                    else

                        Zone(i,j) = new Zone(zoneType.floor)

                    end if

                Next

            Next

            for i = 0 to Me.dimensions.Width + 1

                zone(i,0) = new zone(zoneType.Wall)

                zone(i,Me.dimensions.Height+1) = new zone(zoneType.Wall)

            Next

            for i = 0 to Me.dimensions.Height + 1

                zone(0,i) = new zone(zoneType.Wall)

                zone(Me.dimensions.width+1, i) = new zone(zoneType.Wall)

            Next

​

        End sub

​

        public sub Level1()

            Dim lvl As String =

                "################################" &

                "#...#.#...#..................###" &

                "#.........#...................##" &

                "#...#.#...#....................#" &

                "#####.#####....................#" &

                "#..............................." &

                "#..............................." &

                "#..............................#" &

                "#..............................#" &

                "#.............................##" &

                "#............................###" &

                "################################"

​

            For i = 0 to Me.Dimensions.Width + 1

                For j = 0 to Me.Dimensions.Height + 1

                    if lvl(i+j*32) = "#" then

                        Zone(i,j) = new Zone(zoneType.wall)

                    else

                        Zone(i,j) = new Zone(zoneType.floor)

                    end if

                Next

            Next

​

        End sub

​

    End class

​

    Public class Zone

        public Property Type As zoneType

        Public Property Elems As New List(of Entity)

​

        Public sub New(type As zoneType)

            Me.Type = type

        End Sub

    End class

​

    Public class Entity

    End class

​

    Public class Creature

        inherits Entity

    End class

​

    Public class Hero

        inherits Creature

    End class

​

    Public enum zoneType

        floor

        wall

    End enum

​

End Module