Imports System.IO
Imports System.Text.RegularExpressions

Public Class Main
#Region "Notepad"
    Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
        SaveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        SaveFileDialog1.FilterIndex = 2
        SaveFileDialog1.RestoreDirectory = True
        SaveFileDialog1.ShowDialog()
        If Not SaveFileDialog1.FileName = "" Then
            Dim oWrite As StreamWriter
            oWrite = File.CreateText(SaveFileDialog1.FileName)
            oWrite.WriteLine(Notebox.Text)
            oWrite.Close()
        End If
    End Sub

    Private Sub Loadtxt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Loadtxt.Click
        OpenFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        OpenFileDialog1.FilterIndex = 2
        OpenFileDialog1.RestoreDirectory = True
        OpenFileDialog1.ShowDialog()
        If Not OpenFileDialog1.FileName = "" Then
            Notebox.Text = File.ReadAllText(OpenFileDialog1.FileName)
        End If
    End Sub
#End Region
#Region "Size"
    Private Sub Sizecontrols(ByVal page As Control)
        Dim screenheight As Integer = Screen.PrimaryScreen.Bounds.Height
        Dim screenwidth As Integer = Screen.PrimaryScreen.Bounds.Width
        For Each ctrl As Control In page.Controls
            ctrl.Height = Convert.ToInt32(ctrl.Height / 768 * screenheight)
            ctrl.Width = Convert.ToInt32(ctrl.Width / 1024 * screenwidth)
            ctrl.Location = New Point(ctrl.Location.X / 1024 * screenwidth, ctrl.Location.Y / 768 * screenheight)
            If ctrl.Controls.Count > 0 Then
                Sizecontrols(ctrl)
            End If
        Next
    End Sub
#End Region
#Region "Buttons"
    Private Sub PlayRS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayRS.Click
        RuneScape.Navigate("http://runescape.com")
        TabMain.SelectedIndex = 1
    End Sub

    Private Sub GoForums_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoForums.Click
        BsKForum.Navigate("http://bsk.ipbfree.com/")
        TabMain.SelectedIndex = 0
    End Sub
    Private Sub ShowUtil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowUtil.Click
        If ShowUtil.Text = "Show other utilities" Then
            TabControl2.Height = "150"
            ShowUtil.Text = "Hide other utilities"
        Else
            TabControl2.Height = "0"
            ShowUtil.Text = "Show other utilities"
        End If
    End Sub
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Identify.Enabled = False
            Register.Enabled = False
            Options.Enabled = False
            PlayRS.Enabled = False
            GoForums.Enabled = False
            ShowUtil.Enabled = False
            ConnectIRC.Enabled = False
        ElseIf CheckBox1.Checked = False Then
            Identify.Enabled = True
            Register.Enabled = True
            Options.Enabled = True
            PlayRS.Enabled = True
            GoForums.Enabled = True
            ShowUtil.Enabled = True
            ConnectIRC.Enabled = True
        End If
    End Sub
    Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TabControl2.Height = "0"
    End Sub
#End Region
#Region "IRC"
    Private Sub Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectIRC.Click
        ws.RemotePort = 6667
        ws.RemoteHost = "cookies.ca.us.swiftirc.net"
        ws.Connect()
    End Sub

    Private Sub ws_ConnectEvent(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ws.SendData("USER " + TextBox1.Text + " x x " + TextBox1.Text + vbCrLf)
        ws.SendData("NICK " + TextBox1.Text + vbCrLf)
    End Sub

    Private Sub ws_DataArrival(ByVal sender As System.Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles ws.DataArrival
        Dim data As String = ""
        ws.GetData(data)
        If data.Contains("justchat") Then
            BsKMessages.Text = BsKMessages.Text + vbNewLine + "(" + TimeString + ")" + "  <" + get_nick(data) + "> " + get_line(data)
        ElseIf data.Contains("AUTH") Then
            StatusMessages.Text = StatusMessages.Text + vbNewLine + "(" + TimeString + ")" + "  <" + get_nick(data) + "> [MESSAGE]" + get_line(data)
        ElseIf data.Contains("NOTICE") Then
            PMMessages.Text = PMMessages.Text + vbNewLine + "(" + TimeString + ")" + "  <" + get_nick(data) + "> [NOTICE]" + get_line(data)
        ElseIf data.Contains("PRIVMSG " + TextBox1.Text) Then
            PMMessages.Text = PMMessages.Text + vbNewLine + "(" + TimeString + ")" + "  <" + get_nick(data) + "> [PM]" + get_line(data)
        Else
            StatusMessages.Text = StatusMessages.Text + vbNewLine + "(" + TimeString + ")" + "  <" + get_nick(data) + "> " + get_line(data)
        End If
        If data.Contains("001") Then
            ws.SendData("JOIN #justchat" + vbCrLf)
        End If
        Dim ping() As String = data.Split(" ")
        If ping(0) = "PING" Then
            ws.SendData("PONG :" + ping(1) + vbCrLf)
            StatusMessages.Text = StatusMessages.Text + vbNewLine + ("PONG :" + ping(1) + vbCrLf)
        End If
    End Sub
    Private Sub BsKToBeSent_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles BsKToBeSent.KeyDown
        If e.KeyCode = Keys.Return Then
            Dim what() As String = BsKToBeSent.Text.Split(" ")
            If what(0) = "/notice" Then
                ws.SendData("NOTICE " + Regex.Replace(BsKToBeSent.Text, what(0), ""))
                BsKMessages.Text = BsKMessages.Text + vbNewLine + "(" + TimeString + ") " + "***Notice to " + Regex.Replace(BsKToBeSent.Text, what(0), "")
                BsKToBeSent.Text = ""
            ElseIf what(0) = "/msg" Then
                ws.SendData("PRIVMSG " + Regex.Replace(BsKToBeSent.Text, what(0), ""))
                BsKMessages.Text = BsKMessages.Text + vbNewLine + "(" + TimeString + ") " + "***PM to " + Regex.Replace(BsKToBeSent.Text, what(0), "")
                BsKToBeSent.Text = ""
            ElseIf what(0) = "/me" Then
                ws.SendData("ACTION #clanbsk " + Regex.Replace(BsKToBeSent.Text, what(0), ""))
                BsKMessages.Text = BsKMessages.Text + vbNewLine + "(" + TimeString + ") " + TextBox1.Text + Regex.Replace(BsKToBeSent.Text, what(0), "")
                BsKToBeSent.Text = ""
            Else
                ws.SendData("PRIVMSG #Justchat " + BsKToBeSent.Text + vbCrLf)
                BsKMessages.Text = BsKMessages.Text + vbNewLine + "(" + TimeString + ") " + "<" + TextBox1.Text + ">" + BsKToBeSent.Text
                BsKToBeSent.Text = ""
            End If
        End If
    End Sub
#End Region
#Region "Functions"
    Function get_line(ByVal raw As String) As String
        Dim a() As String = raw.Split(":")
        Return a(2).Replace(vbCrLf, "")
    End Function

    Function get_nick(ByVal raw As String) As String
        Dim b() As String = raw.Split(":")
        Dim c() As String = b(1).Split("!")
        Return c(0)
    End Function

    Function get_chan(ByVal raw As String) As String
        Dim d() As String = raw.Split(" ")
        Return d(2)
    End Function
#End Region
End Class