Author: Perfekt
Difficulty: 1/5
:: CLIENT SIDE ::
Find:
Code:
' Map Editor
If LCase(Mid(MyText, 1, 10)) = "/mapeditor" Then
Call SendRequestEditMap
MyText = ""
Exit Sub
End If
If LCase(Mid(MyText, 1, 10)) = "/mapeditor" Then
Call SendRequestEditMap
MyText = ""
Exit Sub
End If
Beneath that, add:
Code:
' MapNum
If LCase(Mid(MyText, 1, 4)) = "/map" Then
If frmMirage.picMapNum.Visible = False Then
frmMirage.picMapNum.Visible = True
frmMirage.MapP.Caption = "Map: " & GetPlayerMap(MyIndex)
If Map.Up <= 0 Then
frmMirage.MapU.Caption = "No Map"
Else
frmMirage.MapU.Caption = "Map: " & Map.Up
End If
If Map.Down <= 0 Then
frmMirage.MapD.Caption = "No Map"
Else
frmMirage.MapD.Caption = "Map: " & Map.Down
End If
If Map.Left <= 0 Then
frmMirage.MapL.Caption = "No Map"
Else
frmMirage.MapL.Caption = "Map: " & Map.Left
End If
If Map.Right <= 0 Then
frmMirage.MapR.Caption = "No Map"
Else
frmMirage.MapR.Caption = "Map: " & Map.Right
End If
Else
frmMirage.picMapNum.Visible = False
End If
MyText = ""
Exit Sub
End If
If LCase(Mid(MyText, 1, 4)) = "/map" Then
If frmMirage.picMapNum.Visible = False Then
frmMirage.picMapNum.Visible = True
frmMirage.MapP.Caption = "Map: " & GetPlayerMap(MyIndex)
If Map.Up <= 0 Then
frmMirage.MapU.Caption = "No Map"
Else
frmMirage.MapU.Caption = "Map: " & Map.Up
End If
If Map.Down <= 0 Then
frmMirage.MapD.Caption = "No Map"
Else
frmMirage.MapD.Caption = "Map: " & Map.Down
End If
If Map.Left <= 0 Then
frmMirage.MapL.Caption = "No Map"
Else
frmMirage.MapL.Caption = "Map: " & Map.Left
End If
If Map.Right <= 0 Then
frmMirage.MapR.Caption = "No Map"
Else
frmMirage.MapR.Caption = "Map: " & Map.Right
End If
Else
frmMirage.picMapNum.Visible = False
End If
MyText = ""
Exit Sub
End If
Then, in frmMirage, add a picbox, and name it:
Code:
picMapNum
On that, add five labels. Make the height 17 and the width 49 for all five labels. Name the labels:
Code:
MapU
MapL MapP MapR
MapD
MapL MapP MapR
MapD
Then add two command buttons, one on the bottom left of the pic box, the other on the bottom right.Make the caption on the bottom left one:
Code:
Update
This will be for if you switch maps while it's open. This will update the labels.
So double click it and add this code:
Code:
MapP.Caption = "Map: " & GetPlayerMap(MyIndex)
If Map.Up <= 0 Then
MapU.Caption = "No Map"
Else
MapU.Caption = "Map: " & Map.Up
End If
If Map.Down <= 0 Then
MapD.Caption = "No Map"
Else
MapD.Caption = "Map: " & Map.Down
End If
If Map.Left <= 0 Then
MapL.Caption = "No Map"
Else
MapL.Caption = "Map: " & Map.Left
End If
If Map.Right <= 0 Then
MapR.Caption = "No Map"
Else
MapR.Caption = "Map: " & Map.Right
End If
Make the other button's caption on the bottom right:
Code:
Cancel
This will close the pic box. You can also type /map again, and it will close it.
So double click this button and add this code:
Code:
picMapNum.Visible = False
Okay, what this does, is displays the map number that you're on, and the map number for each map linked in each direction. This is really only needed if you have scrolling maps, but you can add it regardless.
Enjoy.
| Attachments: |
|
File comment: Possible result. Display_MapNum_Example_perfekt.jpg [ 4.74 KiB | Viewed 2925 times ] |