How do I fix this?

[Elihu]

The Custom version Eclipse Mega has a bug with the quest system. I would have posted it on the thread but it's locked. I'm not sure how to fix it, the problem is simple though. The quests in the lstIndex aren't being loaded. I checked the server files and saw the quests I saved were there but they weren't being loaded into the list, any ways to fix this???

[Matt]

Take a look at how NPCs or Items load into the lstIndex. Then, do the same for quests.

[Elihu]

> Take a look at how NPCs or Items load into the lstIndex. Then, do the same for quests.

Tried that so many times.

[Matt]

```
dim I as integer

for i = 1 to MAX_QUESTS

lstIndex.additem(I & ": " & quest(i).name

next
```

Something along the lines of that.

To add the data to the textboxes containing the info for that quest would be

```
Sub lstIndex_Click()

txtName.text = quest(lstIndex.ListIndex + 1).Name

end sub
```

[Elihu]

> ```
> dim I as integer
>
> for i = 1 to MAX_QUESTS
>
> lstIndex.additem(I & ": " & quest(i).name
>
> next
> ```
>
> Something along the lines of that.
>
> To add the data to the textboxes containing the info for that quest would be
>
> ```
> Sub lstIndex_Click()
>
> txtName.text = quest(lstIndex.ListIndex + 1).Name
>
> end sub
> ```

Thanks, i'll see if it works.

[Elihu]

It didn't work, thanks anyways.

[Matt]

> It didn't work, thanks anyways.

Did an error come up?

[Elihu]

> Did an error come up?

Nope, problem still remains.

[Darxlek]

Hello, i've got the same problem with the load of the quests with Eclipse Mega and it makes me unable to continue my project..

The quests looks saved succesfully (when i look in the quests folder of the server, the "quest1.dat" file contains all data of the quest) but i think that the problem is for the loading of this file in the lstindex…

I've tried to do the way that Matthew said but without succes  :(

Does anyone else had this problem ?

If someone can help me a little bit i would be happy  :)

Sorry for my bad english, i'm french

Thanks for any response !

[Stein]

Hello,

There should be a sub in in ModEditors (or something along those lines) that initializes the Quest Editor. Could you post that up here please?

[Darxlek]

Hello Frankenstein and thank you for your response.

I've compared the sources of "Eclipse Mega" and "Eclipse the final frontier" (a custom version of Eclipse Mega where this bug was removed) and I have noticed that in the module called "modGameEditors" like you said, there was a difference on the sub nammed "EventListCommands" : in the EventListCommands of Eclipse the final frontier, this codes are not in Eclipse mega :

Case 8 'Quest status

If tmpEvent.Pages(curPageNum).CommandList(curlist).Commands(i).ConditionalBranch.data1 > 0 Then

Select Case tmpEvent.Pages(curPageNum).CommandList(curlist).Commands(i).ConditionalBranch.Data2

Case 0

frmEditor_Events.lstCommands.AddItem indent & "@>" & "Conditional Branch: Player Quest (" & Trim$(Quest(tmpEvent.Pages(curPageNum).CommandList(curlist).Commands(i).ConditionalBranch.data1).Name) & ") is [Open]"

Case 1

frmEditor_Events.lstCommands.AddItem indent & "@>" & "Conditional Branch: Player Quest (" & Trim$(Quest(tmpEvent.Pages(curPageNum).CommandList(curlist).Commands(i).ConditionalBranch.data1).Name) & ") is [Started]"

Case 2

frmEditor_Events.lstCommands.AddItem indent & "@>" & "Conditional Branch: Player Quest (" & Trim$(Quest(tmpEvent.Pages(curPageNum).CommandList(curlist).Commands(i).ConditionalBranch.data1).Name) & ") is [Completed]"

End Select

End If

And

Case 8 'Quest Status

tmpEvent.Pages(curPageNum).CommandList(curlist).Commands(curslot).ConditionalBranch.Condition = 8

tmpEvent.Pages(curPageNum).CommandList(curlist).Commands(curslot).ConditionalBranch.data1 = frmEditor_Events.cmbCondition_Quest.ListIndex + 1

tmpEvent.Pages(curPageNum).CommandList(curlist).Commands(curslot).ConditionalBranch.Data2 = frmEditor_Events.cmbCondition_Status.ListIndex[/vb]

I've added this code where it should was in Eclipse Mega, but the bug is always here  :(

[Darxlek]

Up please i really need to fix this, it makes me unable to continue my game  :( nobody had the same problem and fixed it ?.. I can't change my version of eclipse, i've translated it and modified it a lot for my game :(..

[Richy420Rich]

SendPlayerQuests Server

```

Public Sub SendPlayerQuests(ByVal index As Long)
Dim i As Long
Dim buffer As clsBuffer

Set buffer = New clsBuffer
buffer.WriteLong SPlayerQuest
For i = 1 To MAX_QUESTS
If Len(Trim$(Quest(i).Name)) > 0 Then buffer.WriteString Trim$(Quest(i).Name)
buffer.WriteLong Player(index).PlayerQuest(i).Status
buffer.WriteLong Player(index).PlayerQuest(i).ActualTask
buffer.WriteLong Player(index).PlayerQuest(i).CurrentCount
Next
SendDataTo index, buffer.ToArray()
Set buffer = Nothing

End Sub

```
HandlePlayerQuest Client

```

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
Quest(i).Name = buffer.ReadString
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

```
Unfortunately everything after that is broken lol.

[Darxlek]

Hi Richy and thanks a lot for you reply

I've tried to replace the SendPlayerQuests and HandlePlayerQuest subs, there was no compilation error and the pieces of code was effectively not the sames compared to mine but the quests don't wants to save and load correctly anyway… :'(

But thanks you very much for your reply..

The creator of the custom version of eclipse called "Eclipse-the final frontier" had found the issue at this problem and i've sent to him a private message to know that issue but he don't have reply..  :(

Thanks to anybody who'll can help me !..

[Darxlek]

 Nobody knows how to fix this ?  :( … i've all tried but i've not found..

[Darxlek]

For anyone who had the same problem that me,  escfoe2 helped me to solve it.

Step1 : Open the server side and below :

```

Public Const QUEST_COMPLETED_BUT As Byte = 3
```
paste this

```

Public Quest_Changed(1 To MAX_QUESTS) As Boolean
```
Step1 : Always in the server side, find :

```

    RequiredQuest As Long
```

And paste this below

```

    RequiredSwitch As Long
```

And it's all, it works pretty good, no quests bug anymore :) !!