Function DoQuest(ByVal questnum As Long, ByVal index As Long, ByVal npcnum As Long)
If ReadINI(Player(index).Char(Player(index).CharNum).Name, "QUEST" & Npc(npcnum).Quest, App.Path + "\qflag.ini") = 2 Then
Call PlayerMsg(index, "A " & Trim(Npc(npcnum).Name) & " says, '" & Trim(Quest(Npc(npcnum).Quest).After) & "'", SayColor)
ElseIf ReadINI(Player(index).Char(Player(index).CharNum).Name, "QUEST" & Npc(npcnum).Quest, App.Path + "\qflag.ini") = 1 Then
    Call SendDataTo(index, "questprompt" & SEP_CHAR & questnum & SEP_CHAR & npcnum & SEP_CHAR & END_CHAR)
Else
Debug.Print "NOT COMPLETED Quest"
Call StartQuest(questnum, index, npcnum)
End If

End Function

Sub SaveLine(File As Integer, Header As String, Var As String, Value As String)
    Print #File, Var & "=" & Value
End Sub

Function StartQuest(questnum As Long, index As Long, npcnum As Long)
If MeetReq(questnum, index) Then
    If Quest(questnum).StartOn = 0 Then
        Call WriteINI(Player(index).Char(Player(index).CharNum).Name, "QUEST" & Npc(npcnum).Quest, "1", App.Path + "\qflag.ini")
        Call PlayerMsg(index, "A " & Trim(Npc(npcnum).Name) & " says, '" & Trim(Quest(Npc(npcnum).Quest).Start) & "'", SayColor)
    ElseIf Quest(questnum).StartOn = 1 Then
        Call GiveQuestItem(index, Quest(questnum).StartItem, Quest(questnum).Startval, npcnum)
    End If
Else
    Call PlayerMsg(index, "A " & Trim(Npc(npcnum).Name) & " says, '" & Trim(Quest(Npc(npcnum).Quest).Before) & "'", SayColor)
End If
End Function

Function MeetReq(questnum As Long, index As Long) As Boolean
If Quest(questnum).ClassIsReq = 0 And Quest(questnum).LevelIsReq = 0 Then
    MeetReq = True
    Exit Function
ElseIf Quest(questnum).ClassIsReq = 1 And Quest(questnum).LevelIsReq = 0 Then
    If Player(index).Char(Player(index).CharNum).Class = Quest(questnum).ClassReq Then
        MeetReq = True
        Exit Function
    Else
        MeetReq = False
        Exit Function
    End If
ElseIf Quest(questnum).ClassIsReq = 0 And Quest(questnum).LevelIsReq = 1 Then
    If Player(index).Char(Player(index).CharNum).Level >= Quest(questnum).LevelReq Then
        MeetReq = True
        Exit Function
    Else
        MeetReq = False
        Exit Function
    End If
ElseIf Quest(questnum).ClassIsReq = 1 And Quest(questnum).LevelIsReq = 1 Then
    If Player(index).Char(Player(index).CharNum).Class = Quest(questnum).ClassReq And Player(index).Char(Player(index).CharNum).Level >= Quest(questnum).LevelReq Then
        MeetReq = True
        Exit Function
    Else
        MeetReq = False
        Exit Function
    End If
End If

End Function

