├── .gitattributes ├── .gitignore ├── LICENSE ├── MHF-QuestEditor.sln ├── MHF-QuestEditor ├── App.config ├── Assets │ ├── BowLeft.png │ ├── BowRight.png │ ├── Logo-MHFG.png │ ├── Maps │ │ ├── Desert Day.png │ │ ├── Desert Night.png │ │ ├── Jungle Day.png │ │ ├── Jungle Night.png │ │ ├── Swamp Day.png │ │ ├── Volcano Day.png │ │ └── Volcano Night.png │ ├── Sounds │ │ ├── click.wav │ │ ├── create.wav │ │ └── load.wav │ ├── back.png │ ├── bg.png │ ├── bg2.png │ ├── bg3.png │ ├── bg4.png │ ├── bg5.png │ └── next.png ├── CRC32.vb ├── CreateQuest.Designer.vb ├── CreateQuest.resx ├── CreateQuest.vb ├── Create_Choose.Designer.vb ├── Create_Choose.resx ├── Create_Choose.vb ├── Create_ChooseMonsterLocation.Designer.vb ├── Create_ChooseMonsterLocation.resx ├── Create_ChooseMonsterLocation.vb ├── EditQuest.Designer.vb ├── EditQuest.resx ├── EditQuest.vb ├── Items.vb ├── LocationList.vb ├── MHF-QuestEditor.vbproj ├── Monsters.vb ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings ├── QuestObj.vb ├── Ranks.vb ├── Resources │ └── font.bmp ├── StartupForm.Designer.vb ├── StartupForm.resx ├── StartupForm.vb └── Structs.vb └── README.md /.gitattributes: -------------------------------------------------------------------------------- 1 | ############################################################################### 2 | # Set default behavior to automatically normalize line endings. 3 | ############################################################################### 4 | * text=auto 5 | 6 | ############################################################################### 7 | # Set default behavior for command prompt diff. 8 | # 9 | # This is need for earlier builds of msysgit that does not have it on by 10 | # default for csharp files. 11 | # Note: This is only used by command line 12 | ############################################################################### 13 | #*.cs diff=csharp 14 | 15 | ############################################################################### 16 | # Set the merge driver for project and solution files 17 | # 18 | # Merging from the command prompt will add diff markers to the files if there 19 | # are conflicts (Merging from VS is not affected by the settings below, in VS 20 | # the diff markers are never inserted). Diff markers may cause the following 21 | # file extensions to fail to load in VS. An alternative would be to treat 22 | # these files as binary and thus will always conflict and require user 23 | # intervention with every merge. To do so, just uncomment the entries below 24 | ############################################################################### 25 | #*.sln merge=binary 26 | #*.csproj merge=binary 27 | #*.vbproj merge=binary 28 | #*.vcxproj merge=binary 29 | #*.vcproj merge=binary 30 | #*.dbproj merge=binary 31 | #*.fsproj merge=binary 32 | #*.lsproj merge=binary 33 | #*.wixproj merge=binary 34 | #*.modelproj merge=binary 35 | #*.sqlproj merge=binary 36 | #*.wwaproj merge=binary 37 | 38 | ############################################################################### 39 | # behavior for image files 40 | # 41 | # image files are treated as binary by default. 42 | ############################################################################### 43 | #*.jpg binary 44 | #*.png binary 45 | #*.gif binary 46 | 47 | ############################################################################### 48 | # diff behavior for common document formats 49 | # 50 | # Convert binary document formats to text before diffing them. This feature 51 | # is only available from the command line. Turn it on by uncommenting the 52 | # entries below. 53 | ############################################################################### 54 | #*.doc diff=astextplain 55 | #*.DOC diff=astextplain 56 | #*.docx diff=astextplain 57 | #*.DOCX diff=astextplain 58 | #*.dot diff=astextplain 59 | #*.DOT diff=astextplain 60 | #*.pdf diff=astextplain 61 | #*.PDF diff=astextplain 62 | #*.rtf diff=astextplain 63 | #*.RTF diff=astextplain 64 | -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | ## Ignore Visual Studio temporary files, build results, and 2 | ## files generated by popular Visual Studio add-ons. 3 | ## 4 | ## Get latest from https://github.com/github/gitignore/blob/master/VisualStudio.gitignore 5 | 6 | # User-specific files 7 | *.rsuser 8 | *.suo 9 | *.user 10 | *.userosscache 11 | *.sln.docstates 12 | 13 | # User-specific files (MonoDevelop/Xamarin Studio) 14 | *.userprefs 15 | 16 | # Mono auto generated files 17 | mono_crash.* 18 | 19 | # Build results 20 | [Dd]ebug/ 21 | [Dd]ebugPublic/ 22 | [Rr]elease/ 23 | [Rr]eleases/ 24 | x64/ 25 | x86/ 26 | [Aa][Rr][Mm]/ 27 | [Aa][Rr][Mm]64/ 28 | bld/ 29 | [Bb]in/ 30 | [Oo]bj/ 31 | [Ll]og/ 32 | [Ll]ogs/ 33 | 34 | # Visual Studio 2015/2017 cache/options directory 35 | .vs/ 36 | # Uncomment if you have tasks that create the project's static files in wwwroot 37 | #wwwroot/ 38 | 39 | # Visual Studio 2017 auto generated files 40 | Generated\ Files/ 41 | 42 | # MSTest test Results 43 | [Tt]est[Rr]esult*/ 44 | [Bb]uild[Ll]og.* 45 | 46 | # NUnit 47 | *.VisualState.xml 48 | TestResult.xml 49 | nunit-*.xml 50 | 51 | # Build Results of an ATL Project 52 | [Dd]ebugPS/ 53 | [Rr]eleasePS/ 54 | dlldata.c 55 | 56 | # Benchmark Results 57 | BenchmarkDotNet.Artifacts/ 58 | 59 | # .NET Core 60 | project.lock.json 61 | project.fragment.lock.json 62 | artifacts/ 63 | 64 | # StyleCop 65 | StyleCopReport.xml 66 | 67 | # Files built by Visual Studio 68 | *_i.c 69 | *_p.c 70 | *_h.h 71 | *.ilk 72 | *.meta 73 | *.obj 74 | *.iobj 75 | *.pch 76 | *.pdb 77 | *.ipdb 78 | *.pgc 79 | *.pgd 80 | *.rsp 81 | *.sbr 82 | *.tlb 83 | *.tli 84 | *.tlh 85 | *.tmp 86 | *.tmp_proj 87 | *_wpftmp.csproj 88 | *.log 89 | *.vspscc 90 | *.vssscc 91 | .builds 92 | *.pidb 93 | *.svclog 94 | *.scc 95 | 96 | # Chutzpah Test files 97 | _Chutzpah* 98 | 99 | # Visual C++ cache files 100 | ipch/ 101 | *.aps 102 | *.ncb 103 | *.opendb 104 | *.opensdf 105 | *.sdf 106 | *.cachefile 107 | *.VC.db 108 | *.VC.VC.opendb 109 | 110 | # Visual Studio profiler 111 | *.psess 112 | *.vsp 113 | *.vspx 114 | *.sap 115 | 116 | # Visual Studio Trace Files 117 | *.e2e 118 | 119 | # TFS 2012 Local Workspace 120 | $tf/ 121 | 122 | # Guidance Automation Toolkit 123 | *.gpState 124 | 125 | # ReSharper is a .NET coding add-in 126 | _ReSharper*/ 127 | *.[Rr]e[Ss]harper 128 | *.DotSettings.user 129 | 130 | # TeamCity is a build add-in 131 | _TeamCity* 132 | 133 | # DotCover is a Code Coverage Tool 134 | *.dotCover 135 | 136 | # AxoCover is a Code Coverage Tool 137 | .axoCover/* 138 | !.axoCover/settings.json 139 | 140 | # Visual Studio code coverage results 141 | *.coverage 142 | *.coveragexml 143 | 144 | # NCrunch 145 | _NCrunch_* 146 | .*crunch*.local.xml 147 | nCrunchTemp_* 148 | 149 | # MightyMoose 150 | *.mm.* 151 | AutoTest.Net/ 152 | 153 | # Web workbench (sass) 154 | .sass-cache/ 155 | 156 | # Installshield output folder 157 | [Ee]xpress/ 158 | 159 | # DocProject is a documentation generator add-in 160 | DocProject/buildhelp/ 161 | DocProject/Help/*.HxT 162 | DocProject/Help/*.HxC 163 | DocProject/Help/*.hhc 164 | DocProject/Help/*.hhk 165 | DocProject/Help/*.hhp 166 | DocProject/Help/Html2 167 | DocProject/Help/html 168 | 169 | # Click-Once directory 170 | publish/ 171 | 172 | # Publish Web Output 173 | *.[Pp]ublish.xml 174 | *.azurePubxml 175 | # Note: Comment the next line if you want to checkin your web deploy settings, 176 | # but database connection strings (with potential passwords) will be unencrypted 177 | *.pubxml 178 | *.publishproj 179 | 180 | # Microsoft Azure Web App publish settings. Comment the next line if you want to 181 | # checkin your Azure Web App publish settings, but sensitive information contained 182 | # in these scripts will be unencrypted 183 | PublishScripts/ 184 | 185 | # NuGet Packages 186 | *.nupkg 187 | # NuGet Symbol Packages 188 | *.snupkg 189 | # The packages folder can be ignored because of Package Restore 190 | **/[Pp]ackages/* 191 | # except build/, which is used as an MSBuild target. 192 | !**/[Pp]ackages/build/ 193 | # Uncomment if necessary however generally it will be regenerated when needed 194 | #!**/[Pp]ackages/repositories.config 195 | # NuGet v3's project.json files produces more ignorable files 196 | *.nuget.props 197 | *.nuget.targets 198 | 199 | # Microsoft Azure Build Output 200 | csx/ 201 | *.build.csdef 202 | 203 | # Microsoft Azure Emulator 204 | ecf/ 205 | rcf/ 206 | 207 | # Windows Store app package directories and files 208 | AppPackages/ 209 | BundleArtifacts/ 210 | Package.StoreAssociation.xml 211 | _pkginfo.txt 212 | *.appx 213 | *.appxbundle 214 | *.appxupload 215 | 216 | # Visual Studio cache files 217 | # files ending in .cache can be ignored 218 | *.[Cc]ache 219 | # but keep track of directories ending in .cache 220 | !?*.[Cc]ache/ 221 | 222 | # Others 223 | ClientBin/ 224 | ~$* 225 | *~ 226 | *.dbmdl 227 | *.dbproj.schemaview 228 | *.jfm 229 | *.pfx 230 | *.publishsettings 231 | orleans.codegen.cs 232 | 233 | # Including strong name files can present a security risk 234 | # (https://github.com/github/gitignore/pull/2483#issue-259490424) 235 | #*.snk 236 | 237 | # Since there are multiple workflows, uncomment next line to ignore bower_components 238 | # (https://github.com/github/gitignore/pull/1529#issuecomment-104372622) 239 | #bower_components/ 240 | 241 | # RIA/Silverlight projects 242 | Generated_Code/ 243 | 244 | # Backup & report files from converting an old project file 245 | # to a newer Visual Studio version. Backup files are not needed, 246 | # because we have git ;-) 247 | _UpgradeReport_Files/ 248 | Backup*/ 249 | UpgradeLog*.XML 250 | UpgradeLog*.htm 251 | ServiceFabricBackup/ 252 | *.rptproj.bak 253 | 254 | # SQL Server files 255 | *.mdf 256 | *.ldf 257 | *.ndf 258 | 259 | # Business Intelligence projects 260 | *.rdl.data 261 | *.bim.layout 262 | *.bim_*.settings 263 | *.rptproj.rsuser 264 | *- [Bb]ackup.rdl 265 | *- [Bb]ackup ([0-9]).rdl 266 | *- [Bb]ackup ([0-9][0-9]).rdl 267 | 268 | # Microsoft Fakes 269 | FakesAssemblies/ 270 | 271 | # GhostDoc plugin setting file 272 | *.GhostDoc.xml 273 | 274 | # Node.js Tools for Visual Studio 275 | .ntvs_analysis.dat 276 | node_modules/ 277 | 278 | # Visual Studio 6 build log 279 | *.plg 280 | 281 | # Visual Studio 6 workspace options file 282 | *.opt 283 | 284 | # Visual Studio 6 auto-generated workspace file (contains which files were open etc.) 285 | *.vbw 286 | 287 | # Visual Studio LightSwitch build output 288 | **/*.HTMLClient/GeneratedArtifacts 289 | **/*.DesktopClient/GeneratedArtifacts 290 | **/*.DesktopClient/ModelManifest.xml 291 | **/*.Server/GeneratedArtifacts 292 | **/*.Server/ModelManifest.xml 293 | _Pvt_Extensions 294 | 295 | # Paket dependency manager 296 | .paket/paket.exe 297 | paket-files/ 298 | 299 | # FAKE - F# Make 300 | .fake/ 301 | 302 | # CodeRush personal settings 303 | .cr/personal 304 | 305 | # Python Tools for Visual Studio (PTVS) 306 | __pycache__/ 307 | *.pyc 308 | 309 | # Cake - Uncomment if you are using it 310 | # tools/** 311 | # !tools/packages.config 312 | 313 | # Tabs Studio 314 | *.tss 315 | 316 | # Telerik's JustMock configuration file 317 | *.jmconfig 318 | 319 | # BizTalk build output 320 | *.btp.cs 321 | *.btm.cs 322 | *.odx.cs 323 | *.xsd.cs 324 | 325 | # OpenCover UI analysis results 326 | OpenCover/ 327 | 328 | # Azure Stream Analytics local run output 329 | ASALocalRun/ 330 | 331 | # MSBuild Binary and Structured Log 332 | *.binlog 333 | 334 | # NVidia Nsight GPU debugger configuration file 335 | *.nvuser 336 | 337 | # MFractors (Xamarin productivity tool) working folder 338 | .mfractor/ 339 | 340 | # Local History for Visual Studio 341 | .localhistory/ 342 | 343 | # BeatPulse healthcheck temp database 344 | healthchecksdb 345 | 346 | # Backup folder for Package Reference Convert tool in Visual Studio 2017 347 | MigrationBackup/ 348 | 349 | # Ionide (cross platform F# VS Code tools) working folder 350 | .ionide/ 351 | -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | MIT License 2 | 3 | Copyright (c) 2020 Yuvi 4 | 5 | Permission is hereby granted, free of charge, to any person obtaining a copy 6 | of this software and associated documentation files (the "Software"), to deal 7 | in the Software without restriction, including without limitation the rights 8 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 9 | copies of the Software, and to permit persons to whom the Software is 10 | furnished to do so, subject to the following conditions: 11 | 12 | The above copyright notice and this permission notice shall be included in all 13 | copies or substantial portions of the Software. 14 | 15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 18 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 20 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 21 | SOFTWARE. 22 | -------------------------------------------------------------------------------- /MHF-QuestEditor.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio Version 16 4 | VisualStudioVersion = 16.0.29613.14 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MHF-QuestEditor", "MHF-QuestEditor\MHF-QuestEditor.vbproj", "{5E3BE8E4-70F2-4FE2-9C47-A5F1D7ED9CB5}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {5E3BE8E4-70F2-4FE2-9C47-A5F1D7ED9CB5}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {5E3BE8E4-70F2-4FE2-9C47-A5F1D7ED9CB5}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {5E3BE8E4-70F2-4FE2-9C47-A5F1D7ED9CB5}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {5E3BE8E4-70F2-4FE2-9C47-A5F1D7ED9CB5}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {F73FAB5E-616F-4A2D-B0EE-3EE5D7D3A761} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /MHF-QuestEditor/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/BowLeft.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/BowLeft.png -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/BowRight.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/BowRight.png -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/Logo-MHFG.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/Logo-MHFG.png -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/Maps/Desert Day.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/Maps/Desert Day.png -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/Maps/Desert Night.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/Maps/Desert Night.png -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/Maps/Jungle Day.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/Maps/Jungle Day.png -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/Maps/Jungle Night.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/Maps/Jungle Night.png -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/Maps/Swamp Day.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/Maps/Swamp Day.png -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/Maps/Volcano Day.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/Maps/Volcano Day.png -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/Maps/Volcano Night.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/Maps/Volcano Night.png -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/Sounds/click.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/Sounds/click.wav -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/Sounds/create.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/Sounds/create.wav -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/Sounds/load.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/Sounds/load.wav -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/back.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/back.png -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/bg.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/bg.png -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/bg2.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/bg2.png -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/bg3.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/bg3.png -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/bg4.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/bg4.png -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/bg5.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/bg5.png -------------------------------------------------------------------------------- /MHF-QuestEditor/Assets/next.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Assets/next.png -------------------------------------------------------------------------------- /MHF-QuestEditor/CRC32.vb: -------------------------------------------------------------------------------- 1 | Imports System.Security.Cryptography 2 | Imports System 3 | Imports System.Collections.Generic 4 | 5 | Namespace DamienG.Security.Cryptography 6 | Public NotInheritable Class Crc32 7 | Inherits HashAlgorithm 8 | 9 | Public Const DefaultPolynomial As UInt32 = &HEDB88320UI 10 | Public Const DefaultSeed As UInt32 = &HFFFFFFFFUI 11 | Shared defaultTable As UInt32() 12 | ReadOnly seed As UInt32 13 | ReadOnly table As UInt32() 14 | Private hash As UInt32 15 | 16 | Public Sub New() 17 | Me.New(DefaultPolynomial, DefaultSeed) 18 | End Sub 19 | 20 | Public Sub New(ByVal polynomial As UInt32, ByVal seed As UInt32) 21 | If Not BitConverter.IsLittleEndian Then Throw New PlatformNotSupportedException("Not supported on Big Endian processors") 22 | table = InitializeTable(polynomial) 23 | Me.seed = CSharpImpl.__Assign(hash, seed) 24 | End Sub 25 | 26 | Public Overrides Sub Initialize() 27 | hash = seed 28 | End Sub 29 | 30 | Protected Overrides Sub HashCore(ByVal array As Byte(), ByVal ibStart As Integer, ByVal cbSize As Integer) 31 | hash = CalculateHash(table, hash, array, ibStart, cbSize) 32 | End Sub 33 | 34 | Protected Overrides Function HashFinal() As Byte() 35 | Dim hashBuffer = UInt32ToBigEndianBytes(Not hash) 36 | HashValue = hashBuffer 37 | Return hashBuffer 38 | End Function 39 | 40 | Public Overrides ReadOnly Property HashSize As Integer 41 | Get 42 | Return 32 43 | End Get 44 | End Property 45 | 46 | Public Shared Function Compute(ByVal buffer As Byte()) As UInt32 47 | Return Compute(DefaultSeed, buffer) 48 | End Function 49 | 50 | Public Shared Function Compute(ByVal seed As UInt32, ByVal buffer As Byte()) As UInt32 51 | Return Compute(DefaultPolynomial, seed, buffer) 52 | End Function 53 | 54 | Public Shared Function Compute(ByVal polynomial As UInt32, ByVal seed As UInt32, ByVal buffer As Byte()) As UInt32 55 | Return Not CalculateHash(InitializeTable(polynomial), seed, buffer, 0, buffer.Length) 56 | End Function 57 | 58 | Private Shared Function InitializeTable(ByVal polynomial As UInt32) As UInt32() 59 | If polynomial = DefaultPolynomial AndAlso defaultTable IsNot Nothing Then Return defaultTable 60 | Dim createTable = New UInt32(255) {} 61 | 62 | For i = 0 To 256 - 1 63 | Dim entry = CType(i, UInt32) 64 | 65 | For j = 0 To 8 - 1 66 | If (entry And 1) = 1 Then 67 | entry = (entry >> 1) Xor polynomial 68 | Else 69 | entry = entry >> 1 70 | End If 71 | Next 72 | 73 | createTable(i) = entry 74 | Next 75 | 76 | If polynomial = DefaultPolynomial Then defaultTable = createTable 77 | Return createTable 78 | End Function 79 | 80 | Private Shared Function CalculateHash(ByVal table As UInt32(), ByVal seed As UInt32, ByVal buffer As IList(Of Byte), ByVal start As Integer, ByVal size As Integer) As UInt32 81 | Dim hash = seed 82 | 83 | For i = start To start + size - 1 84 | hash = (hash >> 8) Xor table(buffer(i) Xor hash And &HFF) 85 | Next 86 | 87 | Return hash 88 | End Function 89 | 90 | Private Shared Function UInt32ToBigEndianBytes(ByVal uint32 As UInt32) As Byte() 91 | Dim result = BitConverter.GetBytes(uint32) 92 | If BitConverter.IsLittleEndian Then Array.Reverse(result) 93 | Return result 94 | End Function 95 | 96 | Private Class CSharpImpl 97 | 98 | Shared Function __Assign(Of T)(ByRef target As T, value As T) As T 99 | target = value 100 | Return value 101 | End Function 102 | End Class 103 | End Class 104 | End Namespace 105 | -------------------------------------------------------------------------------- /MHF-QuestEditor/CreateQuest.Designer.vb: -------------------------------------------------------------------------------- 1 |  2 | Partial Class CreateQuest 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | 24 | Private Sub InitializeComponent() 25 | Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(CreateQuest)) 26 | Me.pboxBack = New System.Windows.Forms.PictureBox() 27 | Me.pboxNext = New System.Windows.Forms.PictureBox() 28 | Me.Label4 = New System.Windows.Forms.Label() 29 | Me.Label5 = New System.Windows.Forms.Label() 30 | Me.Label1 = New System.Windows.Forms.Label() 31 | Me.GroupBox1 = New System.Windows.Forms.GroupBox() 32 | Me.btnSubBMonsterSpawn = New System.Windows.Forms.Button() 33 | Me.btnSubAMonsterSpawn = New System.Windows.Forms.Button() 34 | Me.btnMainMonsterSpawn = New System.Windows.Forms.Button() 35 | Me.Label9 = New System.Windows.Forms.Label() 36 | Me.Label12 = New System.Windows.Forms.Label() 37 | Me.Label11 = New System.Windows.Forms.Label() 38 | Me.Label8 = New System.Windows.Forms.Label() 39 | Me.lblSubBSpawnCoords = New System.Windows.Forms.Label() 40 | Me.lblSubASpawnCoords = New System.Windows.Forms.Label() 41 | Me.lblMainSpawnCoords = New System.Windows.Forms.Label() 42 | Me.Label10 = New System.Windows.Forms.Label() 43 | Me.Label7 = New System.Windows.Forms.Label() 44 | Me.nudSubBMonsterDamage = New System.Windows.Forms.NumericUpDown() 45 | Me.nudSubAMonsterDamage = New System.Windows.Forms.NumericUpDown() 46 | Me.nudMainMonsterDamage = New System.Windows.Forms.NumericUpDown() 47 | Me.btnChooseSubBMonster = New System.Windows.Forms.Button() 48 | Me.btnChooseSubAMonster = New System.Windows.Forms.Button() 49 | Me.btnChooseMonster = New System.Windows.Forms.Button() 50 | Me.btnChooseLocation = New System.Windows.Forms.Button() 51 | Me.lbxSubBObj = New System.Windows.Forms.ListBox() 52 | Me.lbxSubAObj = New System.Windows.Forms.ListBox() 53 | Me.lbxMainObj = New System.Windows.Forms.ListBox() 54 | Me.txtSubBMonster = New System.Windows.Forms.TextBox() 55 | Me.txtSubAMonster = New System.Windows.Forms.TextBox() 56 | Me.txtMainMonster = New System.Windows.Forms.TextBox() 57 | Me.Label6 = New System.Windows.Forms.Label() 58 | Me.Label3 = New System.Windows.Forms.Label() 59 | Me.Label2 = New System.Windows.Forms.Label() 60 | Me.txtLocation = New System.Windows.Forms.TextBox() 61 | Me.Label13 = New System.Windows.Forms.Label() 62 | Me.TextBox1 = New System.Windows.Forms.TextBox() 63 | Me.Label14 = New System.Windows.Forms.Label() 64 | Me.nudQuestFee = New System.Windows.Forms.NumericUpDown() 65 | Me.Label15 = New System.Windows.Forms.Label() 66 | Me.nudMainReward = New System.Windows.Forms.NumericUpDown() 67 | Me.Label16 = New System.Windows.Forms.Label() 68 | Me.nudSubAReward = New System.Windows.Forms.NumericUpDown() 69 | Me.Label17 = New System.Windows.Forms.Label() 70 | Me.nudSubBReward = New System.Windows.Forms.NumericUpDown() 71 | Me.Label18 = New System.Windows.Forms.Label() 72 | Me.Label19 = New System.Windows.Forms.Label() 73 | Me.rtfQuestDescription = New System.Windows.Forms.RichTextBox() 74 | Me.Label20 = New System.Windows.Forms.Label() 75 | Me.NudHunterRank = New System.Windows.Forms.NumericUpDown() 76 | Me.cbxHunterRank = New System.Windows.Forms.ComboBox() 77 | CType(Me.pboxBack, System.ComponentModel.ISupportInitialize).BeginInit() 78 | CType(Me.pboxNext, System.ComponentModel.ISupportInitialize).BeginInit() 79 | Me.GroupBox1.SuspendLayout() 80 | CType(Me.nudSubBMonsterDamage, System.ComponentModel.ISupportInitialize).BeginInit() 81 | CType(Me.nudSubAMonsterDamage, System.ComponentModel.ISupportInitialize).BeginInit() 82 | CType(Me.nudMainMonsterDamage, System.ComponentModel.ISupportInitialize).BeginInit() 83 | CType(Me.nudQuestFee, System.ComponentModel.ISupportInitialize).BeginInit() 84 | CType(Me.nudMainReward, System.ComponentModel.ISupportInitialize).BeginInit() 85 | CType(Me.nudSubAReward, System.ComponentModel.ISupportInitialize).BeginInit() 86 | CType(Me.nudSubBReward, System.ComponentModel.ISupportInitialize).BeginInit() 87 | CType(Me.NudHunterRank, System.ComponentModel.ISupportInitialize).BeginInit() 88 | Me.SuspendLayout() 89 | ' 90 | 'pboxBack 91 | ' 92 | Me.pboxBack.BackColor = System.Drawing.Color.Transparent 93 | Me.pboxBack.BackgroundImage = CType(resources.GetObject("pboxBack.BackgroundImage"), System.Drawing.Image) 94 | Me.pboxBack.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom 95 | Me.pboxBack.Location = New System.Drawing.Point(64, 730) 96 | Me.pboxBack.Name = "pboxBack" 97 | Me.pboxBack.Size = New System.Drawing.Size(27, 38) 98 | Me.pboxBack.TabIndex = 5 99 | Me.pboxBack.TabStop = False 100 | ' 101 | 'pboxNext 102 | ' 103 | Me.pboxNext.BackColor = System.Drawing.Color.Transparent 104 | Me.pboxNext.BackgroundImage = CType(resources.GetObject("pboxNext.BackgroundImage"), System.Drawing.Image) 105 | Me.pboxNext.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom 106 | Me.pboxNext.Location = New System.Drawing.Point(897, 730) 107 | Me.pboxNext.Name = "pboxNext" 108 | Me.pboxNext.Size = New System.Drawing.Size(27, 38) 109 | Me.pboxNext.TabIndex = 5 110 | Me.pboxNext.TabStop = False 111 | ' 112 | 'Label4 113 | ' 114 | Me.Label4.AutoSize = True 115 | Me.Label4.BackColor = System.Drawing.Color.Transparent 116 | Me.Label4.ForeColor = System.Drawing.Color.White 117 | Me.Label4.Location = New System.Drawing.Point(64, 714) 118 | Me.Label4.Name = "Label4" 119 | Me.Label4.Size = New System.Drawing.Size(32, 13) 120 | Me.Label4.TabIndex = 6 121 | Me.Label4.Text = "Back" 122 | ' 123 | 'Label5 124 | ' 125 | Me.Label5.AutoSize = True 126 | Me.Label5.BackColor = System.Drawing.Color.Transparent 127 | Me.Label5.ForeColor = System.Drawing.Color.White 128 | Me.Label5.Location = New System.Drawing.Point(895, 714) 129 | Me.Label5.Name = "Label5" 130 | Me.Label5.Size = New System.Drawing.Size(29, 13) 131 | Me.Label5.TabIndex = 6 132 | Me.Label5.Text = "Next" 133 | ' 134 | 'Label1 135 | ' 136 | Me.Label1.AutoSize = True 137 | Me.Label1.BackColor = System.Drawing.Color.Transparent 138 | Me.Label1.Font = New System.Drawing.Font("Microsoft YaHei UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 139 | Me.Label1.ForeColor = System.Drawing.Color.White 140 | Me.Label1.Location = New System.Drawing.Point(7, 34) 141 | Me.Label1.Name = "Label1" 142 | Me.Label1.Size = New System.Drawing.Size(75, 21) 143 | Me.Label1.TabIndex = 8 144 | Me.Label1.Text = "Location" 145 | ' 146 | 'GroupBox1 147 | ' 148 | Me.GroupBox1.BackColor = System.Drawing.Color.Transparent 149 | Me.GroupBox1.Controls.Add(Me.cbxHunterRank) 150 | Me.GroupBox1.Controls.Add(Me.rtfQuestDescription) 151 | Me.GroupBox1.Controls.Add(Me.btnSubBMonsterSpawn) 152 | Me.GroupBox1.Controls.Add(Me.btnSubAMonsterSpawn) 153 | Me.GroupBox1.Controls.Add(Me.btnMainMonsterSpawn) 154 | Me.GroupBox1.Controls.Add(Me.Label9) 155 | Me.GroupBox1.Controls.Add(Me.Label12) 156 | Me.GroupBox1.Controls.Add(Me.Label11) 157 | Me.GroupBox1.Controls.Add(Me.Label8) 158 | Me.GroupBox1.Controls.Add(Me.lblSubBSpawnCoords) 159 | Me.GroupBox1.Controls.Add(Me.lblSubASpawnCoords) 160 | Me.GroupBox1.Controls.Add(Me.lblMainSpawnCoords) 161 | Me.GroupBox1.Controls.Add(Me.Label10) 162 | Me.GroupBox1.Controls.Add(Me.Label7) 163 | Me.GroupBox1.Controls.Add(Me.nudSubBMonsterDamage) 164 | Me.GroupBox1.Controls.Add(Me.nudSubAMonsterDamage) 165 | Me.GroupBox1.Controls.Add(Me.nudSubBReward) 166 | Me.GroupBox1.Controls.Add(Me.nudSubAReward) 167 | Me.GroupBox1.Controls.Add(Me.nudMainReward) 168 | Me.GroupBox1.Controls.Add(Me.NudHunterRank) 169 | Me.GroupBox1.Controls.Add(Me.nudQuestFee) 170 | Me.GroupBox1.Controls.Add(Me.nudMainMonsterDamage) 171 | Me.GroupBox1.Controls.Add(Me.btnChooseSubBMonster) 172 | Me.GroupBox1.Controls.Add(Me.btnChooseSubAMonster) 173 | Me.GroupBox1.Controls.Add(Me.btnChooseMonster) 174 | Me.GroupBox1.Controls.Add(Me.btnChooseLocation) 175 | Me.GroupBox1.Controls.Add(Me.lbxSubBObj) 176 | Me.GroupBox1.Controls.Add(Me.lbxSubAObj) 177 | Me.GroupBox1.Controls.Add(Me.lbxMainObj) 178 | Me.GroupBox1.Controls.Add(Me.txtSubBMonster) 179 | Me.GroupBox1.Controls.Add(Me.txtSubAMonster) 180 | Me.GroupBox1.Controls.Add(Me.txtMainMonster) 181 | Me.GroupBox1.Controls.Add(Me.Label6) 182 | Me.GroupBox1.Controls.Add(Me.Label3) 183 | Me.GroupBox1.Controls.Add(Me.Label2) 184 | Me.GroupBox1.Controls.Add(Me.Label17) 185 | Me.GroupBox1.Controls.Add(Me.Label16) 186 | Me.GroupBox1.Controls.Add(Me.Label18) 187 | Me.GroupBox1.Controls.Add(Me.Label15) 188 | Me.GroupBox1.Controls.Add(Me.Label20) 189 | Me.GroupBox1.Controls.Add(Me.TextBox1) 190 | Me.GroupBox1.Controls.Add(Me.Label14) 191 | Me.GroupBox1.Controls.Add(Me.Label19) 192 | Me.GroupBox1.Controls.Add(Me.Label13) 193 | Me.GroupBox1.Controls.Add(Me.txtLocation) 194 | Me.GroupBox1.Controls.Add(Me.Label1) 195 | Me.GroupBox1.Font = New System.Drawing.Font("Microsoft YaHei UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 196 | Me.GroupBox1.ForeColor = System.Drawing.Color.White 197 | Me.GroupBox1.Location = New System.Drawing.Point(67, 190) 198 | Me.GroupBox1.Name = "GroupBox1" 199 | Me.GroupBox1.Size = New System.Drawing.Size(857, 521) 200 | Me.GroupBox1.TabIndex = 9 201 | Me.GroupBox1.TabStop = False 202 | Me.GroupBox1.Text = "Quest Information" 203 | ' 204 | 'btnSubBMonsterSpawn 205 | ' 206 | Me.btnSubBMonsterSpawn.Enabled = False 207 | Me.btnSubBMonsterSpawn.Font = New System.Drawing.Font("Microsoft YaHei UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 208 | Me.btnSubBMonsterSpawn.ForeColor = System.Drawing.SystemColors.WindowText 209 | Me.btnSubBMonsterSpawn.Location = New System.Drawing.Point(293, 431) 210 | Me.btnSubBMonsterSpawn.Name = "btnSubBMonsterSpawn" 211 | Me.btnSubBMonsterSpawn.Size = New System.Drawing.Size(84, 44) 212 | Me.btnSubBMonsterSpawn.TabIndex = 14 213 | Me.btnSubBMonsterSpawn.Text = "Choose Spawn" 214 | Me.btnSubBMonsterSpawn.UseVisualStyleBackColor = True 215 | ' 216 | 'btnSubAMonsterSpawn 217 | ' 218 | Me.btnSubAMonsterSpawn.Enabled = False 219 | Me.btnSubAMonsterSpawn.Font = New System.Drawing.Font("Microsoft YaHei UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 220 | Me.btnSubAMonsterSpawn.ForeColor = System.Drawing.SystemColors.WindowText 221 | Me.btnSubAMonsterSpawn.Location = New System.Drawing.Point(293, 303) 222 | Me.btnSubAMonsterSpawn.Name = "btnSubAMonsterSpawn" 223 | Me.btnSubAMonsterSpawn.Size = New System.Drawing.Size(84, 44) 224 | Me.btnSubAMonsterSpawn.TabIndex = 14 225 | Me.btnSubAMonsterSpawn.Text = "Choose Spawn" 226 | Me.btnSubAMonsterSpawn.UseVisualStyleBackColor = True 227 | ' 228 | 'btnMainMonsterSpawn 229 | ' 230 | Me.btnMainMonsterSpawn.Enabled = False 231 | Me.btnMainMonsterSpawn.Font = New System.Drawing.Font("Microsoft YaHei UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 232 | Me.btnMainMonsterSpawn.ForeColor = System.Drawing.SystemColors.WindowText 233 | Me.btnMainMonsterSpawn.Location = New System.Drawing.Point(293, 174) 234 | Me.btnMainMonsterSpawn.Name = "btnMainMonsterSpawn" 235 | Me.btnMainMonsterSpawn.Size = New System.Drawing.Size(84, 44) 236 | Me.btnMainMonsterSpawn.TabIndex = 14 237 | Me.btnMainMonsterSpawn.Text = "Choose Spawn" 238 | Me.btnMainMonsterSpawn.UseVisualStyleBackColor = True 239 | ' 240 | 'Label9 241 | ' 242 | Me.Label9.AutoSize = True 243 | Me.Label9.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 244 | Me.Label9.Location = New System.Drawing.Point(58, 406) 245 | Me.Label9.Name = "Label9" 246 | Me.Label9.Size = New System.Drawing.Size(128, 19) 247 | Me.Label9.TabIndex = 13 248 | Me.Label9.Text = "Required Damage -" 249 | ' 250 | 'Label12 251 | ' 252 | Me.Label12.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 253 | Me.Label12.Location = New System.Drawing.Point(61, 431) 254 | Me.Label12.Name = "Label12" 255 | Me.Label12.Size = New System.Drawing.Size(226, 44) 256 | Me.Label12.TabIndex = 13 257 | Me.Label12.Text = "Choose Spawn for Monster or else its Random" 258 | Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight 259 | ' 260 | 'Label11 261 | ' 262 | Me.Label11.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 263 | Me.Label11.Location = New System.Drawing.Point(61, 303) 264 | Me.Label11.Name = "Label11" 265 | Me.Label11.Size = New System.Drawing.Size(226, 44) 266 | Me.Label11.TabIndex = 13 267 | Me.Label11.Text = "Choose Spawn for Monster or else its Random" 268 | Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleRight 269 | ' 270 | 'Label8 271 | ' 272 | Me.Label8.AutoSize = True 273 | Me.Label8.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 274 | Me.Label8.Location = New System.Drawing.Point(57, 278) 275 | Me.Label8.Name = "Label8" 276 | Me.Label8.Size = New System.Drawing.Size(128, 19) 277 | Me.Label8.TabIndex = 13 278 | Me.Label8.Text = "Required Damage -" 279 | ' 280 | 'lblSubBSpawnCoords 281 | ' 282 | Me.lblSubBSpawnCoords.Font = New System.Drawing.Font("Microsoft YaHei UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 283 | Me.lblSubBSpawnCoords.Location = New System.Drawing.Point(382, 431) 284 | Me.lblSubBSpawnCoords.Name = "lblSubBSpawnCoords" 285 | Me.lblSubBSpawnCoords.Size = New System.Drawing.Size(57, 44) 286 | Me.lblSubBSpawnCoords.TabIndex = 13 287 | Me.lblSubBSpawnCoords.TextAlign = System.Drawing.ContentAlignment.MiddleLeft 288 | ' 289 | 'lblSubASpawnCoords 290 | ' 291 | Me.lblSubASpawnCoords.Font = New System.Drawing.Font("Microsoft YaHei UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 292 | Me.lblSubASpawnCoords.Location = New System.Drawing.Point(382, 303) 293 | Me.lblSubASpawnCoords.Name = "lblSubASpawnCoords" 294 | Me.lblSubASpawnCoords.Size = New System.Drawing.Size(57, 44) 295 | Me.lblSubASpawnCoords.TabIndex = 13 296 | Me.lblSubASpawnCoords.TextAlign = System.Drawing.ContentAlignment.MiddleLeft 297 | ' 298 | 'lblMainSpawnCoords 299 | ' 300 | Me.lblMainSpawnCoords.Font = New System.Drawing.Font("Microsoft YaHei UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 301 | Me.lblMainSpawnCoords.Location = New System.Drawing.Point(382, 174) 302 | Me.lblMainSpawnCoords.Name = "lblMainSpawnCoords" 303 | Me.lblMainSpawnCoords.Size = New System.Drawing.Size(57, 44) 304 | Me.lblMainSpawnCoords.TabIndex = 13 305 | Me.lblMainSpawnCoords.TextAlign = System.Drawing.ContentAlignment.MiddleLeft 306 | ' 307 | 'Label10 308 | ' 309 | Me.Label10.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 310 | Me.Label10.Location = New System.Drawing.Point(61, 174) 311 | Me.Label10.Name = "Label10" 312 | Me.Label10.Size = New System.Drawing.Size(226, 44) 313 | Me.Label10.TabIndex = 13 314 | Me.Label10.Text = "Choose Spawn for Monster or else its Random" 315 | Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleRight 316 | ' 317 | 'Label7 318 | ' 319 | Me.Label7.AutoSize = True 320 | Me.Label7.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 321 | Me.Label7.Location = New System.Drawing.Point(57, 149) 322 | Me.Label7.Name = "Label7" 323 | Me.Label7.Size = New System.Drawing.Size(128, 19) 324 | Me.Label7.TabIndex = 13 325 | Me.Label7.Text = "Required Damage -" 326 | ' 327 | 'nudSubBMonsterDamage 328 | ' 329 | Me.nudSubBMonsterDamage.Enabled = False 330 | Me.nudSubBMonsterDamage.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 331 | Me.nudSubBMonsterDamage.Location = New System.Drawing.Point(192, 404) 332 | Me.nudSubBMonsterDamage.Maximum = New Decimal(New Integer() {32767, 0, 0, 0}) 333 | Me.nudSubBMonsterDamage.Name = "nudSubBMonsterDamage" 334 | Me.nudSubBMonsterDamage.Size = New System.Drawing.Size(186, 24) 335 | Me.nudSubBMonsterDamage.TabIndex = 12 336 | ' 337 | 'nudSubAMonsterDamage 338 | ' 339 | Me.nudSubAMonsterDamage.Enabled = False 340 | Me.nudSubAMonsterDamage.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 341 | Me.nudSubAMonsterDamage.Location = New System.Drawing.Point(191, 276) 342 | Me.nudSubAMonsterDamage.Maximum = New Decimal(New Integer() {32767, 0, 0, 0}) 343 | Me.nudSubAMonsterDamage.Name = "nudSubAMonsterDamage" 344 | Me.nudSubAMonsterDamage.Size = New System.Drawing.Size(186, 24) 345 | Me.nudSubAMonsterDamage.TabIndex = 12 346 | ' 347 | 'nudMainMonsterDamage 348 | ' 349 | Me.nudMainMonsterDamage.Enabled = False 350 | Me.nudMainMonsterDamage.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 351 | Me.nudMainMonsterDamage.Location = New System.Drawing.Point(191, 147) 352 | Me.nudMainMonsterDamage.Maximum = New Decimal(New Integer() {32767, 0, 0, 0}) 353 | Me.nudMainMonsterDamage.Name = "nudMainMonsterDamage" 354 | Me.nudMainMonsterDamage.Size = New System.Drawing.Size(186, 24) 355 | Me.nudMainMonsterDamage.TabIndex = 12 356 | ' 357 | 'btnChooseSubBMonster 358 | ' 359 | Me.btnChooseSubBMonster.Font = New System.Drawing.Font("Microsoft YaHei UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 360 | Me.btnChooseSubBMonster.ForeColor = System.Drawing.SystemColors.WindowText 361 | Me.btnChooseSubBMonster.Location = New System.Drawing.Point(384, 374) 362 | Me.btnChooseSubBMonster.Name = "btnChooseSubBMonster" 363 | Me.btnChooseSubBMonster.Size = New System.Drawing.Size(56, 24) 364 | Me.btnChooseSubBMonster.TabIndex = 11 365 | Me.btnChooseSubBMonster.Text = "Choose" 366 | Me.btnChooseSubBMonster.UseVisualStyleBackColor = True 367 | ' 368 | 'btnChooseSubAMonster 369 | ' 370 | Me.btnChooseSubAMonster.Font = New System.Drawing.Font("Microsoft YaHei UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 371 | Me.btnChooseSubAMonster.ForeColor = System.Drawing.SystemColors.WindowText 372 | Me.btnChooseSubAMonster.Location = New System.Drawing.Point(383, 246) 373 | Me.btnChooseSubAMonster.Name = "btnChooseSubAMonster" 374 | Me.btnChooseSubAMonster.Size = New System.Drawing.Size(56, 24) 375 | Me.btnChooseSubAMonster.TabIndex = 11 376 | Me.btnChooseSubAMonster.Text = "Choose" 377 | Me.btnChooseSubAMonster.UseVisualStyleBackColor = True 378 | ' 379 | 'btnChooseMonster 380 | ' 381 | Me.btnChooseMonster.Font = New System.Drawing.Font("Microsoft YaHei UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 382 | Me.btnChooseMonster.ForeColor = System.Drawing.SystemColors.WindowText 383 | Me.btnChooseMonster.Location = New System.Drawing.Point(383, 116) 384 | Me.btnChooseMonster.Name = "btnChooseMonster" 385 | Me.btnChooseMonster.Size = New System.Drawing.Size(56, 24) 386 | Me.btnChooseMonster.TabIndex = 11 387 | Me.btnChooseMonster.Text = "Choose" 388 | Me.btnChooseMonster.UseVisualStyleBackColor = True 389 | ' 390 | 'btnChooseLocation 391 | ' 392 | Me.btnChooseLocation.Font = New System.Drawing.Font("Microsoft YaHei UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 393 | Me.btnChooseLocation.ForeColor = System.Drawing.SystemColors.WindowText 394 | Me.btnChooseLocation.Location = New System.Drawing.Point(258, 57) 395 | Me.btnChooseLocation.Name = "btnChooseLocation" 396 | Me.btnChooseLocation.Size = New System.Drawing.Size(56, 24) 397 | Me.btnChooseLocation.TabIndex = 11 398 | Me.btnChooseLocation.Text = "Choose" 399 | Me.btnChooseLocation.UseVisualStyleBackColor = True 400 | ' 401 | 'lbxSubBObj 402 | ' 403 | Me.lbxSubBObj.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 404 | Me.lbxSubBObj.FormattingEnabled = True 405 | Me.lbxSubBObj.ItemHeight = 19 406 | Me.lbxSubBObj.Items.AddRange(New Object() {"Hunt", "Slay", "Damage", "Slay or Damage", "Capture", "Break Part", "Slay All"}) 407 | Me.lbxSubBObj.Location = New System.Drawing.Point(27, 374) 408 | Me.lbxSubBObj.Name = "lbxSubBObj" 409 | Me.lbxSubBObj.Size = New System.Drawing.Size(159, 23) 410 | Me.lbxSubBObj.TabIndex = 10 411 | ' 412 | 'lbxSubAObj 413 | ' 414 | Me.lbxSubAObj.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 415 | Me.lbxSubAObj.FormattingEnabled = True 416 | Me.lbxSubAObj.ItemHeight = 19 417 | Me.lbxSubAObj.Items.AddRange(New Object() {"Hunt", "Slay", "Damage", "Slay or Damage", "Capture", "Break Part", "Slay All"}) 418 | Me.lbxSubAObj.Location = New System.Drawing.Point(26, 246) 419 | Me.lbxSubAObj.Name = "lbxSubAObj" 420 | Me.lbxSubAObj.Size = New System.Drawing.Size(159, 23) 421 | Me.lbxSubAObj.TabIndex = 10 422 | ' 423 | 'lbxMainObj 424 | ' 425 | Me.lbxMainObj.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 426 | Me.lbxMainObj.FormattingEnabled = True 427 | Me.lbxMainObj.ItemHeight = 19 428 | Me.lbxMainObj.Items.AddRange(New Object() {"Hunt", "Slay", "Damage", "Slay or Damage", "Capture", "Break Part", "Slay All"}) 429 | Me.lbxMainObj.Location = New System.Drawing.Point(26, 116) 430 | Me.lbxMainObj.Name = "lbxMainObj" 431 | Me.lbxMainObj.Size = New System.Drawing.Size(159, 23) 432 | Me.lbxMainObj.TabIndex = 10 433 | ' 434 | 'txtSubBMonster 435 | ' 436 | Me.txtSubBMonster.Enabled = False 437 | Me.txtSubBMonster.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 438 | Me.txtSubBMonster.Location = New System.Drawing.Point(192, 374) 439 | Me.txtSubBMonster.Name = "txtSubBMonster" 440 | Me.txtSubBMonster.Size = New System.Drawing.Size(186, 24) 441 | Me.txtSubBMonster.TabIndex = 9 442 | Me.txtSubBMonster.Text = "Monster Name" 443 | Me.txtSubBMonster.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 444 | ' 445 | 'txtSubAMonster 446 | ' 447 | Me.txtSubAMonster.Enabled = False 448 | Me.txtSubAMonster.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 449 | Me.txtSubAMonster.Location = New System.Drawing.Point(191, 246) 450 | Me.txtSubAMonster.Name = "txtSubAMonster" 451 | Me.txtSubAMonster.Size = New System.Drawing.Size(186, 24) 452 | Me.txtSubAMonster.TabIndex = 9 453 | Me.txtSubAMonster.Text = "Monster Name" 454 | Me.txtSubAMonster.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 455 | ' 456 | 'txtMainMonster 457 | ' 458 | Me.txtMainMonster.Enabled = False 459 | Me.txtMainMonster.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 460 | Me.txtMainMonster.Location = New System.Drawing.Point(191, 116) 461 | Me.txtMainMonster.Name = "txtMainMonster" 462 | Me.txtMainMonster.Size = New System.Drawing.Size(186, 24) 463 | Me.txtMainMonster.TabIndex = 9 464 | Me.txtMainMonster.Text = "Monster Name" 465 | Me.txtMainMonster.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 466 | ' 467 | 'Label6 468 | ' 469 | Me.Label6.AutoSize = True 470 | Me.Label6.BackColor = System.Drawing.Color.Transparent 471 | Me.Label6.Font = New System.Drawing.Font("Microsoft YaHei UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 472 | Me.Label6.ForeColor = System.Drawing.Color.White 473 | Me.Label6.Location = New System.Drawing.Point(7, 350) 474 | Me.Label6.Name = "Label6" 475 | Me.Label6.Size = New System.Drawing.Size(130, 21) 476 | Me.Label6.TabIndex = 8 477 | Me.Label6.Text = "Sub B Objective" 478 | ' 479 | 'Label3 480 | ' 481 | Me.Label3.AutoSize = True 482 | Me.Label3.BackColor = System.Drawing.Color.Transparent 483 | Me.Label3.Font = New System.Drawing.Font("Microsoft YaHei UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 484 | Me.Label3.ForeColor = System.Drawing.Color.White 485 | Me.Label3.Location = New System.Drawing.Point(6, 222) 486 | Me.Label3.Name = "Label3" 487 | Me.Label3.Size = New System.Drawing.Size(131, 21) 488 | Me.Label3.TabIndex = 8 489 | Me.Label3.Text = "Sub A Objective" 490 | ' 491 | 'Label2 492 | ' 493 | Me.Label2.AutoSize = True 494 | Me.Label2.BackColor = System.Drawing.Color.Transparent 495 | Me.Label2.Font = New System.Drawing.Font("Microsoft YaHei UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 496 | Me.Label2.ForeColor = System.Drawing.Color.White 497 | Me.Label2.Location = New System.Drawing.Point(6, 92) 498 | Me.Label2.Name = "Label2" 499 | Me.Label2.Size = New System.Drawing.Size(125, 21) 500 | Me.Label2.TabIndex = 8 501 | Me.Label2.Text = "Main Objective" 502 | ' 503 | 'txtLocation 504 | ' 505 | Me.txtLocation.Enabled = False 506 | Me.txtLocation.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 507 | Me.txtLocation.Location = New System.Drawing.Point(27, 57) 508 | Me.txtLocation.Name = "txtLocation" 509 | Me.txtLocation.Size = New System.Drawing.Size(225, 24) 510 | Me.txtLocation.TabIndex = 9 511 | Me.txtLocation.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 512 | ' 513 | 'Label13 514 | ' 515 | Me.Label13.AutoSize = True 516 | Me.Label13.BackColor = System.Drawing.Color.Transparent 517 | Me.Label13.Font = New System.Drawing.Font("Microsoft YaHei UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 518 | Me.Label13.ForeColor = System.Drawing.Color.White 519 | Me.Label13.Location = New System.Drawing.Point(451, 34) 520 | Me.Label13.Name = "Label13" 521 | Me.Label13.Size = New System.Drawing.Size(106, 21) 522 | Me.Label13.TabIndex = 8 523 | Me.Label13.Text = "Quest Name" 524 | ' 525 | 'TextBox1 526 | ' 527 | Me.TextBox1.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 528 | Me.TextBox1.Location = New System.Drawing.Point(471, 57) 529 | Me.TextBox1.Name = "TextBox1" 530 | Me.TextBox1.Size = New System.Drawing.Size(380, 24) 531 | Me.TextBox1.TabIndex = 9 532 | Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 533 | ' 534 | 'Label14 535 | ' 536 | Me.Label14.AutoSize = True 537 | Me.Label14.BackColor = System.Drawing.Color.Transparent 538 | Me.Label14.Font = New System.Drawing.Font("Microsoft YaHei UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 539 | Me.Label14.ForeColor = System.Drawing.Color.White 540 | Me.Label14.Location = New System.Drawing.Point(746, 84) 541 | Me.Label14.Name = "Label14" 542 | Me.Label14.Size = New System.Drawing.Size(37, 21) 543 | Me.Label14.TabIndex = 8 544 | Me.Label14.Text = "Fee" 545 | ' 546 | 'nudQuestFee 547 | ' 548 | Me.nudQuestFee.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 549 | Me.nudQuestFee.Location = New System.Drawing.Point(766, 107) 550 | Me.nudQuestFee.Maximum = New Decimal(New Integer() {32767, 0, 0, 0}) 551 | Me.nudQuestFee.Name = "nudQuestFee" 552 | Me.nudQuestFee.Size = New System.Drawing.Size(86, 24) 553 | Me.nudQuestFee.TabIndex = 12 554 | ' 555 | 'Label15 556 | ' 557 | Me.Label15.AutoSize = True 558 | Me.Label15.BackColor = System.Drawing.Color.Transparent 559 | Me.Label15.Font = New System.Drawing.Font("Microsoft YaHei UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 560 | Me.Label15.ForeColor = System.Drawing.Color.White 561 | Me.Label15.Location = New System.Drawing.Point(467, 170) 562 | Me.Label15.Name = "Label15" 563 | Me.Label15.Size = New System.Drawing.Size(49, 21) 564 | Me.Label15.TabIndex = 8 565 | Me.Label15.Text = "Main" 566 | ' 567 | 'nudMainReward 568 | ' 569 | Me.nudMainReward.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 570 | Me.nudMainReward.Location = New System.Drawing.Point(471, 194) 571 | Me.nudMainReward.Maximum = New Decimal(New Integer() {32767, 0, 0, 0}) 572 | Me.nudMainReward.Name = "nudMainReward" 573 | Me.nudMainReward.Size = New System.Drawing.Size(70, 24) 574 | Me.nudMainReward.TabIndex = 12 575 | ' 576 | 'Label16 577 | ' 578 | Me.Label16.AutoSize = True 579 | Me.Label16.BackColor = System.Drawing.Color.Transparent 580 | Me.Label16.Font = New System.Drawing.Font("Microsoft YaHei UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 581 | Me.Label16.ForeColor = System.Drawing.Color.White 582 | Me.Label16.Location = New System.Drawing.Point(621, 170) 583 | Me.Label16.Name = "Label16" 584 | Me.Label16.Size = New System.Drawing.Size(55, 21) 585 | Me.Label16.TabIndex = 8 586 | Me.Label16.Text = "Sub A" 587 | ' 588 | 'nudSubAReward 589 | ' 590 | Me.nudSubAReward.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 591 | Me.nudSubAReward.Location = New System.Drawing.Point(625, 194) 592 | Me.nudSubAReward.Maximum = New Decimal(New Integer() {32767, 0, 0, 0}) 593 | Me.nudSubAReward.Name = "nudSubAReward" 594 | Me.nudSubAReward.Size = New System.Drawing.Size(71, 24) 595 | Me.nudSubAReward.TabIndex = 12 596 | ' 597 | 'Label17 598 | ' 599 | Me.Label17.AutoSize = True 600 | Me.Label17.BackColor = System.Drawing.Color.Transparent 601 | Me.Label17.Font = New System.Drawing.Font("Microsoft YaHei UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 602 | Me.Label17.ForeColor = System.Drawing.Color.White 603 | Me.Label17.Location = New System.Drawing.Point(777, 170) 604 | Me.Label17.Name = "Label17" 605 | Me.Label17.Size = New System.Drawing.Size(54, 21) 606 | Me.Label17.TabIndex = 8 607 | Me.Label17.Text = "Sub B" 608 | ' 609 | 'nudSubBReward 610 | ' 611 | Me.nudSubBReward.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 612 | Me.nudSubBReward.Location = New System.Drawing.Point(781, 194) 613 | Me.nudSubBReward.Maximum = New Decimal(New Integer() {32767, 0, 0, 0}) 614 | Me.nudSubBReward.Name = "nudSubBReward" 615 | Me.nudSubBReward.Size = New System.Drawing.Size(70, 24) 616 | Me.nudSubBReward.TabIndex = 12 617 | ' 618 | 'Label18 619 | ' 620 | Me.Label18.AutoSize = True 621 | Me.Label18.BackColor = System.Drawing.Color.Transparent 622 | Me.Label18.Font = New System.Drawing.Font("Microsoft YaHei UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 623 | Me.Label18.ForeColor = System.Drawing.Color.White 624 | Me.Label18.Location = New System.Drawing.Point(451, 146) 625 | Me.Label18.Name = "Label18" 626 | Me.Label18.Size = New System.Drawing.Size(135, 21) 627 | Me.Label18.TabIndex = 8 628 | Me.Label18.Text = "Rewards in Zeny" 629 | ' 630 | 'Label19 631 | ' 632 | Me.Label19.AutoSize = True 633 | Me.Label19.BackColor = System.Drawing.Color.Transparent 634 | Me.Label19.Font = New System.Drawing.Font("Microsoft YaHei UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 635 | Me.Label19.ForeColor = System.Drawing.Color.White 636 | Me.Label19.Location = New System.Drawing.Point(451, 248) 637 | Me.Label19.Name = "Label19" 638 | Me.Label19.Size = New System.Drawing.Size(146, 21) 639 | Me.Label19.TabIndex = 8 640 | Me.Label19.Text = "Quest Description" 641 | ' 642 | 'rtfQuestDescription 643 | ' 644 | Me.rtfQuestDescription.Location = New System.Drawing.Point(471, 273) 645 | Me.rtfQuestDescription.Name = "rtfQuestDescription" 646 | Me.rtfQuestDescription.Size = New System.Drawing.Size(379, 201) 647 | Me.rtfQuestDescription.TabIndex = 15 648 | Me.rtfQuestDescription.Text = "" 649 | ' 650 | 'Label20 651 | ' 652 | Me.Label20.AutoSize = True 653 | Me.Label20.BackColor = System.Drawing.Color.Transparent 654 | Me.Label20.Font = New System.Drawing.Font("Microsoft YaHei UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 655 | Me.Label20.ForeColor = System.Drawing.Color.White 656 | Me.Label20.Location = New System.Drawing.Point(451, 84) 657 | Me.Label20.Name = "Label20" 658 | Me.Label20.Size = New System.Drawing.Size(106, 21) 659 | Me.Label20.TabIndex = 8 660 | Me.Label20.Text = "Hunter Rank" 661 | ' 662 | 'NudHunterRank 663 | ' 664 | Me.NudHunterRank.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 665 | Me.NudHunterRank.Location = New System.Drawing.Point(471, 107) 666 | Me.NudHunterRank.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) 667 | Me.NudHunterRank.Name = "NudHunterRank" 668 | Me.NudHunterRank.Size = New System.Drawing.Size(86, 24) 669 | Me.NudHunterRank.TabIndex = 12 670 | ' 671 | 'cbxHunterRank 672 | ' 673 | Me.cbxHunterRank.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 674 | Me.cbxHunterRank.FormattingEnabled = True 675 | Me.cbxHunterRank.Items.AddRange(New Object() {"None", "G", "Z"}) 676 | Me.cbxHunterRank.Location = New System.Drawing.Point(563, 106) 677 | Me.cbxHunterRank.Name = "cbxHunterRank" 678 | Me.cbxHunterRank.Size = New System.Drawing.Size(75, 27) 679 | Me.cbxHunterRank.TabIndex = 16 680 | ' 681 | 'CreateQuest 682 | ' 683 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 684 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 685 | Me.BackgroundImage = Global.MHF_QuestEditor.My.Resources.Resources.bg 686 | Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch 687 | Me.ClientSize = New System.Drawing.Size(989, 846) 688 | Me.Controls.Add(Me.GroupBox1) 689 | Me.Controls.Add(Me.Label5) 690 | Me.Controls.Add(Me.Label4) 691 | Me.Controls.Add(Me.pboxNext) 692 | Me.Controls.Add(Me.pboxBack) 693 | Me.DoubleBuffered = True 694 | Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow 695 | Me.Name = "CreateQuest" 696 | Me.Text = "CreateQuest" 697 | CType(Me.pboxBack, System.ComponentModel.ISupportInitialize).EndInit() 698 | CType(Me.pboxNext, System.ComponentModel.ISupportInitialize).EndInit() 699 | Me.GroupBox1.ResumeLayout(False) 700 | Me.GroupBox1.PerformLayout() 701 | CType(Me.nudSubBMonsterDamage, System.ComponentModel.ISupportInitialize).EndInit() 702 | CType(Me.nudSubAMonsterDamage, System.ComponentModel.ISupportInitialize).EndInit() 703 | CType(Me.nudMainMonsterDamage, System.ComponentModel.ISupportInitialize).EndInit() 704 | CType(Me.nudQuestFee, System.ComponentModel.ISupportInitialize).EndInit() 705 | CType(Me.nudMainReward, System.ComponentModel.ISupportInitialize).EndInit() 706 | CType(Me.nudSubAReward, System.ComponentModel.ISupportInitialize).EndInit() 707 | CType(Me.nudSubBReward, System.ComponentModel.ISupportInitialize).EndInit() 708 | CType(Me.NudHunterRank, System.ComponentModel.ISupportInitialize).EndInit() 709 | Me.ResumeLayout(False) 710 | Me.PerformLayout() 711 | 712 | End Sub 713 | Friend WithEvents pboxBack As PictureBox 714 | Friend WithEvents pboxNext As PictureBox 715 | Friend WithEvents Label4 As Label 716 | Friend WithEvents Label5 As Label 717 | Friend WithEvents Label1 As Label 718 | Friend WithEvents GroupBox1 As GroupBox 719 | Friend WithEvents txtMainMonster As TextBox 720 | Friend WithEvents Label2 As Label 721 | Friend WithEvents txtLocation As TextBox 722 | Friend WithEvents btnChooseMonster As Button 723 | Friend WithEvents btnChooseLocation As Button 724 | Friend WithEvents lbxMainObj As ListBox 725 | Friend WithEvents btnChooseSubAMonster As Button 726 | Friend WithEvents lbxSubAObj As ListBox 727 | Friend WithEvents txtSubAMonster As TextBox 728 | Friend WithEvents Label3 As Label 729 | Friend WithEvents btnChooseSubBMonster As Button 730 | Friend WithEvents lbxSubBObj As ListBox 731 | Friend WithEvents txtSubBMonster As TextBox 732 | Friend WithEvents Label6 As Label 733 | Friend WithEvents nudSubBMonsterDamage As NumericUpDown 734 | Friend WithEvents nudSubAMonsterDamage As NumericUpDown 735 | Friend WithEvents nudMainMonsterDamage As NumericUpDown 736 | Friend WithEvents Label9 As Label 737 | Friend WithEvents Label8 As Label 738 | Friend WithEvents Label7 As Label 739 | Friend WithEvents btnMainMonsterSpawn As Button 740 | Friend WithEvents Label10 As Label 741 | Friend WithEvents btnSubBMonsterSpawn As Button 742 | Friend WithEvents btnSubAMonsterSpawn As Button 743 | Friend WithEvents Label12 As Label 744 | Friend WithEvents Label11 As Label 745 | Friend WithEvents lblSubBSpawnCoords As Label 746 | Friend WithEvents lblSubASpawnCoords As Label 747 | Friend WithEvents lblMainSpawnCoords As Label 748 | Friend WithEvents nudSubBReward As NumericUpDown 749 | Friend WithEvents nudSubAReward As NumericUpDown 750 | Friend WithEvents nudMainReward As NumericUpDown 751 | Friend WithEvents nudQuestFee As NumericUpDown 752 | Friend WithEvents Label17 As Label 753 | Friend WithEvents Label16 As Label 754 | Friend WithEvents Label18 As Label 755 | Friend WithEvents Label15 As Label 756 | Friend WithEvents TextBox1 As TextBox 757 | Friend WithEvents Label14 As Label 758 | Friend WithEvents Label13 As Label 759 | Friend WithEvents rtfQuestDescription As RichTextBox 760 | Friend WithEvents Label19 As Label 761 | Friend WithEvents NudHunterRank As NumericUpDown 762 | Friend WithEvents Label20 As Label 763 | Friend WithEvents cbxHunterRank As ComboBox 764 | End Class 765 | -------------------------------------------------------------------------------- /MHF-QuestEditor/CreateQuest.vb: -------------------------------------------------------------------------------- 1 | Imports MHF_QuestEditor.QuestInfo 2 | Imports System.Drawing.Text 3 | Imports System 4 | Imports System.Drawing.Drawing2D 5 | Imports System.IO 6 | 7 | Public Class CreateQuest 8 | 9 | Private Sub CreateQuest_Load(sender As Object, e As EventArgs) Handles MyBase.Load 10 | cbxHunterRank.SelectedIndex = 0 11 | End Sub 12 | 13 | Private Sub pboxBack_Click(sender As Object, e As EventArgs) Handles pboxBack.Click 14 | Me.Close() 15 | End Sub 16 | 17 | Private Sub pboxNext_Click(sender As Object, e As EventArgs) Handles pboxNext.Click 18 | 19 | End Sub 20 | 21 | Private Sub btnChooseLocation_Click(sender As Object, e As EventArgs) Handles btnChooseLocation.Click 22 | Create_Choose.Check("ChooseLocation") 23 | Create_Choose.Show() 24 | End Sub 25 | 26 | Private Sub btnChooseMonster_Click(sender As Object, e As EventArgs) Handles btnChooseMonster.Click 27 | Create_Choose.Check("ChooseMonster") 28 | Create_Choose.Show() 29 | End Sub 30 | 31 | Private Sub btnChooseSubAMonster_Click(sender As Object, e As EventArgs) Handles btnChooseSubAMonster.Click 32 | Create_Choose.Check("ChooseSubAMonster") 33 | Create_Choose.Show() 34 | End Sub 35 | 36 | Private Sub btnChooseSubBMonster_Click(sender As Object, e As EventArgs) Handles btnChooseSubBMonster.Click 37 | Create_Choose.Check("ChooseSubBMonster") 38 | Create_Choose.Show() 39 | End Sub 40 | 41 | Private Sub lbxMainObj_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbxMainObj.SelectedIndexChanged, lbxSubAObj.SelectedIndexChanged, lbxSubBObj.SelectedIndexChanged 42 | If lbxMainObj.GetItemText(lbxMainObj.SelectedItem) = "Damage" Or lbxMainObj.GetItemText(lbxMainObj.SelectedItem) = "Slay or Damage" Then 43 | nudMainMonsterDamage.Enabled = True 44 | Else 45 | nudMainMonsterDamage.Enabled = False 46 | End If 47 | 48 | If lbxSubBObj.GetItemText(lbxSubBObj.SelectedItem) = "Damage" Or lbxSubBObj.GetItemText(lbxSubBObj.SelectedItem) = "Slay or Damage" Then 49 | nudSubBMonsterDamage.Enabled = True 50 | Else 51 | nudSubBMonsterDamage.Enabled = False 52 | End If 53 | 54 | If lbxSubAObj.GetItemText(lbxSubAObj.SelectedItem) = "Damage" Or lbxSubAObj.GetItemText(lbxSubAObj.SelectedItem) = "Slay or Damage" Then 55 | nudSubAMonsterDamage.Enabled = True 56 | Else 57 | nudSubAMonsterDamage.Enabled = False 58 | End If 59 | End Sub 60 | 61 | Private Sub btnMainMonsterSpawn_Click(sender As Object, e As EventArgs) Handles btnMainMonsterSpawn.Click 62 | Create_ChooseMonsterLocation.Check("ChooseSpawnMain") 63 | Create_ChooseMonsterLocation.Show() 64 | End Sub 65 | 66 | Private Sub btnSubAMonsterSpawn_Click(sender As Object, e As EventArgs) Handles btnSubAMonsterSpawn.Click 67 | Create_ChooseMonsterLocation.Check("ChooseSpawnSubA") 68 | Create_ChooseMonsterLocation.Show() 69 | End Sub 70 | 71 | Private Sub btnSubBMonsterSpawn_Click(sender As Object, e As EventArgs) Handles btnSubBMonsterSpawn.Click 72 | Create_ChooseMonsterLocation.Check("ChooseSpawnSubB") 73 | Create_ChooseMonsterLocation.Show() 74 | End Sub 75 | 76 | Private Sub txt_TextChanged(sender As Object, e As EventArgs) Handles txtMainMonster.TextChanged, txtSubAMonster.TextChanged, txtSubBMonster.TextChanged 77 | If Not txtMainMonster.Text = "Monster Name" Or Not txtMainMonster.Text = "None" Then 78 | btnMainMonsterSpawn.Enabled = True 79 | End If 80 | If Not txtSubAMonster.Text = "Monster Name" Or Not txtSubAMonster.Text = "None" Then 81 | btnSubAMonsterSpawn.Enabled = True 82 | End If 83 | If Not txtSubBMonster.Text = "Monster Name" Or Not txtSubBMonster.Text = "None" Then 84 | btnSubBMonsterSpawn.Enabled = True 85 | End If 86 | End Sub 87 | End Class -------------------------------------------------------------------------------- /MHF-QuestEditor/Create_Choose.Designer.vb: -------------------------------------------------------------------------------- 1 |  _ 2 | Partial Class Create_Choose 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Create_Choose)) 26 | Me.btnChoose = New System.Windows.Forms.Button() 27 | Me.btnBack = New System.Windows.Forms.Button() 28 | Me.ComboBox1 = New System.Windows.Forms.ComboBox() 29 | Me.lblTitle = New System.Windows.Forms.Label() 30 | Me.btnNext = New System.Windows.Forms.PictureBox() 31 | Me.btnPrev = New System.Windows.Forms.PictureBox() 32 | Me.PictureBox1 = New System.Windows.Forms.PictureBox() 33 | Me.Label1 = New System.Windows.Forms.Label() 34 | Me.Label2 = New System.Windows.Forms.Label() 35 | CType(Me.btnNext, System.ComponentModel.ISupportInitialize).BeginInit() 36 | CType(Me.btnPrev, System.ComponentModel.ISupportInitialize).BeginInit() 37 | CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() 38 | Me.SuspendLayout() 39 | ' 40 | 'btnChoose 41 | ' 42 | Me.btnChoose.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 43 | Me.btnChoose.Location = New System.Drawing.Point(12, 327) 44 | Me.btnChoose.Name = "btnChoose" 45 | Me.btnChoose.Size = New System.Drawing.Size(92, 64) 46 | Me.btnChoose.TabIndex = 1 47 | Me.btnChoose.Text = "Confirm Choice" 48 | Me.btnChoose.UseVisualStyleBackColor = True 49 | ' 50 | 'btnBack 51 | ' 52 | Me.btnBack.DialogResult = System.Windows.Forms.DialogResult.Cancel 53 | Me.btnBack.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 54 | Me.btnBack.Location = New System.Drawing.Point(12, 405) 55 | Me.btnBack.Name = "btnBack" 56 | Me.btnBack.Size = New System.Drawing.Size(92, 32) 57 | Me.btnBack.TabIndex = 3 58 | Me.btnBack.Text = "Back" 59 | Me.btnBack.UseVisualStyleBackColor = True 60 | ' 61 | 'ComboBox1 62 | ' 63 | Me.ComboBox1.FormattingEnabled = True 64 | Me.ComboBox1.Location = New System.Drawing.Point(692, 12) 65 | Me.ComboBox1.Name = "ComboBox1" 66 | Me.ComboBox1.Size = New System.Drawing.Size(121, 21) 67 | Me.ComboBox1.TabIndex = 4 68 | Me.ComboBox1.Visible = False 69 | ' 70 | 'lblTitle 71 | ' 72 | Me.lblTitle.BackColor = System.Drawing.Color.Transparent 73 | Me.lblTitle.Font = New System.Drawing.Font("Microsoft YaHei UI", 21.75!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 74 | Me.lblTitle.Location = New System.Drawing.Point(192, 31) 75 | Me.lblTitle.Name = "lblTitle" 76 | Me.lblTitle.Size = New System.Drawing.Size(441, 57) 77 | Me.lblTitle.TabIndex = 5 78 | Me.lblTitle.TextAlign = System.Drawing.ContentAlignment.BottomCenter 79 | ' 80 | 'btnNext 81 | ' 82 | Me.btnNext.BackColor = System.Drawing.Color.Transparent 83 | Me.btnNext.BackgroundImage = CType(resources.GetObject("btnNext.BackgroundImage"), System.Drawing.Image) 84 | Me.btnNext.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom 85 | Me.btnNext.Location = New System.Drawing.Point(640, 182) 86 | Me.btnNext.Name = "btnNext" 87 | Me.btnNext.Size = New System.Drawing.Size(53, 90) 88 | Me.btnNext.TabIndex = 2 89 | Me.btnNext.TabStop = False 90 | ' 91 | 'btnPrev 92 | ' 93 | Me.btnPrev.BackColor = System.Drawing.Color.Transparent 94 | Me.btnPrev.BackgroundImage = CType(resources.GetObject("btnPrev.BackgroundImage"), System.Drawing.Image) 95 | Me.btnPrev.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom 96 | Me.btnPrev.Location = New System.Drawing.Point(133, 182) 97 | Me.btnPrev.Name = "btnPrev" 98 | Me.btnPrev.Size = New System.Drawing.Size(51, 90) 99 | Me.btnPrev.TabIndex = 2 100 | Me.btnPrev.TabStop = False 101 | ' 102 | 'PictureBox1 103 | ' 104 | Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch 105 | Me.PictureBox1.Location = New System.Drawing.Point(222, 91) 106 | Me.PictureBox1.Name = "PictureBox1" 107 | Me.PictureBox1.Size = New System.Drawing.Size(380, 300) 108 | Me.PictureBox1.TabIndex = 0 109 | Me.PictureBox1.TabStop = False 110 | ' 111 | 'Label1 112 | ' 113 | Me.Label1.AutoSize = True 114 | Me.Label1.BackColor = System.Drawing.Color.Transparent 115 | Me.Label1.Location = New System.Drawing.Point(653, 259) 116 | Me.Label1.Name = "Label1" 117 | Me.Label1.Size = New System.Drawing.Size(29, 13) 118 | Me.Label1.TabIndex = 6 119 | Me.Label1.Text = "Next" 120 | ' 121 | 'Label2 122 | ' 123 | Me.Label2.AutoSize = True 124 | Me.Label2.BackColor = System.Drawing.Color.Transparent 125 | Me.Label2.Location = New System.Drawing.Point(134, 259) 126 | Me.Label2.Name = "Label2" 127 | Me.Label2.Size = New System.Drawing.Size(48, 13) 128 | Me.Label2.TabIndex = 6 129 | Me.Label2.Text = "Previous" 130 | ' 131 | 'Create_Choose 132 | ' 133 | Me.AcceptButton = Me.btnChoose 134 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 135 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 136 | Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image) 137 | Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch 138 | Me.CancelButton = Me.btnBack 139 | Me.ClientSize = New System.Drawing.Size(825, 464) 140 | Me.Controls.Add(Me.Label2) 141 | Me.Controls.Add(Me.Label1) 142 | Me.Controls.Add(Me.lblTitle) 143 | Me.Controls.Add(Me.ComboBox1) 144 | Me.Controls.Add(Me.btnBack) 145 | Me.Controls.Add(Me.btnNext) 146 | Me.Controls.Add(Me.btnPrev) 147 | Me.Controls.Add(Me.btnChoose) 148 | Me.Controls.Add(Me.PictureBox1) 149 | Me.DoubleBuffered = True 150 | Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None 151 | Me.Name = "Create_Choose" 152 | Me.ShowIcon = False 153 | Me.Text = "Choose Quest Location" 154 | CType(Me.btnNext, System.ComponentModel.ISupportInitialize).EndInit() 155 | CType(Me.btnPrev, System.ComponentModel.ISupportInitialize).EndInit() 156 | CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() 157 | Me.ResumeLayout(False) 158 | Me.PerformLayout() 159 | 160 | End Sub 161 | 162 | Friend WithEvents PictureBox1 As PictureBox 163 | Friend WithEvents btnChoose As Button 164 | Friend WithEvents btnPrev As PictureBox 165 | Friend WithEvents btnNext As PictureBox 166 | Friend WithEvents btnBack As Button 167 | Friend WithEvents ComboBox1 As ComboBox 168 | Friend WithEvents lblTitle As Label 169 | Friend WithEvents Label1 As Label 170 | Friend WithEvents Label2 As Label 171 | End Class 172 | -------------------------------------------------------------------------------- /MHF-QuestEditor/Create_Choose.vb: -------------------------------------------------------------------------------- 1 | Imports MHF_QuestEditor.QuestInfo 2 | Public Class Create_Choose 3 | Dim Location As Boolean = False 4 | Dim Monster As Boolean = False 5 | Dim SubAMonster As Boolean = False 6 | Dim SubBMonster As Boolean = False 7 | 8 | 9 | Public Sub Check(valueToCheck As String) 10 | If valueToCheck = "ChooseLocation" Then 11 | Location = True 12 | ElseIf valueToCheck = "ChooseMonster" Then 13 | Monster = True 14 | ElseIf valueToCheck = "ChooseSubAMonster" Then 15 | SubAMonster = True 16 | ElseIf valueToCheck = "ChooseSubBMonster" Then 17 | SubBMonster = True 18 | End If 19 | End Sub 20 | 21 | Private Sub Create_ChooseLocation_Load(sender As Object, e As EventArgs) Handles MyBase.Load 22 | Dim rlist = New List(Of String) 23 | rlist.Add("Assets/bg2.png") 24 | rlist.Add("Assets/bg3.png") 25 | rlist.Add("Assets/bg4.png") 26 | rlist.Add("Assets/bg5.png") 27 | Dim rnd = New Random() 28 | Dim randombg = rlist(rnd.Next(0, rlist.Count)) 29 | BackgroundImage = Image.FromFile(randombg) 30 | 31 | Try 32 | If Location = True Then 33 | For Each l In LocationList.Locations 34 | ComboBox1.Items.Add(l.Value) 35 | Next 36 | ComboBox1.SelectedIndex = 0 37 | ElseIf Monster = True Or SubAMonster = True Or SubBMonster = True Then 38 | For Each m In Monsters.MonsterNames 39 | ComboBox1.Items.Add(m.Value) 40 | Next 41 | ComboBox1.SelectedIndex = 0 42 | Else 43 | MessageBox.Show("Error Occured getting value") 44 | End If 45 | Catch ex As Exception 46 | MessageBox.Show("Error Occured getting value") 47 | End Try 48 | 49 | 50 | 51 | End Sub 52 | 53 | 54 | Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged 55 | If Location = True Then 56 | Dim CurrentLocation = ComboBox1.GetItemText(ComboBox1.SelectedItem) 57 | lblTitle.Text = CurrentLocation 58 | Try 59 | PictureBox1.BackgroundImage = Image.FromFile("Assets/Maps/" + CurrentLocation + ".png") 60 | Catch ex As Exception 61 | 62 | End Try 63 | ElseIf Monster = True Or SubAMonster = True Or SubBMonster = True Then 64 | Dim CurrentMonster = ComboBox1.GetItemText(ComboBox1.SelectedItem) 65 | lblTitle.Text = CurrentMonster 66 | Try 67 | PictureBox1.BackgroundImage = Image.FromFile("Assets/Monsters/" + CurrentMonster + ".png") 68 | Catch ex As Exception 69 | 70 | End Try 71 | End If 72 | 73 | End Sub 74 | 75 | Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click 76 | Try 77 | ComboBox1.SelectedIndex = ComboBox1.SelectedIndex + 1 78 | My.Computer.Audio.Play("Assets/Sounds/click.wav") 79 | Catch ex As Exception 80 | 81 | End Try 82 | End Sub 83 | 84 | Private Sub btnPrev_Click(sender As Object, e As EventArgs) Handles btnPrev.Click 85 | Try 86 | ComboBox1.SelectedIndex = ComboBox1.SelectedIndex - 1 87 | My.Computer.Audio.Play("Assets/Sounds/click.wav") 88 | Catch 89 | End Try 90 | 91 | End Sub 92 | 93 | Private Sub btnChoose_Click(sender As Object, e As EventArgs) Handles btnChoose.Click 94 | If Location = True Then 95 | CreateQuest.txtLocation.Text = ComboBox1.GetItemText(ComboBox1.SelectedItem) 96 | Location = False 97 | Me.Close() 98 | ElseIf Monster = True Then 99 | CreateQuest.txtMainMonster.Text = ComboBox1.GetItemText(ComboBox1.SelectedItem) 100 | Monster = False 101 | Me.Close() 102 | ElseIf SubAMonster = True Then 103 | CreateQuest.txtSubAMonster.Text = ComboBox1.GetItemText(ComboBox1.SelectedItem) 104 | SubAMonster = False 105 | Me.Close() 106 | ElseIf SubBMonster = True Then 107 | CreateQuest.txtSubBMonster.Text = ComboBox1.GetItemText(ComboBox1.SelectedItem) 108 | SubBMonster = False 109 | Me.Close() 110 | End If 111 | 112 | End Sub 113 | 114 | Private Sub btnBack_Click(sender As Object, e As EventArgs) Handles btnBack.Click 115 | If Location = True Then 116 | Location = False 117 | Me.Close() 118 | ElseIf Monster = True Then 119 | Monster = False 120 | Me.Close() 121 | ElseIf SubAMonster = True Then 122 | SubAMonster = False 123 | Me.Close() 124 | ElseIf SubBMonster = True Then 125 | SubBMonster = False 126 | Me.Close() 127 | End If 128 | End Sub 129 | End Class -------------------------------------------------------------------------------- /MHF-QuestEditor/Create_ChooseMonsterLocation.Designer.vb: -------------------------------------------------------------------------------- 1 |  2 | Partial Class Create_ChooseMonsterLocation 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | 24 | Private Sub InitializeComponent() 25 | Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Create_ChooseMonsterLocation)) 26 | Me.btnBack = New System.Windows.Forms.Button() 27 | Me.PictureBox1 = New System.Windows.Forms.PictureBox() 28 | Me.lblMouseCoords = New System.Windows.Forms.Label() 29 | Me.lblTitle = New System.Windows.Forms.Label() 30 | CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() 31 | Me.SuspendLayout() 32 | ' 33 | 'btnBack 34 | ' 35 | Me.btnBack.DialogResult = System.Windows.Forms.DialogResult.Cancel 36 | Me.btnBack.Font = New System.Drawing.Font("Microsoft YaHei UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 37 | Me.btnBack.Location = New System.Drawing.Point(12, 406) 38 | Me.btnBack.Name = "btnBack" 39 | Me.btnBack.Size = New System.Drawing.Size(92, 32) 40 | Me.btnBack.TabIndex = 5 41 | Me.btnBack.Text = "Back" 42 | Me.btnBack.UseVisualStyleBackColor = True 43 | ' 44 | 'PictureBox1 45 | ' 46 | Me.PictureBox1.BackColor = System.Drawing.Color.Transparent 47 | Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch 48 | Me.PictureBox1.Location = New System.Drawing.Point(212, 88) 49 | Me.PictureBox1.Name = "PictureBox1" 50 | Me.PictureBox1.Size = New System.Drawing.Size(380, 300) 51 | Me.PictureBox1.TabIndex = 6 52 | Me.PictureBox1.TabStop = False 53 | ' 54 | 'lblMouseCoords 55 | ' 56 | Me.lblMouseCoords.BackColor = System.Drawing.Color.Transparent 57 | Me.lblMouseCoords.ForeColor = System.Drawing.SystemColors.WindowText 58 | Me.lblMouseCoords.Location = New System.Drawing.Point(209, 391) 59 | Me.lblMouseCoords.Name = "lblMouseCoords" 60 | Me.lblMouseCoords.Size = New System.Drawing.Size(383, 13) 61 | Me.lblMouseCoords.TabIndex = 7 62 | Me.lblMouseCoords.Text = "Mouse Coords: " 63 | Me.lblMouseCoords.TextAlign = System.Drawing.ContentAlignment.MiddleCenter 64 | ' 65 | 'lblTitle 66 | ' 67 | Me.lblTitle.BackColor = System.Drawing.Color.Transparent 68 | Me.lblTitle.Font = New System.Drawing.Font("Microsoft YaHei UI", 15.75!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 69 | Me.lblTitle.Location = New System.Drawing.Point(157, 37) 70 | Me.lblTitle.Name = "lblTitle" 71 | Me.lblTitle.Size = New System.Drawing.Size(486, 48) 72 | Me.lblTitle.TabIndex = 8 73 | Me.lblTitle.TextAlign = System.Drawing.ContentAlignment.BottomCenter 74 | ' 75 | 'Create_ChooseMonsterLocation 76 | ' 77 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 78 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 79 | Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image) 80 | Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom 81 | Me.ClientSize = New System.Drawing.Size(800, 450) 82 | Me.Controls.Add(Me.lblTitle) 83 | Me.Controls.Add(Me.lblMouseCoords) 84 | Me.Controls.Add(Me.PictureBox1) 85 | Me.Controls.Add(Me.btnBack) 86 | Me.DoubleBuffered = True 87 | Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None 88 | Me.Name = "Create_ChooseMonsterLocation" 89 | Me.Text = "Create_ChooseMonsterLocation" 90 | CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() 91 | Me.ResumeLayout(False) 92 | 93 | End Sub 94 | 95 | Friend WithEvents btnBack As Button 96 | Friend WithEvents PictureBox1 As PictureBox 97 | Friend WithEvents lblMouseCoords As Label 98 | Friend WithEvents lblTitle As Label 99 | End Class 100 | -------------------------------------------------------------------------------- /MHF-QuestEditor/Create_ChooseMonsterLocation.vb: -------------------------------------------------------------------------------- 1 |  2 | Public Class Create_ChooseMonsterLocation 3 | 4 | Dim LocalMousePosition As Point 5 | Dim MainMonster As Boolean = False 6 | Dim SubAMonster As Boolean = False 7 | Dim SubBMonster As Boolean = False 8 | Dim SpawnPointX As Int16 9 | Dim SpawnPointZ As Int16 10 | Dim SpawnpointY As Int16 11 | 12 | Public Sub Check(valueToCheck As String) 13 | If valueToCheck = "ChooseSpawnMain" Then 14 | MainMonster = True 15 | ElseIf valueToCheck = "ChooseSpawnSubA" Then 16 | SubAMonster = True 17 | ElseIf valueToCheck = "ChooseSpawnSubB" Then 18 | SubBMonster = True 19 | End If 20 | End Sub 21 | 22 | Private Sub Create_ChooseMonsterLocation_Load(sender As Object, e As EventArgs) Handles MyBase.Load 23 | 'Random BG 24 | Dim rlist = New List(Of String) 25 | rlist.Add("Assets/bg2.png") 26 | rlist.Add("Assets/bg3.png") 27 | rlist.Add("Assets/bg4.png") 28 | rlist.Add("Assets/bg5.png") 29 | Dim rnd = New Random() 30 | Dim randombg = rlist(rnd.Next(0, rlist.Count)) 31 | BackgroundImage = Image.FromFile(randombg) 32 | 33 | 34 | 'Load Monster from create form 35 | Dim CurrentMonster = CreateQuest.txtMainMonster.Text 36 | Dim CurrentLocation = CreateQuest.txtLocation.Text 37 | Dim CurrentSubAMonster = CreateQuest.txtSubAMonster.Text 38 | Dim CurrentSubBMonster = CreateQuest.txtSubBMonster.Text 39 | 40 | 41 | Try 42 | If MainMonster = True Then 43 | lblTitle.Text = "Choose Spawn for " + CurrentMonster + " in " + CurrentLocation 44 | PictureBox1.BackgroundImage = Image.FromFile("Assets/Maps/" + CurrentLocation + ".png") 45 | ElseIf SubAMonster = True Then 46 | lblTitle.Text = "Choose Spawn for " + CurrentSubAMonster + " in " + CurrentLocation 47 | PictureBox1.BackgroundImage = Image.FromFile("Assets/Maps/" + CurrentLocation + ".png") 48 | ElseIf SubBMonster = True Then 49 | lblTitle.Text = "Choose Spawn for " + CurrentSubBMonster + " in " + CurrentLocation 50 | PictureBox1.BackgroundImage = Image.FromFile("Assets/Maps/" + CurrentLocation + ".png") 51 | End If 52 | Catch ex As Exception 53 | MessageBox.Show("Error loading assets") 54 | End Try 55 | End Sub 56 | 57 | Private Sub PictureBox1_MouseMove(sender As Object, e As EventArgs) Handles PictureBox1.MouseMove 58 | 'Get Mouse Coords 59 | LocalMousePosition = PictureBox1.PointToClient(Cursor.Position) 60 | SpawnPointX = LocalMousePosition.X * 86.2315789474 61 | SpawnpointY = LocalMousePosition.Y * 109.223333333 62 | 63 | lblMouseCoords.Text = ("Spawn Coords: " + "X=" & SpawnPointX & "," & "Y= " & SpawnpointY) 64 | End Sub 65 | 66 | Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click 67 | Dim pin = "Assets/pin.png" 68 | Dim pb As New PictureBox 69 | LocalMousePosition = PictureBox1.PointToClient(Cursor.Position) 70 | SpawnPointX = LocalMousePosition.X * 86.2315789474 71 | SpawnpointY = LocalMousePosition.Y * 109.223333333 72 | 73 | MessageBox.Show("Spawn Set to " + SpawnPointX.ToString + " / " + SpawnpointY.ToString, "Spawn Set!") 74 | 75 | If MainMonster = True Then 76 | CreateQuest.lblMainSpawnCoords.Text = "X= " + SpawnPointX.ToString + " Y= " + SpawnpointY.ToString 77 | MainMonster = False 78 | Me.Close() 79 | ElseIf SubAMonster = True Then 80 | CreateQuest.lblSubASpawnCoords.Text = "X= " + SpawnPointX.ToString + " Y= " + SpawnpointY.ToString 81 | SubAMonster = False 82 | Me.Close() 83 | ElseIf SubBMonster = True Then 84 | CreateQuest.lblSubBSpawnCoords.Text = "X= " + SpawnPointX.ToString + " Y= " + SpawnpointY.ToString 85 | SubBMonster = False 86 | Me.Close() 87 | End If 88 | End Sub 89 | 90 | Private Sub btnBack_Click(sender As Object, e As EventArgs) Handles btnBack.Click 91 | If MainMonster = True Then 92 | MainMonster = False 93 | Me.Close() 94 | ElseIf SubAMonster = True Then 95 | SubAMonster = False 96 | Me.Close() 97 | ElseIf SubBMonster = True Then 98 | SubBMonster = False 99 | Me.Close() 100 | End If 101 | End Sub 102 | End Class -------------------------------------------------------------------------------- /MHF-QuestEditor/EditQuest.Designer.vb: -------------------------------------------------------------------------------- 1 |  2 | Partial Class EditQuest 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | 24 | Private Sub InitializeComponent() 25 | Me.components = New System.ComponentModel.Container() 26 | Me.OpenQuestFile = New System.Windows.Forms.OpenFileDialog() 27 | Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() 28 | Me.btnLoadQuest = New System.Windows.Forms.Button() 29 | Me.Label1 = New System.Windows.Forms.Label() 30 | Me.gbxQuestInfo = New System.Windows.Forms.GroupBox() 31 | Me.nudSubBZeny = New System.Windows.Forms.NumericUpDown() 32 | Me.pboxMap = New System.Windows.Forms.PictureBox() 33 | Me.Label17 = New System.Windows.Forms.Label() 34 | Me.nudSubAZeny = New System.Windows.Forms.NumericUpDown() 35 | Me.Label16 = New System.Windows.Forms.Label() 36 | Me.nudMainZeny = New System.Windows.Forms.NumericUpDown() 37 | Me.Label15 = New System.Windows.Forms.Label() 38 | Me.nudQuestFee = New System.Windows.Forms.NumericUpDown() 39 | Me.Label14 = New System.Windows.Forms.Label() 40 | Me.lbxVariant2b = New System.Windows.Forms.ListBox() 41 | Me.lbxVariant2a = New System.Windows.Forms.ListBox() 42 | Me.lbxVariant1b = New System.Windows.Forms.ListBox() 43 | Me.lbxVariant1a = New System.Windows.Forms.ListBox() 44 | Me.Label13 = New System.Windows.Forms.Label() 45 | Me.Label12 = New System.Windows.Forms.Label() 46 | Me.Label11 = New System.Windows.Forms.Label() 47 | Me.Label10 = New System.Windows.Forms.Label() 48 | Me.lblMonsterCords = New System.Windows.Forms.Label() 49 | Me.lblRank = New System.Windows.Forms.Label() 50 | Me.nudSubBObjectiveDamage = New System.Windows.Forms.NumericUpDown() 51 | Me.nudSubAObjectiveDamage = New System.Windows.Forms.NumericUpDown() 52 | Me.nudMainObjectiveDamage = New System.Windows.Forms.NumericUpDown() 53 | Me.lbxSubBObjective = New System.Windows.Forms.ListBox() 54 | Me.lbxSubAObjective = New System.Windows.Forms.ListBox() 55 | Me.lbxMainObjective = New System.Windows.Forms.ListBox() 56 | Me.Label7 = New System.Windows.Forms.Label() 57 | Me.Label9 = New System.Windows.Forms.Label() 58 | Me.Label8 = New System.Windows.Forms.Label() 59 | Me.Label5 = New System.Windows.Forms.Label() 60 | Me.Label6 = New System.Windows.Forms.Label() 61 | Me.Label4 = New System.Windows.Forms.Label() 62 | Me.lbxLocation = New System.Windows.Forms.ListBox() 63 | Me.Label3 = New System.Windows.Forms.Label() 64 | Me.Label2 = New System.Windows.Forms.Label() 65 | Me.MapTimer = New System.Windows.Forms.Timer(Me.components) 66 | Me.PictureBox1 = New System.Windows.Forms.PictureBox() 67 | Me.lbldebug = New System.Windows.Forms.Label() 68 | Me.PictureBox2 = New System.Windows.Forms.PictureBox() 69 | Me.gbxQuestInfo.SuspendLayout() 70 | CType(Me.nudSubBZeny, System.ComponentModel.ISupportInitialize).BeginInit() 71 | CType(Me.pboxMap, System.ComponentModel.ISupportInitialize).BeginInit() 72 | CType(Me.nudSubAZeny, System.ComponentModel.ISupportInitialize).BeginInit() 73 | CType(Me.nudMainZeny, System.ComponentModel.ISupportInitialize).BeginInit() 74 | CType(Me.nudQuestFee, System.ComponentModel.ISupportInitialize).BeginInit() 75 | CType(Me.nudSubBObjectiveDamage, System.ComponentModel.ISupportInitialize).BeginInit() 76 | CType(Me.nudSubAObjectiveDamage, System.ComponentModel.ISupportInitialize).BeginInit() 77 | CType(Me.nudMainObjectiveDamage, System.ComponentModel.ISupportInitialize).BeginInit() 78 | CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() 79 | CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() 80 | Me.SuspendLayout() 81 | ' 82 | 'OpenQuestFile 83 | ' 84 | Me.OpenQuestFile.DefaultExt = "bin" 85 | Me.OpenQuestFile.Title = "Select .bin File" 86 | ' 87 | 'btnLoadQuest 88 | ' 89 | Me.btnLoadQuest.Location = New System.Drawing.Point(12, 411) 90 | Me.btnLoadQuest.Name = "btnLoadQuest" 91 | Me.btnLoadQuest.Size = New System.Drawing.Size(99, 23) 92 | Me.btnLoadQuest.TabIndex = 1 93 | Me.btnLoadQuest.Text = "Load Quest" 94 | Me.btnLoadQuest.UseVisualStyleBackColor = True 95 | ' 96 | 'Label1 97 | ' 98 | Me.Label1.AutoSize = True 99 | Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 100 | Me.Label1.Location = New System.Drawing.Point(243, 113) 101 | Me.Label1.Name = "Label1" 102 | Me.Label1.Size = New System.Drawing.Size(25, 9) 103 | Me.Label1.TabIndex = 3 104 | Me.Label1.Text = "- Yuvi" 105 | ' 106 | 'gbxQuestInfo 107 | ' 108 | Me.gbxQuestInfo.Controls.Add(Me.nudSubBZeny) 109 | Me.gbxQuestInfo.Controls.Add(Me.pboxMap) 110 | Me.gbxQuestInfo.Controls.Add(Me.Label17) 111 | Me.gbxQuestInfo.Controls.Add(Me.nudSubAZeny) 112 | Me.gbxQuestInfo.Controls.Add(Me.Label16) 113 | Me.gbxQuestInfo.Controls.Add(Me.nudMainZeny) 114 | Me.gbxQuestInfo.Controls.Add(Me.Label15) 115 | Me.gbxQuestInfo.Controls.Add(Me.nudQuestFee) 116 | Me.gbxQuestInfo.Controls.Add(Me.Label14) 117 | Me.gbxQuestInfo.Controls.Add(Me.lbxVariant2b) 118 | Me.gbxQuestInfo.Controls.Add(Me.lbxVariant2a) 119 | Me.gbxQuestInfo.Controls.Add(Me.lbxVariant1b) 120 | Me.gbxQuestInfo.Controls.Add(Me.lbxVariant1a) 121 | Me.gbxQuestInfo.Controls.Add(Me.Label13) 122 | Me.gbxQuestInfo.Controls.Add(Me.Label12) 123 | Me.gbxQuestInfo.Controls.Add(Me.Label11) 124 | Me.gbxQuestInfo.Controls.Add(Me.Label10) 125 | Me.gbxQuestInfo.Controls.Add(Me.lblMonsterCords) 126 | Me.gbxQuestInfo.Controls.Add(Me.lblRank) 127 | Me.gbxQuestInfo.Controls.Add(Me.nudSubBObjectiveDamage) 128 | Me.gbxQuestInfo.Controls.Add(Me.nudSubAObjectiveDamage) 129 | Me.gbxQuestInfo.Controls.Add(Me.nudMainObjectiveDamage) 130 | Me.gbxQuestInfo.Controls.Add(Me.lbxSubBObjective) 131 | Me.gbxQuestInfo.Controls.Add(Me.lbxSubAObjective) 132 | Me.gbxQuestInfo.Controls.Add(Me.lbxMainObjective) 133 | Me.gbxQuestInfo.Controls.Add(Me.Label7) 134 | Me.gbxQuestInfo.Controls.Add(Me.Label9) 135 | Me.gbxQuestInfo.Controls.Add(Me.Label8) 136 | Me.gbxQuestInfo.Controls.Add(Me.Label5) 137 | Me.gbxQuestInfo.Controls.Add(Me.Label6) 138 | Me.gbxQuestInfo.Controls.Add(Me.Label4) 139 | Me.gbxQuestInfo.Controls.Add(Me.lbxLocation) 140 | Me.gbxQuestInfo.Controls.Add(Me.Label3) 141 | Me.gbxQuestInfo.Controls.Add(Me.Label2) 142 | Me.gbxQuestInfo.Location = New System.Drawing.Point(12, 134) 143 | Me.gbxQuestInfo.Name = "gbxQuestInfo" 144 | Me.gbxQuestInfo.Size = New System.Drawing.Size(529, 271) 145 | Me.gbxQuestInfo.TabIndex = 4 146 | Me.gbxQuestInfo.TabStop = False 147 | Me.gbxQuestInfo.Text = "Quest Info" 148 | ' 149 | 'nudSubBZeny 150 | ' 151 | Me.nudSubBZeny.Enabled = False 152 | Me.nudSubBZeny.Location = New System.Drawing.Point(414, 175) 153 | Me.nudSubBZeny.Maximum = New Decimal(New Integer() {9999999, 0, 0, 0}) 154 | Me.nudSubBZeny.Name = "nudSubBZeny" 155 | Me.nudSubBZeny.Size = New System.Drawing.Size(101, 20) 156 | Me.nudSubBZeny.TabIndex = 8 157 | ' 158 | 'pboxMap 159 | ' 160 | Me.pboxMap.Location = New System.Drawing.Point(337, -130) 161 | Me.pboxMap.Name = "pboxMap" 162 | Me.pboxMap.Size = New System.Drawing.Size(192, 124) 163 | Me.pboxMap.TabIndex = 5 164 | Me.pboxMap.TabStop = False 165 | ' 166 | 'Label17 167 | ' 168 | Me.Label17.AutoSize = True 169 | Me.Label17.Location = New System.Drawing.Point(402, 158) 170 | Me.Label17.Name = "Label17" 171 | Me.Label17.Size = New System.Drawing.Size(63, 13) 172 | Me.Label17.TabIndex = 7 173 | Me.Label17.Text = "Sub B Zeny" 174 | ' 175 | 'nudSubAZeny 176 | ' 177 | Me.nudSubAZeny.Enabled = False 178 | Me.nudSubAZeny.Location = New System.Drawing.Point(414, 125) 179 | Me.nudSubAZeny.Maximum = New Decimal(New Integer() {9999999, 0, 0, 0}) 180 | Me.nudSubAZeny.Name = "nudSubAZeny" 181 | Me.nudSubAZeny.Size = New System.Drawing.Size(101, 20) 182 | Me.nudSubAZeny.TabIndex = 8 183 | ' 184 | 'Label16 185 | ' 186 | Me.Label16.AutoSize = True 187 | Me.Label16.Location = New System.Drawing.Point(402, 108) 188 | Me.Label16.Name = "Label16" 189 | Me.Label16.Size = New System.Drawing.Size(63, 13) 190 | Me.Label16.TabIndex = 7 191 | Me.Label16.Text = "Sub A Zeny" 192 | ' 193 | 'nudMainZeny 194 | ' 195 | Me.nudMainZeny.Enabled = False 196 | Me.nudMainZeny.Location = New System.Drawing.Point(414, 77) 197 | Me.nudMainZeny.Maximum = New Decimal(New Integer() {9999999, 0, 0, 0}) 198 | Me.nudMainZeny.Name = "nudMainZeny" 199 | Me.nudMainZeny.Size = New System.Drawing.Size(101, 20) 200 | Me.nudMainZeny.TabIndex = 8 201 | ' 202 | 'Label15 203 | ' 204 | Me.Label15.AutoSize = True 205 | Me.Label15.Location = New System.Drawing.Point(402, 60) 206 | Me.Label15.Name = "Label15" 207 | Me.Label15.Size = New System.Drawing.Size(57, 13) 208 | Me.Label15.TabIndex = 7 209 | Me.Label15.Text = "Main Zeny" 210 | ' 211 | 'nudQuestFee 212 | ' 213 | Me.nudQuestFee.Enabled = False 214 | Me.nudQuestFee.Location = New System.Drawing.Point(414, 33) 215 | Me.nudQuestFee.Maximum = New Decimal(New Integer() {9999999, 0, 0, 0}) 216 | Me.nudQuestFee.Name = "nudQuestFee" 217 | Me.nudQuestFee.Size = New System.Drawing.Size(101, 20) 218 | Me.nudQuestFee.TabIndex = 8 219 | ' 220 | 'Label14 221 | ' 222 | Me.Label14.AutoSize = True 223 | Me.Label14.Location = New System.Drawing.Point(402, 16) 224 | Me.Label14.Name = "Label14" 225 | Me.Label14.Size = New System.Drawing.Size(56, 13) 226 | Me.Label14.TabIndex = 7 227 | Me.Label14.Text = "Quest Fee" 228 | ' 229 | 'lbxVariant2b 230 | ' 231 | Me.lbxVariant2b.Enabled = False 232 | Me.lbxVariant2b.FormattingEnabled = True 233 | Me.lbxVariant2b.Location = New System.Drawing.Point(253, 144) 234 | Me.lbxVariant2b.Name = "lbxVariant2b" 235 | Me.lbxVariant2b.Size = New System.Drawing.Size(128, 17) 236 | Me.lbxVariant2b.TabIndex = 6 237 | ' 238 | 'lbxVariant2a 239 | ' 240 | Me.lbxVariant2a.Enabled = False 241 | Me.lbxVariant2a.FormattingEnabled = True 242 | Me.lbxVariant2a.Location = New System.Drawing.Point(253, 107) 243 | Me.lbxVariant2a.Name = "lbxVariant2a" 244 | Me.lbxVariant2a.Size = New System.Drawing.Size(128, 17) 245 | Me.lbxVariant2a.TabIndex = 6 246 | ' 247 | 'lbxVariant1b 248 | ' 249 | Me.lbxVariant1b.Enabled = False 250 | Me.lbxVariant1b.FormattingEnabled = True 251 | Me.lbxVariant1b.Location = New System.Drawing.Point(253, 70) 252 | Me.lbxVariant1b.Name = "lbxVariant1b" 253 | Me.lbxVariant1b.Size = New System.Drawing.Size(128, 17) 254 | Me.lbxVariant1b.TabIndex = 6 255 | ' 256 | 'lbxVariant1a 257 | ' 258 | Me.lbxVariant1a.Enabled = False 259 | Me.lbxVariant1a.FormattingEnabled = True 260 | Me.lbxVariant1a.Location = New System.Drawing.Point(253, 33) 261 | Me.lbxVariant1a.Name = "lbxVariant1a" 262 | Me.lbxVariant1a.Size = New System.Drawing.Size(128, 17) 263 | Me.lbxVariant1a.TabIndex = 6 264 | ' 265 | 'Label13 266 | ' 267 | Me.Label13.AutoSize = True 268 | Me.Label13.Location = New System.Drawing.Point(250, 127) 269 | Me.Label13.Name = "Label13" 270 | Me.Label13.Size = New System.Drawing.Size(56, 13) 271 | Me.Label13.TabIndex = 5 272 | Me.Label13.Text = "Variant 2B" 273 | ' 274 | 'Label12 275 | ' 276 | Me.Label12.AutoSize = True 277 | Me.Label12.Location = New System.Drawing.Point(250, 90) 278 | Me.Label12.Name = "Label12" 279 | Me.Label12.Size = New System.Drawing.Size(56, 13) 280 | Me.Label12.TabIndex = 5 281 | Me.Label12.Text = "Variant 2A" 282 | ' 283 | 'Label11 284 | ' 285 | Me.Label11.AutoSize = True 286 | Me.Label11.Location = New System.Drawing.Point(250, 53) 287 | Me.Label11.Name = "Label11" 288 | Me.Label11.Size = New System.Drawing.Size(56, 13) 289 | Me.Label11.TabIndex = 5 290 | Me.Label11.Text = "Variant 1B" 291 | ' 292 | 'Label10 293 | ' 294 | Me.Label10.AutoSize = True 295 | Me.Label10.Location = New System.Drawing.Point(250, 16) 296 | Me.Label10.Name = "Label10" 297 | Me.Label10.Size = New System.Drawing.Size(56, 13) 298 | Me.Label10.TabIndex = 5 299 | Me.Label10.Text = "Variant 1A" 300 | ' 301 | 'lblMonsterCords 302 | ' 303 | Me.lblMonsterCords.AutoSize = True 304 | Me.lblMonsterCords.Location = New System.Drawing.Point(12, 239) 305 | Me.lblMonsterCords.Name = "lblMonsterCords" 306 | Me.lblMonsterCords.Size = New System.Drawing.Size(120, 13) 307 | Me.lblMonsterCords.TabIndex = 4 308 | Me.lblMonsterCords.Text = "Monster Starting Cords: " 309 | ' 310 | 'lblRank 311 | ' 312 | Me.lblRank.AutoSize = True 313 | Me.lblRank.Location = New System.Drawing.Point(12, 215) 314 | Me.lblRank.Name = "lblRank" 315 | Me.lblRank.Size = New System.Drawing.Size(74, 13) 316 | Me.lblRank.TabIndex = 4 317 | Me.lblRank.Text = "Hunter Rank: " 318 | ' 319 | 'nudSubBObjectiveDamage 320 | ' 321 | Me.nudSubBObjectiveDamage.Enabled = False 322 | Me.nudSubBObjectiveDamage.Location = New System.Drawing.Point(142, 165) 323 | Me.nudSubBObjectiveDamage.Maximum = New Decimal(New Integer() {9999999, 0, 0, 0}) 324 | Me.nudSubBObjectiveDamage.Name = "nudSubBObjectiveDamage" 325 | Me.nudSubBObjectiveDamage.Size = New System.Drawing.Size(80, 20) 326 | Me.nudSubBObjectiveDamage.TabIndex = 3 327 | ' 328 | 'nudSubAObjectiveDamage 329 | ' 330 | Me.nudSubAObjectiveDamage.Enabled = False 331 | Me.nudSubAObjectiveDamage.Location = New System.Drawing.Point(142, 116) 332 | Me.nudSubAObjectiveDamage.Maximum = New Decimal(New Integer() {9999999, 0, 0, 0}) 333 | Me.nudSubAObjectiveDamage.Name = "nudSubAObjectiveDamage" 334 | Me.nudSubAObjectiveDamage.Size = New System.Drawing.Size(80, 20) 335 | Me.nudSubAObjectiveDamage.TabIndex = 3 336 | ' 337 | 'nudMainObjectiveDamage 338 | ' 339 | Me.nudMainObjectiveDamage.Enabled = False 340 | Me.nudMainObjectiveDamage.Location = New System.Drawing.Point(142, 67) 341 | Me.nudMainObjectiveDamage.Maximum = New Decimal(New Integer() {9999999, 0, 0, 0}) 342 | Me.nudMainObjectiveDamage.Name = "nudMainObjectiveDamage" 343 | Me.nudMainObjectiveDamage.Size = New System.Drawing.Size(80, 20) 344 | Me.nudMainObjectiveDamage.TabIndex = 3 345 | ' 346 | 'lbxSubBObjective 347 | ' 348 | Me.lbxSubBObjective.Enabled = False 349 | Me.lbxSubBObjective.FormattingEnabled = True 350 | Me.lbxSubBObjective.Location = New System.Drawing.Point(28, 165) 351 | Me.lbxSubBObjective.Name = "lbxSubBObjective" 352 | Me.lbxSubBObjective.Size = New System.Drawing.Size(110, 30) 353 | Me.lbxSubBObjective.TabIndex = 2 354 | ' 355 | 'lbxSubAObjective 356 | ' 357 | Me.lbxSubAObjective.Enabled = False 358 | Me.lbxSubAObjective.FormattingEnabled = True 359 | Me.lbxSubAObjective.Location = New System.Drawing.Point(28, 116) 360 | Me.lbxSubAObjective.Name = "lbxSubAObjective" 361 | Me.lbxSubAObjective.Size = New System.Drawing.Size(110, 30) 362 | Me.lbxSubAObjective.TabIndex = 2 363 | ' 364 | 'lbxMainObjective 365 | ' 366 | Me.lbxMainObjective.Enabled = False 367 | Me.lbxMainObjective.FormattingEnabled = True 368 | Me.lbxMainObjective.Location = New System.Drawing.Point(28, 67) 369 | Me.lbxMainObjective.Name = "lbxMainObjective" 370 | Me.lbxMainObjective.Size = New System.Drawing.Size(110, 30) 371 | Me.lbxMainObjective.TabIndex = 2 372 | ' 373 | 'Label7 374 | ' 375 | Me.Label7.AutoSize = True 376 | Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 377 | Me.Label7.Location = New System.Drawing.Point(12, 149) 378 | Me.Label7.Name = "Label7" 379 | Me.Label7.Size = New System.Drawing.Size(81, 13) 380 | Me.Label7.TabIndex = 1 381 | Me.Label7.Text = "SubB Objective" 382 | ' 383 | 'Label9 384 | ' 385 | Me.Label9.AutoSize = True 386 | Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 387 | Me.Label9.Location = New System.Drawing.Point(153, 149) 388 | Me.Label9.Name = "Label9" 389 | Me.Label9.Size = New System.Drawing.Size(47, 13) 390 | Me.Label9.TabIndex = 1 391 | Me.Label9.Text = "Damage" 392 | ' 393 | 'Label8 394 | ' 395 | Me.Label8.AutoSize = True 396 | Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 397 | Me.Label8.Location = New System.Drawing.Point(153, 100) 398 | Me.Label8.Name = "Label8" 399 | Me.Label8.Size = New System.Drawing.Size(47, 13) 400 | Me.Label8.TabIndex = 1 401 | Me.Label8.Text = "Damage" 402 | ' 403 | 'Label5 404 | ' 405 | Me.Label5.AutoSize = True 406 | Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 407 | Me.Label5.Location = New System.Drawing.Point(153, 51) 408 | Me.Label5.Name = "Label5" 409 | Me.Label5.Size = New System.Drawing.Size(47, 13) 410 | Me.Label5.TabIndex = 1 411 | Me.Label5.Text = "Damage" 412 | ' 413 | 'Label6 414 | ' 415 | Me.Label6.AutoSize = True 416 | Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 417 | Me.Label6.Location = New System.Drawing.Point(12, 100) 418 | Me.Label6.Name = "Label6" 419 | Me.Label6.Size = New System.Drawing.Size(81, 13) 420 | Me.Label6.TabIndex = 1 421 | Me.Label6.Text = "SubA Objective" 422 | ' 423 | 'Label4 424 | ' 425 | Me.Label4.AutoSize = True 426 | Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 427 | Me.Label4.Location = New System.Drawing.Point(12, 51) 428 | Me.Label4.Name = "Label4" 429 | Me.Label4.Size = New System.Drawing.Size(78, 13) 430 | Me.Label4.TabIndex = 1 431 | Me.Label4.Text = "Main Objective" 432 | ' 433 | 'lbxLocation 434 | ' 435 | Me.lbxLocation.Enabled = False 436 | Me.lbxLocation.FormattingEnabled = True 437 | Me.lbxLocation.Location = New System.Drawing.Point(28, 31) 438 | Me.lbxLocation.Name = "lbxLocation" 439 | Me.lbxLocation.Size = New System.Drawing.Size(194, 17) 440 | Me.lbxLocation.TabIndex = 2 441 | ' 442 | 'Label3 443 | ' 444 | Me.Label3.AutoSize = True 445 | Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 446 | Me.Label3.Location = New System.Drawing.Point(12, 16) 447 | Me.Label3.Name = "Label3" 448 | Me.Label3.Size = New System.Drawing.Size(48, 13) 449 | Me.Label3.TabIndex = 1 450 | Me.Label3.Text = "Location" 451 | ' 452 | 'Label2 453 | ' 454 | Me.Label2.AutoSize = True 455 | Me.Label2.Location = New System.Drawing.Point(6, 31) 456 | Me.Label2.Name = "Label2" 457 | Me.Label2.Size = New System.Drawing.Size(0, 13) 458 | Me.Label2.TabIndex = 0 459 | ' 460 | 'MapTimer 461 | ' 462 | Me.MapTimer.Enabled = True 463 | Me.MapTimer.Interval = 500 464 | ' 465 | 'PictureBox1 466 | ' 467 | Me.PictureBox1.Image = Global.MHF_QuestEditor.My.Resources.Resources.Logo_MHFG 468 | Me.PictureBox1.Location = New System.Drawing.Point(-1, -1) 469 | Me.PictureBox1.Name = "PictureBox1" 470 | Me.PictureBox1.Size = New System.Drawing.Size(344, 160) 471 | Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage 472 | Me.PictureBox1.TabIndex = 2 473 | Me.PictureBox1.TabStop = False 474 | ' 475 | 'lbldebug 476 | ' 477 | Me.lbldebug.AutoSize = True 478 | Me.lbldebug.Location = New System.Drawing.Point(251, 416) 479 | Me.lbldebug.Name = "lbldebug" 480 | Me.lbldebug.Size = New System.Drawing.Size(39, 13) 481 | Me.lbldebug.TabIndex = 6 482 | Me.lbldebug.Text = "Label6" 483 | ' 484 | 'PictureBox2 485 | ' 486 | Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom 487 | Me.PictureBox2.Location = New System.Drawing.Point(349, 12) 488 | Me.PictureBox2.Name = "PictureBox2" 489 | Me.PictureBox2.Size = New System.Drawing.Size(192, 116) 490 | Me.PictureBox2.TabIndex = 7 491 | Me.PictureBox2.TabStop = False 492 | ' 493 | 'EditQuest 494 | ' 495 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 496 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 497 | Me.ClientSize = New System.Drawing.Size(551, 441) 498 | Me.Controls.Add(Me.PictureBox2) 499 | Me.Controls.Add(Me.lbldebug) 500 | Me.Controls.Add(Me.gbxQuestInfo) 501 | Me.Controls.Add(Me.Label1) 502 | Me.Controls.Add(Me.PictureBox1) 503 | Me.Controls.Add(Me.btnLoadQuest) 504 | Me.Name = "EditQuest" 505 | Me.Text = "Form1" 506 | Me.gbxQuestInfo.ResumeLayout(False) 507 | Me.gbxQuestInfo.PerformLayout() 508 | CType(Me.nudSubBZeny, System.ComponentModel.ISupportInitialize).EndInit() 509 | CType(Me.pboxMap, System.ComponentModel.ISupportInitialize).EndInit() 510 | CType(Me.nudSubAZeny, System.ComponentModel.ISupportInitialize).EndInit() 511 | CType(Me.nudMainZeny, System.ComponentModel.ISupportInitialize).EndInit() 512 | CType(Me.nudQuestFee, System.ComponentModel.ISupportInitialize).EndInit() 513 | CType(Me.nudSubBObjectiveDamage, System.ComponentModel.ISupportInitialize).EndInit() 514 | CType(Me.nudSubAObjectiveDamage, System.ComponentModel.ISupportInitialize).EndInit() 515 | CType(Me.nudMainObjectiveDamage, System.ComponentModel.ISupportInitialize).EndInit() 516 | CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() 517 | CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() 518 | Me.ResumeLayout(False) 519 | Me.PerformLayout() 520 | 521 | End Sub 522 | Friend WithEvents OpenQuestFile As OpenFileDialog 523 | Friend WithEvents SaveFileDialog1 As SaveFileDialog 524 | Friend WithEvents btnLoadQuest As Button 525 | Friend WithEvents PictureBox1 As PictureBox 526 | Friend WithEvents Label1 As Label 527 | Friend WithEvents gbxQuestInfo As GroupBox 528 | Friend WithEvents Label2 As Label 529 | Friend WithEvents Label3 As Label 530 | Friend WithEvents lbxMainObjective As ListBox 531 | Friend WithEvents Label4 As Label 532 | Friend WithEvents nudMainObjectiveDamage As NumericUpDown 533 | Friend WithEvents Label5 As Label 534 | Friend WithEvents MapTimer As Timer 535 | Friend WithEvents lbldebug As Label 536 | Friend WithEvents lbxSubBObjective As ListBox 537 | Friend WithEvents lbxSubAObjective As ListBox 538 | Friend WithEvents Label7 As Label 539 | Friend WithEvents Label6 As Label 540 | Friend WithEvents nudSubBObjectiveDamage As NumericUpDown 541 | Friend WithEvents nudSubAObjectiveDamage As NumericUpDown 542 | Friend WithEvents Label9 As Label 543 | Friend WithEvents Label8 As Label 544 | Friend WithEvents lbxLocation As ListBox 545 | Friend WithEvents lblRank As Label 546 | Friend WithEvents lbxVariant2b As ListBox 547 | Friend WithEvents lbxVariant2a As ListBox 548 | Friend WithEvents lbxVariant1b As ListBox 549 | Friend WithEvents lbxVariant1a As ListBox 550 | Friend WithEvents Label13 As Label 551 | Friend WithEvents Label12 As Label 552 | Friend WithEvents Label11 As Label 553 | Friend WithEvents Label10 As Label 554 | Friend WithEvents nudSubBZeny As NumericUpDown 555 | Friend WithEvents Label17 As Label 556 | Friend WithEvents nudSubAZeny As NumericUpDown 557 | Friend WithEvents Label16 As Label 558 | Friend WithEvents nudMainZeny As NumericUpDown 559 | Friend WithEvents Label15 As Label 560 | Friend WithEvents nudQuestFee As NumericUpDown 561 | Friend WithEvents Label14 As Label 562 | Friend WithEvents lblMonsterCords As Label 563 | Friend WithEvents pboxMap As PictureBox 564 | Friend WithEvents PictureBox2 As PictureBox 565 | End Class 566 | -------------------------------------------------------------------------------- /MHF-QuestEditor/EditQuest.resx: -------------------------------------------------------------------------------- 1 |  2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | text/microsoft-resx 110 | 111 | 112 | 2.0 113 | 114 | 115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | 118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 119 | 120 | 121 | 17, 17 122 | 123 | 124 | 159, 17 125 | 126 | 127 | 296, 17 128 | 129 | -------------------------------------------------------------------------------- /MHF-QuestEditor/EditQuest.vb: -------------------------------------------------------------------------------- 1 | Imports System.Text 2 | Imports System.IO 3 | Imports MHF_QuestEditor.DamienG.Security.Cryptography 4 | Imports MHF_QuestEditor.QuestInfo 5 | 6 | Public Class EditQuest 7 | 'Global Var. 8 | Dim QuestFilePath As String 9 | Dim MapTimer_Map 10 | Dim brInput 11 | 12 | 13 | 'Form Stuff 14 | Private Sub btnLoadQuest_Click(sender As Object, e As EventArgs) Handles btnLoadQuest.Click 15 | ClearFields() 16 | OpenFile() 17 | End Sub 18 | 19 | Private Sub btnCreateQuest_Click(sender As Object, e As EventArgs) 20 | ClearFields() 21 | PrepForm() 22 | End Sub 23 | 24 | 25 | 26 | '-----------------Functions----------------- 27 | Public Function ClearFields() 28 | lbxLocation.Items.Clear() 29 | lbxMainObjective.Items.Clear() 30 | lbxSubAObjective.Items.Clear() 31 | lbxSubBObjective.Items.Clear() 32 | nudMainObjectiveDamage.Value = 0 33 | nudSubAObjectiveDamage.Value = 0 34 | nudSubBObjectiveDamage.Value = 0 35 | End Function 36 | 37 | '-----Load Quest----- 38 | Public Shared Function ReadNullterminatedString(ByVal brInput As BinaryReader, ByVal encoding As Encoding) As String 39 | Dim charByteList = New List(Of Byte)() 40 | Dim str As String = "" 41 | 42 | If brInput.BaseStream.Position = brInput.BaseStream.Length Then 43 | Dim charByteArray As Byte() = charByteList.ToArray() 44 | str = encoding.GetString(charByteArray) 45 | Return str 46 | End If 47 | 48 | Dim b As Byte = brInput.ReadByte() 49 | 50 | While (b <> &H0) AndAlso (brInput.BaseStream.Position <> brInput.BaseStream.Length) 51 | charByteList.Add(b) 52 | b = brInput.ReadByte() 53 | End While 54 | 55 | Dim char_bytes As Byte() = charByteList.ToArray() 56 | str = encoding.GetString(char_bytes) 57 | Return str 58 | End Function 59 | 60 | Public Shared Function ReturnMonster(ByVal inputArray As Byte(), ByVal index As Integer) As String 61 | Dim monster As String = Nothing 62 | 63 | If Monsters.MonsterNames.TryGetValue(inputArray(index), monster) Then 64 | Else 65 | monster = BitConverter.ToInt16(inputArray, index).ToString() 66 | End If 67 | 68 | Return monster 69 | End Function 70 | 71 | Public Shared Function ReturnMonster(ByVal monsterID As Integer) As String 72 | Dim monster As String = Nothing 73 | 74 | If Monsters.MonsterNames.TryGetValue(CByte(monsterID), monster) Then 75 | Else 76 | monster = monsterID.ToString() 77 | End If 78 | 79 | Return monster 80 | End Function 81 | 82 | Public Shared Function ReturnInterception(ByVal inputArray As Byte()) As String 83 | Dim monster As String = "" 84 | Dim monsterAdd As String = Nothing 85 | 86 | For i As Integer = 377 To 382 - 1 87 | If inputArray(i) = 0 Then Continue For 88 | 89 | If Monsters.MonsterNames.TryGetValue(inputArray(i), monsterAdd) Then 90 | Else 91 | monsterAdd = BitConverter.ToSingle(inputArray, i).ToString() 92 | End If 93 | 94 | If i = 377 Then 95 | monster += monsterAdd 96 | Else 97 | monster += $", {monsterAdd}" 98 | End If 99 | Next 100 | 101 | Return monster 102 | End Function 103 | 104 | Public Shared Function ReturnItem(ByVal inputArray As Byte(), ByVal index As Integer) As String 105 | Dim item As String = Nothing 106 | 107 | If Items.ItemIDs.TryGetValue(BitConverter.ToInt16(inputArray, index), item) Then 108 | Else 109 | item = BitConverter.ToInt16(inputArray, index).ToString() 110 | End If 111 | 112 | Return item 113 | End Function 114 | 115 | Public Shared Function ReturnObjectiveHex(ByVal inputArray As Byte(), ByVal index As Integer) As String 116 | Return BitConverter.ToString(New Byte() {inputArray(index), inputArray(index + 1), inputArray(index + 2), inputArray(index + 3)}).Replace("-", "") 117 | End Function 118 | 119 | Public Function OpenFile() 120 | 'Call Dialog 121 | Dim result As DialogResult = OpenQuestFile.ShowDialog() 122 | If result = Windows.Forms.DialogResult.OK Then 123 | QuestFilePath = OpenQuestFile.FileName 124 | 'Calls GetQuestInfo to get crc and quest info of file. 125 | GetQuestInfo(QuestFilePath) 126 | 127 | 'Enabled Fields 128 | lbxLocation.Enabled = True 129 | lbxMainObjective.Enabled = True 130 | lbxSubAObjective.Enabled = True 131 | lbxSubBObjective.Enabled = True 132 | lbxVariant1a.Enabled = True 133 | lbxVariant1b.Enabled = True 134 | lbxVariant2a.Enabled = True 135 | lbxVariant2b.Enabled = True 136 | nudMainZeny.Enabled = True 137 | nudSubAZeny.Enabled = True 138 | nudSubBZeny.Enabled = True 139 | nudQuestFee.Enabled = True 140 | End If 141 | End Function 142 | 143 | Public Function GetQuestInfo(ByVal QuestFilePath As String) As Structs.QuestInfo 144 | 'Get CRC 145 | Dim crc32 = New Crc32() 146 | Dim hash = String.Empty 147 | Dim fs = File.Open(QuestFilePath, FileMode.Open) 148 | For Each b As Byte In crc32.ComputeHash(fs) 149 | hash += b.ToString("x2").ToLower() 150 | Next 151 | fs.Close() 152 | 153 | Dim inputArray As Byte() = File.ReadAllBytes(QuestFilePath) 154 | inputArray.Reverse() 155 | 156 | brInput = New BinaryReader(New FileStream(QuestFilePath, FileMode.Open)) 157 | 158 | 'Start to Load Quest File Info 159 | LoadLocations(inputArray) 160 | LoadMainObjective(inputArray) 161 | LoadSubAObjective(inputArray) 162 | LoadSubBObjective(inputArray) 163 | LoadRank(inputArray) 164 | 'LoadMonsterVariant(inputArray) 165 | LoadMoneyStuff(inputArray) 166 | 'LoadMonsterCords(inputArray) 167 | End Function 168 | 169 | Public Function LoadLocations(ByVal inputArray) 170 | Dim location As String = Nothing 171 | If (LocationList.Locations.TryGetValue(BitConverter.ToInt32(inputArray, 228), location)) Then 172 | lbxLocation.Items.Add(location) 173 | MapTimer_Map = location 174 | End If 175 | End Function 176 | 177 | Public Function LoadMainObjective(ByVal inputArray) 178 | Dim objectiveMainHex As String = ReturnObjectiveHex(inputArray, 240) 179 | Dim objectiveMainType As String = Nothing 180 | Dim ObjectiveMainQuant 181 | Dim MainObj As String = Nothing 182 | 183 | If QuestObj.Objectives.TryGetValue(objectiveMainHex, objectiveMainType) Then 184 | 185 | Else 186 | objectiveMainType = objectiveMainHex 187 | End If 188 | 189 | If objectiveMainType = "Hunt" Or objectiveMainType = "Slay" Or objectiveMainType = "Damage" Or objectiveMainType = "Slay or Damage" Or objectiveMainType = "Capture" Then 190 | MainObj = ReturnMonster(inputArray, 244) 191 | ElseIf objectiveMainType = "Break Part" Then 192 | MainObj = BitConverter.ToInt16(inputArray, 244).ToString() 193 | ElseIf objectiveMainType = "Slay All" Then 194 | MainObj = ReturnInterception(inputArray) 195 | Else MainObj = ReturnItem(inputArray, 244) 196 | End If 197 | 198 | lbxMainObjective.Items.Add(MainObj) 199 | 200 | ObjectiveMainQuant = BitConverter.ToInt16(inputArray, 246) 201 | If objectiveMainType = "Damage" OrElse objectiveMainType = "Slay or Damage" Then 202 | nudMainObjectiveDamage.Enabled = True 203 | ObjectiveMainQuant = ObjectiveMainQuant * 100 204 | nudMainObjectiveDamage.Value = ObjectiveMainQuant 205 | End If 206 | End Function 207 | 208 | Public Function LoadSubAObjective(ByVal inputArray) 209 | Dim objectiveSubAHex As String = ReturnObjectiveHex(inputArray, 248) 210 | Dim objectiveSubAType As String = Nothing 211 | Dim ObjectiveSubAQuant 212 | Dim SubAObj As String = Nothing 213 | 214 | If QuestObj.Objectives.TryGetValue(objectiveSubAHex, objectiveSubAType) Then 215 | 216 | Else 217 | objectiveSubAType = objectiveSubAHex 218 | End If 219 | 220 | If objectiveSubAType = "Hunt" Or objectiveSubAType = "Slay" Or objectiveSubAType = "Damage" Or objectiveSubAType = "Slay or Damage" Or objectiveSubAType = "Capture" Then 221 | SubAObj = ReturnMonster(inputArray, 252) 222 | ElseIf objectiveSubAType = "Break Part" Then 223 | SubAObj = BitConverter.ToInt16(inputArray, 252).ToString() 224 | ElseIf objectiveSubAType = "Slay All" Then 225 | SubAObj = ReturnInterception(inputArray) 226 | Else SubAObj = ReturnItem(inputArray, 252) 227 | End If 228 | 229 | If SubAObj = "0" Or SubAObj = Nothing Then 230 | SubAObj = "None" 231 | lbxSubAObjective.Items.Add(SubAObj) 232 | Else 233 | lbxSubAObjective.Items.Add(SubAObj) 234 | End If 235 | 236 | ObjectiveSubAQuant = BitConverter.ToInt16(inputArray, 254) 237 | If objectiveSubAType = "Damage" OrElse objectiveSubAType = "Slay or Damage" Then 238 | nudSubAObjectiveDamage.Enabled = True 239 | ObjectiveSubAQuant = ObjectiveSubAQuant * 100 240 | nudSubAObjectiveDamage.Value = ObjectiveSubAQuant 241 | End If 242 | End Function 243 | 244 | Public Function LoadSubBObjective(ByVal inputArray) 245 | Dim objectiveSubBHex As String = ReturnObjectiveHex(inputArray, 256) 246 | Dim objectiveSubBType As String = Nothing 247 | Dim ObjectiveSubBQuant 248 | Dim SubBObj As String = Nothing 249 | 250 | If QuestObj.Objectives.TryGetValue(objectiveSubBHex, objectiveSubBType) Then 251 | 252 | Else 253 | objectiveSubBType = objectiveSubBHex 254 | End If 255 | 256 | If objectiveSubBType = "Hunt" Or objectiveSubBType = "Slay" Or objectiveSubBType = "Damage" Or objectiveSubBType = "Slay or Damage" Or objectiveSubBType = "Capture" Then 257 | SubBObj = ReturnMonster(inputArray, 260) 258 | ElseIf objectiveSubBType = "Break Part" Then 259 | SubBObj = BitConverter.ToInt16(inputArray, 260).ToString() 260 | ElseIf objectiveSubBType = "Slay All" Then 261 | SubBObj = ReturnInterception(inputArray) 262 | Else SubBObj = ReturnItem(inputArray, 260) 263 | End If 264 | 265 | If SubBObj = "0" Or SubBObj = Nothing Then 266 | SubBObj = "None" 267 | lbxSubBObjective.Items.Add(SubBObj) 268 | Else 269 | lbxSubBObjective.Items.Add(SubBObj) 270 | End If 271 | 272 | ObjectiveSubBQuant = BitConverter.ToInt16(inputArray, 262) 273 | If objectiveSubBType = "Damage" OrElse objectiveSubBType = "Slay or Damage" Then 274 | nudSubBObjectiveDamage.Enabled = True 275 | ObjectiveSubBQuant = ObjectiveSubBQuant * 100 276 | nudSubBObjectiveDamage.Value = ObjectiveSubBQuant 277 | End If 278 | End Function 279 | 280 | Public Function LoadRank(ByVal inputArray) 281 | Dim StatTable 282 | If (Ranks.RankBands.TryGetValue(BitConverter.ToInt32(inputArray, 72), StatTable)) Then 283 | StatTable = $"{BitConverter.ToInt32(inputArray, 72)} | {StatTable}" 284 | lblRank.Text = "Hunter Rank: " & StatTable 285 | Else 286 | StatTable = BitConverter.ToInt32(inputArray, 72).ToString 287 | End If 288 | End Function 289 | 290 | Public Function LoadMonsterVariant(ByVal inputArray) 291 | Dim Variant1A = inputArray(337).ToString("X2") 292 | Dim Variant2A = inputArray(338).ToString("X2") 293 | Dim Variant1B = inputArray(345).ToString("X2") 294 | Dim Variant2B = inputArray(346).ToString("X2") 295 | lbxVariant1a.Items.Add(Variant1A) 296 | lbxVariant1b.Items.Add(Variant1B) 297 | lbxVariant2a.Items.Add(Variant2A) 298 | lbxVariant2b.Items.Add(Variant2B) 299 | End Function 300 | 301 | Public Function LoadMoneyStuff(ByVal inputArray) 302 | Dim QuestFee = BitConverter.ToInt32(inputArray, 204) 303 | Dim RewardMain = BitConverter.ToInt32(inputArray, 208) 304 | Dim RewardA = BitConverter.ToInt32(inputArray, 216) 305 | Dim RewardB = BitConverter.ToInt32(inputArray, 220) 306 | nudQuestFee.Value = QuestFee 307 | nudMainZeny.Value = RewardMain 308 | nudSubAZeny.Value = RewardA 309 | nudSubBZeny.Value = RewardB 310 | End Function 311 | 312 | Public Function LoadMonsterCords(ByVal inputarray) 313 | Dim monsterStart As Integer = BitConverter.ToInt32(inputarray, 24) 314 | Dim monsterTypePointer As Integer = BitConverter.ToInt32(inputarray, monsterStart + 8) 315 | Dim monsterSpawns As Integer = 0 316 | 317 | While BitConverter.ToInt32(inputarray, monsterTypePointer) > 0 318 | monsterTypePointer += 4 319 | monsterSpawns += 1 320 | End While 321 | Dim monsterStatPointer As Integer = BitConverter.ToInt32(inputarray, monsterStart + 12) 322 | Console.WriteLine($"{monsterStatPointer}") 323 | If monsterSpawns > 0 Then 324 | Dim MonsterData As Structs.MonsterSpawn() = New Structs.MonsterSpawn(monsterSpawns - 1) {} 325 | brInput.BaseStream.Seek(monsterStatPointer, SeekOrigin.Begin) 326 | For i As Integer = 0 To monsterSpawns - 1 327 | Dim cMon As Structs.MonsterSpawn = New Structs.MonsterSpawn() 328 | cMon.Monster = ReturnMonster(brInput.ReadInt32()) 329 | cMon.Unk1 = brInput.ReadInt32() 330 | cMon.Unk2 = brInput.ReadInt32() 331 | cMon.Unk3 = brInput.ReadInt32() 332 | cMon.Unk4 = brInput.ReadInt32() 333 | cMon.Unk5 = brInput.ReadInt32() 334 | cMon.Unk6 = brInput.ReadInt32() 335 | cMon.Unk7 = brInput.ReadInt32() 336 | cMon.XPos = brInput.ReadSingle() 337 | cMon.ZPos = brInput.ReadSingle() 338 | cMon.YPos = brInput.ReadSingle() 339 | cMon.Unk8 = brInput.ReadInt32() 340 | cMon.Unk9 = brInput.ReadInt32() 341 | cMon.Unk10 = brInput.ReadInt32() 342 | cMon.Unk11 = brInput.ReadInt32() 343 | MonsterData(i) = cMon 344 | lblMonsterCords.Text = $"Monster Starting Cords: X={cMon.XPos} Y={cMon.YPos} Z={cMon.ZPos}" 345 | Next 346 | brInput.Close() 347 | End If 348 | 349 | End Function 350 | '-----End Load Quest----- 351 | '-----Create Quest----- 352 | Public Function PrepForm() 353 | Dim Location As String = Nothing 354 | For Each kvp As KeyValuePair(Of Integer, String) In LocationList.Locations 355 | lbxLocation.Items.Add(kvp.Value) 356 | Next 357 | Dim Monster As String = Nothing 358 | For Each kvp As KeyValuePair(Of Byte, String) In Monsters.MonsterNames 359 | lbxMainObjective.Items.Add(kvp.Value) 360 | lbxSubAObjective.Items.Add(kvp.Value) 361 | lbxSubBObjective.Items.Add(kvp.Value) 362 | Next 363 | End Function 364 | '-----End Create Quest----- 365 | '-----------------END Functions----------------- 366 | 367 | 368 | 369 | 'Timers 370 | Private Sub MapTimer_Tick(sender As Object, e As EventArgs) Handles MapTimer.Tick 371 | Try 372 | PictureBox2.BackgroundImage = Image.FromFile("Assets/Maps/" + lbxLocation.GetItemText(lbxLocation.SelectedItem) + ".png") 373 | Catch ex As Exception 374 | 375 | End Try 376 | End Sub 377 | End Class 378 | -------------------------------------------------------------------------------- /MHF-QuestEditor/LocationList.vb: -------------------------------------------------------------------------------- 1 | Namespace QuestInfo 2 | Public Class LocationList 3 | Public Shared Locations As Dictionary(Of Integer, String) = New Dictionary(Of Integer, String)() From { 4 | {1, "Siege Fortress Day"}, 5 | {2, "Forest and Hills Day"}, 6 | {3, "Desert Day"}, 7 | {4, "Swamp Day"}, 8 | {5, "Volcano Day"}, 9 | {6, "Jungle Day"}, 10 | {7, "Castle Schrade"}, 11 | {8, "Crimson Battleground"}, 12 | {9, "Arena with Ledge Day"}, 13 | {10, "Arena with Pillar Day"}, 14 | {11, "Snowy Mountains Day"}, 15 | {12, "Town Siege Day"}, 16 | {13, "Tower 1"}, 17 | {14, "Tower 2"}, 18 | {15, "Tower 3"}, 19 | {16, "Forest and Hills Night"}, 20 | {17, "Desert Night"}, 21 | {18, "Swamp Night"}, 22 | {19, "Volcano Night"}, 23 | {20, "Jungle Night"}, 24 | {21, "Snowy Mountains Night"}, 25 | {22, "Town Siege night"}, 26 | {23, "Siege Fortress Night"}, 27 | {24, "Arena with Ledge Night"}, 28 | {25, "Arena with Pillar Night"}, 29 | {26, "Great Forest Day"}, 30 | {27, "Great Forest Night"}, 31 | {28, "Volcano 2 Day"}, 32 | {29, "Volcano 2 Night"}, 33 | {30, "Jungle Dream"}, 34 | {31, "Gorge Day"}, 35 | {32, "Gorge Night"}, 36 | {35, "Battlefield Day"}, 37 | {44, "Top of Great Forest"}, 38 | {45, "Caravan Balloon Day"}, 39 | {46, "Caravan Balloon Night"}, 40 | {47, "Solitude Isle 1"}, 41 | {48, "Solitude Isle 2"}, 42 | {49, "Solitude Isle 3"}, 43 | {50, "Highlands Day"}, 44 | {51, "Highlands Night"}, 45 | {52, "Tower with Nesthole"}, 46 | {53, "Arena with Moat Day"}, 47 | {54, "Arena with Moat Night"}, 48 | {55, "Fortress Day"}, 49 | {56, "Fortress Night"}, 50 | {57, "Tidal Island Day"}, 51 | {58, "Tidal Island Night"}, 52 | {60, "Polar Sea Day"}, 53 | {61, "Polar Sea Night"}, 54 | {62, "World's End"}, 55 | {63, "Large Airship"}, 56 | {64, "Flower Field Day"}, 57 | {65, "Flower Field Night"}, 58 | {66, "Deep Crater"}, 59 | {67, "Bamboo Forest Day"}, 60 | {68, "Bamboo Forest Night"}, 61 | {69, "Battlefield 2 Day"}, 62 | {70, "Unimplemented map"}, 63 | {71, "1st Dist Tower 1"}, 64 | {72, "1st Dist Tower 2"}, 65 | {73, "2nd Dist Tower 1"}, 66 | {74, "2nd Dist Tower 2"}, 67 | {75, "Urgent Tower"}, 68 | {76, "3rd Dist Tower"}, 69 | {77, "3rd Dist Tower 2?"}, 70 | {78, "4th Dist Tower"}, 71 | {79, "White Lake Day"}, 72 | {80, "White Lake Night"}, 73 | {81, "Solitude Depths Slay 1"}, 74 | {82, "Solitude Depths Slay 2?"}, 75 | {83, "Solitude Depths Slay 3?"}, 76 | {84, "Solitude Depths Slay 4?"}, 77 | {85, "Solitude Depths Slay 5?"}, 78 | {86, "Solitude Depths Support 1"}, 79 | {87, "Solitude Depths Support 2"}, 80 | {88, "Solitude Depths Support 3"}, 81 | {89, "Solitude Depths Support 4"}, 82 | {90, "Solitude Depths Support 5"}, 83 | {91, "Cloud Viewing Fortress"}, 84 | {92, "Painted Falls Day"}, 85 | {93, "Painted Falls Night"}, 86 | {94, "Sanctuary"}, 87 | {95, "Hunter's Road"}, 88 | {96, "Sacred Pinnacle"}, 89 | {97, "Historic Site"} 90 | } 91 | End Class 92 | End Namespace -------------------------------------------------------------------------------- /MHF-QuestEditor/MHF-QuestEditor.vbproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | Debug 6 | AnyCPU 7 | {5E3BE8E4-70F2-4FE2-9C47-A5F1D7ED9CB5} 8 | WinExe 9 | MHF_QuestEditor.My.MyApplication 10 | MHF_QuestEditor 11 | MHF-QuestEditor 12 | 512 13 | WindowsForms 14 | v4.7.2 15 | true 16 | true 17 | 18 | 19 | AnyCPU 20 | true 21 | full 22 | true 23 | true 24 | bin\Debug\ 25 | MHF-QuestEditor.xml 26 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 27 | 28 | 29 | AnyCPU 30 | pdbonly 31 | false 32 | true 33 | true 34 | bin\Release\ 35 | MHF-QuestEditor.xml 36 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 37 | 38 | 39 | On 40 | 41 | 42 | Binary 43 | 44 | 45 | Off 46 | 47 | 48 | On 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | CreateQuest.vb 78 | 79 | 80 | Form 81 | 82 | 83 | Create_Choose.vb 84 | 85 | 86 | Form 87 | 88 | 89 | Create_ChooseMonsterLocation.vb 90 | 91 | 92 | Form 93 | 94 | 95 | StartupForm.vb 96 | 97 | 98 | Form 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | Form 109 | 110 | 111 | EditQuest.vb 112 | Form 113 | 114 | 115 | 116 | True 117 | Application.myapp 118 | 119 | 120 | True 121 | True 122 | Resources.resx 123 | 124 | 125 | True 126 | Settings.settings 127 | True 128 | 129 | 130 | 131 | 132 | CreateQuest.vb 133 | 134 | 135 | Create_Choose.vb 136 | 137 | 138 | Create_ChooseMonsterLocation.vb 139 | 140 | 141 | EditQuest.vb 142 | 143 | 144 | StartupForm.vb 145 | 146 | 147 | VbMyResourcesResXFileCodeGenerator 148 | Resources.Designer.vb 149 | My.Resources 150 | Designer 151 | 152 | 153 | 154 | 155 | 156 | MyApplicationCodeGenerator 157 | Application.Designer.vb 158 | 159 | 160 | SettingsSingleFileGenerator 161 | My 162 | Settings.Designer.vb 163 | 164 | 165 | 166 | 167 | 168 | 169 | 170 | 171 | 172 | 173 | 174 | 175 | 176 | 177 | 178 | 179 | 180 | 181 | 182 | 183 | 184 | 185 | 186 | -------------------------------------------------------------------------------- /MHF-QuestEditor/Monsters.vb: -------------------------------------------------------------------------------- 1 | Namespace QuestInfo 2 | Public Class Monsters 3 | Public Shared MonsterNames As Dictionary(Of Byte, String) = New Dictionary(Of Byte, String)() From { 4 | {&H0, "None"}, 5 | {&H1, "Rathian"}, 6 | {&H2, "Fatalis"}, 7 | {&H3, "Kelbi"}, 8 | {&H4, "Mosswine"}, 9 | {&H5, "Bullfango"}, 10 | {&H6, "Yian Kut-Ku"}, 11 | {&H7, "Lao-Shan Lung"}, 12 | {&H8, "Cephadrome"}, 13 | {&H9, "Felyne"}, 14 | {&HA, "Veggie Elder"}, 15 | {&HB, "Rathalos"}, 16 | {&HC, "Aptonoth"}, 17 | {&HD, "Genprey"}, 18 | {&HE, "Diablos"}, 19 | {&HF, "Khezu"}, 20 | {&H10, "Velociprey"}, 21 | {&H11, "Gravios"}, 22 | {&H12, "Felyne?"}, 23 | {&H13, "Vespoid"}, 24 | {&H14, "Gypceros"}, 25 | {&H15, "Plesioth"}, 26 | {&H16, "Basarios"}, 27 | {&H17, "Melynx"}, 28 | {&H18, "Hornetaur"}, 29 | {&H19, "Apceros"}, 30 | {&H1A, "Monoblos"}, 31 | {&H1B, "Velocidrome"}, 32 | {&H1C, "Gendrome"}, 33 | {&H1D, "Rocks"}, 34 | {&H1E, "Ioprey"}, 35 | {&H1F, "Iodrome"}, 36 | {&H20, "Pugis"}, 37 | {&H21, "Kirin"}, 38 | {&H22, "Cephalos"}, 39 | {&H23, "Giaprey / Giadrome"}, 40 | {&H24, "Crimson Fatalis"}, 41 | {&H25, "Pink Rathian"}, 42 | {&H26, "Blue Yian Kut-Ku"}, 43 | {&H27, "Purple Gypceros"}, 44 | {&H28, "Yian Garuga"}, 45 | {&H29, "Silver Rathalos"}, 46 | {&H2A, "Gold Rathian"}, 47 | {&H2B, "Black Diablos"}, 48 | {&H2C, "White Monoblos"}, 49 | {&H2D, "Red Khezu"}, 50 | {&H2E, "Green Plesioth"}, 51 | {&H2F, "Black Gravios"}, 52 | {&H30, "Daimyo Hermitaur"}, 53 | {&H31, "Azure Rathalos"}, 54 | {&H32, "Ashen Lao-Shan Lung"}, 55 | {&H33, "Blangonga"}, 56 | {&H34, "Congalala"}, 57 | {&H35, "Rajang"}, 58 | {&H36, "Kushala Daora"}, 59 | {&H37, "Shen Gaoren"}, 60 | {&H38, "Great Thunderbug"}, 61 | {&H39, "Shakalaka"}, 62 | {&H3A, "Yama Tsukami"}, 63 | {&H3B, "Chameleos"}, 64 | {&H3C, "Rusted Kushala Daora"}, 65 | {&H3D, "Blango"}, 66 | {&H3E, "Conga"}, 67 | {&H3F, "Remobra"}, 68 | {&H40, "Lunastra"}, 69 | {&H41, "Teostra"}, 70 | {&H42, "Hermitaur"}, 71 | {&H43, "Shogun Ceanataur"}, 72 | {&H44, "Bulldrome"}, 73 | {&H45, "Anteka"}, 74 | {&H46, "Popo"}, 75 | {&H47, "White Fatalis"}, 76 | {&H48, "Yama Tsukami"}, 77 | {&H49, "Ceanataur"}, 78 | {&H4A, "Hypnocatrice"}, 79 | {&H4B, "Lavasioth"}, 80 | {&H4C, "Tigrex"}, 81 | {&H4D, "Akantor"}, 82 | {&H4E, "Bright Hypnoc"}, 83 | {&H4F, "Lavasioth Subspecies"}, 84 | {&H50, "Espinas"}, 85 | {&H51, "Orange Espinas"}, 86 | {&H52, "White Hypnoc"}, 87 | {&H53, "Akura Vashimu"}, 88 | {&H54, "Akura Jebia"}, 89 | {&H55, "Berukyurosu"}, 90 | {&H56, "Cactus"}, 91 | {&H57, "Gorge Objects"}, 92 | {&H58, "Gorge Rocks"}, 93 | {&H59, "Pariapuria"}, 94 | {&H5A, "White Espinas"}, 95 | {&H5B, "Kamu Orugaron"}, 96 | {&H5C, "Nono Orugaron"}, 97 | {&H5D, "Raviente"}, 98 | {&H5E, "Dyuragaua"}, 99 | {&H5F, "Doragyurosu"}, 100 | {&H60, "Gurenzeburu"}, 101 | {&H61, "Burukku"}, 102 | {&H62, "Erupe"}, 103 | {&H63, "Rukodiora"}, 104 | {&H64, "Unknown"}, 105 | {&H65, "Gogomoa"}, 106 | {&H66, "Kokomoa"}, 107 | {&H67, "Taikun Zamuza"}, 108 | {&H68, "Abiorugu"}, 109 | {&H69, "Kuarusepusu"}, 110 | {&H6A, "Odibatorasu"}, 111 | {&H6B, "Disufiroa"}, 112 | {&H6C, "Rebidiora"}, 113 | {&H6D, "Anorupatisu"}, 114 | {&H6E, "Hyujikiki"}, 115 | {&H6F, "Midogaron"}, 116 | {&H70, "Giaorugu"}, 117 | {&H71, "Mi Ru"}, 118 | {&H72, "Farunokku"}, 119 | {&H73, "Pokaradon"}, 120 | {&H74, "Shantien"}, 121 | {&H75, "Pokara"}, 122 | {&H76, "Dummy"}, 123 | {&H77, "Goruganosu"}, 124 | {&H78, "Aruganosu"}, 125 | {&H79, "Baruragaru"}, 126 | {&H7A, "Zerureusu"}, 127 | {&H7B, "Gougarf"}, 128 | {&H7C, "Uruki"}, 129 | {&H7D, "Forokururu"}, 130 | {&H7E, "Meraginasu"}, 131 | {&H7F, "Diorekkusu"}, 132 | {&H80, "Garuba Daora"}, 133 | {&H81, "Inagami"}, 134 | {&H82, "Varusaburosu"}, 135 | {&H83, "Poborubarumu"}, 136 | {&H84, "Duremudira"}, 137 | {&H85, "UNK"}, 138 | {&H86, "Felyne"}, 139 | {&H87, "Blue NPC"}, 140 | {&H88, "UNK"}, 141 | {&H89, "Cactus"}, 142 | {&H8A, "Veggie Elders"}, 143 | {&H8B, "Gureadomosu"}, 144 | {&H8C, "Harudomerugu"}, 145 | {&H8D, "Toridcless"}, 146 | {&H8E, "Gasurabazura"}, 147 | {&H8F, "Kusubami"}, 148 | {&H90, "Yama Kurai"}, 149 | {&H91, "Dure 3rd Phase"}, 150 | {&H92, "Zinogre"}, 151 | {&H93, "Deviljho"}, 152 | {&H94, "Brachydios"}, 153 | {&H95, "Berserk Laviente"}, 154 | {&H96, "Toa Tesukatora"}, 155 | {&H97, "Barioth"}, 156 | {&H98, "Uragaan"}, 157 | {&H99, "Stygian Zinogre"}, 158 | {&H9A, "Guanzorumu"}, 159 | {&H9B, "Starving Deviljho"}, 160 | {&H9C, "UNK"}, 161 | {&H9D, "Egyurasu"}, 162 | {&H9E, "Voljang"}, 163 | {&H9F, "Nargacuga"}, 164 | {&HA0, "Keoaruboru"}, 165 | {&HA1, "Zenaserisu"}, 166 | {&HA2, "Gore Magala"}, 167 | {&HA3, "Blinking Nargacuga"}, 168 | {&HA4, "Shagaru Magala"}, 169 | {&HA5, "Amatsu"}, 170 | {&HA6, "Eruzerion"}, 171 | {&HA7, "Musou Dure"}, 172 | {&HA8, "Rocks"}, 173 | {&HA9, "Seregios"}, 174 | {&HAA, "Bogabadorumu"}, 175 | {&HAB, "Unknown Blue Barrel"}, 176 | {&HAC, "Musou Bogabadorumu"}, 177 | {&HAD, "Costumed Uruki"}, 178 | {&HAE, "Musou Zerureusu"}, 179 | {&HAF, "PSO2 Rappy"}, 180 | {&HB0, "King Shakalaka"} 181 | } 182 | End Class 183 | End Namespace 184 | -------------------------------------------------------------------------------- /MHF-QuestEditor/My Project/Application.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.42000 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | 'NOTE: This file is auto-generated; do not modify it directly. To make changes, 18 | ' or if you encounter build errors in this file, go to the Project Designer 19 | ' (go to Project Properties or double-click the My Project node in 20 | ' Solution Explorer), and make changes on the Application tab. 21 | ' 22 | Partial Friend Class MyApplication 23 | 24 | _ 25 | Public Sub New() 26 | MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) 27 | Me.IsSingleInstance = false 28 | Me.EnableVisualStyles = true 29 | Me.SaveMySettingsOnExit = true 30 | Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses 31 | End Sub 32 | 33 | _ 34 | Protected Overrides Sub OnCreateMainForm() 35 | Me.MainForm = Global.MHF_QuestEditor.StartupForm 36 | End Sub 37 | End Class 38 | End Namespace 39 | -------------------------------------------------------------------------------- /MHF-QuestEditor/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | StartupForm 5 | false 6 | 0 7 | true 8 | 0 9 | true 10 | -------------------------------------------------------------------------------- /MHF-QuestEditor/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /MHF-QuestEditor/My Project/Resources.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.42000 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | Imports System 15 | 16 | Namespace My.Resources 17 | 18 | 'This class was auto-generated by the StronglyTypedResourceBuilder 19 | 'class via a tool like ResGen or Visual Studio. 20 | 'To add or remove a member, edit your .ResX file then rerun ResGen 21 | 'with the /str option, or rebuild your VS project. 22 | ''' 23 | ''' A strongly-typed resource class, for looking up localized strings, etc. 24 | ''' 25 | _ 29 | Friend Module Resources 30 | 31 | Private resourceMan As Global.System.Resources.ResourceManager 32 | 33 | Private resourceCulture As Global.System.Globalization.CultureInfo 34 | 35 | ''' 36 | ''' Returns the cached ResourceManager instance used by this class. 37 | ''' 38 | _ 39 | Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager 40 | Get 41 | If Object.ReferenceEquals(resourceMan, Nothing) Then 42 | Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("MHF_QuestEditor.Resources", GetType(Resources).Assembly) 43 | resourceMan = temp 44 | End If 45 | Return resourceMan 46 | End Get 47 | End Property 48 | 49 | ''' 50 | ''' Overrides the current thread's CurrentUICulture property for all 51 | ''' resource lookups using this strongly typed resource class. 52 | ''' 53 | _ 54 | Friend Property Culture() As Global.System.Globalization.CultureInfo 55 | Get 56 | Return resourceCulture 57 | End Get 58 | Set 59 | resourceCulture = value 60 | End Set 61 | End Property 62 | 63 | ''' 64 | ''' Looks up a localized resource of type System.Drawing.Bitmap. 65 | ''' 66 | Friend ReadOnly Property bg() As System.Drawing.Bitmap 67 | Get 68 | Dim obj As Object = ResourceManager.GetObject("bg", resourceCulture) 69 | Return CType(obj,System.Drawing.Bitmap) 70 | End Get 71 | End Property 72 | 73 | ''' 74 | ''' Looks up a localized resource of type System.Drawing.Bitmap. 75 | ''' 76 | Friend ReadOnly Property Logo_MHFG() As System.Drawing.Bitmap 77 | Get 78 | Dim obj As Object = ResourceManager.GetObject("Logo-MHFG", resourceCulture) 79 | Return CType(obj,System.Drawing.Bitmap) 80 | End Get 81 | End Property 82 | End Module 83 | End Namespace 84 | -------------------------------------------------------------------------------- /MHF-QuestEditor/My Project/Resources.resx: -------------------------------------------------------------------------------- 1 |  2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | text/microsoft-resx 110 | 111 | 112 | 2.0 113 | 114 | 115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | 118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 119 | 120 | 121 | 122 | ..\Assets\Logo-MHFG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a 123 | 124 | 125 | ..\Assets\bg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a 126 | 127 | -------------------------------------------------------------------------------- /MHF-QuestEditor/My Project/Settings.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.42000 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | _ 20 | Partial Friend NotInheritable Class MySettings 21 | Inherits Global.System.Configuration.ApplicationSettingsBase 22 | 23 | Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) 24 | 25 | #Region "My.Settings Auto-Save Functionality" 26 | #If _MyType = "WindowsForms" Then 27 | Private Shared addedHandler As Boolean 28 | 29 | Private Shared addedHandlerLockObject As New Object 30 | 31 | _ 32 | Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) 33 | If My.Application.SaveMySettingsOnExit Then 34 | My.Settings.Save() 35 | End If 36 | End Sub 37 | #End If 38 | #End Region 39 | 40 | Public Shared ReadOnly Property [Default]() As MySettings 41 | Get 42 | 43 | #If _MyType = "WindowsForms" Then 44 | If Not addedHandler Then 45 | SyncLock addedHandlerLockObject 46 | If Not addedHandler Then 47 | AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings 48 | addedHandler = True 49 | End If 50 | End SyncLock 51 | End If 52 | #End If 53 | Return defaultInstance 54 | End Get 55 | End Property 56 | End Class 57 | End Namespace 58 | 59 | Namespace My 60 | 61 | _ 64 | Friend Module MySettingsProperty 65 | 66 | _ 67 | Friend ReadOnly Property Settings() As Global.MHF_QuestEditor.My.MySettings 68 | Get 69 | Return Global.MHF_QuestEditor.My.MySettings.Default 70 | End Get 71 | End Property 72 | End Module 73 | End Namespace 74 | -------------------------------------------------------------------------------- /MHF-QuestEditor/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /MHF-QuestEditor/QuestObj.vb: -------------------------------------------------------------------------------- 1 | Namespace QuestInfo 2 | Public Class QuestObj 3 | Public Shared Objectives As Dictionary(Of String, String) = New Dictionary(Of String, String)() From { 4 | {"00000000", "None"}, 5 | {"01000000", "Hunt"}, 6 | {"01010000", "Capture"}, 7 | {"01020000", "Slay"}, 8 | {"04800000", "Damage"}, 9 | {"04800100", "Slay or Damage"}, 10 | {"00000400", "Slay All"}, 11 | {"00000200", "Slay Total"}, 12 | {"02000000", "Deliver"}, 13 | {"04400000", "Break Part"}, 14 | {"02100000", "Deliver Flag"}, 15 | {"10000000", "Esoteric Action"} 16 | } 17 | End Class 18 | End Namespace 19 | -------------------------------------------------------------------------------- /MHF-QuestEditor/Ranks.vb: -------------------------------------------------------------------------------- 1 | Namespace QuestInfo 2 | Public Class Ranks 3 | Public Shared RankBands As Dictionary(Of Integer, String) = New Dictionary(Of Integer, String)() From { 4 | {1, "Lower"}, 5 | {2, "Lower"}, 6 | {3, "Lower"}, 7 | {4, "Lower"}, 8 | {5, "Lower"}, 9 | {6, "Lower"}, 10 | {7, "Lower"}, 11 | {8, "Lower"}, 12 | {9, "Lower"}, 13 | {10, "Lower"}, 14 | {11, "Lower/Higher"}, 15 | {12, "Higher"}, 16 | {13, "Higher"}, 17 | {14, "Higher"}, 18 | {15, "Higher"}, 19 | {16, "Higher"}, 20 | {17, "Higher"}, 21 | {18, "Higher"}, 22 | {19, "Higher"}, 23 | {20, "Higher"}, 24 | {26, "HR5"}, 25 | {31, "HR5"}, 26 | {42, "HR5"}, 27 | {53, "G Rank"}, 28 | {54, "Musou 1"}, 29 | {55, "Musou 2"}, 30 | {64, "Z1"}, 31 | {65, "Z2"}, 32 | {66, "Z3"}, 33 | {67, "Z4"}, 34 | {71, "Interception"}, 35 | {72, "Interception"}, 36 | {73, "Interception"} 37 | } 38 | End Class 39 | End Namespace -------------------------------------------------------------------------------- /MHF-QuestEditor/Resources/font.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Yuvi-App/MHF-QuestEditor/cf7d8d826151a87ed99696d07beb1e796e3a8786/MHF-QuestEditor/Resources/font.bmp -------------------------------------------------------------------------------- /MHF-QuestEditor/StartupForm.Designer.vb: -------------------------------------------------------------------------------- 1 |  _ 2 | Partial Class StartupForm 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Me.Label1 = New System.Windows.Forms.Label() 26 | Me.btnCreate = New System.Windows.Forms.Button() 27 | Me.btnload = New System.Windows.Forms.Button() 28 | Me.PictureBox1 = New System.Windows.Forms.PictureBox() 29 | CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() 30 | Me.SuspendLayout() 31 | ' 32 | 'Label1 33 | ' 34 | Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 35 | Me.Label1.Location = New System.Drawing.Point(-3, 134) 36 | Me.Label1.Name = "Label1" 37 | Me.Label1.Size = New System.Drawing.Size(395, 41) 38 | Me.Label1.TabIndex = 1 39 | Me.Label1.Text = "Quest Creator / Editor" 40 | Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter 41 | ' 42 | 'btnCreate 43 | ' 44 | Me.btnCreate.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 45 | Me.btnCreate.Location = New System.Drawing.Point(12, 191) 46 | Me.btnCreate.Name = "btnCreate" 47 | Me.btnCreate.Size = New System.Drawing.Size(94, 71) 48 | Me.btnCreate.TabIndex = 2 49 | Me.btnCreate.Text = "Create Quest" 50 | Me.btnCreate.UseVisualStyleBackColor = True 51 | ' 52 | 'btnload 53 | ' 54 | Me.btnload.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 55 | Me.btnload.Location = New System.Drawing.Point(285, 191) 56 | Me.btnload.Name = "btnload" 57 | Me.btnload.Size = New System.Drawing.Size(94, 71) 58 | Me.btnload.TabIndex = 2 59 | Me.btnload.Text = "Edit Quest" 60 | Me.btnload.UseVisualStyleBackColor = True 61 | ' 62 | 'PictureBox1 63 | ' 64 | Me.PictureBox1.Image = Global.MHF_QuestEditor.My.Resources.Resources.Logo_MHFG 65 | Me.PictureBox1.Location = New System.Drawing.Point(-3, -63) 66 | Me.PictureBox1.Name = "PictureBox1" 67 | Me.PictureBox1.Size = New System.Drawing.Size(395, 284) 68 | Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom 69 | Me.PictureBox1.TabIndex = 0 70 | Me.PictureBox1.TabStop = False 71 | ' 72 | 'StartupForm 73 | ' 74 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 75 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 76 | Me.BackColor = System.Drawing.SystemColors.ControlLight 77 | Me.ClientSize = New System.Drawing.Size(391, 274) 78 | Me.Controls.Add(Me.btnload) 79 | Me.Controls.Add(Me.btnCreate) 80 | Me.Controls.Add(Me.Label1) 81 | Me.Controls.Add(Me.PictureBox1) 82 | Me.Name = "StartupForm" 83 | Me.Text = "Monster Hunter Frontier Quest Create / Editor" 84 | CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() 85 | Me.ResumeLayout(False) 86 | 87 | End Sub 88 | 89 | Friend WithEvents PictureBox1 As PictureBox 90 | Friend WithEvents Label1 As Label 91 | Friend WithEvents btnCreate As Button 92 | Friend WithEvents btnload As Button 93 | End Class 94 | -------------------------------------------------------------------------------- /MHF-QuestEditor/StartupForm.resx: -------------------------------------------------------------------------------- 1 |  2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | text/microsoft-resx 110 | 111 | 112 | 2.0 113 | 114 | 115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | 118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 119 | 120 | -------------------------------------------------------------------------------- /MHF-QuestEditor/StartupForm.vb: -------------------------------------------------------------------------------- 1 | Imports System.Drawing.Text 2 | 3 | Public Class StartupForm 4 | Private Sub btnCreate_Click(sender As Object, e As EventArgs) Handles btnCreate.Click 5 | CreateQuest.Show() 6 | My.Computer.Audio.Play("Assets/Sounds/create.wav") 7 | End Sub 8 | 9 | Private Sub StartupForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load 10 | 11 | End Sub 12 | 13 | Private Sub btnload_Click(sender As Object, e As EventArgs) Handles btnload.Click 14 | EditQuest.Show() 15 | My.Computer.Audio.Play("Assets/Sounds/load.wav") 16 | End Sub 17 | End Class -------------------------------------------------------------------------------- /MHF-QuestEditor/Structs.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Collections.Generic 3 | Imports System.Linq 4 | Imports System.Text 5 | Imports System.Threading.Tasks 6 | 7 | Namespace QuestInfo 8 | Public Class Structs 9 | Public Class QuestInfo 10 | Public FileName As String 11 | Public CRC32 As String 12 | Public Location As String 13 | Public StatTable As String 14 | Public Variant1A As String 15 | Public Variant2A As String 16 | Public Variant1B As String 17 | Public Variant2B As String 18 | Public ObjectiveMainType As String 19 | Public ObjectiveMain As String 20 | Public ObjectiveMainQuant As Int32 21 | Public ObjectiveAType As String 22 | Public ObjectiveA As String 23 | Public ObjectiveAQuant As Int32 24 | Public ObjectiveBType As String 25 | Public ObjectiveB As String 26 | Public ObjectiveBQuant As Int32 27 | Public QuestFee As Int32 28 | Public RewardMain As Int32 29 | Public RewardA As Int32 30 | Public RewardB As Int32 31 | Public QuestTypeName As String 32 | Public ObjMainString As String 33 | Public ObjAString As String 34 | Public ObjBString As String 35 | Public ClearReqString As String 36 | Public FailReqString As String 37 | Public HirerString As String 38 | Public DescriptString As String 39 | Public DeliveryString As String 40 | Public RewardsString As String 41 | End Class 42 | 43 | Public Class MonsterSpawn 44 | Public Monster As String 45 | Public Unk1 As Int32 46 | Public Unk2 As Int32 47 | Public Unk3 As Int32 48 | Public Unk4 As Int32 49 | Public Unk5 As Int32 50 | Public Unk6 As Int32 51 | Public Unk7 As Int32 52 | Public Unk8 As Int32 53 | Public XPos As Double 54 | Public YPos As Double 55 | Public ZPos As Double 56 | Public Unk9 As Int32 57 | Public Unk10 As Int32 58 | Public Unk11 As Int32 59 | Public Unk12 As Int32 60 | End Class 61 | End Class 62 | End Namespace 63 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # MHF-QuestEditor 2 | For creating and modifying quest for MH:F 3 | 4 | Most of all the UI Work is all done for creating the quest alongside most of the codes. 5 | reading quest is working too. 6 | Just need to work on writing back all the data. 7 | 8 | Syncing the work to save my progress at this time. 9 | Lots of images and other work still needs to be added for everything to be fluid. 10 | 11 | Put assets folder into main program location, or else it will crash. 12 | 13 | ![alt text](https://s3.yuvi.app/GamePreservation/MonsterHunterFrontier/GitHub/mg-qe1.png "") 14 | ![alt text](https://s3.yuvi.app/GamePreservation/MonsterHunterFrontier/GitHub/mg-qe2.png "") 15 | ![alt text](https://s3.yuvi.app/GamePreservation/MonsterHunterFrontier/GitHub/mg-qe3.png "") 16 | --------------------------------------------------------------------------------