Results 1 to 3 of 3
  1. #1
    ♪~ ᕕ(ᐛ)ᕗ's Avatar
    Join Date
    Jun 2010
    Gender
    male
    Location
    Uterus
    Posts
    9,119
    Reputation
    1096
    Thanks
    1,970
    My Mood
    Doh

    GSC Compiler v1.0 Source

    This only includes the main form source not any other one, so don't ask for the full code like intelligence and other shits, piss off and enjoy this one

    [php]Imports [property]
    Imports INIControl.INIControl
    Public Class Form1

    Public Sub CreateRAW()
    Try
    Eprv.Text = "Creating RAW Backup......."
    Dim path As String = Application.StartupPath & "\data\source\Raw Backup.txt"

    Using sWrite As New IO.StreamWriter(path)
    sWrite.Write(Intellisense.Text)
    End Using
    If Eprv.Text = "RAW Backup Created!" Then
    Eprv.Text = "Compiled as *.gsc Script:: 0 Errors, 0 Up-to-dated, 1 Compiled. ENJOY! :=)"
    Else
    Eprv.Text = "RAW Backup Created!"
    End If
    Catch ex As Exception
    Eprv.Text = "Can't create a RAW backup. :=("
    End Try
    End Sub

    Public Sub ErrorCheck()

    Dim i As Integer = 1

    Dim openStasheCount As Integer = 0
    Dim closeStasheCount As Integer = 0
    Dim openbacket As Integer = 0
    Dim closebacket As Integer = 0
    Dim orgIF As Integer = 0
    Dim nonIF As Integer = 0

    Dim startLineSearchBracket As Integer = -1
    Dim currentSearchBracket As Integer = -1

    Dim totalLines As String() = Intellisense.Text.Split(vbCrLf)
    Dim functions(450) As String
    Dim includes(25) As String

    Dim functionCount As Integer = 0
    Dim includeCount As Integer = 0

    For Each line As String In totalLines
    Dim commentChar As Integer = line.Length
    If (line.LastIndexOf("//") <> -1) Then
    commentChar = line.IndexOf("//")
    End If
    Dim beforeComment As String = line.Substring(0, commentChar)

    openStasheCount += CharCount(beforeComment, "{")
    closeStasheCount += CharCount(beforeComment, "}")
    openbacket += CharCount(beforeComment, "(")
    closebacket += CharCount(beforeComment, ")")
    orgIF += CharCount("if(" & String.Empty, "==")

    If (openStasheCount = closeStasheCount And line.IndexOf("}") And line.IndexOf("#include") = -1) Then ' if the line isn't in a function....
    If (line.IndexOf("(") = -1) Then
    Else
    functions(functionCount) = line.Substring(0, line.IndexOf("("))
    functionCount += 1
    End If


    End If
    If (line.IndexOf("#include") <> -1) Then
    includes(includeCount) = line.Substring(line.IndexOf("#include") + 8)
    includeCount += 1
    End If
    i += 1
    Next

    Dim allFunctions As String = ""
    Dim allIncludes As String = ""
    For k As Integer = 0 To functions.Length - 1
    allFunctions += functions(k) + ","
    Next
    ReDim functions(1)
    For k As Integer = 0 To includes.Length - 1
    allIncludes += includes(k) + ","
    Next
    ReDim functions(1)
    i = 1
    For Each line As String In totalLines
    If (line.IndexOf("self thread ") <> -1) Then
    Dim endOffset As Integer = line.IndexOfAny(New Char() {"(", " "}, line.IndexOf(" thread ") + 8) - line.IndexOf(" thread ") - 8
    Dim called As String = line.Substring(line.IndexOf(" thread ") + 8, endOffset)

    If (allFunctions.IndexOf(called + ",") = -1) Then
    If (called.IndexOf("\") = -1) Then
    Eprv.Text = "Script compile error: Unknown function """ + called + """" + "on line: " + i.ToString()
    End If

    End If
    End If
    i += 1
    Next

    If (openStasheCount < closeStasheCount) Then
    Eprv.Text = "Script Compile Error: Too many closed '}'."
    End If
    If (openStasheCount > closeStasheCount) Then
    Eprv.Text = "Script Compile Error: Too many open '{'."
    End If
    If (openbacket < closebacket) Then
    Eprv.Text = "Script Compile Error: Too many closed ')'."
    End If
    If (openbacket > closebacket) Then
    Eprv.Text = "Script Compile Error: Too many open '('."
    End If
    If (orgIF = "=") Then
    Eprv.Text = "Skipped one '=' while looking for errors. Did you forgot to add one '='?"
    End If
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EX.Click
    Close()
    End Sub

    Private Sub GSCToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cgsc.Click
    Crypter.Show()
    End Sub

    Private Sub RAWToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Craw.Click
    Try
    Dim dlg As New SaveFileDialog
    dlg.Title = "Save RAW As..."
    dlg.Filter = "RAW File *.*|*.*"
    dlg.ShowDialog()
    Dim i As New System.IO.StreamWriter(dlg.FileName.ToString())
    i.Write(Intellisense.Text)
    i.Close()
    Catch ex As Exception
    MsgBox("The operation was canceled!")
    End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ini_tool As New IniReader
    Eprv.Text = "Loading engine......"
    Tools1.Start()
    intel.Start()
    Eprv.Text = "Engine loaded!"
    Form2.Timer1.Start()
    Intellisense.CreateGraphics()
    Intellisense.SetHighlighting("C#")
    lol()
    End Sub

    Private Sub ManualErrorCheckToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MEC.Click
    Dim i As Integer = 1

    Dim openStasheCount As Integer = 0
    Dim closeStasheCount As Integer = 0
    Dim openbacket As Integer = 0
    Dim closebacket As Integer = 0
    Dim orgIF As Integer = 0
    Dim nonIF As Integer = 0

    Dim startLineSearchBracket As Integer = -1
    Dim currentSearchBracket As Integer = -1

    Dim totalLines As String() = Intellisense.Text.Split(vbCrLf)
    Dim functions(450) As String
    Dim includes(25) As String

    Dim functionCount As Integer = 0
    Dim includeCount As Integer = 0

    For Each line As String In totalLines
    Dim commentChar As Integer = line.Length
    If (line.LastIndexOf("//") <> -1) Then
    commentChar = line.IndexOf("//")
    End If
    Dim beforeComment As String = line.Substring(0, commentChar)

    openStasheCount += CharCount(beforeComment, "{")
    closeStasheCount += CharCount(beforeComment, "}")
    openbacket += CharCount(beforeComment, "(")
    closebacket += CharCount(beforeComment, ")")
    orgIF += CharCount("if(" + beforeComment, "==")
    nonIF += CharCount("if(" + beforeComment, "=")

    If (openStasheCount = closeStasheCount And line.IndexOf("}") And line.IndexOf("#include") = -1) Then
    If (line.IndexOf("(") = -1) Then
    Else
    functions(functionCount) = line.Substring(0, line.IndexOf("("))
    functionCount += 1
    End If


    End If
    If (line.IndexOf("#include") <> -1) Then
    includes(includeCount) = line.Substring(line.IndexOf("#include") + 8)
    includeCount += 1
    End If
    i += 1
    Next
    Dim allFunctions As String = ""
    Dim allIncludes As String = ""
    For k As Integer = 0 To functions.Length - 1
    allFunctions += functions(k) + ","
    Next
    ReDim functions(1)
    For k As Integer = 0 To includes.Length - 1
    allIncludes += includes(k) + ","
    Next
    ReDim functions(1)
    i = 1
    For Each line As String In totalLines
    If (line.IndexOf("self thread ") <> -1) Then
    Dim endOffset As Integer = line.IndexOfAny(New Char() {"(", " "}, line.IndexOf(" thread ") + 8) - line.IndexOf(" thread ") - 8
    Dim called As String = line.Substring(line.IndexOf(" thread ") + 8, endOffset)

    If (allFunctions.IndexOf(called + ",") = -1) Then
    If (called.IndexOf("\") = -1) Then
    Eprv.Text = "Script compile error: Unknown function """ + called + """" + "on line: " + i.ToString()
    End If

    End If
    End If
    i += 1
    Next

    If (openStasheCount < closeStasheCount) Then
    MsgBox("Syntax error: Too many close braces '}' at line: " + i.ToString)
    End If
    If (openStasheCount > closeStasheCount) Then
    MsgBox("Syntax error: Too many open braces '{' at line: " + i.ToString)
    End If
    If (openbacket < closebacket) Then
    MsgBox("Syntax error: Too many closed barces ')' at line: " + i.ToString)
    End If
    If (openbacket > closebacket) Then
    MsgBox("Syntax error: Too many open barces '(' at line:" + i.ToString)
    End If
    If (orgIF = nonIF) Then
    MsgBox("Syntax error: You must add one more '=' at line: " + i.ToString)
    End If
    MessageBox.Show("Script Check ended!")
    End Sub

    Private Sub Tools_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tools1.Tick
    Try
    If Intellisense.Text = "" Then

    'Do Nothing()

    Else

    CreateRAW()

    End If

    ErrorCheck()

    Catch ex As Exception

    End Try

    End Sub

    Private Sub Tools2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tools2.Tick
    ErrorCheck()
    End Sub

    Private Sub SettingsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STT.Click
    Form2.Show()
    End Sub

    Private Sub RankToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RankToolStripMenuItem.Click
    Dim path As String = Application.StartupPath.ToString() + "\data\codes\_rank.txt"
    Using sRead As New System.IO.StreamReader(path)
    Intellisense.Text = sRead.ReadToEnd()
    End Using
    End Sub

    Private Sub MissionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MissionsToolStripMenuItem.Click
    Dim path As String = Application.StartupPath.ToString() + "\data\codes\musics_and_dialogs.txt"
    Using sRead As New System.IO.StreamReader(path)
    Intellisense.Text = sRead.ReadToEnd()
    End Using
    End Sub

    Private Sub CalssToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalssToolStripMenuItem.Click
    Dim path As String = Application.StartupPath.ToString() + "\data\codes\_class.txt"
    Using sRead As New System.IO.StreamReader(path)
    Intellisense.Text = sRead.ReadToEnd()
    End Using
    End Sub

    Private Sub MissionsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MissionsToolStripMenuItem1.Click
    Dim path As String = Application.StartupPath.ToString() + "\data\codes\_missions.txt"
    Using sRead As New System.IO.StreamReader(path)
    Intellisense.Text = sRead.ReadToEnd()
    End Using
    End Sub

    Private Sub EventsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EventsToolStripMenuItem.Click
    Dim path As String = Application.StartupPath.ToString() + "\data\codes\_events.txt"
    Using sRead As New System.IO.StreamReader(path)
    Intellisense.Text = sRead.ReadToEnd()
    End Using
    End Sub

    Private Sub AnimatedmodelsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnimatedmodelsToolStripMenuItem.Click
    Dim path As String = Application.StartupPath.ToString() + "\data\codes\_animatedmodels.txt"
    Using sRead As New System.IO.StreamReader(path)
    Intellisense.Text = sRead.ReadToEnd()
    End Using
    End Sub

    Private Sub Destructibledlc2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Destructibledlc2ToolStripMenuItem.Click
    Dim path As String = Application.StartupPath.ToString() + "\data\codes\common_scripts\_destructible_dlc2.txt "
    Using sRead As New System.IO.StreamReader(path)
    Intellisense.Text = sRead.ReadToEnd()
    End Using
    End Sub

    Private Sub Destructibletypesdlc2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Destructibletypesdlc2ToolStripMenuItem.Click
    Dim path As String = Application.StartupPath.ToString() + "\data\codes\common_scripts\_destructible_types_dl c2.txt"
    Using sRead As New System.IO.StreamReader(path)
    Intellisense.Text = sRead.ReadToEnd()
    End Using
    End Sub

    Private Sub MpafghanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MpafghanToolStripMenuItem.Click
    Dim path As String = Application.StartupPath.ToString() + "\data\codes\mp\mp_afghan.txt"
    Using sRead As New System.IO.StreamReader(path)
    Intellisense.Text = sRead.ReadToEnd()
    End Using
    End Sub

    Private Sub MprustToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MprustToolStripMenuItem.Click
    Dim path As String = Application.StartupPath.ToString() + "\data\codes\mp\mp_rust.txt"
    Using sRead As New System.IO.StreamReader(path)
    Intellisense.Text = sRead.ReadToEnd()
    End Using
    End Sub

    Private Sub MpderailToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MpderailToolStripMenuItem.Click
    Dim path As String = Application.StartupPath.ToString() + "\data\codes\mp\mp_derail.txt"
    Using sRead As New System.IO.StreamReader(path)
    Intellisense.Text = sRead.ReadToEnd()
    End Using
    End Sub

    Private Sub Ac130ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ac130ToolStripMenuItem.Click
    Dim path As String = Application.StartupPath.ToString() + "\data\codes\killstreaks\_ac130.txt"
    Using sRead As New System.IO.StreamReader(path)
    Intellisense.Text = sRead.ReadToEnd()
    End Using
    End Sub

    Private Sub PackageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PackageToolStripMenuItem.Click
    Dim path As String = Application.StartupPath.ToString() + "\data\codes\killstreaks\_airdrop.txt"
    Using sRead As New System.IO.StreamReader(path)
    Intellisense.Text = sRead.ReadToEnd()
    End Using
    End Sub

    Private Sub HelicopterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelicopterToolStripMenuItem.Click
    Dim path As String = Application.StartupPath.ToString() + "\data\codes\killstreaks\_helicopter.txt"
    Using sRead As New System.IO.StreamReader(path)
    Intellisense.Text = sRead.ReadToEnd()
    End Using
    End Sub

    Private Sub AirstrikeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AirstrikeToolStripMenuItem.Click
    Dim path As String = Application.StartupPath.ToString() + "\data\codes\killstreaks\_airstrike.txt"
    Using sRead As New System.IO.StreamReader(path)
    Intellisense.Text = sRead.ReadToEnd()
    End Using
    End Sub

    Private Sub KillstreaksToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KillstreaksToolStripMenuItem1.Click
    Dim path As String = Application.StartupPath.ToString() + "\data\codes\killstreaks\_killstreaks.txt"
    Using sRead As New System.IO.StreamReader(path)
    Intellisense.Text = sRead.ReadToEnd()
    End Using
    End Sub

    Private Sub OpenScriptToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenScriptToolStripMenuItem.Click
    Try
    Dim opg As New OpenFileDialog
    opg.Title = "Open Script...."
    opg.Filter = "Script *.gsc|*.gsc"
    opg.ShowDialog()
    Using sRead As New System.IO.StreamReader(opg.FileName)
    Intellisense.Text = sRead.ReadToEnd()
    End Using
    Catch ex As Exception

    End Try
    End Sub

    Private Sub AuthorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AuthorToolStripMenuItem.Click
    Form3.Show()
    End Sub

    Private Sub SwitchToEasybuilerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SwitchToEasybuilerToolStripMenuItem.Click
    Easy_Builder.Show()
    End Sub

    Private Sub ApplicationScanerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApplicationScanerToolStripMenuItem.Click
    GSC_Compiler_Scaner_Beta.Show()
    End Sub

    Private Sub GoToLineToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoToLineToolStripMenuItem.Click
    Find.Show()
    End Sub

    Private Sub SelectAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectAllToolStripMenuItem.Click
    Intellisense.Undo()
    End Sub

    Private Sub RedoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedoToolStripMenuItem.Click
    Intellisense.Redo()
    End Sub

    Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
    String.Copy(Intellisense.Text)
    Clipboard.SetText(Intellisense.Text)
    End Sub

    Private Sub lol()
    Dim lp As New DataConnector
    If Not lp.a("<url>") = My.Settings.Bytes.ToString() Then
    MsgBox("The program bytes has been changed! The program will now close! To fix this error you have to update the program!", MsgBoxStyle.Exclamation, "Bytes has been changed")
    End
    End If
    End Sub
    End Class[/php]

    Like it?
    Well, I hope this will help for future releases,

    Cheers, Ace.
    Last edited by ♪~ ᕕ(ᐛ)ᕗ; 12-09-2010 at 10:03 AM.

  2. The Following User Says Thank You to ♪~ ᕕ(ᐛ)ᕗ For This Useful Post:

    cgallagher21 (12-09-2010)

  3. #2
    cgallagher21's Avatar
    Join Date
    Jun 2010
    Gender
    male
    Posts
    1,627
    Reputation
    11
    Thanks
    325
    My Mood
    Angelic
    Thanks for source Ace

  4. #3
    ♪~ ᕕ(ᐛ)ᕗ's Avatar
    Join Date
    Jun 2010
    Gender
    male
    Location
    Uterus
    Posts
    9,119
    Reputation
    1096
    Thanks
    1,970
    My Mood
    Doh
    no problem dude, hope this helps!