Sub GiveQuestItem(ByVal index As Long, ByVal ItemNum As Long, ByVal ItemVal As Long, ByVal npcnum As Long)
Dim I As Long
Dim Curr As Boolean
Dim Has As Boolean
    ' Check for subscript out of range
    If IsPlaying(index) = False Or ItemNum <= 0 Or ItemNum > MAX_ITEMS Then
        Exit Sub
    End If
   
    If Item(ItemNum).Type = 12 Then Curr = True Else Curr = False
   
    For I = 1 To MAX_INV
        If Curr = True Then
            If GetPlayerInvItemNum(index, I) = ItemNum Then
                Call SetPlayerInvItemValue(index, I, GetPlayerInvItemValue(index, I) + ItemVal)
                Call SendInventoryUpdate(index, I)
                Has = True
                Exit For
            End If
        Else
            If GetPlayerInvItemNum(index, I) = 0 Then
                Call SetPlayerInvItemNum(index, I, ItemNum)
                Call SetPlayerInvItemValue(index, I, 1)
                If (Item(ItemNum).Type = ITEM_TYPE_ARMOR) Or (Item(ItemNum).Type = ITEM_TYPE_WEAPON) Or (Item(ItemNum).Type = ITEM_TYPE_HELMET) Or (Item(ItemNum).Type = ITEM_TYPE_SHIELD) Then
                    Call SetPlayerInvItemDur(index, I, Item(ItemNum).Data1)
                End If
                Call SendInventoryUpdate(index, I)
                Has = True
                Exit For
            End If
        End If
    Next I
   
    If Has = False Then
        Call PlayerMsg(index, "Your inventory is full. Please come back when it is not", BrightRed)
        Exit Sub
    Else
        Call WriteINI(Player(index).Char(Player(index).CharNum).Name, "QUEST" & Npc(npcnum).Quest, "1", App.Path + "\qflag.ini")
        Call PlayerMsg(index, "A " & Trim(Npc(npcnum).Name) & " says, '" & Trim(Quest(Npc(npcnum).Quest).Start) & "'", SayColor)
    End If

End Sub

Sub GiveRewardItem(ByVal index As Long, ByVal ItemNum As Long, ByVal ItemVal As Long, ByVal npcnum As Long)
Dim I As Long
Dim Curr As Boolean
Dim Has As Boolean
    ' Check for subscript out of range
    If IsPlaying(index) = False Or ItemNum <= 0 Or ItemNum > MAX_ITEMS Then
        Exit Sub
    End If
   
    If Item(ItemNum).Type = 12 Then Curr = True Else Curr = False
   
    For I = 1 To MAX_INV
        If Curr = True Then
            If GetPlayerInvItemNum(index, I) = ItemNum Then
                Call SetPlayerInvItemValue(index, I, GetPlayerInvItemValue(index, I) + ItemVal)
                Call SendInventoryUpdate(index, I)
                Has = True
                Exit For
            End If
        Else
            If GetPlayerInvItemNum(index, I) = 0 Then
                Call SetPlayerInvItemNum(index, I, ItemNum)
                Call SetPlayerInvItemValue(index, I, 1)
                If (Item(ItemNum).Type = ITEM_TYPE_ARMOR) Or (Item(ItemNum).Type = ITEM_TYPE_WEAPON) Or (Item(ItemNum).Type = ITEM_TYPE_HELMET) Or (Item(ItemNum).Type = ITEM_TYPE_SHIELD) Then
                    Call SetPlayerInvItemDur(index, I, Item(ItemNum).Data1)
                End If
                Call SendInventoryUpdate(index, I)
                Has = True
                Exit For
            End If
        End If
    Next I
   
    If Has = False Then
        Call PlayerMsg(index, "Your inventory is full. Please come back when it is not", BrightRed)
        Exit Sub
    Else
        Call PlayerMsg(index, "A " & Trim(Npc(npcnum).Name) & " says, '" & Trim(Quest(Npc(npcnum).Quest).End) & "'", SayColor)
        Call WriteINI(Player(index).Char(Player(index).CharNum).Name, "QUEST" & Npc(npcnum).Quest, "2", App.Path + "/qflag.ini")
        If Item(Quest(Npc(npcnum).Quest).RewardNum).Type = 12 Then
            Call TakeItem(index, Quest(Npc(npcnum).Quest).ItemReq, Quest(Npc(npcnum).Quest).ItemVal)
        Else
            Call TakeItem(index, Quest(Npc(npcnum).Quest).ItemReq, 1)
        End If
                        Call SendInventoryUpdate(index, I)
    End If

End Sub

