+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Resources (https://mirage-engine.uk/forums/forumdisplay.php?fid=49)
+---- Thread: Never map again! The all-new fully automated mapmaker 2008! (/showthread.php?tid=2318)
Never map again! The all-new fully automated mapmaker 2008! - Joost - 29-10-2008
Are you tired of mapping? Do you want technology to do your work for you? NOW IT'S POSSIBLE!
What you can do with this pro 1337 code!
Go fromthis to this
Or change this into this
Or why not even change this into this
Disclaimer, last ss looks bad because of crappy corner tiles, they should however demonstrate how cool my tut is. Furthermore,
The tut will probably cause a few RTE's, because of x'es/y'es being too small or large, add an If X > 0 where the code crashes = fix.
The code will get frustrated if you place tiles in a u-bent, it wont know which tile will go in the middle. Same if you place one tile, nothing, one tile. If you don't understand this, don't worry, you'll see it for yourself. For the rest.
The code uses the GROUND layer, you just place your main tile, you rightclick your main tile in the MapEditor if you want to AutoTile it, and press whatever caption you gave to CmdAutoTile
The code has NOT been properly tested. IT was made for that new version of MS, but I don't guarantee it'll work. Have fun with it.
Step one,
add
Code:
Public AutoTileX As Long
Public AutoTileY As Long
Public Counter As LongStep two,
Go to the MapEditor, and make a button called CmdAutoTile, and copy PicSelect and rename it to PicAutoTile!
Step three!!
Add this code in FrmMirage :
Code:
Private Sub CmdAutotile_Click()
Dim x As Byte, y As Byte
Dim Space As Integer
Dim FilledAlready(0 To MAX_MAPX, 0 To MAX_MAPY) As Boolean
Space = AutoTileY * TILESHEET_WIDTH + AutoTileX
For x = 0 To MAX_MAPX
For y = 0 To MAX_MAPY
If Map.Tile(x, y).Ground = Space Then
If x < MAX_MAPX Then
If Map.Tile(x + 1, y).Ground Space Then
Map.Tile(x + 1, y).Ground = (AutoTileY) * TILESHEET_WIDTH + AutoTileX + 1
If FilledAlready(x + 1, y) = True Then
'Wow, it's a corner!!!
If Map.Tile(x + 1, y + 1).Ground = Space Then
Map.Tile(x + 1, y).Ground = (AutoTileY - 1) * TILESHEET_WIDTH - AutoTileX + 1
ElseIf Map.Tile(x + 1, y - 1).Ground = Space Then
Map.Tile(x + 1, y).Ground = (AutoTileY + 1) * TILESHEET_WIDTH - AutoTileX + 1
End If
Else
FilledAlready(x + 1, y) = True
End If
End If
End If
If x > 0 Then
If Map.Tile(x - 1, y).Ground Space Then
Map.Tile(x - 1, y).Ground = (AutoTileY) * TILESHEET_WIDTH + AutoTileX - 1
If FilledAlready(x - 1, y) = True Then
'Wow, it's a corner!!!
If Map.Tile(x - 1, y - 1).Ground = Space Then
Map.Tile(x - 1, y).Ground = (AutoTileY + 1) * TILESHEET_WIDTH + AutoTileX - 1
ElseIf Map.Tile(x - 1, y + 1).Ground = Space Then
Map.Tile(x - 1, y).Ground = (AutoTileY - 1) * TILESHEET_WIDTH + AutoTileX - 1
End If
Else
FilledAlready(x - 1, y) = True
End If
End If
End If
If y > 0 Then
If Map.Tile(x, y - 1).Ground Space Then
Map.Tile(x, y - 1).Ground = (AutoTileY - 1) * TILESHEET_WIDTH + (AutoTileX)
If FilledAlready(x, y - 1) = True Then
If x > 0 Then
If Map.Tile(x - 1, y - 1).Ground = Space Then
Map.Tile(x, y - 1).Ground = (AutoTileY - 1) * TILESHEET_WIDTH + AutoTileX + 1
ElseIf Map.Tile(x + 1, y + 1).Ground = Space Then
Map.Tile(x, y - 1).Ground = (AutoTileY - 1) * TILESHEET_WIDTH + AutoTileX - 1
End If
End If
Else
FilledAlready(x, y - 1) = True
End If
End If
End If
If y < MAX_MAPY Then
If Map.Tile(x, y + 1).Ground Space Then
Map.Tile(x, y + 1).Ground = (AutoTileY + 1) * TILESHEET_WIDTH + (AutoTileX)
If FilledAlready(x, y + 1) = True Then
If Map.Tile(x - 1, y - 1).Ground = Space Then
Map.Tile(x, y + 1).Ground = (AutoTileY + 1) * TILESHEET_WIDTH + AutoTileX + 1
ElseIf Map.Tile(x + 1, y + 1).Ground = Space Then
Map.Tile(x, y + 1).Ground = (AutoTileY - 1) * TILESHEET_WIDTH + AutoTileX + 1
End If
Else
FilledAlready(x, y + 1) = True
End If
End If
End If
End If
Next y
Next x
End SubStep four,
Replace Public Sub MapEditorChooseTile
with this :
Code:
Public Sub MapEditorChooseTile(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
EditorTileX = x \ PIC_X
EditorTileY = y \ PIC_Y
frmMirage.shpSelected.Top = EditorTileY * PIC_X
frmMirage.shpSelected.Left = EditorTileX * PIC_Y
Call BltMapEditorTilePreview
Else
If Button = vbRightButton Then
AutoTileX = x \ PIC_X
AutoTileY = y \ PIC_Y
frmMirage.shpSelected.Top = AutoTileX * PIC_X
frmMirage.shpSelected.Left = AutoTileY * PIC_Y
Call BltMapEditorAutoTilePreview
End If
End If
End SubRe: Never map again! The all-new fully automated mapmaker 2008! - Joost - 31-10-2008
Why doesn't anyone reply =(?
Re: Never map again! The all-new fully automated mapmaker 2008! - William - 31-10-2008
I checked the screenshots and such, but I think adding this to a game is more trouble making than actually mapping it yourself. At least if you use scrolling maps. But I guess it's a very usefull tool if you don't use scrolling maps.
It's a very original tutorial so thats cool ^^
Re: Never map again! The all-new fully automated mapmaker 2008! - Labmonkey - 01-11-2008
I did this already on elysium.Oh well, your code is probably better lol.
Good Job Joost!
Re: Never map again! The all-new fully automated mapmaker 2008! - Joost - 01-11-2008
Actually I dimmed one Public Long that isn't even being used, and using another PicBox for the auto-tiling is a waste of space. So gonna re-do that today, cause it's quite ez to re-do this part lal ;p.
Re: Never map again! The all-new fully automated mapmaker 2008! - Aydan - 04-11-2008
Looks like a great idea!
I'll give it a try later on when you update the tutorial. If it works it should be a great little addition to any game.