Page 1 of 2 12 LastLast
Results 1 to 15 of 16
  1. #1
    AlpacaBong's Avatar
    Join Date
    Mar 2014
    Gender
    male
    Location
    Swordhaven
    Posts
    14
    Reputation
    10
    Thanks
    1

    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

  2. #2
    AlpacaBong's Avatar
    Join Date
    Mar 2014
    Gender
    male
    Location
    Swordhaven
    Posts
    14
    Reputation
    10
    Thanks
    1
    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
    Attached Thumbnails Attached Thumbnails
    Capture.PNG  


  3. #3
    Oliboli8769's Avatar
    Join Date
    Mar 2013
    Gender
    male
    Location
    Boliworlds
    Posts
    2,197
    Reputation
    455
    Thanks
    4,031
    Quote Originally Posted by AlpacaBong View Post
    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.

  4. The Following User Says Thank You to Oliboli8769 For This Useful Post:

    AlpacaBong (03-14-2014)

  5. #4
    AlpacaBong's Avatar
    Join Date
    Mar 2014
    Gender
    male
    Location
    Swordhaven
    Posts
    14
    Reputation
    10
    Thanks
    1
    thanks for fast approval <3

  6. #5
    Elixir1's Avatar
    Join Date
    Dec 2013
    Gender
    female
    Posts
    3
    Reputation
    10
    Thanks
    1
    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

  7. The Following User Says Thank You to Elixir1 For This Useful Post:

    AlpacaBong (03-17-2014)

  8. #6
    AlpacaBong's Avatar
    Join Date
    Mar 2014
    Gender
    male
    Location
    Swordhaven
    Posts
    14
    Reputation
    10
    Thanks
    1
    Thanks Elxir, you have been so helpful, even since the pkdude forums

  9. #7
    Elixir1's Avatar
    Join Date
    Dec 2013
    Gender
    female
    Posts
    3
    Reputation
    10
    Thanks
    1
    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
    Attached Thumbnails Attached Thumbnails
    QJTSo0k.png  

    Last edited by Elixir1; 03-18-2014 at 08:31 AM. Reason: additional information

  10. #8
    AlpacaBong's Avatar
    Join Date
    Mar 2014
    Gender
    male
    Location
    Swordhaven
    Posts
    14
    Reputation
    10
    Thanks
    1
    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

  11. #9
    MGamer's Avatar
    Join Date
    Mar 2014
    Gender
    male
    Posts
    22
    Reputation
    10
    Thanks
    14
    My Mood
    Amused

    Lightbulb

    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
    Last edited by MGamer; 03-21-2014 at 03:09 PM.

  12. The Following User Says Thank You to MGamer For This Useful Post:

    AlpacaBong (03-23-2014)

  13. #10
    AlpacaBong's Avatar
    Join Date
    Mar 2014
    Gender
    male
    Location
    Swordhaven
    Posts
    14
    Reputation
    10
    Thanks
    1
    oh wow you're back <3

  14. #11
    MGamer's Avatar
    Join Date
    Mar 2014
    Gender
    male
    Posts
    22
    Reputation
    10
    Thanks
    14
    My Mood
    Amused
    Quote Originally Posted by AlpacaBong View Post
    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

  15. The Following User Says Thank You to MGamer For This Useful Post:

    AlpacaBong (03-24-2014)

  16. #12
    AlpacaBong's Avatar
    Join Date
    Mar 2014
    Gender
    male
    Location
    Swordhaven
    Posts
    14
    Reputation
    10
    Thanks
    1
    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?

  17. #13
    Eareland's Avatar
    Join Date
    Feb 2010
    Gender
    male
    Posts
    131
    Reputation
    35
    Thanks
    438
    My Mood
    Lonely
    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.
    Last edited by Eareland; 03-25-2014 at 12:20 PM.

  18. #14
    MGamer's Avatar
    Join Date
    Mar 2014
    Gender
    male
    Posts
    22
    Reputation
    10
    Thanks
    14
    My Mood
    Amused
    Quote Originally Posted by AlpacaBong View Post
    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.



    Quote Originally Posted by Eareland View Post
    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

  19. #15
    AlpacaBong's Avatar
    Join Date
    Mar 2014
    Gender
    male
    Location
    Swordhaven
    Posts
    14
    Reputation
    10
    Thanks
    1
    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
    Last edited by AlpacaBong; 03-26-2014 at 12:10 AM.

Page 1 of 2 12 LastLast

Similar Threads

  1. DragonFable Trainer V2.3
    By DawgiiStylz in forum DragonFable (DF) Hacks / Cheats / Trainers
    Replies: 29
    Last Post: 04-23-2012, 07:01 PM
  2. dp Designs DragonFable Trainer V2.6 beta
    By DawgiiStylz in forum DragonFable (DF) Hacks / Cheats / Trainers
    Replies: 8
    Last Post: 12-13-2011, 02:20 PM
  3. [Outdated] Atheros dragonfable trainer
    By ragesamuel in forum DragonFable (DF) Hacks / Cheats / Trainers
    Replies: 14
    Last Post: 06-12-2010, 06:47 AM
  4. [Outdated] New DragonFable Trainer! Working! Just Made Today!
    By BigBangLover in forum DragonFable (DF) Hacks / Cheats / Trainers
    Replies: 25
    Last Post: 03-30-2010, 05:19 PM
  5. dragonfable trainer
    By RumbleBall in forum Programming Tutorial Requests
    Replies: 13
    Last Post: 10-16-2008, 04:16 PM