But hey, feel free to point out where the virus is coded in my program, I would appreciate it!
4/24/2014
'Battle Of Z Mod Tool
'Original Author: Fiend Busa
Public Class FrmBattleOfZ
Dim Filepath As String
Dim FileType As String
'Users DP/PP Points Is Stored In These Variables
Dim DragonBallPoints As String
Dim PremiumPoints As String
'Users Current Xp
Dim LevelXp As String
'Mod Character Slot Checker
Dim ComputerCheck As Boolean = False
'Gets Users PC Name
Dim ComputerName As String
Dim PremiumMenuUnlockSelected As Boolean = False
Dim ItemMenuSelected As Boolean = False
Private Sub FrmBattleOfZ_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'

isclaimer
Dim Answer = MessageBox.Show("Decrypt your DATA.bin file FIRST" + vbNewLine + "Use at your own risk, I take no responsibility of what happens to your save" + vbNewLine +
"If you happen to have your DATA.bin open in an Hex Editor please close that first" + vbNewLine + "If you are going to use this editor on a fresh save you must complete Mission 3 first or else some cards won't unlock", "Disclaimer", MessageBoxButtons.YesNo)
'If user agrees to Disclaimer program starts else it closes
Select Case Answer
Case Windows.Forms.DialogResult.Yes
Me.Show()
Case Windows.Forms.DialogResult.No
Application.Exit()
End Select
'Plays Audio for the Main Window
My.Computer.Audio.Play(My.Resources.MainWindowTheme, AudioPlayMode.BackgroundLoop)
End Sub
Private Sub FileOpener()
'Lets user select their save file
Dim open As New OpenFileDialog
MsgBox("Open DATA.bin")
open.Title = "Open Data.Bin"
open.ShowDialog()
Filepath = open.FileName
FileType = Filepath
End Sub
Private Sub btnStopMusic_Click(sender As Object, e As EventArgs) Handles btnStopMusic.Click
'Stops Playing The Music
My.Computer.Audio.Stop()
End Sub
Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
'Exits Program
Dim Answer = MessageBox.Show("Thank you for using my program" + vbNewLine + "Created by:" + " " + "Fiend Busa" + vbNewLine + "Are you sure you want to exit?", "Goodbye", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
'If user answers Yes, program closes
'If user answers No, nothing happens
Select Case Answer
Case Windows.Forms.DialogResult.Yes
Application.Exit()
End Select
End Sub
Private Sub btnUnlockCombatCards_Click(sender As Object, e As EventArgs) Handles btnUnlockCombatCards.Click
'Unlocks all (Energy/Speed/Health/Melee/Ki/Special) Cards
Dim Answer = MessageBox.Show("This will Unlock all (Energy/Speed/Health/Melee/Ki/Special) Cards" + vbNewLine + "And Give 99 Of Each Card" + vbNewLine + "Press OK to continue", "Information", MessageBoxButtons.OKCancel)
Select Case Answer
Case Windows.Forms.DialogResult.OK
FileOpener()
WriteCombatCards()
End Select
End Sub
'Made this to check if the integer was correct for combat card amount
Private Sub ReadCard()
Dim Reader As New PackageIO.Reader(FileType, PackageIO.Endian.Big)
Dim Value As Integer
Dim Value2 As Integer
Reader.Position = &HC9F
Value = Reader.ReadInt8
Value2 = Value.ToString()
MsgBox(Value2)
End Sub
Private Sub WriteCombatCards()
'Unlocks All Combat Cards (Energy/Speed/Health/Melee/Ki/Special) and gives 99 of each
Try
Dim Writer1 As New PackageIO.Writer(FileType, PackageIO.Endian.Big)
Writer1.Position = &HC98
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HC9F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HCA8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HCAF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HCB8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HCBF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HCC8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HCCF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HCD8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HCDF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HCE8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HCEF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HCF8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HCFF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HD08
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HD0F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HD18
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HD1F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HD28
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HD2F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HD38
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HD3F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HD48
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HD4F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HD58
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HD5F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HD68
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HD6F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HD78
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HD7F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HD88
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HD8F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HD98
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HD9F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HDA8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HDAF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HDB8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HDBF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HDC8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HDCF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HDD8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HDDF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HDE8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HDEF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HDF8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HDFF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HE08
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HE0F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HE18
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HE1F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HE28
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HE2F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HE38
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HE3F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HE48
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HE4F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HE58
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HE5F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HE68
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HE6F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HE78
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HE7F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HE88
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HE8F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HE98
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HE9F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HEA8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HEAF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HEB8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HEBF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HEC8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HECF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HED8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HEDF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HEE8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HEEF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HEF8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HEFF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HF08
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HF0F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HF18
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HF1F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HF28
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HF2F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HF38
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HF3F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HF48
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HF4F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HF58
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HF5F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HF68
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HF6F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HF78
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HF7F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HF88
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HF8F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HF98
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HF9F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HFA8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HFAF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HFB8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HFBF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HFC8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HFCF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HFD8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HFDF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HFE8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HFEF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &HFF8
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &HFFF
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &H1008
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &H100F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &H1018
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &H101F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &H1028
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &H102F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &H1038
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &H103F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
Writer1.Position = &H1048
Writer1.WriteInt8(1)
Writer1.Position = Nothing
Writer1.Position = &H104F
Writer1.WriteInt8(99)
Writer1.Position = Nothing
MsgBox("Mod Applied Successfully")
ClearVariables()
Catch ex As Exception
MsgBox(ErrorToString)
End Try
End Sub
Private Sub ClearVariables()
'Clears All Variables
FileType = ""
Filepath = ""
DragonBallPoints = ""
PremiumPoints = ""
LevelXp = ""
End Sub
Private Sub btnRestart_Click(sender As Object, e As EventArgs) Handles btnRestart.Click
'Restarts the program
Application.Exit()
Process.Start(Application.ExecutablePath)
End Sub
Private Sub WritePPPoints()
Try
'Gives users 999999 Premium Points
Dim Writer As New PackageIO.Writer(FileType, PackageIO.Endian.Big)
Writer.Position = &HC48
Writer.WriteInt32(999999)
MsgBox("Mod Applied Successfully")
Catch Ex As Exception
MsgBox(ErrorToString)
End Try
End Sub
Private Sub WriteDPPoints()
Try
'Gives users 999999 Dragon Ball Points
Dim Writer As New PackageIO.Writer(FileType, PackageIO.Endian.Big)
Writer.Position = &HC44
Writer.WriteInt32(999999)
MsgBox("Mod Applied Succesfully")
Catch Ex As Exception
MsgBox(ErrorToString)
End Try
End Sub
Private Sub WriteXp()
Try
'Gives User Level 999
Dim Writer As New PackageIO.Writer(FileType, PackageIO.Endian.Big)
Writer.Position = &HC40
Writer.WriteInt32(998999999)
MsgBox("Mod Applied")
Catch ex As Exception
MsgBox(ErrorToString)
End Try
End Sub
Private Sub ReadLevel()
Try
'Gets Users Current XP
Dim Reader As New PackageIO.Reader(FileType, PackageIO.Endian.Big)
Dim Value As Integer 'Value of XP Stored Here
Reader.Position = &HC40
Value = Reader.ReadInt32
LevelXp = Value.ToString()
MsgBox("Your Current Xp is: " + " " + LevelXp)
If LevelXp = 998999999 Then
MsgBox("You Already Applied This Mod")
ElseIf Not LevelXp = 998999999 Then
WriteXp()
ClearVariables()
MessageBox.Show("Play One Mission And You Will Become Level 999", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
MsgBox(ErrorToString)
End Try
End Sub
Private Sub ReadPPPoints()
Try
'Gets Users Premium Points Value
Dim Reader As New PackageIO.Reader(FileType, PackageIO.Endian.Big)
Dim Value As Integer ' Value of PP Points Stored
Reader.Position = &HC48
Value = Reader.ReadInt32
PremiumPoints = Value.ToString()
MsgBox("You Currently Have" + " " + PremiumPoints.ToString() + " " + "PP Points")
If PremiumPoints.ToString() = 999999 Then
MsgBox("You Already Have Max Premium Points")
ElseIf Not PremiumPoints.ToString() = 999999 Then
'Writes Max Premium Points
WritePPPoints()
ClearVariables()
End If
Catch ex As Exception
MsgBox(ErrorToString)
End Try
End Sub
Private Sub ReadDPPoints()
Try
'Gets Users Dragon Ball Points Value
Dim Reader As New PackageIO.Reader(FileType, PackageIO.Endian.Big)
Dim Value As Integer ' Value of DP Points Stored
Reader.Position = &HC44
Value = Reader.ReadInt32
DragonBallPoints = Value.ToString()
MsgBox("You Currently Have" + " " + DragonBallPoints.ToString() + " " + "DP Points")
If DragonBallPoints.ToString() = 999999 Then
MsgBox("You Already Have Max Dragon Ball Points")
ElseIf Not DragonBallPoints.ToString() = 999999 Then
'Writes Max Dragon Ball Points
WriteDPPoints()
ClearVariables()
End If
Catch ex As Exception
MsgBox(ErrorToString)
End Try
End Sub
Private Sub btnDPPoints_Click(sender As Object, e As EventArgs) Handles btnDPPoints.Click
FileOpener()
Dim Answer = MessageBox.Show("You Will Be Given 999999 DP Points" + vbNewLine + "Press Ok To Continue", "Information", MessageBoxButtons.OKCancel)
Select Case Answer
Case Windows.Forms.DialogResult.OK
ReadDPPoints()
End Select
End Sub
Private Sub btnPremiumPoints_Click(sender As Object, e As EventArgs) Handles btnPremiumPoints.Click
FileOpener()
Dim Answer = MessageBox.Show("You Will Be Given 999999 PP Points" + vbNewLine + "Press Ok To Continue", "Information", MessageBoxButtons.OKCancel)
Select Case Answer
Case Windows.Forms.DialogResult.OK
ReadPPPoints()
ClearVariables()
End Select
End Sub
Private Sub btnCustomCharacterSlots_Click(sender As Object, e As EventArgs)
PrivateModAuthroize()
'Removed Code Since This Program Can Easily Be Decompiled
'Would Ruin The Multiplayer as it already has enough hackers
End Sub
Private Sub btnPlayTime_Click(sender As Object, e As EventArgs) Handles btnPlayTime.Click
'Opens the Play Time Form
Me.Hide()
My.Computer.Audio.Stop()
PlayTime.Show()
End Sub
Private Sub btnlevel999_Click(sender As Object, e As EventArgs) Handles btnlevel999.Click
FileOpener()
ReadLevel()
End Sub
Private Sub btnPlayLog_Click(sender As Object, e As EventArgs)
PrivateModAuthroize()
'Removed Code Since This Program Can Easily Be Decompiled
'

on't Want To Make Everything For Public lol
End Sub
Private Sub WriteItemCards()
'Unlocks All Item Cards
'Gives 99 of Each
Try
Dim Writer As New PackageIO.Writer(FileType, PackageIO.Endian.Big)
'Gives 99 of Each Item
Writer.Position = &H1587
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1597
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H15A7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H15B7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H15C7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H15D7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H15E7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H15F7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1607
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1617
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1627
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1637
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1647
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1657
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1667
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1677
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1687
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1697
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H16A7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H16B7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H16C7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H16D7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H16E7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H16F7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1707
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1717
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1727
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1737
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1747
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1757
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1767
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1777
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1787
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1797
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H17A7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H17B7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H17C7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H17D7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H17E7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H17F7
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1807
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1817
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1827
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1837
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1847
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1857
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1867
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1877
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1887
Writer.WriteInt8(99)
Writer.Position = Nothing
'Unlocks Items
Writer.Position = &H1570
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1580
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1590
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H15A0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H15B0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H15C0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H15D0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H15E0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H15F0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1600
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1610
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1620
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1630
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1640
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1650
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1660
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1670
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1680
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1690
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H16A0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H16B0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H16C0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H16D0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H16E0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H16F0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1700
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1710
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1720
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1730
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1740
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1750
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1760
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1770
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1780
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1790
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H17A0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H17B0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H17C0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H17D0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H17E0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H17F0
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1800
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1810
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1820
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1830
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1840
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1850
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1860
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1870
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1880
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1890
Writer.WriteInt8(1)
Writer.Position = Nothing
MsgBox("Mod Applied Successfully")
Catch ex As Exception
MsgBox(ErrorToString)
End Try
End Sub
Private Sub WriteUnlockAllCharacters()
'Unlocks All Characters besides Vegito/SSJBardock/Sage Goku as they have a DLC Check
Try
Dim Writer As New PackageIO.Writer(FileType, PackageIO.Endian.Big)
Writer.Position = &H14D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H175
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H19D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1C5
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1ED
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H215
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H23D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1C5
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H265
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1C5
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H28D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1C5
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H2B5
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H1C5
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H2DD
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H305
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H32D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H355
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H37D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H3A5
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H3CD
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H3F5
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H41D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H445
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H46D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H495
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H4BD
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H4E5
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H50D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H535
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H55D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H585
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H5AD
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H5D5
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H5FD
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H625
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H64D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H675
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H625
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H69D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H6C5
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H715
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H73D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H765
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H78D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H7B5
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H7DD
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H805
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H82D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H855
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H87D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H8A5
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H8CD
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H8F5
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H91D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H945
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H96D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H995
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9BD
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9E5
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &HA0D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &HA35
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &HA5D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &HA85
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &HAAD
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &HAD5
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &HAFD
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &HB25
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &HB4D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &HB75
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &HB9D
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &HBC5
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &HBED
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &HC15
Writer.WriteInt8(1)
Writer.Position = Nothing
MsgBox("Mod Applied Succesfully")
ClearVariables()
Catch ex As Exception
MsgBox(ErrorToString)
End Try
End Sub
Private Sub btnUnlockAllCharacters_Click(sender As Object, e As EventArgs) Handles btnUnlockAllCharacters.Click
FileOpener()
WriteUnlockAllCharacters()
End Sub
Private Sub PrivateModAuthroize()
ComputerName = System.Environment.MachineName()
If ComputerName.Contains("GARY-PC") Then
ComputerCheck = True
MsgBox("Looks Like You Managed To Change My Code To Allow Yourself Access" + vbNewLine + " " + "No Worries, I Have Completely Removed All The Code From This Version Anyway

")
Else : MsgBox(ComputerName + " " + "Is Not Authorized To Use This Mod" + vbNewLine + "Use The Pre-Made Bills Set Instead")
End If
End Sub
Private Sub WriteSpecialCards()
'Unlocks All Special Cards (Ultimate Body, Barrier Body etc..)
'Also Gives 99 Of Each Card
Try
Dim Writer As New PackageIO.Writer(FileType, PackageIO.Endian.Big)
'Gives 99 of Each Card
Writer.Position = &H1053
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1063
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1073
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1083
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1093
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H10A3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H10B3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H10C3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H10D3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H10E3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H10F3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1103
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1113
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1123
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1133
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1143
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1153
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1163
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1173
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1183
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1193
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H11A3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H11B3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H11C3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H11D3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H11E3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H11F3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1203
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1213
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1223
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1233
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1243
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1253
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1263
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1273
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1283
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1293
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H12A3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H12B3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H12C3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H12D3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H12E3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H12F3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1303
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1313
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1323
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1333
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1343
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1353
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1363
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1373
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1383
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1393
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H13A3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H13B3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H13C3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H13E3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H13F3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1403
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1413
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1423
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1433
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1443
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1453
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1463
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1473
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1483
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1493
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H14A3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H14B3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H14C3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H14D3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H14E3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H14F3
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1503
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1513
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1523
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1533
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1543
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1553
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1563
Writer.WriteInt8(99)
Writer.Position = Nothing
Writer.Position = &H1573
Writer.WriteInt8(99)
Writer.Position = Nothing
'Unlocks the Cards
Writer.Position = &H105C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H106C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H107C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H108C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H109C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H10AC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H10BC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H10CC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H10DC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H10EC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H10FC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H110C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H111C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H112C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H113C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H114C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H115C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H116C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H117C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H118C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H119C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H11AC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H11BC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H11CC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H11DC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H11EC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H11FC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H120C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H121C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H122C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H123C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H124C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H125C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H126C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H127C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H128C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H129C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H12AC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H12BC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H12CC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H12DC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H12EC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H12FC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H130C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H131C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H132C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H133C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H134C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H135C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H136C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H137C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H138C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H139C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H13AC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H13BC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H13CC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H13DC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H13EC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H13FC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H140C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H141C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H142C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H143C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H144C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H145C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H146C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H147C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H148C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H149C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H14AC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H14BC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H14CC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H14DC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H14EC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H14FC
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H150C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H151C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H152C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H153C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H154C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H155C
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H156C
Writer.WriteInt8(1)
Writer.Position = Nothing
MsgBox("Mod Applied Successfully")
ClearVariables()
Catch ex As Exception
MsgBox(ErrorToString)
End Try
End Sub
Private Sub WriteItemPremiumUnlock()
'Shows the item as unlocked in the premium card menu and item card menu
Try
Dim Writer As New PackageIO.Writer(FileType, PackageIO.Endian.Big)
Writer.Position = &H8FB7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H8FC7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H8FD7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H8FE7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H8FF7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9007
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9017
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9027
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9037
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9047
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9057
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9067
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9077
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9087
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9097
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H90A7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H90B7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H90C7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H90D7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H90E7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H90F7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9107
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9117
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9127
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9137
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9147
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9157
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9167
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9177
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9187
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9197
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H91A7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H91B7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H91C7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H91D7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H91E7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H91F7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9207
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9207
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9217
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9227
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9237
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9247
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9257
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9267
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9277
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9287
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9297
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H92A7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H92B7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H92C7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H92D7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H92E7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H92F7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9307
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9317
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9327
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9337
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9347
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9357
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9367
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9377
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9387
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9397
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H93A7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H93B7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H93C7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H93D7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H93E7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H93F7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9407
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9417
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9427
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9437
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9447
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9457
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9467
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9477
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9487
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9497
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H94A7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H94B7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H94C7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H94D7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H94E7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H94F7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9507
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9517
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9527
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9537
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9547
Writer.WriteInt8(1)
Writer.Position = Nothing
Catch ex As Exception
MsgBox(ErrorToString)
End Try
End Sub
Private Sub btnUnlockSpecialCards_Click(sender As Object, e As EventArgs) Handles btnUnlockSpecialCards.Click
Dim Answer = MessageBox.Show("This Will Unlock All Special Cards (Barrier Body, Sparkling Body, Ultimate Defence etc...And Give 99 of Each" + vbNewLine + "Press OK to continue", "Information", MessageBoxButtons.OKCancel)
Select Case Answer
Case Windows.Forms.DialogResult.OK
FileOpener()
WriteSpecialCards()
ClearVariables()
End Select
End Sub
Private Sub btnUnlockItems_Click(sender As Object, e As EventArgs) Handles btnUnlockItems.Click
MsgBox("Disabled, to lazy to fix it lol")
'

im Answer = MessageBox.Show("This Will Unlock All Item Cards And Give 99 of Each" + vbNewLine + "Press OK to continue", "Information", MessageBoxButtons.OKCancel)
'Select Case Answer
'Case Windows.Forms.DialogResult.OK
'FileOpener()
'WriteItemCards()
'ClearVariables()
'End Select
End Sub
Private Sub StillHaveLockedCardsAttemptFixer()
Try
Dim Writer As New PackageIO.Writer(FileType, PackageIO.Endian.Big)
Writer.Position = &H9557
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9547
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9587
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H9597
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H95A7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H95B7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H95C7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H95D7
Writer.WriteInt8(1)
Writer.Position = Nothing
Writer.Position = &H95E7
Writer.WriteInt8(1)
Writer.Position = Nothing
Catch ex As Exception
MsgBox(ErrorToString)
End Try
End Sub
'Private Sub UnlockPremiumCardButton()
'If PremiumMenuUnlockSelected = True Then
'btnUnlockSpecialCards.Enabled = True
'End If
'End Sub
Private Sub btnPremiumMenuUnlock_Click(sender As Object, e As EventArgs) Handles btnPremiumMenuUnlock.Click
Dim Answer = MessageBox.Show("This Mod Will Show All Cards Unlocked In the PREMIUM CARD COLLECTION MENU", "Warning", MessageBoxButtons.OKCancel)
Select Case Answer
Case Windows.Forms.DialogResult.OK
FileOpener()
WriteItemPremiumUnlock()
PremiumMenuUnlockSelected = True
ItemMenuSelected = True
'UnlockPremiumCardButton()
ClearVariables()
MsgBox("Success!")
End Select
End Sub