Function DoQuest(ByVal questnum As Long, ByVal index As Long, ByVal npcnum As Long)
if getvar(app.path & "\gflag.ini", trim(player(index).char(player(index).charnum).name), "QUEST" & trim(npc(npcnum).quest)) = 2 then
Call PlayerMsg(index, "A " & Trim(Npc(npcnum).Name) & " says, '" & Trim(Quest(Npc(npcnum).Quest).After) & "'", SayColor)
ElseIf getvar(app.path & "\gflag.ini", trim(player(index).char(player(index).charnum).name), "QUEST" & trim(npc(npcnum).quest)) = 1 then
Call SendDataTo(index, "questprompt" & SEP_CHAR & questnum & SEP_CHAR & npcnum & SEP_CHAR & END_CHAR)
Else
Debug.Print "NOT COMPLETED Quest"
Call StartQuest(questnum, index, npcnum)
End If

End Function

' ********************
' * QUEST SYSTEM 1.1 *
' * By Unknown_Raven *
' ********************
Function GetFlagHeight(index, flagnum)
Dim X
X = GetVar("FLAGS.ini", GetPlayerName(index), "Flag"&flagnum)
GetFlagHeight = X
End Function

Sub RaiseFlag(index, flagnum, height)
Call PutVar("FLAGS.ini", GetPlayerName(index), "Flag"&flagnum, GetVar("FLAGS.ini", GetPlayerName(index), "Flag"&flagnum)+height)
End Sub

Sub LowerFlag(index, flagnum, height)
Call PutVar("FLAGS.ini", GetPlayerName(index), "Flag"&flagnum, GetVar("FLAGS.ini", GetPlayerName(index), "Flag"&flagnum)-height)
End Sub

Sub SetFlag(index, flagnum, height)
Call PutVar("FLAGS.ini", GetPlayerName(index), "Flag"&flagnum, 0)
Call PutVar("FLAGS.ini", GetPlayerName(index), "Flag"&flagnum, GetVar("FLAGS.ini", GetPlayerName(index), "Flag"&flagnum)+height)
'Call PutVar("FLAGS.ini", GetPlayerName(index), "Flag"&flagnum, height)
End Sub

Sub GiveItem(index, item, value)
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = 0 Then
Call SetPlayerInvItemNum(index, SLOT, item)
Call SetPlayerInvItemValue(index, SLOT, GetPlayerInvItemValue(index, SLOT)+value)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub

Sub TakeItem(index, item)
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = item Then
Call SetPlayerInvItemNum(index, SLOT, 0)
Call SetPlayerInvItemValue(index, SLOT, 0)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub

Sub TakeCurrency(index, item, value)
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = item Then
AMOUNT = GetPlayerInvItemValue(index, SLOT)
TAKE = Int(AMOUNT-value)
If TAKE <= 0 Then
Call SetPlayerInvItemNum(index, SLOT, 0)
Call SetPlayerInvItemValue(index, SLOT, 0)
Call SendInventoryUpdate(index, SLOT)
End If
If TAKE > 0 Then
Call SetPlayerInvItemNum(index, SLOT, 0)
Call SetPlayerInvItemValue(index, SLOT, 0)
Call SetPlayerInvItemNum(index, SLOT, item)
Call SetPlayerInvItemValue(index, SLOT, TAKE)
Call SendInventoryUpdate(index, SLOT)
End If
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub

Function FindItemSlot(index, item)
slot = 1
Do While slot <= 24
If GetPlayerInvItemNum(index, Slot) = item Then
FindItemSlot = slot
slot = 24
Else
FindItemSlot = 0
End If
slot = slot + 1
Loop
End Function

Case 0
If GetFlagHeight(index, 1) = 0 Then
Call PlayerMsg(index, "quest message", 10)
Call RaiseFlag(index, 1, 1)
End If

If GetFlagHeight(index, 1) = 1 Then
Call PlayerMsg(index, "not done message", 10)
End If

If GetFlagHeight(index, 1) = 2 Then
Call PlayerMsg(index, "reward message", 10)
If FindItemSlot(index, 0) = 0 Then
Call PlayerMsg(index, "inventory full message", 12)
Else
Call GiveItem(index, 1, 1)
Call PlayerMsg(index, "recieve messege", 14)
Call RaiseFlag(index, 1, 1)
End If
End If


Case 1
If GetFlagHeight(index, 1) = 1 Then
Call PlayerMsg(index, "quest trigger message", 10)
Call RaiseFlag(index, 1, 1)
End If