Arcade Prehacks

Page 1 of 2 12 LastLast
Results 1 to 10 of 12
  1. #1

    Join Date
    Jul 2010
    Posts
    12

    Flash Element TD

    Attached Files Attached Files

  2. #2
    Senior Member
    Join Date
    Oct 2008
    Location
    Having a rave in the UK!
    Posts
    1,706

    Re: Flash Element TD

    Looks good; what did you make it in?

  3. #3

    Join Date
    Jul 2010
    Posts
    12

    Re: Flash Element TD

    Thanks! Visual Studio 2010

  4. #4
    Senior Member
    Join Date
    Oct 2008
    Location
    Having a rave in the UK!
    Posts
    1,706

    Re: Flash Element TD

    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.

  5. #5

    Join Date
    Jul 2010
    Posts
    12

    Re: Flash Element TD

    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

  6. #6
    Senior Member
    Join Date
    Oct 2008
    Location
    Having a rave in the UK!
    Posts
    1,706

    Re: Flash Element TD

    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.

  7. #7

    Join Date
    Jul 2010
    Posts
    12

    Re: Flash Element TD

    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

  8. #8
    Senior Member
    Join Date
    Oct 2008
    Location
    Having a rave in the UK!
    Posts
    1,706

    Re: Flash Element TD

    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

  9. #9

    Join Date
    Jul 2010
    Posts
    12

    Re: Flash Element TD

    In-fact, that is a ComboBox

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

  10. #10
    Senior Member
    Join Date
    Oct 2008
    Location
    Having a rave in the UK!
    Posts
    1,706

    Re: Flash Element TD

    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.

Page 1 of 2 12 LastLast

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •