Public Class Form1

    Private FileName As String
    'declaring filename that will be selected
    Dim sr As IO.StreamReader
    'streamreader is used to read text

    Dim instance As SaveFileDialog
    '
    Dim MapNumb As Integer
    Dim NumbCustomBoxes As Integer
    Dim NumbCustomPyrs As Integer
    Dim RandomObjNumb As Integer
    Dim RandomBoxPosX As Integer
    Dim RandomBoxPosY As Integer
    Dim RandomPyrPosY As Integer
    Dim RandomPyrPosX As Integer
    Dim RandomBoxSizeX As Integer
    Dim RandomBoxSizeY As Integer
    Dim RandomBoxSizeZ As Integer
    Dim RandomPyrSizeX As Integer
    Dim RandomPyrSizeY As Integer
    Dim RandomPyrSizeZ As Integer
    Dim RandomRotate As Integer
    Dim BoxNumb As Integer
    Dim PyrNumb As Integer
    Dim RandomNumb As Integer
    Dim NumbBoxes As Integer
    Dim NumbPyrs As Integer

    Private Sub rdoFull_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdoFull.CheckedChanged
        txtMaxBoxes.Text = "65"
        txtMaxPyrs.Text = "65"
        txtBoxMaxX.Text = "35"
        txtBoxMaxY.Text = "35"
        txtBoxMaxZ.Text = "20"
        txtBoxMinX.Text = "5"
        txtBoxMinY.Text = "5"
        txtBoxMinZ.Text = "1"
        txtPyrMaxX.Text = "20"
        txtPyrMaxY.Text = "20"
        txtPyrMaxZ.Text = "30"
        txtPyrMinX.Text = "5"
        txtPyrMinY.Text = "5"
        txtPyrMinZ.Text = "5"
    End Sub

    Private Sub rdoEmpty_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdoEmpty.CheckedChanged
        txtMaxBoxes.Text = "15"
        txtMaxPyrs.Text = "15"
        txtBoxMaxX.Text = "40"
        txtBoxMaxY.Text = "40"
        txtBoxMaxZ.Text = "15"
        txtBoxMinX.Text = "5"
        txtBoxMinY.Text = "5"
        txtBoxMinZ.Text = "1"
        txtPyrMaxX.Text = "20"
        txtPyrMaxY.Text = "20"
        txtPyrMaxZ.Text = "30"
        txtPyrMinX.Text = "5"
        txtPyrMinY.Text = "5"
        txtPyrMinZ.Text = "5"
    End Sub

    Private Sub rdoCustom_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdoCustom.CheckedChanged
        txtMaxBoxes.Text = "# Boxes"
        txtMaxPyrs.Text = "# Pyramids"
        txtBoxMaxX.Text = "Max Size X"
        txtBoxMaxY.Text = "Max Size Y"
        txtBoxMaxZ.Text = "Max Size Z"
        txtBoxMinX.Text = "Min Size X"
        txtBoxMinY.Text = "Min Size Y"
        txtBoxMinZ.Text = "Min Size Z"
        txtPyrMaxX.Text = "Max Size X"
        txtPyrMaxY.Text = "Max Size Y"
        txtPyrMaxZ.Text = "Max Size Z"
        txtPyrMinX.Text = "Min Size X"
        txtPyrMinY.Text = "Min Size Y"
        txtPyrMinZ.Text = "Min Size Z"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGenMap.Click
        Do While (NumbBoxes < txtMaxBoxes.Text And NumbPyrs < txtMaxBoxes.Text)
            Randomize()
            RandomRotate = Int((360 - 0 + 1) * Rnd() + 0)
            '
            '
            Randomize()
            RandomBoxSizeX = Int((txtBoxMaxX.Text - txtBoxMinX.Text + 1) * Rnd() + txtBoxMinX.Text)

            Randomize()
            RandomBoxSizeY = Int((txtBoxMaxY.Text - txtBoxMinY.Text + 1) * Rnd() + txtBoxMinY.Text)

            Randomize()
            RandomBoxSizeZ = Int((txtBoxMaxZ.Text - txtBoxMinZ.Text + 1) * Rnd() + txtBoxMinZ.Text)
            '
            '
            Randomize()
            RandomPyrSizeX = Int((txtPyrMaxX.Text - txtPyrMinX.Text + 1) * Rnd() + txtPyrMinX.Text)

            Randomize()
            RandomPyrSizeY = Int((txtPyrMaxY.Text - txtPyrMinY.Text + 1) * Rnd() + txtPyrMinY.Text)

            Randomize()
            RandomPyrSizeZ = Int((txtPyrMaxZ.Text - txtPyrMinZ.Text + 1) * Rnd() + txtPyrMinZ.Text)
            '
            '
            Randomize()
            RandomBoxPosX = Int((400 + 400 + 1) * Rnd() - 400)

            Randomize()
            RandomBoxPosY = Int((400 + 400 + 1) * Rnd() - 400)

            Randomize()
            RandomPyrPosX = Int((400 + 400 + 1) * Rnd() - 400)

            Randomize()
            RandomPyrPosY = Int((400 + 400 + 1) * Rnd() - 400)
            '
            '
            txtRandomMap.Text = txtRandomMap.Text.Insert(txtRandomMap.SelectionStart, ("Box" & Chr(13) & Chr(10) & "name box" & RandomObjNumb & Chr(13) & Chr(10) & "position " & RandomBoxPosX & " " & RandomBoxPosY & " 0" & Chr(13) & Chr(10) & "size " & RandomBoxSizeX & " " & RandomBoxSizeY & " " & RandomBoxSizeZ & Chr(13) & Chr(10) & "rotation " & RandomRotate & Chr(13) & Chr(10) & "end" & Chr(13) & Chr(10) & Chr(13) & Chr(10)))
            txtRandomMap.Text = txtRandomMap.Text.Insert(txtRandomMap.SelectionStart, ("Pyramid" & Chr(13) & Chr(10) & "name Pyramid" & RandomObjNumb & Chr(13) & Chr(10) & "position " & RandomPyrPosX & " " & RandomPyrPosY & " 0" & Chr(13) & Chr(10) & "size " & RandomPyrSizeX & " " & RandomPyrSizeY & " " & RandomPyrSizeZ & Chr(13) & Chr(10) & "rotation " & RandomRotate & Chr(13) & Chr(10) & "end" & Chr(13) & Chr(10) & Chr(13) & Chr(10)))
            '
            '
            NumbBoxes = NumbBoxes + 1
            NumbPyrs = NumbPyrs + 1
            RandomObjNumb = RandomObjNumb + 1
        Loop
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        txtRandomMap.Text = txtRandomMap.Text.Insert(txtRandomMap.SelectionStart, ("base" & Chr(13) & Chr(10) & "name GreenBase" & Chr(13) & Chr(10) & "position 0 -380 0" & Chr(13) & Chr(10) & "rotation 0" & Chr(13) & Chr(10) & "size 20 20 0" & Chr(13) & Chr(10) & "Color 2" & Chr(13) & Chr(10) & "end"))
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        txtRandomMap.Text = txtRandomMap.Text.Insert(txtRandomMap.SelectionStart, ("base" & Chr(13) & Chr(10) & "name PurpBase" & Chr(13) & Chr(10) & "position -380 0 0" & Chr(13) & Chr(10) & "rotation 0" & Chr(13) & Chr(10) & "size 20 20 0" & Chr(13) & Chr(10) & "Color 4" & Chr(13) & Chr(10) & "end"))
    End Sub

    Private Sub cmdResetMapArea_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdResetMapArea.Click
        txtRandomMap.Text = ""
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMaxPyrs.TextChanged

    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBoxMaxY.TextChanged

    End Sub

    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPyrMaxZ.TextChanged

    End Sub

    Private Sub cmdResetVars_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdResetVars.Click
        txtMaxBoxes.Text = "# Boxes"
        txtMaxPyrs.Text = "# Pyramids"
        txtBoxMaxX.Text = "Max Size X"
        txtBoxMaxY.Text = "Max Size Y"
        txtBoxMaxZ.Text = "Max Size Z"
        txtBoxMinX.Text = "Min Size X"
        txtBoxMinY.Text = "Min Size Y"
        txtBoxMinZ.Text = "Min Size Z"
        txtPyrMaxX.Text = "Max Size X"
        txtPyrMaxY.Text = "Max Size Y"
        txtPyrMaxZ.Text = "Max Size Z"
        txtPyrMinX.Text = "Min Size X"
        txtPyrMinY.Text = "Min Size Y"
        txtPyrMinZ.Text = "Min Size Z"
    End Sub

    Private Sub cmdInsertRed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        txtRandomMap.Text = txtRandomMap.Text.Insert(txtRandomMap.SelectionStart, ("base" & Chr(13) & Chr(10) & "name Redbase" & Chr(13) & Chr(10) & "position 380 0 0" & Chr(13) & Chr(10) & "rotation 0" & Chr(13) & Chr(10) & "size 20 20 0" & Chr(13) & Chr(10) & "Color 1" & Chr(13) & Chr(10) & "end"))
    End Sub

    Private Sub cmdInsertBlue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        txtRandomMap.Text = txtRandomMap.Text.Insert(txtRandomMap.SelectionStart, ("base" & Chr(13) & Chr(10) & "name BlueBase" & Chr(13) & Chr(10) & "position 0 380 0" & Chr(13) & Chr(10) & "rotation 0" & Chr(13) & Chr(10) & "size 20 20 0" & Chr(13) & Chr(10) & "Color 3" & Chr(13) & Chr(10) & "end"))
    End Sub

    Private Sub cmd2TeamCTF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub cmdFullMap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRndLinks.CheckedChanged
        If chkRndLinks.Checked = True Then
            chkTeleporters.Checked = True
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTeleporters.CheckedChanged

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub cmsSaveAsBZW_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSaveAsBZW.Click
        saveBZW.ShowDialog()
    End Sub

    Private Sub txtRandomMap_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRandomMap.TextChanged

    End Sub

    Private Sub saveMap_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MessageBox.Show("WinRand v0.11 :: Kyle VE :: 2007")
    End Sub

    Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim WebHelp As String = "http://www.winrand.mybzflag.net/tutorials"
        System.Diagnostics.Process.Start(WebHelp)
    End Sub

    Private Sub Button1_Click_3(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim OpenBZEdit As String = "C:\Program Files\BZEdit1.6.5\BZEdit32.exe"
        System.Diagnostics.Process.Start(OpenBZEdit)
    End Sub

    Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox3.Enter

    End Sub

    Private Sub cmdOpenBZW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub openBZW_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles openBZW.FileOk
        openBZW.DefaultExt = ("BZFlag World Files (*.bzw) | *.bzw")
        openBZW.InitialDirectory = ("Desktop")
    End Sub


    Private Sub saveBZW_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles saveBZW.FileOk
        Dim sw As IO.StreamWriter
        FileName = saveBZW.FileName
        sw = New IO.StreamWriter(FileName)
        sw.Write(txtRandomMap.Text)
        sw.Close()
    End Sub
End Class