Интерактивная вставка изображения (разработка игры "Эрудит")

Imports System.Drawing
 
Public Class Form1
    ' VIEW PORT
    Dim ResWidth As Integer = 750
    Dim ResHeight As Integer = 550
    Dim TileSize As Integer = 32
 
    ' GRAPHICS VARIABLES
    Dim G As Graphics
    Dim BBG As Graphics
    Dim BB As Bitmap
    Dim r As Rectangle
 
    ' FPS COUNTER
    Dim tSec As Integer = TimeOfDay.Second
    Dim tTicks As Integer = 0
    Dim MaxTicks As Integer = 0
 
    ' MAP VARIABLES
    Dim Map(100, 100, 10) As Integer
    Dim MapX As Integer = 20
    Dim MapY As Integer = 20
 
    ' GAME RUNNING ?
    Dim IsRunning As Boolean = True
 
    ' MOUSE LOCATIONS
    Dim mouseX As Integer
    Dim mouseY As Integer
    Dim mMapX As Integer
    Dim mMapY As Integer
 
    ' PAINT BRUSH
    Dim PaintBrush As Integer = 0
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Show()
        Me.Focus()
 
        ' INITIALIZE GRAPHICS OBJECTS
        G = Me.CreateGraphics
        BB = New Bitmap(ResWidth, ResHeight)
 
        StartGameLoop()
    End Sub
 
    Private Sub StartGameLoop()
        Do While IsRunning = True
            ' KEEP APP RESPONSIVE
            Application.DoEvents()
 
            '1.) Check user input
            '2.) Run AI
            '3.) Update Object Data (Object Positions, Status, etc.)
            '4.) Check Triggers and Conditions
            '5.) Draw Graphics
            DrawGraphics()
            '6.) Playing Sound Effects & Music
 
            ' UPDATE TICK COUNTER
            TickCounter()
        Loop
    End Sub
 
    Private Sub DrawGraphics()
        'FILL THE BACKBUFFER
 
        For X = 0 To 14
            For Y = 0 To 14
                r = New Rectangle(X * TileSize, Y * TileSize, TileSize, TileSize)
 
                Select Case Map(MapX + X, MapY + Y, 0)
                    Case 0 ' NORMAL
                        G.FillRectangle(Brushes.BurlyWood, r)
                    Case 1 ' RED
                        G.FillRectangle(Brushes.Red, r)
                    Case 2 ' BLUE
                        REM  G.FillRectangle(Brushes.Blue, r)
                        object()
 
                End Select
 
                G.DrawRectangle(Pens.Black, r)
            Next
        Next
 
        ' DRAW FINAL LAYERS
        'GUYS, MENUS, ETC.
        G.FillRectangle(Brushes.Red, 21 * TileSize, 4 * TileSize, TileSize, TileSize)
        G.FillRectangle(Brushes.Blue, 21 * TileSize, 6 * TileSize, TileSize, TileSize)
 
        G.DrawRectangle(Pens.Red, mouseX * TileSize, mouseY * TileSize, TileSize, TileSize)
 
        G.DrawString("Ticks: " & tTicks & vbCrLf & _
                     "TPS: " & MaxTicks & vbCrLf & _
                     "Mouse X: " & mouseX & vbCrLf & _
                     "Mouse Y: " & mouseY & vbCrLf & _
                     "M MapX: " & mMapX & vbCrLf & _
                     "M MapY: " & mMapY & vbCrLf & _
                     "", Me.Font, Brushes.Black, 650, 0)
 
        ' COPY BACKBUFFER TO GRAPHICS OBJECT
        G = Graphics.FromImage(BB)
 
        ' DRAW BACKBUFFER TO SCREEN
        BBG = Me.CreateGraphics
        BBG.DrawImage(BB, 0, 0, ResWidth, ResHeight)
 
        ' FIX OVERDRAW
        G.Clear(Color.Wheat)
    End Sub
 
    Private Sub TickCounter()
        If tSec = TimeOfDay.Second And IsRunning = True Then
            tTicks = tTicks + 1
        Else
            MaxTicks = tTicks
            tTicks = 0
            tSec = TimeOfDay.Second
        End If
    End Sub
 
    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        'MsgBox("You attacked " & mMapX & ":" & mMapY)
 
        If mouseX = 21 And mouseY = 4 Then
            PaintBrush = 1
        ElseIf mouseX = 21 And mouseY = 6 Then
            PaintBrush = 2
        End If
 
        Select Case PaintBrush
            Case 0
 
            Case 1 ' Red
                Map(mMapX, mMapY, 0) = 1
            Case 2 ' Blue
                Map(mMapX, mMapY, 0) = 2
        End Select
    End Sub
 
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
 
        mouseX = Math.Floor(e.X / TileSize)
        mouseY = Math.Floor(e.Y / TileSize)
 
        mMapX = MapX + mouseX
        mMapY = MapY + mouseY
    End Sub
End Class