Как это работает?
В чате нужно написать /editquest, и откроется окно редактирования

If Len(Trim$(NPC(npcNum).AttackSay)) > 0 Then

                        If NPC(npcNum).Behaviour = NPC_BEHAVIOUR_FRIENDLY Then
                     Call CheckTasks(attacker, QUEST_TYPE_GOTALK, npcNum)
                     Call CheckTasks(attacker, QUEST_TYPE_GOGIVE, npcNum)
                     Call CheckTasks(attacker, QUEST_TYPE_GOGET, npcNum)
                        
                     If NPC(npcNum).Quest = YES Then
                      If CanStartQuest(attacker, NPC(npcNum).QuestNum) Then
                      'if can start show the request message (chat1)
                      QuestMessage attacker, NPC(npcNum).QuestNum, Trim$(Quest(NPC(npcNum).QuestNum).Chat(1)), NPC(npcNum).QuestNum
                      Exit Function
                      End If
                      If QuestInProgress(attacker, NPC(npcNum).QuestNum) Then
                      'if the quest is in progress show the meanwhile message (chat2)
                      PlayerMsg attacker, Trim$(NPC(npcNum).Name) + ": " + Trim$(Quest(NPC(npcNum).QuestNum).Chat(2)), BrightGreen
                      'QuestMessage attacker, NPC(npcNum).QuestNum, Trim$(Quest(NPC(npcNum).QuestNum).Chat(2)), 0
                      Exit Function
                      End If
                     End If
                           End If

' send death to the map

Call CheckTasks(attacker, QUEST_TYPE_GOSLAY, npcNum)

Call OnDeath(victim)

Call CheckTasks(attacker, QUEST_TYPE_GOKILL, victim)

ChkDir App.Path & "\Data\", "spells"

ChkDir App.Path & "\Data\", "quests"

Call ClearAnimations

Call SetStatus("Clearing quests...")
Call ClearQuests

Call LoadAnimations

Call SetStatus("Loading quests...")
Call LoadQuests

HandleDataSub(CPartyLeave) = GetAddress(AddressOf HandlePartyLeave)

HandleDataSub(CRequestEditQuest) = GetAddress(AddressOf HandleRequestEditQuest)
       HandleDataSub(CSaveQuest) = GetAddress(AddressOf HandleSaveQuest)
       HandleDataSub(CRequestQuests) = GetAddress(AddressOf HandleRequestQuests)
       HandleDataSub(CPlayerHandleQuest) = GetAddress(AddressOf HandlePlayerHandleQuest)
       HandleDataSub(CQuestLogUpdate) = GetAddress(AddressOf HandleQuestLogUpdate)

