Thread: Project Insanity tool (Makes NPC Spawns, Item.cfg codes, Object spawns..)

Page 1 of 7 123 ... LastLast
Results 1 to 10 of 64
  1. #1 Project Insanity tool (Makes NPC Spawns, Item.cfg codes, Object spawns..) 
    Registered Member
    FuckThePolice's Avatar
    Join Date
    Feb 2009
    Age
    30
    Posts
    846
    Thanks given
    29
    Thanks received
    57
    Rep Power
    87
    Alright first of all I was bored and I seen Toxic Melee's Dialogue Master tool and I thought I should randomly make a tool for the lazy people

    Anyways

    Download

    Theres the download..

    Video:

    Coming soon, rendering it atm then gonna upload it

    Pictures:







    I scanned it with 'Virustotal.com' and it did come back with a Mal/DotNet-C just so you know..

    Virus Scan

    Feedback please?

    Note: This WAS my first actual VisualBasics program hope you enjoy.


    And to prove it isn't a virus..
    Spoiler for Source code:
    Code:
    Public Class Form1
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            If (ProgressBar1.Value > 0 & ProgressBar1.Value < 100) Then
                ProgressBar1.Value += 1
                Label1.Text = "The code has been " & ProgressBar1.Value & "% generated"
            End If
            If (ProgressBar1.Value = 100) Then
                ProgressBar1.Value = 0
                Timer1.Stop()
                MsgBox("The Code has been successfully generated!")
                Label1.Text = "Finished!"
                RichTextBox1.Text = "spawn = " + TextBox1.Text + "	" + TextBox2.Text + "	" + TextBox3.Text + "	" + TextBox4.Text + "	" + TextBox5.Text + "	" + TextBox6.Text + "	" + TextBox7.Text + "	" + TextBox8.Text + "	" + TextBox9.Text + ""
            End If
        End Sub
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If (TextBox1.Text = "") Then
                Label1.Text = "Please fill in the NPC Id box."
            ElseIf (TextBox2.Text = "") Then
                Label1.Text = "Please fill in the Spawn X box."
            ElseIf (TextBox3.Text = "") Then
                Label1.Text = "Please fill in the Spawn Y box."
            ElseIf (TextBox4.Text = "") Then
                Label1.Text = "Please fill in the Height box."
            ElseIf (TextBox5.Text = "") Then
                Label1.Text = "Please fill in the Walk box."
            ElseIf (TextBox6.Text = "") Then
                Label1.Text = "Please fill in the Max Hit box."
            ElseIf (TextBox7.Text = "") Then
                Label1.Text = "Please fill in the Attack box."
            ElseIf (TextBox8.Text = "") Then
                Label1.Text = "Please fill in the Defence box."
            ElseIf (TextBox9.Text = "") Then
                Label1.Text = "Please fill in the Description box."
            Else
                Timer1.Start()
            End If
    
        End Sub
    
        Private Sub LinkLabel1_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
            If (RichTextBox1.Text = "spawn = " + TextBox1.Text + "	" + TextBox2.Text + "	" + TextBox3.Text + "	" + TextBox4.Text + "	" + TextBox5.Text + "	" + TextBox6.Text + "	" + TextBox7.Text + "	" + TextBox8.Text + "	" + TextBox9.Text + "") Then
                RichTextBox1.SelectAll()
                RichTextBox1.Copy()
                Label12.Text = "Code successfully copied."
            Else
                Label12.Text = "Not Ready Yet.."
            End If
    
        End Sub
    
        Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
            If IsNumeric(TextBox1.Text) Then
                TextBox1.Enabled = True
            ElseIf IsNumeric(TextBox1.Text) = False Then
                Label1.Text = "You can't put letters in any box except Description.."
                TextBox1.Text = ""
            End If
        End Sub
        Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
            If IsNumeric(TextBox2.Text) Then
                TextBox2.Enabled = True
            ElseIf IsNumeric(TextBox2.Text) = False Then
                Label1.Text = "You can't put letters in any box except Description.."
                TextBox2.Text = ""
            End If
        End Sub
        Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
            If IsNumeric(TextBox3.Text) Then
                TextBox3.Enabled = True
            ElseIf IsNumeric(TextBox3.Text) = False Then
                Label1.Text = "You can't put letters in any box except Description.."
                TextBox3.Text = ""
            End If
        End Sub
        Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
            If IsNumeric(TextBox4.Text) Then
                TextBox4.Enabled = True
            ElseIf IsNumeric(TextBox4.Text) = False Then
                Label1.Text = "You can't put letters in any box except Description.."
                TextBox4.Text = ""
            End If
        End Sub
        Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
            If IsNumeric(TextBox5.Text) Then
                TextBox5.Enabled = True
            ElseIf IsNumeric(TextBox5.Text) = False Then
                Label1.Text = "You can't put letters in any box except Description.."
                TextBox5.Text = ""
            End If
        End Sub
        Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
            If IsNumeric(TextBox6.Text) Then
                TextBox6.Enabled = True
            ElseIf IsNumeric(TextBox6.Text) = False Then
                Label1.Text = "You can't put letters in any box except Description.."
                TextBox6.Text = ""
            End If
        End Sub
        Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
            If IsNumeric(TextBox7.Text) Then
                TextBox7.Enabled = True
            ElseIf IsNumeric(TextBox7.Text) = False Then
                Label1.Text = "You can't put letters in any box except Description.."
                TextBox7.Text = ""
            End If
        End Sub
        Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
            If IsNumeric(TextBox8.Text) Then
                TextBox8.Enabled = True
            ElseIf IsNumeric(TextBox8.Text) = False Then
                Label1.Text = "You can't put letters in any box except Description.."
                TextBox8.Text = ""
            End If
        End Sub
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            If (TextBox11.Text = "") Then
                Label34.Text = "Please fill in the Item Id box."
            ElseIf (TextBox12.Text = "") Then
                Label34.Text = "Please fill in the Name box."
            ElseIf (TextBox13.Text = "") Then
                Label34.Text = "Please fill in the examine box."
            ElseIf (TextBox14.Text = "") Then
                Label34.Text = "Please fill in the Shop Value box."
            ElseIf (TextBox16.Text = "") Then
                Label34.Text = "Please fill in the Low Alch box."
            ElseIf (TextBox15.Text = "") Then
                Label34.Text = "Please fill in the High Alch box."
            ElseIf (TextBox10.Text = "" Or TextBox18.Text = "" Or TextBox19.Text = "" Or TextBox20.Text = "" Or TextBox21.Text = "" Or TextBox17.Text = "" Or TextBox22.Text = "" Or TextBox23.Text = "" Or TextBox24.Text = "" Or TextBox25.Text = "" Or TextBox26.Text = "" Or TextBox27.Text = "") Then
                Label34.Text = "Please fill in all of the bonuses boxes."
            Else
                If (Button2.Text = "Stop") Then
                    Timer2.Stop()
                    Button2.Text = "Start"
                Else
                    Timer2.Start()
                End If
                TextBox12.Text = Replace(TextBox12.Text, " ", "_")
                TextBox13.Text = Replace(TextBox13.Text, " ", "_")
            End If
        End Sub
        Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
            If (ProgressBar2.Value > 0 & ProgressBar2.Value < 100) Then
                ProgressBar2.Value += 1
                Label34.Text = "The code has been " & ProgressBar2.Value & "% generated"
                Button2.Text = "Stop"
            End If
            If (ProgressBar2.Value = 100) Then
                ProgressBar2.Value = 0
                Timer2.Stop()
                MsgBox("The Code has been successfully generated!")
                Label34.Text = "Finished!"
                Button2.Text = "Start"
                RichTextBox2.Text = "item = " + TextBox11.Text + "	" + TextBox12.Text + "	" + TextBox13.Text + "	" + TextBox14.Text + "	" + TextBox16.Text + "	" + TextBox15.Text + "	" + TextBox10.Text + "	" + TextBox18.Text + "	" + TextBox19.Text + "	" + TextBox20.Text + "	" + TextBox21.Text + "	" + TextBox17.Text + "	" + TextBox22.Text + "	" + TextBox23.Text + "	" + TextBox24.Text + "	" + TextBox25.Text + "	" + TextBox26.Text + "	" + TextBox27.Text + ""
            End If
        End Sub
    
        Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
            If (RichTextBox2.Text = "item = " + TextBox11.Text + "	" + TextBox12.Text + "	" + TextBox13.Text + "	" + TextBox14.Text + "	" + TextBox16.Text + "	" + TextBox15.Text + "	" + TextBox10.Text + "	" + TextBox18.Text + "	" + TextBox19.Text + "	" + TextBox20.Text + "	" + TextBox21.Text + "	" + TextBox17.Text + "	" + TextBox22.Text + "	" + TextBox23.Text + "	" + TextBox24.Text + "	" + TextBox25.Text + "	" + TextBox26.Text + "	" + TextBox27.Text + "") Then
                RichTextBox2.SelectAll()
                RichTextBox2.Copy()
                MsgBox("All of this code goes into the Data/Cfg/item.cfg.")
                Label34.Text = "Code successfully copied."
            Else
                Label34.Text = "Not Ready Yet.."
            End If
        End Sub
    
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            If (TextBox28.Text = "") Then
                Label44.Text = "Please fill out the Object Id box."
            ElseIf (TextBox29.Text = "") Then
                Label44.Text = "Please fill out the Spawn X box."
            ElseIf (TextBox30.Text = "") Then
                Label44.Text = "Please fill out the Spawn Y box."
            ElseIf (TextBox31.Text = "") Then
                Label44.Text = "Please fill out the Object Face box."
            ElseIf (TextBox32.Text = "") Then
                Label44.Text = "Please fill out the Object Type box."
            ElseIf (TextBox33.Text = "") Then
                Label44.Text = "Please enter a name for the object in the Object Name box."
            Else
                Timer3.Start()
            End If
        End Sub
    
    
        Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
            If (ProgressBar3.Value > 0 & ProgressBar3.Value < 100) Then
                ProgressBar3.Value += 1
                Label44.Text = "The code has been " & ProgressBar3.Value & "% generated"
            End If
            If (ProgressBar3.Value = 100) Then
                ProgressBar3.Value = 0
                Timer3.Stop()
                Label44.Text = "Finished and the code is automatically copied."
                RichTextBox3.Text = "c.getPA().checkObjectSpawn(" + TextBox28.Text + ", " + TextBox29.Text + ", " + TextBox30.Text + ", " + TextBox31.Text + ", " + TextBox32.Text + "); // " + TextBox33.Text + " "
                RichTextBox3.SelectAll()
                RichTextBox3.Copy()
                MsgBox("The code has been created and also copied to your clipboard ready to paste in src.server.world.ObjectManager.java")
            End If
        End Sub
    End Class


    Yes, it's a messy code but hey, it works
    Reply With Quote  
     


  2. #2  
    #Winning

    Join Date
    Apr 2011
    Age
    28
    Posts
    2,245
    Thanks given
    367
    Thanks received
    388
    Rep Power
    1187
    Looks very nice but it is a pretty simple code generator. I would love one of these for the more advanced stuff.


    Vouches
    Spoiler for Vouches:

    Quote Originally Posted by Exile rsps View Post
    Vouch thanks for that pic
    Quote Originally Posted by bwuk _im_pb View Post
    i vouch for charlie hes legit
    Quote Originally Posted by Pastaway
    Vouch for 'Charlie. Added a tut to my server I couldn't add and payed him after =]
    Quote Originally Posted by mongolias
    Vouch for 'Charlie. Sold me a banner, the trade went quick and efficiently.
    Quote Originally Posted by Lane
    Vouch for charlie, he is #1
    Quote Originally Posted by Raw Envy View Post
    Vouch for Charlie.
    Quote Originally Posted by -Null Code-
    Vouch Legit bought rs membership
    Quote Originally Posted by tucybro
    Traded with Charlie, went smoothly I went first and he paid promptly without and issues, great trader!



    Reply With Quote  
     

  3. #3  
    Registered Member

    Join Date
    Sep 2009
    Age
    27
    Posts
    2,768
    Thanks given
    367
    Thanks received
    187
    Rep Power
    458
    fuck yes, love the item bouns one )
    Reply With Quote  
     

  4. #4  
    Registered Member
    FuckThePolice's Avatar
    Join Date
    Feb 2009
    Age
    30
    Posts
    846
    Thanks given
    29
    Thanks received
    57
    Rep Power
    87
    Haha Thanks Charlie, and Thanks Chris, I do plan on re-making one of these.. making it better someday ..
    Reply With Quote  
     

  5. #5  
    Banned
    Join Date
    Apr 2011
    Posts
    801
    Thanks given
    66
    Thanks received
    84
    Rep Power
    0
    Damn norton never lets me download anything
    Reply With Quote  
     

  6. #6  
    Registered Member
    FuckThePolice's Avatar
    Join Date
    Feb 2009
    Age
    30
    Posts
    846
    Thanks given
    29
    Thanks received
    57
    Rep Power
    87
    ^ Then disable it and get a real anti-virus?
    Reply With Quote  
     

  7. #7  
    supa fly guy


    Join Date
    Feb 2011
    Age
    28
    Posts
    2,201
    Thanks given
    488
    Thanks received
    988
    Rep Power
    992
    Goodjob on this something that can be very useful yet very simple.
    Reply With Quote  
     

  8. #8  
    Registered Member

    Join Date
    Sep 2009
    Age
    27
    Posts
    2,768
    Thanks given
    367
    Thanks received
    187
    Rep Power
    458
    Quote Originally Posted by Piranhas View Post
    Damn norton never lets me download anything
    norton lmfa0
    Reply With Quote  
     

  9. #9  
    Banned
    Join Date
    Apr 2011
    Posts
    801
    Thanks given
    66
    Thanks received
    84
    Rep Power
    0
    What should I use?
    Reply With Quote  
     

  10. #10  
    Registered Member
    FuckThePolice's Avatar
    Join Date
    Feb 2009
    Age
    30
    Posts
    846
    Thanks given
    29
    Thanks received
    57
    Rep Power
    87
    I use Avira AntiVir

    Download link?

    MajorGeeks site Yes, that's a real site lmao xD
    Reply With Quote  
     

  11. Thankful user:


Page 1 of 7 123 ... LastLast

Thread Information
Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)


User Tag List

Similar Threads

  1. [PI] Item spawns twice
    By Jmk600 in forum Help
    Replies: 2
    Last Post: 05-08-2011, 08:03 PM
  2. Item on object spawns Npc?
    By nohope in forum Help
    Replies: 2
    Last Post: 07-01-2010, 01:36 AM
  3. Item Spawns
    By Ituharu in forum Help
    Replies: 1
    Last Post: 05-02-2010, 07:26 AM
  4. adding item spawns my way
    By luke1105 in forum Tutorials
    Replies: 1
    Last Post: 09-08-2007, 03:45 PM
Posting Permissions
  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •