Dragonfable Trainer

Hey Guys

I've had multiple accounts on this website and I've made trainers before but I really want to make a standout and a trainer that can be used for a long time. At the moment I've only got a 'max stats' element select and dragon amulet hacks in my trainer. My problem is that I want to make the max stats reversible via check-box, I found a tutorial on here but it didn't help me, I don't know if its my code or not but this is my code:

Code:

Private Sub CheckBoxItem2_Click(sender As Object, e As EventArgs) Handles CheckBoxItem2.Click
        str = AxShockwaveFlash1.GetVariable("character.origStats.intStr")
        int = AxShockwaveFlash1.GetVariable("character.origStats.intInt")
        dex = AxShockwaveFlash1.GetVariable("character.origStats.intDex")
        ends = AxShockwaveFlash1.GetVariable("character.origStats.intEnd")
        luk = AxShockwaveFlash1.GetVariable("character.origStats.intLuk")
        cha = AxShockwaveFlash1.GetVariable("character.origStats.intCha")
        wis = AxShockwaveFlash1.GetVariable("character.origStats.intWis")
        defmelee = AxShockwaveFlash1.GetVariable("character.intDefMelee")
        defpierce = AxShockwaveFlash1.GetVariable("character.intDefPierce")
        defmagic = AxShockwaveFlash1.GetVariable("character.intDefMagic")
        block = AxShockwaveFlash1.GetVariable("character.intBlock")
        dodge = AxShockwaveFlash1.GetVariable("character.intDodge")
        parry = AxShockwaveFlash1.GetVariable("character.intParry")
        crit = AxShockwaveFlash1.GetVariable("character.intCrit")
        bonus = AxShockwaveFlash1.GetVariable("character.intBonus")
        dmgmin = AxShockwaveFlash1.GetVariable("character.intDmgMin")
        dmgmax = AxShockwaveFlash1.GetVariable("character.intDmgMax")
        If CheckBoxItem2.CheckState = CheckState.Checked Then
            AxShockwaveFlash1.SetVariable("character.origStats.intStr", "999")
            AxShockwaveFlash1.SetVariable("character.origStats.intInt", "999")
            AxShockwaveFlash1.SetVariable("character.origStats.intDex", "999")
            AxShockwaveFlash1.SetVariable("character.origStats.intEnd", "999")
            AxShockwaveFlash1.SetVariable("character.origStats.intLuk", "999")
            AxShockwaveFlash1.SetVariable("character.origStats.intCha", "999")
            AxShockwaveFlash1.SetVariable("character.origStats.intWis", "999")
            AxShockwaveFlash1.SetVariable("character.intDefMelee", "999")
            AxShockwaveFlash1.SetVariable("character.intDefPierce", "999")
            AxShockwaveFlash1.SetVariable("character.intDefMagic", "999")
            AxShockwaveFlash1.SetVariable("character.intBlock", "999")
            AxShockwaveFlash1.SetVariable("character.intDodge", "999")
            AxShockwaveFlash1.SetVariable("character.intParry", "999")
            AxShockwaveFlash1.SetVariable("character.intCrit", "999")
            AxShockwaveFlash1.SetVariable("character.intBonus", "999")
            AxShockwaveFlash1.SetVariable("character.intDmgMin", "999")
            AxShockwaveFlash1.SetVariable("character.intDmgMax", "999")
        End If
        If CheckBoxItem2.CheckState = CheckState.Unchecked Then
            AxShockwaveFlash1.SetVariable("character.origStats.intStr", str)
            AxShockwaveFlash1.SetVariable("character.origStats.intInt", int)
            AxShockwaveFlash1.SetVariable("character.origStats.intDex", dex)
            AxShockwaveFlash1.SetVariable("character.origStats.intEnd", ends)
            AxShockwaveFlash1.SetVariable("character.origStats.intLuk", luk)
            AxShockwaveFlash1.SetVariable("character.origStats.intCha", cha)
            AxShockwaveFlash1.SetVariable("character.origStats.intWis", wis)
            AxShockwaveFlash1.SetVariable("character.intDefMelee", defmelee)
            AxShockwaveFlash1.SetVariable("character.intDefPierce", defpierce)
            AxShockwaveFlash1.SetVariable("character.intDefMagic", defmagic)
            AxShockwaveFlash1.SetVariable("character.intBlock", block)
            AxShockwaveFlash1.SetVariable("character.intDodge", dodge)
            AxShockwaveFlash1.SetVariable("character.intParry", parry)
            AxShockwaveFlash1.SetVariable("character.intCrit", crit)
            AxShockwaveFlash1.SetVariable("character.intBonus", bonus)
            AxShockwaveFlash1.SetVariable("character.intDmgMin", dmgmin)
            AxShockwaveFlash1.SetVariable("character.intDmgMax", dmgmax)
        End If
    End Sub

I have all prefixes as public integers, I actually haven't checked to see if all the stats revert back to normal but in battle the damage is still high

On another note, I cant remember how to code a "browse" button so that it opens up windows explorer, I want this as a custom swf loader

Thanks for your help in advance

I have noticed that after the check-box changes from checked to unchecked, the damage reverts back but the the stats and health have the original change (999) and a crazy multiplier as well

Capture.PNG

Originally Posted by AlpacaBong

I have noticed that after the check-box changes from checked to unchecked, the damage reverts back but the the stats and health have the original change (999) and a crazy multiplier as well

Approved

Hope someone can help you.

thanks for fast approval <3

i will take a look to see if i can shed any light on the situation give me a lil while and i will get back to you mr

Thanks Elxir, you have been so helpful, even since the pkdude forums

that was such a long time ago aha, but this being stubborn and not working at all for me at the moment can you direct me to the tutorial use was using to see how they are going about the method i will probably setup the code in separate buttons to get the code working then throw the if statements and checkboxes in, with importing swf files im not going to give the code to use it as its not learning but look into OpenFileDialog and then customize the code accordingly if you are really struggling i will give you a hand. okie dokie back to work :3

okay i tried and from what i can tell there isnt a working way to revert the stats even if you set them back it just buffs you back up as soon as you go into battle as you can see from the picture with the +mad numbers after each stat. sorry i tried my hardest.

if you want to work on it then here is the code i used i had to make shift it for testing the so uses a load of textboxes to store the values of the original stats.

Code:

    Private Sub ButtonX1_Click(sender As Object, e As EventArgs) Handles ButtonX1.Click

'Dim the values as the texboxes
        Dim Str = TextBox1.Text
        Dim Int = TextBox2.Text
        Dim dex = TextBox3.Text
        Dim ends = TextBox4.Text
        Dim luk = TextBox5.Text
        Dim cha = TextBox6.Text
        Dim wis = TextBox7.Text
        Dim defmelee = TextBox8.Text
        Dim defpierce = TextBox9.Text
        Dim defmagic = TextBox10.Text
        Dim block = TextBox11.Text
        Dim dodge = TextBox12.Text
        Dim parry = TextBox13.Text
        Dim crit = TextBox14.Text
        Dim bonus = TextBox15.Text
        Dim dmgmin = TextBox16.Text
        Dim dmgmax = TextBox17.Text

'using a single button for my demo adjust accordingly
        If ButtonX1.Text = "Stats Off" Then

'when first press to toggle stores the original stats
            TextBox1.Text = AxShockwaveFlash1.GetVariable("character.origStats.intStr")
            TextBox2.Text = AxShockwaveFlash1.GetVariable("character.origStats.intInt")
            TextBox3.Text = AxShockwaveFlash1.GetVariable("character.origStats.intDex")
            TextBox4.Text = AxShockwaveFlash1.GetVariable("character.origStats.intEnd")
            TextBox5.Text = AxShockwaveFlash1.GetVariable("character.origStats.intLuk")
            TextBox6.Text = AxShockwaveFlash1.GetVariable("character.origStats.intCha")
            TextBox7.Text = AxShockwaveFlash1.GetVariable("character.origStats.intWis")
            TextBox8.Text = AxShockwaveFlash1.GetVariable("character.intDefMelee")
            TextBox9.Text = AxShockwaveFlash1.GetVariable("character.intDefPierce")
            TextBox10.Text = AxShockwaveFlash1.GetVariable("character.intDefMagic")
            TextBox11.Text = AxShockwaveFlash1.GetVariable("character.intBlock")
            TextBox12.Text = AxShockwaveFlash1.GetVariable("character.intDodge")
            TextBox13.Text = AxShockwaveFlash1.GetVariable("character.intParry")
            TextBox14.Text = AxShockwaveFlash1.GetVariable("character.intCrit")
            TextBox15.Text = AxShockwaveFlash1.GetVariable("character.intBonus")
            TextBox16.Text = AxShockwaveFlash1.GetVariable("character.intDmgMin")
            TextBox17.Text = AxShockwaveFlash1.GetVariable("character.intDmgMax")

'then loads modified stats
            AxShockwaveFlash1.SetVariable("character.origStats.intStr", "999")
            AxShockwaveFlash1.SetVariable("character.origStats.intInt", "999")
            AxShockwaveFlash1.SetVariable("character.origStats.intDex", "999")
            AxShockwaveFlash1.SetVariable("character.origStats.intEnd", "999")
            AxShockwaveFlash1.SetVariable("character.origStats.intLuk", "999")
            AxShockwaveFlash1.SetVariable("character.origStats.intCha", "999")
            AxShockwaveFlash1.SetVariable("character.origStats.intWis", "999")
            AxShockwaveFlash1.SetVariable("character.intDefMelee", "999")
            AxShockwaveFlash1.SetVariable("character.intDefPierce", "999")
            AxShockwaveFlash1.SetVariable("character.intDefMagic", "999")
            AxShockwaveFlash1.SetVariable("character.intBlock", "999")
            AxShockwaveFlash1.SetVariable("character.intDodge", "999")
            AxShockwaveFlash1.SetVariable("character.intParry", "999")
            AxShockwaveFlash1.SetVariable("character.intCrit", "999")
            AxShockwaveFlash1.SetVariable("character.intBonus", "999")
            AxShockwaveFlash1.SetVariable("character.intDmgMin", "999")
            AxShockwaveFlash1.SetVariable("character.intDmgMax", "999")

'used to toggle the button ignore if using checkbox
            ButtonX1.Text = "Stats On"

        ElseIf ButtonX1.Text = "Stats On" Then

'reverts stats back to data values stored in textbox
            AxShockwaveFlash1.SetVariable("character.origStats.intStr", Str)
            AxShockwaveFlash1.SetVariable("character.origStats.intInt", Int)
            AxShockwaveFlash1.SetVariable("character.origStats.intDex", dex)
            AxShockwaveFlash1.SetVariable("character.origStats.intEnd", ends)
            AxShockwaveFlash1.SetVariable("character.origStats.intLuk", luk)
            AxShockwaveFlash1.SetVariable("character.origStats.intCha", cha)
            AxShockwaveFlash1.SetVariable("character.origStats.intWis", wis)
            AxShockwaveFlash1.SetVariable("character.intDefMelee", defmelee)
            AxShockwaveFlash1.SetVariable("character.intDefPierce", defpierce)
            AxShockwaveFlash1.SetVariable("character.intDefMagic", defmagic)
            AxShockwaveFlash1.SetVariable("character.intBlock", block)
            AxShockwaveFlash1.SetVariable("character.intDodge", dodge)
            AxShockwaveFlash1.SetVariable("character.intParry", parry)
            AxShockwaveFlash1.SetVariable("character.intCrit", crit)
            AxShockwaveFlash1.SetVariable("character.intBonus", bonus)
            AxShockwaveFlash1.SetVariable("character.intDmgMin", dmgmin)
            AxShockwaveFlash1.SetVariable("character.intDmgMax", dmgmax)

            ButtonX1.Text = "Stats Off"

        End If



    End Sub

QJTSo0k.png

Thank you for trying, I had slim hope for this but thank you anyway... As for the swf loading, I understand the open file dialog and what not but I just dont quite understand how to load the selected file onto the first layer of the flash object

i will make a quick tutorial explaining with code samples for you buddy when i get some time

*Update i will post a video tutorial as soon as i have enough posts for links aha

oh wow you're back <3

Originally Posted by AlpacaBong

oh wow you're back <3

That I am

shouldn't be much longer till I have enough posts so I will keep you updated when I do

Im now having trouble with an end battle code:

Private Sub ButtonItem1_Click(sender As Object, e As EventArgs) Handles ButtonItem1.Click
AxShockwaveFlash1.SetVariable("_root.battle.endBat tle", "1")
End Sub

When activated during battle nothing happens, but when every monster is defeated the game doesn't progress it just freezes with the battle controls still on the screen, Is the variable wrong?

What is endBat tle?

endBat tle

It's been a long time when I made my trainers, so I can't say a lot, but this is what I am going to say:
Why variable root.battle.endBat tle should be set to 1, because setting it to 1 does not make a sense, for me.

MGamer guides you xD

Anyway, MGamer, is it even possible to end battle without SWF? I have seen a lot of trainers, where is End Battle swf, but never seen End Battle function added to the trainer itself. I mean, endbattle isn't settable variable. Probably it's possible to include it in the trainer's code, but never seen one before.

Originally Posted by AlpacaBong

Im now having trouble with an end battle code:

When activated during battle nothing happens, but when every monster is defeated the game doesn't progress it just freezes with the battle controls still on the screen, Is the variable wrong?

thats the wrong code to use for a instant win button as i call it aha, the variables can be found pretty easy if you use a variable scanner while in a battle sequence here you can pull the needed variables

Code:

	battle.bitWon
	battle.resolveBattle
	game.stage.mcActionBar
	hideTargetSelection
	hideBlocker

here are parts of the variables so i dont give too much away and so you know what your looking for as if i give you all the code then i may as well just hand over the code from my battle hack lol but if you need further help let me know.

Originally Posted by Eareland

Anyway, MGamer, is it even possible to end battle without SWF? I have seen a lot of trainers, where is End Battle swf, but never seen End Battle function added to the trainer itself. I mean, endbattle isn't settable variable. Probably it's possible to include it in the trainer's code, but never seen one before.

not from what i can tell as there is hardly any variables with a specific value but then im not the master of vb to be honest im more accustom to action script lol

where can I find a variable scanner? That would help me in so many ways!

EDIT: I have noticed that the variables do not work, I would need to obtain a end Battle .swf and load it in, The reason I wanted to code it into the trainer as I wanted it to be as mobile as possible

Dragonfable Trainer

Post a Reply

Similar Threads

Tags for this Thread