Option Explicit

'Title
Private word0(0 To 1) As String
Private word1(0 To 5) As String
Private word2(0 To 5) As String
Private word3(0 To 5) As String
Private word4(0 To 5) As String

'Sentence1
Private word5(0 To 3) As String
Private word6(0 To 3) As String
Private word7(0 To 1) As String
Private word8(0 To 5) As String
Private word9(0 To 5) As String
Private word10(0 To 7) As String
Private word11(0 To 5) As String

'Sentence2
Private word12(0 To 2) As String
Private word13(0 To 2) As String
Private word14(0 To 5) As String

'Sentence3
Private word15(0 To 2) As String
Private word16(0 To 2) As String
Private word17(0 To 2) As String

'Sentence4
Private word18(0 To 3) As String
Private word19(0 To 3) As String
Private word20(0 To 3) As String
Private word21(0 To 3) As String
Private word22(0 To 3) As String
Private word23(0 To 3) As String
Private word24(0 To 3) As String

'CraftGrid
Private word25(0 To 8) As String
Private word26(0 To 5) As String

'LastSentence
Private word27(0 To 3) As String
Private word28(0 To 3) As String


Private Sub cmdDone_Click()
    Unload Me
End Sub

Private Sub cmdGen_Click()
    Dim thread As Integer
    thread = Int(Rnd * 2)

    txtTitle.Text = word0(thread)

    'txtTitle.Text = txtTitle.Text & " " & word1(Int(Rnd * UBound(word1)))
    Call Appendit(word1)
    Call Appendit(word2)
    Call Appendit(word3)
    Call Appendit(word4)

    'First Sentence
    txtBody.Text = word5(Int(Rnd * UBound(word5)))
    Call Appendix(", fellow ")
    Call Appendus(word6)
    If Int(Rnd * 2) = 0 Then
        Call Appendix("!")
    End If
    If Int(Rnd * 2) = 0 Then
        Call Appendix("!")
    End If
    Call Appendix("!" & vbCrLf & vbCrLf & "I ")
    Call Appendix(word7(thread))
    Dim color As Long
    color = 110000 * (Int(Rnd * 7) + 1)
    color = color + 1100 * (Int(Rnd * 7) + 1)
    color = color + 11 * (Int(Rnd * 7) + 1)

    Dim c1 As String
    c1 = " [color=#" & color & "]"

    Call Appendix(c1)

    Call Appendus(word8)
    Call Appendix("[/color] [i]")
    Call Appendus(word9)
    Call Appendix("[/i] ")
    Call Appendus(word10)
    Call Appendix(" because ")
    Call Appendus(word11)

    'Sentence 2
    Call Appendix(". " & "for this to be possible, i need the skills of a [b]")
    Call Appendus(word12)
    Call Appendix("[/b] ")
    Call Appendus(word13)
    Call Appendix(" who ")
    Call Appendus(word14)
    Call Appendix(". ")

    'Sentence3
    Call Appendix("i have muchs experience with using makeMyItem but i am having ")
    Call Appendus(word15)
    Call Appendix(" problems such as ")
    Call Appendus(word16)
    Call Appendix(" and ")
    Call Appendus(word17)
    Call Appendix(", but im sure that with help i can figure it out." & vbCrLf & vbCrLf)

    'Sentence4
    Call Appendix("this custom mod must have these [u]following abilities:[u]" & vbCrLf & vbCrLf)
    Call Appendix("[Diamond] it must ")
    Call Appendus(word18)
    Call Appendix(" ")
    Call Appendus(word19)
    Call Appendix("." & vbCrLf & "[Diamond] It also has to ")
    Call Appendus(word20)
    Call Appendix(" ")
    Call Appendus(word21)
    Call Appendix(" using its [b]")
    Call Appendus(word22)
    Call Appendix("[/b]." & vbCrLf & "[Diamond] and most importantly, it has to ")
    Call Appendus(word23)
    Call Appendix(" when the player ")
    Call Appendus(word24)
    Call Appendix("." & vbCrLf & vbCrLf & "i have already made a crafting formula for it, it goes like this:" & vbCrLf & vbCrLf)

    Dim i, j, k As Integer
    For i = 1 To 3
        For j = 1 To 3
            Call Appendix(" ")
            If i = 3 And j = 3 Then
                k = Int(Rnd * 8) + 1
                Call Appendix(word25(k) & vbCrLf & "[color=#888888] - where " & word25(k) & " represents a rod made of ")
                Call Appendus(word26)
                Call Appendix(".[/color]")
            Else
                If Int(Rnd * 3) = 0 Then
                    Call Appendix(word25(0))
                Else
                    Call Appendus(word25)
                End If
            End If
        Next j
        Call Appendix(vbCrLf)
    Next i

    Call Appendix(vbCrLf & "so if anyone out there is willing to hepl, please respond quickly because ")
    Call Appendus(word27)
    Call Appendix("!! Whoever is the first to relpy gets [b]OVER 9000 ")
    Call Appendus(word28)
    Call Appendix("!!!!![/b]" & vbCrLf & vbCrLf & "PEACE OUT, ")
    Call Appendus(word6)
    Call Appendix("!!!!!1!11one1")
End Sub

Private Sub Appendit(s1() As String)
    txtTitle.Text = txtTitle.Text & " " & s1(Int(Rnd * (UBound(s1) + 1)))
End Sub

