' Check for an npc
        For i = 1 To MAX_MAP_NPCS
            If MapNpc(GetPlayerMap(index), i).Num > 0 Then
                If MapNpc(GetPlayerMap(index), i).X = X And MapNpc(GetPlayerMap(index), i).y = y Then
               
                   If Npc(MapNpc(GetPlayerMap(index), i).Num).QuestID > 0 Then
                        Call StartQuest(index, Npc(MapNpc(GetPlayerMap(index), i).Num).QuestID)
                    End If

Sub StartQuest(ByVal index As Long, ByVal QuestID As Long)
    If Player(index).Char(Player(index).CharNum).CurrentQuest = QuestID And Player(index).Char(Player(index).CharNum).QuestStatus = 2 Then
        FinishQuest (index)
        Exit Sub
    End If
    If (SetCurrentQuest(index, QuestID, Player(index).Char(Player(index).CharNum)) = True) Then
        Call SendQuestMessage(index, Quests(QuestID).StartQuestMsg)
    End If
End Sub

If Npc(MapNpc(GetPlayerMap(index), i).Num).QuestID > 0 Then
                        Call StartQuest(index, Npc(MapNpc(GetPlayerMap(index), i).Num).QuestID)
                    End If

If MapNpc(GetPlayerMap(index), i).X = X And MapNpc(GetPlayerMap(index), i).y = y Then

If (SetCurrentQuest(index, QuestID, Player(index).Char(Player(index).CharNum)) = True) Then

Function SetCurrentQuest(ByVal index As Long, ByVal QuestID As Long, ByRef Qplayer As PlayerRec) As Boolean
    If QuestID > 0 And QuestID < MAX_QUESTS Then
        If Qplayer.Level >= Quests(QuestID).requiredLevel Then
            If Qplayer.CurrentQuest = 0 Then
                Qplayer.CurrentQuest = QuestID
                Call SetCurrentQuestStatus(index, 1, Qplayer)
                SetCurrentQuest = True
                Exit Function
            Else
                Call PlayerMsg(index, "You currently have a quest.", Green)
            End If
        Else
            Call PlayerMsg(index, "You are of too low level to start this quest.", Red)
        End If
    End If
    SetCurrentQuest = False
End Function
Sub SetCurrentQ