Sub HandleRequestEditQuest(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
       Dim Buffer As clsBuffer

       ' Prevent hacking
       If GetPlayerAccess(Index) < ADMIN_DEVELOPER Then
           Exit Sub
       End If

       Set Buffer = New clsBuffer
       Buffer.WriteLong SQuestEditor
       SendDataTo Index, Buffer.ToArray()
       Set Buffer = Nothing
End Sub

Sub HandleSaveQuest(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
       Dim n As Long
       Dim Buffer As clsBuffer
       Dim QuestSize As Long
       Dim QuestData() As Byte
       Set Buffer = New clsBuffer
       Buffer.WriteBytes Data()

       ' Prevent hacking
       If GetPlayerAccess(Index) < ADMIN_DEVELOPER Then
           Exit Sub
       End If

       n = Buffer.ReadLong 'CLng(Parse(1))

       If n < 0 Or n > MAX_QUESTS Then
           Exit Sub
       End If
          
       ' Update the Quest
       QuestSize = LenB(Quest(n))
       ReDim QuestData(QuestSize - 1)
       QuestData = Buffer.ReadBytes(QuestSize)
       CopyMemory ByVal VarPtr(Quest(n)), ByVal VarPtr(QuestData(0)), QuestSize
       Set Buffer = Nothing
          
       ' Save it
       Call SendUpdateQuestToAll(n)
       Call SaveQuest(n)
       Call AddLog(GetPlayerName(Index) & " saved Quest #" & n & ".", ADMIN_LOG)
End Sub

Sub HandleRequestQuests(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
       SendQuests Index
End Sub

Sub HandlePlayerHandleQuest(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
       Dim Buffer As clsBuffer
       Dim QuestNum As Long, Order As Long, i As Long
          
       Set Buffer = New clsBuffer
       Buffer.WriteBytes Data()
       QuestNum = Buffer.ReadLong
       Order = Buffer.ReadLong '1 = accept, 2 = cancel
          
       If Order = 1 Then
           Player(Index).PlayerQuest(QuestNum).Status = QUEST_STARTED '1
           Player(Index).PlayerQuest(QuestNum).ActualTask = 1
           Player(Index).PlayerQuest(QuestNum).CurrentCount = 0
           PlayerMsg Index, "New quest accepted: " & Trim$(Quest(QuestNum).Name) & "!", BrightGreen
           'Add item on start
           If Quest(QuestNum).QuestGiveItem > 0 And Quest(QuestNum).QuestGiveItem < MAX_ITEMS Then
               If Quest(QuestNum).QuestGiveItemValue > 0 And Quest(QuestNum).QuestGiveItemValue < MAX_INV Then 'ToDo: stuff with currency
                   GiveInvItem Index, Quest(QuestNum).QuestGiveItem, Quest(QuestNum).QuestGiveItemValue
               End If
           End If
              
       ElseIf Order = 2 Then
           Player(Index).PlayerQuest(QuestNum).Status = QUEST_NOT_STARTED '2
           Player(Index).PlayerQuest(QuestNum).ActualTask = 1
           Player(Index).PlayerQuest(QuestNum).CurrentCount = 0
           PlayerMsg Index, Trim$(Quest(QuestNum).Name) & " has been canceled!", BrightGreen
       End If
          
       SavePlayer Index
       SendPlayerData Index
       SendPlayerQuests Index
          
       Set Buffer = Nothing
End Sub

Sub HandleQuestLogUpdate(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
       SendPlayerQuests Index
End Sub

Dir As Byte

PlayerQuest(1 To MAX_QUESTS) As PlayerQuestRec

Level As Long

Quest As Byte
       QuestNum As Long

SPartyVitals

    SQuestEditor
       SUpdateQuest
       SPlayerQuest
       SQuestMessage

CPartyLeave

    CRequestEditQuest
       CSaveQuest
       CRequestQuests
       CPlayerHandleQuest
       CQuestLogUpdate

Call SendHotbar(Index)

Call SendQuests(Index)

PlayerWarp

TempPlayer(Index).GettingMap = YES

Call CheckTasks(Index, QUEST_TYPE_GOREACH, mapNum)

SendActionMsg GetPlayerMap(Index), Msg, White, 1, (GetPlayerX(Index) * 32), (GetPlayerY(Index) * 32)

Call CheckTasks(Index, QUEST_TYPE_GOGATHER, GetItemNum(Trim$(Item(GetPlayerInvItemNum(Index, n)).Name)))

SendMapSound Index, rX, rY, SoundEntity.seResource, Resource_index

Call CheckTasks(Index, QUEST_TYPE_GOTRAIN, Resource_index)

txtDamage.text = NPC(EditorIndex).Damage

.chkQuest.Value = NPC(EditorIndex).Quest
           .scrlQuest.Value = NPC(EditorIndex).QuestNum

SPartyVitals

    SQuestEditor
       SUpdateQuest
       SPlayerQuest
       SQuestMessage

CPartyLeave

    CRequestEditQuest
       CSaveQuest
       CRequestQuests
       CPlayerHandleQuest
       CQuestLogUpdate

HandleDataSub(SPartyVitals) = GetAddress(AddressOf HandlePartyVitals)

    HandleDataSub(SQuestEditor) = GetAddress(AddressOf HandleQuestEditor)
       HandleDataSub(SUpdateQuest) = GetAddress(AddressOf HandleUpdateQuest)
       HandleDataSub(SPlayerQuest) = GetAddress(AddressOf HandlePlayerQuest)
       HandleDataSub(SQuestMessage) = GetAddress(AddressOf HandleQuestMessage)

Private Sub HandleQuestEditor()
       Dim i As Long
          
       With frmEditor_Quest
           Editor = EDITOR_TASKS
           .lstIndex.Clear

           ' Add the names
           For i = 1 To MAX_QUESTS
               .lstIndex.AddItem i & ": " & Trim$(Quest(i).Name)
           Next

           .Show
           .lstIndex.ListIndex = 0
           QuestEditorInit
       End With

End Sub

Private Sub HandleUpdateQuest(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
       Dim n As Long
       Dim Buffer As clsBuffer
       Dim QuestSize As Long
       Dim QuestData() As Byte
       Set Buffer = New clsBuffer
       Buffer.WriteBytes Data()
       n = Buffer.ReadLong
       ' Update the Quest
       QuestSize = LenB(Quest(n))
       ReDim QuestData(QuestSize - 1)
       QuestData = Buffer.ReadBytes(QuestSize)
       CopyMemory ByVal VarPtr(Quest(n)), ByVal VarPtr(QuestData(0)), QuestSize
       Set Buffer = Nothing
End Sub

Private Sub HandlePlayerQuest(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
       Dim Buffer As clsBuffer
       Dim i As Long

       Set Buffer = New clsBuffer
       Buffer.WriteBytes Data()
              
       For i = 1 To MAX_QUESTS
           Player(MyIndex).PlayerQuest(i).Status = Buffer.ReadLong
           Player(MyIndex).PlayerQuest(i).ActualTask = Buffer.ReadLong
           Player(MyIndex).PlayerQuest(i).CurrentCount = Buffer.ReadLong
       Next
          
       RefreshQuestLog
          
       Set Buffer = Nothing
End Sub

Private Sub HandleQuestMessage(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
       Dim Buffer As clsBuffer
       Dim i As Long, QuestNum As Long, QuestNumForStart As Long
       Dim Message As String
          
       Set Buffer = New clsBuffer
       Buffer.WriteBytes Data()
       QuestNum = Buffer.ReadLong
       Message = Trim$(Buffer.ReadString)
       QuestNumForStart = Buffer.ReadLong
          
       frmMain.lblQuestName = Trim$(Quest(QuestNum).Name)
       frmMain.lblQuestSay = Message
       frmMain.picQuestDialogue.Visible = True
          
       If QuestNumForStart > 0 And QuestNumForStart <= MAX_QUESTS Then
           frmMain.lblQuestAccept.Visible = True
           frmMain.lblQuestAccept.Tag = QuestNumForStart
       End If
              
       Set Buffer = Nothing
End Sub

SendRequestEditSpell

                Case "/editquest"
                       If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then GoTo Continue
                       SendRequestEditQuest

Step As Byte

PlayerQuest(1 To MAX_QUESTS) As PlayerQuestRec

Level As Long

    Quest As Byte
       QuestNum As Long