Quest System

[Rebjorn]

Now in frmNpcEditor we need to add some stuff

first add

Code:

Private Sub Form_Load()

End Sub

Private Sub scrlquest_Change()
If scrlquest.Value = 0 Then
frmNpcEditor.Label21.Caption = "None"
Else
frmNpcEditor.Label21.Caption = "Quest Number " & frmNpcEditor.scrlquest.Value
End If
End Sub
Private Sub chkQuest_Click()
If chkQuest.Value = 1 Then
fraQuest.Visible = True
frasay.Visible = False

Else
If chkQuest.Value = 0 Then
fraQuest.Visible = False
frasay.Visible = True
End If
End If
End Sub

This part is having some issues with the latest MS4 beta. It already calls Private Sub Form_Load() at the top of frmNpcEditor, so what you do instead is to find Private Sub Form_Load() in current module (frmNpcEditor) and add below scrlSprite.Max = NumSprites :

Code:

frmNpcEditor.scrlquest.Max = MAX_QUESTS

Then you insert the Quest System code with this:

Code:

Private Sub scrlquest_Change()
If scrlquest.Value = 0 Then
frmNpcEditor.Label21.Caption = "None"
Else
frmNpcEditor.Label21.Caption = "Quest Number " & frmNpcEditor.scrlquest.Value
End If
End Sub
Private Sub chkQuest_Click()
If chkQuest.Value = 1 Then
fraQuest.Visible = True
frasay.Visible = False

Else
If chkQuest.Value = 0 Then
fraQuest.Visible = False
frasay.Visible = True
End If
End If
End Sub

Please correct me if I'm wrong.