(Important) My Feudalism Trainer Isn't Working? Why?

[Ice_Lander_King]

Hey,

My Trainer Isn't Working Here's The Code & I Uploaded The Trainer I'm Not Giving The Project Or Someone Will Copy me. I Got The Variables From Flash Game Master 2.6 Or Something.Here's The Trainer. Why Isn't It Working? My Variables Are This

Private Sub Form_Load()
MsgBox "Trainer Made By: Ice_Lander_King Your One And Only", vbInformation
End Sub

Private Sub StylerButton1_Click()
ShockwaveFlash1.Playing = True
End Sub

Private Sub StylerButton10_Click()
Call ShockwaveFlash1.SetVariable("_root.bow", InputBox("Bow Points", "Bow"))
End Sub

Private Sub StylerButton11_Click()
Call ShockwaveFlash1.SetVariable("_root.mace", InputBox("Mace Points", "Mace"))
End Sub

Private Sub StylerButton12_Click()
Call ShockwaveFlash1.SetVariable("_root.axe", InputBox("Axe Points", "Axe"))
End Sub

Private Sub StylerButton13_Click()
Call ShockwaveFlash1.SetVariable("_root.katar", InputBox("Katar Points", "Katar"))
End Sub

Private Sub StylerButton14_Click()
Call ShockwaveFlash1.SetVariable("_root.staff", InputBox("Staff Points", "Staff"))
End Sub

Private Sub StylerButton15_Click()
Call ShockwaveFlash1.SetVariable("_root.fareast", InputBox("FarEast Points", "FarEast"))
End Sub

Private Sub StylerButton16_Click()
Call ShockwaveFlash1.SetVariable("_root.spear", InputBox("Spear Points", "Spear"))
End Sub

Private Sub StylerButton17_Click()
Call ShockwaveFlash1.SetVariable("_root.dagger", InputBox("Dagger Points", "Dagger"))
End Sub

Private Sub StylerButton18_Click()
Call ShockwaveFlash1.SetVariable("_root.dual", InputBox("Dual Weapon's Points", "Dual Weapon's"))
End Sub

Private Sub StylerButton19_Click()
Call ShockwaveFlash1.SetVariable("_root.hp", InputBox("Set Your Health On Combat", "Health (HP)"))
End Sub

Private Sub StylerButton2_Click()
Call ShockwaveFlash1.SetVariable("_root.stat_points", InputBox("Set Stat Points Here", "Stat Points"))
End Sub

Private Sub StylerButton20_Click()
Call ShockwaveFlash1.SetVariable("_root.town_screen.wnd.money_txt.value", InputBox("Gold (Might Work)", "Gold"))
End Sub

Private Sub StylerButton21_Click()
MsgBox "Type The Numbers You Want Into The Text Box To Make It Work. Same Text Box For Every Button. Type In How Much You Want. Gold Might Not Work It's A Testing Thing.", vbOKOnly, "Text Boxes Notes:"
End Sub

Private Sub StylerButton22_Click()
MsgBox "Ice Man King Is The Man For The Job Want A Trainer Ask Me Hey,", vbOKOnly, "Ice_Lander_King"
End Sub

Private Sub StylerButton3_Click()
Call ShockwaveFlash1.SetVariable("_root.spr", InputBox("Spirit", "Spirit"))
End Sub

Private Sub StylerButton4_Click()
Call ShockwaveFlash1.SetVariable("_root.dex", InputBox("Dexterity", "Dexterity"))
End Sub

Private Sub StylerButton5_Click()
Call ShockwaveFlash1.SetVariable("_root.str", InputBox("Strength", "Strength"))
End Sub

Private Sub StylerButton6_Click()
Call ShockwaveFlash1.SetVariable("_root.con", InputBox("Consternation", "Consternation"))
End Sub

Private Sub StylerButton7_Click()
Call ShockwaveFlash1.SetVariable("_root.skill_points", InputBox("Skill Points", "Skill Points"))
End Sub

Private Sub StylerButton8_Click()
Call ShockwaveFlash1.SetVariable("_root.crossbow", InputBox("Crossbow Points", "Crossbow"))
End Sub

Private Sub StylerButton9_Click()
Call ShockwaveFlash1.SetVariable("_root.throwing", InputBox("Throwing Points", "Throwing"))
End Sub

[Dixon]

i think the file is corrupted because i tried downloading it and winrar had a problem with it.