' add special 2d stuff (needed for gradient brush, there is 3d stuff!)
Imports System.Drawing.Drawing2D

Public Class Form1
    ' Declaration Section
    Private canvas As Graphics
    Private roofPoints(2) As Point
    Private doorPoints(3) As Point

    'make your own color
    Private myColorBrush As Brush

    'make gradients/hatch brushes
    Private sunsetBrush As Brush
    Private windowBrush As Brush
    Private windowBrush2 As Brush
    Private cloudBrush As Brush
    Private doorBrush As Brush
    Private roofBrush As Brush

    'make an image
    Private imageFire As Bitmap
    Private goatImage As Bitmap

    'make a texture
    Private grassTexture As Bitmap
    Private grassBrush As Brush

    'animation variables
    Private spriteX As Integer
    Private spriteY As Integer

    'make custom pen!
    Private rainPen As Pen

    'loop variable
    Private counter As Integer

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        ' my custom color (A is transparency)
        myColorBrush = New SolidBrush(Color.FromArgb(50, 255, 0, 0))

        sunsetBrush = New LinearGradientBrush(New Rectangle(0, 0, picAnimation.Width, picAnimation.Height), Color.DarkBlue, Color.SkyBlue, LinearGradientMode.Vertical)

        ' start the canvas and make the background my custom color from above
        canvas = picAnimation.CreateGraphics
        canvas.Clear(Color.White)
        canvas.FillRectangle(sunsetBrush, 0, 0, picAnimation.Width, 465)

        ' roof polygon
        roofBrush = New HatchBrush(HatchStyle.Shingle, Color.Black, Color.Red)
        roofPoints(0) = New Point(5, 155)
        roofPoints(1) = New Point(200, 5)
        roofPoints(2) = New Point(395, 155)
        canvas.DrawPolygon(Pens.Black, roofPoints)
        canvas.FillPolygon(roofBrush, roofPoints)

        ' grass
        grassTexture = New Bitmap("grass.jpg")
        grassBrush = New TextureBrush(grassTexture)
        canvas.FillRectangle(grassBrush, 0, 420, picAnimation.Width, 45)

        ' house and outline (picAnimation.Width - 15 makes it relative to width of canvas)
        canvas.FillRectangle(Brushes.White, 5, 155, 390, picAnimation.Height - 165)
        canvas.DrawRectangle(Pens.Black, 5, 155, 390, picAnimation.Height - 165)

        ' door
        doorBrush = New LinearGradientBrush(New Rectangle(145, 305, 100, 150), Color.FromArgb(0, 255, 255, 255), Color.Black, LinearGradientMode.Horizontal)
        canvas.FillRectangle(Brushes.Black, 145, 305, 100, 150)
        doorPoints(0) = New Point(146, 305)
        doorPoints(1) = New Point(146, 455)
        doorPoints(2) = New Point(235, 445)
        doorPoints(3) = New Point(235, 315)
        canvas.FillPolygon(Brushes.Brown, doorPoints)
        canvas.FillPolygon(doorBrush, doorPoints)

        ' set up window gradients
        windowBrush = New LinearGradientBrush(New Rectangle(40, 195, 70, 70), Color.White, Color.SteelBlue, LinearGradientMode.Vertical)
        windowBrush2 = New LinearGradientBrush(New Rectangle(40, 305, 70, 90), Color.White, Color.SteelBlue, LinearGradientMode.Vertical)

        ' windows
        canvas.FillRectangle(windowBrush, 40, 195, 70, 70)
        canvas.FillRectangle(windowBrush, 280, 195, 70, 70)
        canvas.FillRectangle(windowBrush2, 40, 305, 70, 90)
        canvas.FillRectangle(windowBrush2, 280, 305, 70, 90)
        canvas.DrawRectangle(Pens.Black, 40, 195, 70, 70)
        canvas.DrawRectangle(Pens.Black, 280, 195, 70, 70)
        canvas.DrawRectangle(Pens.Black, 40, 305, 70, 90)
        canvas.DrawRectangle(Pens.Black, 280, 305, 70, 90)

        ' fancy window
        canvas.FillEllipse(windowBrush, 160, 195, 70, 70)
        canvas.DrawEllipse(Pens.Black, 160, 195, 70, 70)
        canvas.DrawEllipse(Pens.Black, 170, 195, 50, 70)
        canvas.DrawEllipse(Pens.Black, 180, 195, 30, 70)
        canvas.DrawEllipse(Pens.Black, 190, 195, 10, 70)
        canvas.DrawEllipse(Pens.Black, 160, 205, 70, 50)
        canvas.DrawEllipse(Pens.Black, 160, 215, 70, 30)
        canvas.DrawEllipse(Pens.Black, 160, 225, 70, 10)

        'rain (loop to save writing code all day)
        rainPen = New Pen(Color.SlateGray, 2)
        rainPen.DashStyle = DashStyle.Dot
        counter = 400
        Do
            canvas.DrawLine(rainPen, counter, 45, counter + 40, 420)
            counter = counter + 10
        Loop Until counter >= 520

        ' clouds
        cloudBrush = New SolidBrush(Color.FromArgb(130, 255, 255, 255))
        canvas.FillEllipse(cloudBrush, 0, 0, 100, 50)
        canvas.FillEllipse(cloudBrush, 0, 25, 80, 30)
        canvas.FillEllipse(cloudBrush, 0, 10, 90, 40)
        canvas.FillEllipse(cloudBrush, 20, 10, 100, 40)
        canvas.FillEllipse(cloudBrush, 400, 20, 120, 50)
        canvas.FillEllipse(cloudBrush, 400, 50, 80, 30)
        canvas.FillEllipse(cloudBrush, 400, 30, 90, 40)
        canvas.FillEllipse(cloudBrush, 420, 30, 100, 60)

        'goat
        spriteX = 432
        spriteY = 380
        goatImage = New Bitmap("goat.bmp")
        goatImage.MakeTransparent(Color.Black)
        canvas.DrawImage(goatImage, spriteX, spriteY)

        ' change upper title
        Label1.Text = "your house looks really expensive.  nice goat."
        Label1.ForeColor = Color.Brown

    End Sub
    Private Sub btnOnFire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOnFire.Click
        ' set up background
        canvas = picAnimation.CreateGraphics
        canvas.FillRectangle(Brushes.Black, 0, 0, picAnimation.Width, picAnimation.Height)

        ' make fire image
        imageFire = New Bitmap("fire.jpg")
        canvas.DrawImage(imageFire, 0, 0, 582, 465)

        'goat
        spriteX = 432
        spriteY = 380
        goatImage = New Bitmap("goat.bmp")
        goatImage.MakeTransparent(Color.Black)
        canvas.DrawImage(goatImage, spriteX, spriteY)

        ' change upper title
        If Label1.Text = "your house looks really expensive.  nice goat." Then
            Label1.Text = "oh no! look out, marty the goat!"
            Label1.ForeColor = Color.Red
        Else
            Label1.Text = "you got both!  and a goat!"
            Label1.ForeColor = Color.Red
        End If
    End Sub

End Class