[EO] Minimap 1.3

[Mr.LLoyd]

Now i dont get error but there is no minimap

[Zopto]

are you create on,off buttons like he say in tutorial??

[Mr.LLoyd]

yes

>! 

[Zopto]

chage sub
```
Sub BltMiniMap()
Dim i As Long
Dim X As Integer, Y As Integer
Dim Direction As Byte
Dim CameraX As Long, CameraY As Long
Dim BlockRect As RECT, WarpRect As RECT, ItemRect As RECT, ShopRect As RECT, NpcOtherRect As RECT, PlayerRect As RECT, PlayerPkRect As RECT, NpcAttackerRect As RECT, NpcShopRect As RECT, NadaRect As RECT
Dim MapX As Long, MapY As Long

' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

MapX = Map.MaxX
MapY = Map.MaxY

' ************
' *** Nada ***
' ************
With NadaRect
.top = 4
.Bottom = .top + 4
.Left = 0
.Right = .Left + 4
End With

' Defini-lo no minimap
For X = 0 To MapX
For Y = 0 To MapY
CameraX = Camera.Left + 650 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Engine_BltFast CameraX, CameraY, DDS_MiniMap, NadaRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
Next Y
Next X

' *****************
' *** Atributos ***
' *****************

' Bloqueio
With BlockRect
.top = 4
.Bottom = .top + 4
.Left = 4
.Right = .Left + 4
End With

' Warp
With WarpRect
.top = 4
.Bottom = .top + 4
.Left = 8
.Right = .Left + 4
End With

' Item
With ItemRect
.top = 4
.Bottom = .top + 4
.Left = 12
.Right = .Left + 4
End With

' Shop
With ShopRect
.top = 4
.Bottom = .top + 4
.Left = 16
.Right = .Left + 4
End With

' Defini-los no minimap
For X = 0 To MapX
For Y = 0 To MapY
Select Case Map.Tile(X, Y).Type
Case TILE_TYPE_BLOCKED
CameraX = Camera.Left + 650 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Engine_BltFast CameraX, CameraY, DDS_MiniMap, BlockRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
Case TILE_TYPE_WARP
CameraX = Camera.Left + 650 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Engine_BltFast CameraX, CameraY, DDS_MiniMap, WarpRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
Case TILE_TYPE_ITEM
CameraX = Camera.Left + 650 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Engine_BltFast CameraX, CameraY, DDS_MiniMap, ItemRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
Case TILE_TYPE_SHOP
CameraX = Camera.Left + 650 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Engine_BltFast CameraX, CameraY, DDS_MiniMap, ShopRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
End Select
Next Y
Next X

' **************
' *** Player ***
' **************

' Normal
With PlayerRect
.top = 0
.Bottom = .top + 4
.Left = 4
.Right = .Left + 4
End With

' Pk
With PlayerPkRect
.top = 0
.Bottom = .top + 4
.Left = 8
.Right = .Left + 4
End With

' Defini-los no minimap
For i = 1 To Player_HighIndex
If IsPlaying(i) Then
Select Case Player(i).PK
Case 0
X = Player(i).X
Y = Player(i).Y
CameraX = Camera.Left + 650 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Call DDS_BackBuffer.BltFast(CameraX, CameraY, DDS_MiniMap, PlayerRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
Case 1
X = Player(i).X
Y = Player(i).Y
CameraX = Camera.Left + 650 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Call DDS_BackBuffer.BltFast(CameraX, CameraY, DDS_MiniMap, PlayerPkRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
End Select
End If
Next i

' ***********
' *** NPC ***
' ***********

' Atacar ao ser atacado e quando for atacado
With NpcAttackerRect
.top = 0
.Bottom = .top + 4
.Left = 12
.Right = .Left + 4
End With

' Vendendor
With NpcShopRect
.top = 0
.Bottom = .top + 4
.Left = 16
.Right = .Left + 4
End With

' Outros
With NpcOtherRect
.top = 0
.Bottom = .top + 4
.Left = 20
.Right = .Left + 4
End With

' Defini-lo no minimap
For i = 1 To Npc_HighIndex
If MapNpc(i).num > 0 Then
Select Case NPC(i).Behaviour
Case NPC_BEHAVIOUR_ATTACKONSIGHT Or NPC_BEHAVIOUR_ATTACKWHENATTACKED
X = MapNpc(i).X
Y = MapNpc(i).Y
CameraX = Camera.Left + 650 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Call DDS_BackBuffer.BltFast(CameraX, CameraY, DDS_MiniMap, NpcAttackerRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
Case NPC_BEHAVIOUR_SHOPKEEPER
X = MapNpc(i).X
Y = MapNpc(i).Y
CameraX = Camera.Left + 650 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Call DDS_BackBuffer.BltFast(CameraX, CameraY, DDS_MiniMap, NpcShopRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
Case Else
X = MapNpc(i).X
Y = MapNpc(i).Y
CameraX = Camera.Left + 650 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Call DDS_BackBuffer.BltFast(CameraX, CameraY, DDS_MiniMap, NpcOtherRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
End Select
End If
Next i

' Error handler
Exit Sub
errorhandler:
HandleError "BltMiniMap", "modDirectDraw7", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub
```
in this:

