Code:
' Check for an item
For i = 1 To MAX_MAP_ITEMS
If MapItem(GetPlayerMap(Index), i).Num > 0 Then
If MapItem(GetPlayerMap(Index), i).x = x And MapItem(GetPlayerMap(Index), i).y = y Then
Call PlayerMsg(Index, "You see a " & Trim$(Item(MapItem(GetPlayerMap(Index), i).Num).Name) & ".", Yellow)
Exit Sub
End If
End If
Next i
For i = 1 To MAX_MAP_ITEMS
If MapItem(GetPlayerMap(Index), i).Num > 0 Then
If MapItem(GetPlayerMap(Index), i).x = x And MapItem(GetPlayerMap(Index), i).y = y Then
Call PlayerMsg(Index, "You see a " & Trim$(Item(MapItem(GetPlayerMap(Index), i).Num).Name) & ".", Yellow)
Exit Sub
End If
End If
Next i
Copy that code and move it to the bottom of that sub
.