rendered paste bodyPublic 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