```
Sub BltMiniMap()
Dim i As Long
Dim X As Integer, Y As Integer
Dim Direction As Byte
Dim CameraX As Long, CameraY As Long
Dim BlockRect As RECT, WarpRect As RECT, ItemRect As RECT, ShopRect As RECT, NpcOtherRect As RECT, PlayerRect As RECT, PlayerPkRect As RECT, NpcAttackerRect As RECT, NpcShopRect As RECT, NadaRect As RECT
Dim MapX As Long, MapY As Long

' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

MapX = Map.MaxX
MapY = Map.MaxY

' ************
' *** Nada ***
' ************
With NadaRect
.top = 4
.Bottom = .top + 4
.Left = 0
.Right = .Left + 4
End With

' Defini-lo no minimap
For X = 0 To MapX
For Y = 0 To MapY
CameraX = Camera.Left + 25 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Engine_BltFast CameraX, CameraY, DDS_MiniMap, NadaRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
Next Y
Next X

' *****************
' *** Atributos ***
' *****************

' Bloqueio
With BlockRect
.top = 4
.Bottom = .top + 4
.Left = 4
.Right = .Left + 4
End With

' Warp
With WarpRect
.top = 4
.Bottom = .top + 4
.Left = 8
.Right = .Left + 4
End With

' Item
With ItemRect
.top = 4
.Bottom = .top + 4
.Left = 12
.Right = .Left + 4
End With

' Shop
With ShopRect
.top = 4
.Bottom = .top + 4
.Left = 16
.Right = .Left + 4
End With

' Defini-los no minimap
For X = 0 To MapX
For Y = 0 To MapY
Select Case Map.Tile(X, Y).Type
Case TILE_TYPE_BLOCKED
CameraX = Camera.Left + 25 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Engine_BltFast CameraX, CameraY, DDS_MiniMap, BlockRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
Case TILE_TYPE_WARP
CameraX = Camera.Left + 25 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Engine_BltFast CameraX, CameraY, DDS_MiniMap, WarpRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
Case TILE_TYPE_ITEM
CameraX = Camera.Left + 25 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Engine_BltFast CameraX, CameraY, DDS_MiniMap, ItemRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
Case TILE_TYPE_SHOP
CameraX = Camera.Left +25+ (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Engine_BltFast CameraX, CameraY, DDS_MiniMap, ShopRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
End Select
Next Y
Next X

' **************
' *** Player ***
' **************

' Normal
With PlayerRect
.top = 0
.Bottom = .top + 4
.Left = 4
.Right = .Left + 4
End With

' Pk
With PlayerPkRect
.top = 0
.Bottom = .top + 4
.Left = 8
.Right = .Left + 4
End With

' Defini-los no minimap
For i = 1 To Player_HighIndex
If IsPlaying(i) Then
Select Case Player(i).PK
Case 0
X = Player(i).X
Y = Player(i).Y
CameraX = Camera.Left + 25 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Call DDS_BackBuffer.BltFast(CameraX, CameraY, DDS_MiniMap, PlayerRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
Case 1
X = Player(i).X
Y = Player(i).Y
CameraX = Camera.Left + 25 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Call DDS_BackBuffer.BltFast(CameraX, CameraY, DDS_MiniMap, PlayerPkRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
End Select
End If
Next i

' ***********
' *** NPC ***
' ***********

' Atacar ao ser atacado e quando for atacado
With NpcAttackerRect
.top = 0
.Bottom = .top + 4
.Left = 12
.Right = .Left + 4
End With

' Vendendor
With NpcShopRect
.top = 0
.Bottom = .top + 4
.Left = 16
.Right = .Left + 4
End With

' Outros
With NpcOtherRect
.top = 0
.Bottom = .top + 4
.Left = 20
.Right = .Left + 4
End With

' Defini-lo no minimap
For i = 1 To Npc_HighIndex
If MapNpc(i).num > 0 Then
Select Case NPC(i).Behaviour
Case NPC_BEHAVIOUR_ATTACKONSIGHT Or NPC_BEHAVIOUR_ATTACKWHENATTACKED
X = MapNpc(i).X
Y = MapNpc(i).Y
CameraX = Camera.Left + 25 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Call DDS_BackBuffer.BltFast(CameraX, CameraY, DDS_MiniMap, NpcAttackerRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
Case NPC_BEHAVIOUR_SHOPKEEPER
X = MapNpc(i).X
Y = MapNpc(i).Y
CameraX = Camera.Left + 25+ (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Call DDS_BackBuffer.BltFast(CameraX, CameraY, DDS_MiniMap, NpcShopRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
Case Else
X = MapNpc(i).X
Y = MapNpc(i).Y
CameraX = Camera.Left + 25 + (X * 4)
CameraY = Camera.top + 25 + (Y * 4)
Call DDS_BackBuffer.BltFast(CameraX, CameraY, DDS_MiniMap, NpcOtherRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
End Select
End If
Next i

' Error handler
Exit Sub
errorhandler:
HandleError "BltMiniMap", "modDirectDraw7", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub
```

