Mirage Source

' :::::::::::::::::::::::::::::::
    ' :: Request a quest packet ::
    ' :::::::::::::::::::::::::::::::
    If Left(LCase(Parse(0)), 12) = "requestquest" Then
        If Player(index).Char(Player(index).CharNum).CurrentQuest > 0 Then
        Select Case Player(index).Char(Player(index).CharNum).QuestStatus
            Case Is = 1
                Call SendDataTo(index, "questmsg" & SEP_CHAR & procQuestMsg(index, Quests(Player(index).Char(Player(index).CharNum).CurrentQuest).StartQuestMsg) & END_CHAR)
            Case Is = 2
            Debug.Print Quests(Player(index).Char(Player(index).CharNum).CurrentQuest).GetItemQuestMsg
                Call SendDataTo(index, "questmsg" & SEP_CHAR & procQuestMsg(index, Quests(Player(index).Char(Player(index).CharNum).CurrentQuest).GetItemQuestMsg) & END_CHAR)
            Case Is = 3
                Call SendDataTo(index, "questmsg" & SEP_CHAR & procQuestMsg(index, Quests(Player(index).Char(Player(index).CharNum).CurrentQuest).FinishQuestMessage) & END_CHAR)
            Case Else
                Call PlayerMsg(index, "You have no quest", White)
           
        End Select
        Else
            Call SendDataTo(index, "questmsg" & SEP_CHAR & "You currently have no quest" & END_CHAR)
        End If
    End If

(index, Quests(Player(index).Char(Player

Public Quests(1 To MAX_QUESTS) As QuestRec

 public Quest(1 to MAX_QUEST) as QuestRec

    ' Make sure they are on the same map
    If IsPlaying(Attacker) Then
        If NpcNum > 0 And GetTickCount > Player(Attacker).AttackTimer + 950 Then
            ' Check if at same coordinates
            Select Case GetPlayerDir(Attacker)
                Case DIR_UP
                    If (MapNpc(MapNum, MapNpcNum).y + 1 = GetPlayerY(Attacker)) And (MapNpc(MapNum, MapNpcNum).x = GetPlayerX(Attacker)) Then
                    If Npc(NpcNum).Behavior <> NPC_BEHAVIOR_FRIENDLY And Npc(NpcNum).Behavior <> NPC_BEHAVIOR_SHOPKEEPER Then
                        CanAttackNpc = True
                    Else
                    If chkQuest.Value = True Then
                        Call SetCurrentQuest
                        Call StartQuestMsg
                    Else
                        Call PlayerMsg(Attacker, Trim(Npc(NpcNum).Name) & " says: '" & Trim(Npc(NpcNum).AttackSay) & "'", BrightBlue)
                        End If
                    End If
                    End If

frmBlah.Chkquest.Value

Chkquest.checked

                    If frmNpcEditor.chkQuest.Checked = True Then
                        Call SetCurrentQuest
                        Call StartQuestMsg