Private Sub Appendus(s1() As String)
    txtBody.Text = txtBody.Text & s1(Int(Rnd * (UBound(s1) + 1)))
End Sub

Private Sub Appendix(s1 As String)
    txtBody.Text = txtBody.Text & s1
End Sub

Private Sub Form_Load()
    Randomize
    word0(0) = "[REQ]"
    word0(1) = "[WIP]"

    word1(0) = "awes0m3"
    word1(1) = "cRazy"
    word1(2) = "Tiny"
    word1(3) = "sUp3r"
    word1(4) = "HUGE"
    word1(5) = "bounCy"

    word2(0) = "GREEN"
    word2(1) = "orange"
    word2(2) = "BURNing"
    word2(3) = "~springy~"
    word2(4) = "exploding"
    word2(5) = "arrow-shooting"

    word3(0) = "Creeper"
    word3(1) = "poop"
    word3(2) = "spider"
    word3(3) = "Nethur"
    word3(4) = "NOTCH"
    word3(5) = "zomBee"

    word4(0) = "blockz"
    word4(1) = "SORDZ"
    word4(2) = "monst3rz"
    word4(3) = "t00ls"
    word4(4) = "breakers"
    word4(5) = "destroyyers"

    word5(0) = "Greetings"
    word5(1) = "HEY"
    word5(2) = "Wassup"
    word5(3) = "Hi"

    word6(0) = "forumers"
    word6(1) = "minecrafters"
    word6(2) = "modders"
    word6(3) = "awesome people"

    word7(0) = "am working on"
    word7(1) = "would like to see"

    word8(0) = "gigantic"
    word8(1) = "super-intelligent"
    word8(2) = "multiplying"
    word8(3) = "flesh-eating"
    word8(4) = "tamable"
    word8(5) = "pointy"

    word9(0) = "edible"
    word9(1) = "fried"
    word9(2) = "stackable"
    word9(3) = "moveable"
    word9(4) = "light-emitting"
    word9(5) = "flammable"

    word10(0) = "machine-gun bullets"
    word10(1) = "african elephants"
    word10(2) = "sled dogs"
    word10(3) = "chess tables"
    word10(4) = "spotted giraffes"
    word10(5) = "epic dragons"
    word10(6) = "butterflies"
    word10(7) = "Herobrines"

    word11(0) = "it's the best idea ever"
    word11(1) = "nobody's ever done it before"
    word11(2) = "it's too awesome to not be in the game"
    word11(3) = "it just has to be done"
    word11(4) = "I'm bored of the game the way it is"
    word11(5) = "all my friends think it's a good idea"

    word12(0) = "hardc0re"
    word12(1) = "eztreme"
    word12(2) = "experinced"

    word13(0) = "programer"
    word13(1) = "modder"
    word13(2) = "computer dude"

    word14(0) = "has made at least 4 mods before"
    word14(1) = "has coded java for there whole life"
    word14(2) = "knows a lot about the game"
    word14(3) = "does this stuff in ther spare time"
    word14(4) = "can be dedicated to this project"
    word14(5) = "is willing to make sacrifices for the greater good"

    word15(0) = "really bad"
    word15(1) = "complex issues and"
    word15(2) = "lots of"

    word16(0) = "getting a black screen on startup"
    word16(1) = "trouble getting started"
    word16(2) = "weird visual problems"

    word17(0) = "not knowing what to do"
    word17(1) = "getting a decompiler"
    word17(2) = "installing MCP"

    word18(0) = "attack all nearby"
    word18(1) = "attach itself to"
    word18(2) = "jump towards"
    word18(3) = "build its own"

    word19(0) = "trees"
    word19(1) = "houses"
    word19(2) = "castles"
    word19(3) = "mountains"

    word20(0) = "shoot"
    word20(1) = "eat"
    word20(2) = "break"
    word20(3) = "collect"

    word21(0) = "bricks"
    word21(1) = "dirt"
    word21(2) = "arrows"
    word21(3) = "creepers"

    word22(0) = "mouth"
    word22(1) = "arms"
    word22(2) = "physhic powers"
    word22(3) = "secret trap door"

    word23(0) = "die"
    word23(1) = "explode"
    word23(2) = "split in half"
    word23(3) = "become friendly"

    word24(0) = "gives it a diamond"
    word24(1) = "destroys its house"
    word24(2) = "hits it with a shovel"
    word24(3) = "tries to trap it in a hole"

    word25(0) = "[]"
    word25(1) = "[YFlower]"
    word25(2) = "[|]"
    word25(3) = "[Notch]"
    word25(4) = "[-<->]"
    word25(5) = "[soil]"
    word25(6) = "[Iron]"
    word25(7) = "[Diamond]"
    word25(8) = "[RedShroom]"

    word26(0) = "obdisian"
    word26(1) = "armor parts"
    word26(2) = "creepers faces"
    word26(3) = "golden apples"
    word26(4) = "mossy cobbles"
    word26(5) = "purple dyed cloth"

    word27(0) = "i might be grounded fromthe game soon"
    word27(1) = "i m too impatient to wait any longer"
    word27(2) = "this game is really freaking boring right niow"
    word27(3) = "i cant do this on my own myself"

    word28(0) = "Inter-Nets"
    word28(1) = "[Notch] 's"
    word28(2) = "[doamond] 's"
    word28(3) = "[DBlock] s"
End Sub