[Mr.LLoyd]

Thank you now it works :] just one question how can i make the minimap to be in the corner cause now is little of the corner

>! 

[Zopto]

in Sub BltMiniMap() chage cordinats CameraY and CameraX to evrywhere you see number 25 so idk you mast do it alone try put  cameraX 22 and  CameraX 22

[waseemk]

why do i get this:
[](http://www.freemmorpgmaker.com/files/imagehost/#9dd2ec461c07c20cb09eccd11479e658.bmp)

Did I do something wrong, or is it just because my map is big. Is there a way to make it show a smaller area so this doesnt happen.

[Zopto]

@Zopto:

> it is grate but when is map biger and minimap is biger :S

also i  hawe question for that  how to make to minimap stay  litl in corner and to dont get biger

[Justn]

I don't think u can zopto.. but I do atleast recommend using the blank tile attribute from the other mini map tutorial I think it makes the mini map look 20x better on larger maps so its not just a big ugly white square

[Zopto]

i try that tutorial but i think i do somting wrong i cant make it work xD

[Justn]

Hmm I got it too work very easily when I tested it pretty sure if u got this to work u can get that to work they are the same thing basically maybe just try to.add the tile type to this one if its easier for u :)

[waseemk]

So I can't fix my problem?

[Justn]

@waseemk:

> So I can't fix my problem?

Looks like it map is too big? How big is it?

[waseemk]

100 by 100 is there any way just to make it show a smaller portion of my screen?

[Zopto]

make map  30 x30

[zenmen]

working great! thanks! :)

[zerosavior115]

Great tut!

but how can i change the possition of the minimap so that instead of it being in the top right corner its instead in the top left corner??

[kira423]

First off this is a great tutorial and I love having it as an addition in my game, but I am having 1 small problem. As you can see from the attached picture not all 'enemy' npcs show up as the orange color that they should, there are 20 NPC's on this map and only 1 is showing as its correct color, I am not sure as to why it is like that, but how can I fix it?

[draginvoke5]

This works FANTASTIC thanks! I really love this!

[iHero]

LOL thanks you

[draginvoke5]

@iHero:

> LOL thanks you

No problem, it's a very good modification and is easier to implement than others.

[PVJsquad]

Can you move the minimap to its upper left corner.
because the upper right corner is very sucks to me

[Stein]

GoldSlide, just look at the offset codes and change them to render in the location you want.

[PVJsquad]

@Scypher:

> GoldSlide, just look at the offset codes and change them to render in the location you want.

can you tell me ,where the code :?

[JohnPony]

```
  CameraX = Camera.Left + 25 + (X * 4)
            CameraY = Camera.top + 25 + (Y * 4)
            Engine_BltFast CameraX, CameraY, DDS_MiniMap, NadaRect, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
```Should be here.