Well it feels like ive been posting alot now but im just a newbie
Ive been trying to add a quest editor lately. I basically took whatever Item Editor had and duplicated and put in my own variables and changed names. I thought it would work then i test it out and i get this error that says:
Code:
Compile Error:
Sub or Function not defined.
Sub or Function not defined.
Im thinking it cant read that its in a sub or that the spacing is wrong. thats what i THINK at least.
heres the code i got for the Quest Editor Packet. It comes up that error. I mean i got no clue it says the sub right at the top.
Its in the server side on ModHandleData
Everyone is okay in that packet just when it comes to the quest(n).name=Parse(2) it says that error up top.
Code:
' ::::::::::::::::::::::
' :: Quest Packet:::::::
' ::::::::::::::::::::::
If LCase(Parse(0)) = "savequest" Then
' Prevent hacking
If GetPlayerAccess(Index) < ADMIN_DEVELOPER Then
Call HackingAttempt(Index, "Admin Cloning")
Exit Sub
End If
n = Val(Parse(1))
If n < 0 Or n > MAX_QUESTS Then
Call HackingAttempt(Index, "Invalid Item Index")
Exit Sub
End If
' Update the item
Quest(n).Name = Parse(2)
Quest(n).SayStart = Parse(3)
Quest(n).NotReady = Parse(4)
Quest(n).Completed = Parse(5)
Quest(n).AlreadyDone = Parse(6)
Quest(n).GiveExp = Val(Parse(7))
Quest(n).GiveItem = Val(Parse(8))
Quest(n).GiveItemVal = Val(Parse(9))
Quest(n).TakeItem = Val(Parse(10))
Quest(n).TakeItemVal = Val(Parse(11))
Quest(n).NpcStart = Val(Parse(12))
Quest(n).ItemStart = Val(Parse(13))
' Save it
Call SendUpdateQuestToAll(n)
Call SaveQuest(n)
Call AddLog(GetPlayerName(Index) & " saved quest #" & n & ".", ADMIN_LOG)
Exit Sub
End If
' :: Quest Packet:::::::
' ::::::::::::::::::::::
If LCase(Parse(0)) = "savequest" Then
' Prevent hacking
If GetPlayerAccess(Index) < ADMIN_DEVELOPER Then
Call HackingAttempt(Index, "Admin Cloning")
Exit Sub
End If
n = Val(Parse(1))
If n < 0 Or n > MAX_QUESTS Then
Call HackingAttempt(Index, "Invalid Item Index")
Exit Sub
End If
' Update the item
Quest(n).Name = Parse(2)
Quest(n).SayStart = Parse(3)
Quest(n).NotReady = Parse(4)
Quest(n).Completed = Parse(5)
Quest(n).AlreadyDone = Parse(6)
Quest(n).GiveExp = Val(Parse(7))
Quest(n).GiveItem = Val(Parse(8))
Quest(n).GiveItemVal = Val(Parse(9))
Quest(n).TakeItem = Val(Parse(10))
Quest(n).TakeItemVal = Val(Parse(11))
Quest(n).NpcStart = Val(Parse(12))
Quest(n).ItemStart = Val(Parse(13))
' Save it
Call SendUpdateQuestToAll(n)
Call SaveQuest(n)
Call AddLog(GetPlayerName(Index) & " saved quest #" & n & ".", ADMIN_LOG)
Exit Sub
End If