Para criar o seu minimap primeiro baixe este arquivo:
Download

Coloquem o mesmo dentro de \ data \ graphics

Descrição:
•Branco ícone quando não há nada no mapa.

•ícone que mostra os jogadores que estão presentes no mapa.

•ícone que mostra NPCs que estão no mapa.

•Ícone mostrando o mapa de blocos.

•Ícone para assassinos diferentes jogadores.

•ícone que mostra o teletransporte do mapa.

•ícone que mostra os itens do mapa.

•ícone que mostra o mapa e lojas por atributo e por ser NPC.

•ícone diferente para cada tipo de NPC.

*****************
****Client~side****
*****************

Dentro do:

Código:


modDirectDraw7


Procure por:

Código:


    ' Render the bars
    BltBars

Abaixo adicione:

Código:


    ' minimap
    If Options.Minimap = 1 Then BltMiniMap

Procure por:

Código:


Public DDS_Bars As DirectDrawSurface7

abaixo adicione:

Código:


Public DDS_MiniMap As DirectDrawSurface7

procure por:

Código:


Public DDSD_Bars As DDSURFACEDESC2

abaixo adicione

Código:


Public DDSD_MiniMap As DDSURFACEDESC2

Procure por:

Código:


    If FileExist(App.Path & "\data files\graphics\bars.bmp", True) Then Call InitDDSurf("bars", DDSD_Bars, DDS_Bars)

abaixo adicione:

Código:


    If FileExist(App.Path & "\data files\graphics\minimap.bmp", True) Then Call InitDDSurf("minimap", DDSD_MiniMap, DDS_MiniMap)

Procure por:

Código:


    Set DDS_Target = Nothing
    ZeroMemory ByVal VarPtr(DDSD_Target), LenB(DDSD_Target)

Abaixo adicione:

Código:


    Set DDS_MiniMap = Nothing
    ZeroMemory ByVal VarPtr(DDSD_MiniMap), LenB(DDSD_MiniMap)


Agora no final do mod, adicione:

Código:

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
   
    Options.Minimap = 1
    SaveOptions
 
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "optMiniMapOn_Click", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub



frmMain


Dentro do picOptions crie uma label com a seguinte legenda:
MiniMAP


Agora criar um PictureBox com qualquer nome nele e adicionar 2 optionsBox com as seguintes configurações:

Código:


Option 1:
Nome: optMiniMapOn
Caption: On
Option 2:
____________________
Nome: optMiniMapOff
Caption: Off


Dentro do OptMiniMapOn add:

Código:


    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
   
    Options.Minimap = 1
    SaveOptions
 
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "optMiniMapOn_Click", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub


Dentro do optminimapoff adicione:

Código:


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

    Options.Minimap = 0
    SaveOptions
 
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "optMiniMapOff_Click", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub


modTypes


No final do OptionsRec Tipo privada antes do tipo End , adicione:

Código:

  Minimap As Byte



modDatabase

Procure por:

Código:

    Call PutVar(fileName, "Options", "Debug", Str(Options.Debug))


Abaixo adicione:

Código:


    Call PutVar(fileName, "Options", "MiniMap", Str(Options.Minimap))


Procure por:

Código:


        Options.Debug = 0

Abaixo adicione:

Código:

        Options.Minimap = 1


Procure por:

Código:


        Options.Debug = GetVar(fileName, "Options", "Debug")

abaixo adicione:

Código:


        Options.Minimap = GetVar(fileName, "Options", "MiniMap")


Procure por:

Código:

      If Options.Sound = 0 Then
        frmMain.optSOff.Value = True
    Else
        frmMain.optSOn.Value = True
    End If

Abaixo adicione:

Código:


    If Options.Minimap = 0 Then
        frmMain.optMiniMapOff.Value = True
    Else
        frmMain.optMiniMapOn.Value = True
    End If


Creditos: ThxFox
Ihero