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
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:
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 highCode: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
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
AlpacaBong (03-14-2014)
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
AlpacaBong (03-17-2014)
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
Last edited by Elixir1; 03-18-2014 at 08:31 AM. Reason: additional information
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
Last edited by MGamer; 03-21-2014 at 03:09 PM.
AlpacaBong (03-23-2014)
oh wow you're back <3
AlpacaBong (03-24-2014)
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?Private Sub ButtonItem1_Click(sender As Object, e As EventArgs) Handles ButtonItem1.Click
AxShockwaveFlash1.SetVariable("_root.battle.endBat tle", "1")
End Sub
What is 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:endBat tle
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.
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
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.Code:battle.bitWon battle.resolveBattle game.stage.mcActionBar hideTargetSelection hideBlocker
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
Last edited by AlpacaBong; 03-26-2014 at 12:10 AM.