Advanced quest system problem...

[Tosuxo]

Code:

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

i THINK i've changed that to getvar for you... may have made a mistake sorry... i'm doing my accouting essay for uni right now so a lil confused haha, hope it helps