Flash Element TD

Flash Element TD Trainer

-Gold hack
-Wood hack
-Interest hack
-Level select

http://img38.imageshack.us/img38/1569/screenshotfh.jpg

Looks good; what did you make it in?

Thanks! Visual Studio 2010

Oh ok. I haven't seen many Visual Studio 2010 trainers yet. For me, the web install fails after a while and the iso for all of the express editions gets corrupted >.<

I use Visual Basic 2008.

Yes, most of the tutorials i have seen on here are for VB6, which is kind of outdated.

Visual Studio 2010 makes everything look nice :P
VB 2008 is still pretty nice

Could you send your projects source code (the place where you put all your variable editing code in) to me plz? My security is giving me a virus message, that can often happen in trainers.

Hopefully this is what you meant:

Code:

---

Public Class Form1

    Private Sub moneybut_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles moneybut.Click
        Call AxShockwaveFlash1.SetVariable("_root.gold", moneytxt.Text)
    End Sub

    Private Sub woodbut_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles woodbut.Click
        Call AxShockwaveFlash1.SetVariable("_root.wood", woodtxt.Text)
    End Sub

    Private Sub interestbut_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles interestbut.Click
        Call AxShockwaveFlash1.SetVariable("_root.interest", interesttxt.Text)
    End Sub

    Private Sub lvlselectcom_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvlselectcom.SelectedValueChanged
        Dim level As String

        level = lvlselectcom.Text

        Select Case level
            Case 1
                Call AxShockwaveFlash1.SetVariable("_root.level", 0)
            Case 2
                Call AxShockwaveFlash1.SetVariable("_root.level", 1)
            Case 3
                Call AxShockwaveFlash1.SetVariable("_root.level", 2)
            Case 4
                Call AxShockwaveFlash1.SetVariable("_root.level", 3)
            Case 5
                Call AxShockwaveFlash1.SetVariable("_root.level", 4)
            Case 6
                Call AxShockwaveFlash1.SetVariable("_root.level", 5)
            Case 7
                Call AxShockwaveFlash1.SetVariable("_root.level", 6)
            Case 8
                Call AxShockwaveFlash1.SetVariable("_root.level", 7)
            Case 9
                Call AxShockwaveFlash1.SetVariable("_root.level", 8)
            Case 10
                Call AxShockwaveFlash1.SetVariable("_root.level", 9)
            Case 11
                Call AxShockwaveFlash1.SetVariable("_root.level", 10)
            Case 12
                Call AxShockwaveFlash1.SetVariable("_root.level", 11)
            Case 13
                Call AxShockwaveFlash1.SetVariable("_root.level", 12)
            Case 14
                Call AxShockwaveFlash1.SetVariable("_root.level", 13)
            Case 15
                Call AxShockwaveFlash1.SetVariable("_root.level", 14)
            Case 16
                Call AxShockwaveFlash1.SetVariable("_root.level", 15)
            Case 17
                Call AxShockwaveFlash1.SetVariable("_root.level", 16)
            Case 18
                Call AxShockwaveFlash1.SetVariable("_root.level", 17)
            Case 19
                Call AxShockwaveFlash1.SetVariable("_root.level", 18)
            Case 20
                Call AxShockwaveFlash1.SetVariable("_root.level", 19)
            Case 21
                Call AxShockwaveFlash1.SetVariable("_root.level", 20)
            Case 22
                Call AxShockwaveFlash1.SetVariable("_root.level", 21)
            Case 23
                Call AxShockwaveFlash1.SetVariable("_root.level", 22)
            Case 24
                Call AxShockwaveFlash1.SetVariable("_root.level", 23)
            Case 25
                Call AxShockwaveFlash1.SetVariable("_root.level", 24)
            Case 26
                Call AxShockwaveFlash1.SetVariable("_root.level", 25)
            Case 27
                Call AxShockwaveFlash1.SetVariable("_root.level", 26)
            Case 28
                Call AxShockwaveFlash1.SetVariable("_root.level", 27)
            Case 29
                Call AxShockwaveFlash1.SetVariable("_root.level", 28)
            Case 30
                Call AxShockwaveFlash1.SetVariable("_root.level", 29)
            Case 31
                Call AxShockwaveFlash1.SetVariable("_root.level", 30)
            Case 32
                Call AxShockwaveFlash1.SetVariable("_root.level", 31)
            Case 33
                Call AxShockwaveFlash1.SetVariable("_root.level", 32)
            Case 34
                Call AxShockwaveFlash1.SetVariable("_root.level", 33)
            Case 35
                Call AxShockwaveFlash1.SetVariable("_root.level", 34)
            Case 36
                Call AxShockwaveFlash1.SetVariable("_root.level", 35)
            Case 37
                Call AxShockwaveFlash1.SetVariable("_root.level", 36)
            Case 38
                Call AxShockwaveFlash1.SetVariable("_root.level", 37)
            Case 39
                Call AxShockwaveFlash1.SetVariable("_root.level", 38)
        End Select
    End Sub
