mirror of
https://github.com/Gamer2020/PokemonGameEditor.git
synced 2026-08-06 09:42:47 -05:00
adc0696c32
Finally got around to uploading the source code. There are still things to be done. Once a couple of things are fixed a released will be made. In the mean time people that know how to compile the program can do so but make sure to adhere to the license.
75 lines
2.6 KiB
VB.net
75 lines
2.6 KiB
VB.net
Imports System.IO
|
|
|
|
|
|
|
|
Module mMain
|
|
|
|
Public LoadedROM As String
|
|
Public AppPath As String = System.AppDomain.CurrentDomain.BaseDirectory() & IIf(Right(System.AppDomain.CurrentDomain.BaseDirectory(), 1) = "\", "", "\")
|
|
Public i As Integer
|
|
Public FileNum As Integer
|
|
Public header As String = "xxxx"
|
|
Public header2 As String
|
|
Public header3 As String
|
|
Public lwut As String
|
|
Public SkipVar As Integer
|
|
Public x As Integer
|
|
|
|
'For Map Edit
|
|
Public Point2MapBankPointers As String
|
|
Public MapBankPointers As String
|
|
Public HeaderPointer As String
|
|
Public MapBank As String
|
|
Public MapNumber As String
|
|
Public BankOffset As String
|
|
Public HeaderOffset As String
|
|
Public MapData As String
|
|
Public Const TileSetSize As Integer = 16
|
|
Public Const TileSize As Integer = 8 'constant used for tile sizes.
|
|
Public Const TileWidth As Integer = 8
|
|
Public Const TilesPerRow As Integer = 16
|
|
|
|
'These are all the buffers for creating the graphics for the tilesets.
|
|
Public TilesBackbuffer As Bitmap
|
|
Public TilesetMapBackbuffer As Bitmap
|
|
Public TilesGraphics As Graphics
|
|
Public TilesetMapGraphics As Graphics
|
|
Public TilesBackbuffer2 As Bitmap
|
|
Public TilesetMapBackbuffer2 As Bitmap
|
|
Public TilesGraphics2 As Graphics
|
|
Public TilesetMapGraphics2 As Graphics
|
|
|
|
'These are variables for keeping track of which tile is selected in the tile editor
|
|
Public TileEditorTilesCurrentTile As Integer
|
|
Public TileEditorTilesetCurrentTile As Integer
|
|
|
|
'These are arrays that keep track of which tiles go where.
|
|
'There are two because I am using two picture boxes.
|
|
'I do not know how to draw two images and over lay them to the same picturebox.
|
|
'I figured it would be easier to just overlay to pictureboxes.
|
|
'I just noticed that pictureboxes have a background image... Hmm...
|
|
Public TilesetBottomLayer As Integer(,)
|
|
Public TilesetTopLayer As Integer(,)
|
|
Public TilesetHeight As Integer
|
|
Public TilesetWidth As Integer
|
|
|
|
'These are the buffers for the actual tileset and it's buffers.
|
|
Public TilesetBackbuffer As Bitmap
|
|
Public MapBackbuffer As Bitmap
|
|
Public TilesetGraphics As Graphics
|
|
Public MapGraphics As Graphics
|
|
|
|
'This keeps track of current tiles in the map editor.
|
|
Public MapEditorTilesetCurrentTile As Integer
|
|
Public MapEditorMapCurrentTile As Integer
|
|
|
|
'This keeps track of the images for the map.
|
|
'The Map variable is very important cause it is the one used for saving.
|
|
Public Map As Integer(,)
|
|
Public MapTiles1 As Integer(,)
|
|
Public MapTiles2 As Integer(,)
|
|
|
|
|
|
|
|
End Module
|