Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Timer1_Tick(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) Handles Button1.Click
TextBox2.Text = ("class " & gunname.Text & " extends " & ComboBox1.Text & ";")
TextBox2.AppendText(Environment.NewLine & "defaultproperties")
TextBox2.AppendText(Environment.NewLine & "{")
TextBox2.AppendText(Environment.NewLine & "PickupClass=Class'" & modname.Text & "." & gunname.Text & "Pickup'")
TextBox2.AppendText(Environment.NewLine & "Weight=" & weight.Text)
TextBox2.AppendText(Environment.NewLine & "MagCapacity=" & magazinecapacity.Text)
If CheckBox1.Checked = True Then TextBox2.AppendText(Environment.NewLine & "FireModeClass(0)=Class'" & TextBox3.Text & "'") Else TextBox2.AppendText(Environment.NewLine & "FireModeClass(0)=Class'" & modname.Text & "." & gunname.Text & "Fire'")
If CheckBox2.Checked = True Then TextBox2.AppendText(Environment.NewLine & "FireModeClass(1)=Class'" & TextBox4.Text & "'") Else TextBox2.AppendText(Environment.NewLine & "FireModeClass(1)=Class'" & modname.Text & "." & gunname.Text & "Fire'")
If CheckBox5.Checked = True Then TextBox2.AppendText(Environment.NewLine & "PlayerViewOffset=(X=" & TextBox1.Text & ",Y=" & TextBox12.Text & ",Z=" & TextBox14.Text & ")")
If CheckBox6.Checked = True Then TextBox2.AppendText(Environment.NewLine & "Mesh=SkeletalMesh'" & TextBox15.Text & "'")
TextBox2.AppendText(Environment.NewLine & "}")
If magazinecapacity.Text > 99 Then MessageBox.Show("Hey brah, i noticed ur ammo was like over 100 and stuff. generally, guns that arent overpowered dont have that much ammo ;). no dumb OP mods pl0x.")
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = False Then TextBox3.Enabled = False Else If CheckBox1.Checked = True Then TextBox3.Enabled = True
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = False Then TextBox4.Enabled = False Else If CheckBox2.Checked = True Then TextBox4.Enabled = True
End Sub
Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
End Sub
Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
If CheckBox4.Checked = True Then TextBox13.Enabled = True
If CheckBox4.Checked = True Then ComboBox2.Enabled = False
If CheckBox4.Checked = False Then TextBox13.Enabled = False
If CheckBox4.Checked = False Then ComboBox2.Enabled = True
End Sub
Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
If CheckBox5.Checked = True Then TextBox1.Enabled = True
If CheckBox5.Checked = True Then TextBox12.Enabled = True
If CheckBox5.Checked = True Then TextBox14.Enabled = True
If CheckBox5.Checked = False Then TextBox1.Enabled = False
If CheckBox5.Checked = False Then TextBox12.Enabled = False
If CheckBox5.Checked = False Then TextBox14.Enabled = False
End Sub
Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
If CheckBox6.Enabled = True Then TextBox15.Enabled = True
If CheckBox6.Enabled = False Then TextBox15.Enabled = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox5.Text = ("class " & gunname.Text & "Fire" & " extends " & ComboBox3.Text & ";")
TextBox5.AppendText(Environment.NewLine & "defaultproperties")
TextBox5.AppendText(Environment.NewLine & "{")
TextBox5.AppendText(Environment.NewLine & "RecoilRate=" & TextBox6.Text)
If CheckBox4.Checked = True Then TextBox5.AppendText(Environment.NewLine & "DamageType=Class'" & TextBox13.Text & "'") Else TextBox5.AppendText(Environment.NewLine & "DamageType=Class'KFMod.DamType" & ComboBox2.Text)
TextBox5.AppendText(Environment.NewLine & "DamageMin=" & TextBox7.Text)
TextBox5.AppendText(Environment.NewLine & "DamageMax=" & TextBox8.Text)
If CheckBox3.Checked = True Then TextBox5.AppendText(Environment.NewLine & "AmmoClass=Class'" & TextBox9.Text & "Ammo'") Else TextBox5.AppendText(Environment.NewLine & "AmmoClass=Class'" & modname.Text & "." & gunname.Text & "Ammo'")
TextBox5.AppendText(Environment.NewLine & "FireRate=" & TextBox10.Text)
TextBox5.AppendText(Environment.NewLine & "AmmoPerFire=" & TextBox11.Text)
TextBox5.AppendText(Environment.NewLine & "}")
End Sub
End Class