Thread: [PI] Dialogue Chat Maker (DialogueMaster)

Hey guys today I'm going to be releasing a piece of software that I have made for making dialogues in project insanity alot easier! What it does is lets you input the info such as names, what to say and id's. Then when you hit the magic button it takes that information and turns it into copy/paste-able code.

First I must say that I scanned this on VirusTotal.com and it did come up as a virus in one result... Because of this i'm releasing the source code because this is a one of a kind program and I would not like anyone to not try it because of what a un-true test says.

Here is the test if you want- [Only registered and activated users can see links. ]

Here is a video showing the programs features-
Here is the source code-

Code:

Public Class Form1
    Const quote As String = """"
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked Then

        End If
    End Sub

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

    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        If RadioButton4.Checked Then
            TextBox1.Visible = True
            TextBox2.Visible = False
            TextBox3.Visible = False
            TextBox4.Visible = False
        End If
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        If RadioButton3.Checked Then
            TextBox1.Visible = True
            TextBox2.Visible = True
            TextBox3.Visible = False
            TextBox4.Visible = False
        End If
    End Sub

    Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
        TextBox1.Visible = True
        TextBox2.Visible = True
        TextBox3.Visible = True
        TextBox4.Visible = False
    End Sub

    Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
        TextBox1.Visible = True
        TextBox2.Visible = True
        TextBox3.Visible = True
        TextBox4.Visible = True
    End Sub
    Public Sub getValue()
        If RadioButton4.Checked Then
            Label3.Text = "1"
        End If
        If RadioButton3.Checked Then
            Label3.Text = "2"
        End If
        If RadioButton5.Checked Then
            Label3.Text = "3"
        End If
        If RadioButton6.Checked Then
            Label3.Text = "4"
        End If

    End Sub

    Private Sub playerChat()
        If RadioButton4.Checked = True Then
            RichTextBox1.Text += Environment.NewLine + "	    case " + TextBox5.Text + ":"
            RichTextBox1.Text += Environment.NewLine + "            sendPlayerChat" + Label3.Text + "(" + quote + TextBox1.Text + quote + ");"
            RichTextBox1.Text += Environment.NewLine + "            c.nextChat = " + TextBox6.Text + ";"
            RichTextBox1.Text += Environment.NewLine + "        break;"
        End If
        If RadioButton3.Checked = True Then
            RichTextBox1.Text += Environment.NewLine + "	    case " + TextBox5.Text + ":"
            RichTextBox1.Text += Environment.NewLine + "            sendPlayerChat" + Label3.Text + "(" + quote + TextBox1.Text + quote + ", " + quote + TextBox2.Text + quote + ");"
            RichTextBox1.Text += Environment.NewLine + "            c.nextChat = " + TextBox6.Text + ";"
            RichTextBox1.Text += Environment.NewLine + "        break;"
        End If
        If RadioButton5.Checked = True Then
            RichTextBox1.Text += Environment.NewLine + "	    case " + TextBox5.Text + ":"
            RichTextBox1.Text += Environment.NewLine + "            sendPlayerChat" + Label3.Text + "(" + quote + TextBox1.Text + quote + ", " + quote + TextBox2.Text + quote + ", " + quote + TextBox3.Text + quote + ");"
            RichTextBox1.Text += Environment.NewLine + "            c.nextChat = " + TextBox6.Text + ";"
            RichTextBox1.Text += Environment.NewLine + "        break;"
        End If
        If RadioButton6.Checked = True Then
            RichTextBox1.Text += Environment.NewLine + "	    case " + TextBox5.Text + ":"
            RichTextBox1.Text += Environment.NewLine + "            sendPlayerChat" + Label3.Text + "(" + quote + TextBox1.Text + quote + ", " + quote + TextBox2.Text + quote + ", " + quote + TextBox3.Text + quote + ", " + quote + TextBox4.Text + quote + ");"
            RichTextBox1.Text += Environment.NewLine + "            c.nextChat = " + TextBox6.Text + ";"
            RichTextBox1.Text += Environment.NewLine + "        break;"
        End If
    End Sub

    Private Sub npcChat()
        If RadioButton4.Checked = True Then
            RichTextBox1.Text += Environment.NewLine + "	    case " + TextBox5.Text + ":"
            RichTextBox1.Text += Environment.NewLine + "            sendNpcChat" + Label3.Text + "(" + quote + TextBox1.Text + quote + ", c.talkingNpc, " + quote + TextBox7.Text + quote + ");"
            RichTextBox1.Text += Environment.NewLine + "            c.nextChat = " + TextBox6.Text + ";"
            RichTextBox1.Text += Environment.NewLine + "        break;"
        End If
        If RadioButton3.Checked = True Then
            RichTextBox1.Text += Environment.NewLine + "	    case " + TextBox5.Text + ":"
            RichTextBox1.Text += Environment.NewLine + "            sendNpcChat" + Label3.Text + "(" + quote + TextBox1.Text + quote + ", " + quote + TextBox2.Text + quote + ", c.talkingNpc, " + quote + TextBox7.Text + quote + ");"
            RichTextBox1.Text += Environment.NewLine + "            c.nextChat = " + TextBox6.Text + ";"
            RichTextBox1.Text += Environment.NewLine + "        break;"
        End If
        If RadioButton5.Checked = True Then
            RichTextBox1.Text += Environment.NewLine + "	    case " + TextBox5.Text + ":"
            RichTextBox1.Text += Environment.NewLine + "            sendNpcChat" + Label3.Text + "(" + quote + TextBox1.Text + quote + ", " + quote + TextBox2.Text + quote + ", " + quote + TextBox3.Text + quote + ", c.talkingNpc, " + quote + TextBox7.Text + quote + ");"
            RichTextBox1.Text += Environment.NewLine + "            c.nextChat = " + TextBox6.Text + ";"
            RichTextBox1.Text += Environment.NewLine + "        break;"
        End If
        If RadioButton6.Checked = True Then
            RichTextBox1.Text += Environment.NewLine + "	    case " + TextBox5.Text + ":"
            RichTextBox1.Text += Environment.NewLine + "            sendNpcChat" + Label3.Text + "(" + quote + TextBox1.Text + quote + ", " + quote + TextBox2.Text + quote + ", " + quote + TextBox3.Text + quote + ", " + quote + TextBox4.Text + quote + ", c.talkingNpc, " + quote + TextBox7.Text + quote + ");"
            RichTextBox1.Text += Environment.NewLine + "            c.nextChat = " + TextBox6.Text + ";"
            RichTextBox1.Text += Environment.NewLine + "        break;"
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Visible = False
        Button3.Visible = True
        Button4.Visible = True
        RichTextBox1.Visible = True
        getValue()
        'player
        If RadioButton2.Checked Then
            playerChat()
        End If
        'npc
        If RadioButton2.Checked = False Then
            npcChat()
        End If
    End Sub

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If RadioButton3.Checked = False And RadioButton4.Checked = False And RadioButton5.Checked = False And RadioButton6.Checked = False Then
            MsgBox("Please select the number of lines before hitting this button!", vbOKOnly)
            Return
        End If
        Label1.Visible = True
        TextBox5.Visible = True
        GroupBox1.Visible = False
        GroupBox2.Visible = False
        Button2.Visible = False
        Button1.Visible = True
        TextBox6.Visible = True
        Label2.Visible = True
        
        If RadioButton1.Checked Then
            Label7.Visible = True
            TextBox7.Visible = True
        End If
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked Then

        End If
    End Sub

    Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged

    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Button3.Visible = False
        GroupBox1.Visible = True
        GroupBox2.Visible = True
        Button2.Visible = True
        TextBox1.Visible = False
        TextBox2.Visible = False
        TextBox3.Visible = False
        TextBox4.Visible = False
        TextBox5.Visible = False
        TextBox6.Visible = False
        TextBox7.Visible = False
        RichTextBox1.Visible = False
        Label1.Visible = False
        Label2.Visible = False
        Label7.Visible = False
        RichTextBox1.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        Label3.Text = ""
        Label4.Text = ""
        Label5.Text = ""
        Label6.Text = ""
        RadioButton1.Checked = False
        RadioButton2.Checked = False
        RadioButton3.Checked = False
        RadioButton4.Checked = False
        RadioButton5.Checked = False
        RadioButton6.Checked = False
        Button4.Visible = False

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        MsgBox("To copy, Highlight and press 'ctrl + c'", vbOKOnly)
    End Sub
End Class

And a picture-



And finally the download link- [Only registered and activated users can see links. ]

To Rune-Server Staff- Please do not give me an infraction for this as I have done every thing I possibly could to prove it's not a virus (provided the code and video). It's just a basic application made in Visual Studio. I would not like to get banned over a silly thing like this. I would also be grateful if someone could verify this as legit.