End Class

---

Looks alright actually. Note. This bit..

Code:

---

    Private Sub lvlselectcom_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvlselectcom.SelectedValueChanged
        Dim level As String

        level = lvlselectcom.Text

        Select Case level
            Case 1
                Call AxShockwaveFlash1.SetVariable("_root.level", 0)
            Case 2
                Call AxShockwaveFlash1.SetVariable("_root.level", 1)
            Case 3
                Call AxShockwaveFlash1.SetVariable("_root.level", 2)
            Case 4
                Call AxShockwaveFlash1.SetVariable("_root.level", 3)
            Case 5
                Call AxShockwaveFlash1.SetVariable("_root.level", 4)
            Case 6
                Call AxShockwaveFlash1.SetVariable("_root.level", 5)
            Case 7
                Call AxShockwaveFlash1.SetVariable("_root.level", 6)
            Case 8
                Call AxShockwaveFlash1.SetVariable("_root.level", 7)
            Case 9
                Call AxShockwaveFlash1.SetVariable("_root.level", 8)
            Case 10
                Call AxShockwaveFlash1.SetVariable("_root.level", 9)
            Case 11
                Call AxShockwaveFlash1.SetVariable("_root.level", 10)
            Case 12
                Call AxShockwaveFlash1.SetVariable("_root.level", 11)
            Case 13
                Call AxShockwaveFlash1.SetVariable("_root.level", 12)
            Case 14
                Call AxShockwaveFlash1.SetVariable("_root.level", 13)
            Case 15
                Call AxShockwaveFlash1.SetVariable("_root.level", 14)
            Case 16
                Call AxShockwaveFlash1.SetVariable("_root.level", 15)
            Case 17
                Call AxShockwaveFlash1.SetVariable("_root.level", 16)
            Case 18
                Call AxShockwaveFlash1.SetVariable("_root.level", 17)
            Case 19
                Call AxShockwaveFlash1.SetVariable("_root.level", 18)
            Case 20
                Call AxShockwaveFlash1.SetVariable("_root.level", 19)
            Case 21
                Call AxShockwaveFlash1.SetVariable("_root.level", 20)
            Case 22
                Call AxShockwaveFlash1.SetVariable("_root.level", 21)
            Case 23
                Call AxShockwaveFlash1.SetVariable("_root.level", 22)
            Case 24
                Call AxShockwaveFlash1.SetVariable("_root.level", 23)
            Case 25
                Call AxShockwaveFlash1.SetVariable("_root.level", 24)
            Case 26
                Call AxShockwaveFlash1.SetVariable("_root.level", 25)
            Case 27
                Call AxShockwaveFlash1.SetVariable("_root.level", 26)
            Case 28
                Call AxShockwaveFlash1.SetVariable("_root.level", 27)
            Case 29
                Call AxShockwaveFlash1.SetVariable("_root.level", 28)
            Case 30
                Call AxShockwaveFlash1.SetVariable("_root.level", 29)
            Case 31
                Call AxShockwaveFlash1.SetVariable("_root.level", 30)
            Case 32
                Call AxShockwaveFlash1.SetVariable("_root.level", 31)
            Case 33
                Call AxShockwaveFlash1.SetVariable("_root.level", 32)
            Case 34
                Call AxShockwaveFlash1.SetVariable("_root.level", 33)
            Case 35
                Call AxShockwaveFlash1.SetVariable("_root.level", 34)
            Case 36
                Call AxShockwaveFlash1.SetVariable("_root.level", 35)
            Case 37
                Call AxShockwaveFlash1.SetVariable("_root.level", 36)
            Case 38
                Call AxShockwaveFlash1.SetVariable("_root.level", 37)
            Case 39
                Call AxShockwaveFlash1.SetVariable("_root.level", 38)
        End Select
    End Sub

---

I presume if the user types in lets say "5" then your level will be five? You could also use a ComboBox as an alternative, just some info. Your system is good :thumbsup:

In-fact, that is a ComboBox :grin:

Note the 'SelectedValueChanged' bit.
That basically says anytime the ComboBox is activated and a new value is chosen, the trigger is activated.

Oh yh I see that now, sorry. It's just when I see "lvlselectcom.text" I think of a textbox. See I'm not used to customised names, I keep mine as "ComboBox1" and "ContextMenuStrip1" etc.