Problem with Alatar System Quest

Hello! I am getting problems with Alatar System Quest, I have added the code to my project, didnt replace frmEditor_NPC & frmMain because

I dont want to lose other coddes that I added; But everything seems to be Ok, I copy+paste the windows of “QuestLog” & “QuestDialogue”

and I make a NPC to give quest number 1; But when I atack the NPC, didnt send me the “QuestLog” window :(

Mention that I added the images “questlog.jpg” & “questdialogue.jpg” of window to my graphics/gui/main…

Can you help me please??

Do you added the codes too ?

Do you added the codes too ?

Yeah, for server/src I added modSvQuest.bas and for client src I added modQuests.bas, frmEditor_Quest.frx and frmEditor_Quest.frm

But I didnt added:

frmMain.frx, frmMain.frm, frmEditor_NPC.frx and frmEditor_NPC.frm because I dont want to lose other changes that I have in that forms :S

You won’t necessarily need to add those forms, but all of the changes that were made that apply to the system you will still need to add to your current forms. I think that is what he is asking, if you have added the code and required objects to your current form.

You won’t necessarily need to add those forms, but all of the changes that were made that apply to the system you will still need to add to your current forms. I think that is what he is asking, if you have added the code and required objects to your current form.

Yes, I searched all the 'alatar code lines in the EO with Quest System that Alatar provides and copy+paste all the code, but still dont work :unsure:

Excuse my english :$

Yes, I searched all the 'alatar code lines in the EO with Quest System that Alatar provides and copy+paste all the code, but still dont work :unsure:

Excuse my english :$

You need to add the code from the forms as well, or else it won’t work.

You need to add the code from the forms as well, or else it won’t work.

I added them all… but still doesnt work

Nothing appears when I atack the NPC-Quest :( so I cant acept the Quest#1 that I made for the NPC-Quest

EDIT: OH HELL! Now when I click on a NPC that have a spell to through (in NPC_Editor) it send me:

Run-time error ‘380’:

invalid property value

and this is the debug line:

.chkQuest.Value = NPC(EditorIndex).Quest

maybe something is wrong?

Post your NPC rec.

Post your NPC rec.

! ```
’ ////////////////
! ’ // Npc Editor //
! ’ ////////////////
! Public Sub NpcEditorInit()
! Dim i As Long
! Dim SoundSet As Boolean
! ’ If debug mode, handle error then exit out
! If Options.Debug = 1 Then On Error GoTo errorhandler
! If frmEditor_NPC.Visible = False Then Exit Sub
! EditorIndex = frmEditor_NPC.lstIndex.ListIndex + 1
! ’ populate the cache if we need to
! If Not hasPopulated Then
! PopulateLists
! End If
! ’ add the array to the combo
! frmEditor_NPC.cmbSound.Clear
! frmEditor_NPC.cmbSound.AddItem “None.”
! For i = 1 To UBound(soundCache)
! frmEditor_NPC.cmbSound.AddItem soundCache(i)
! Next
! ’ finished populating
! With frmEditor_NPC
! .txtName.text = Trim$(NPC(EditorIndex).Name)
! .txtAttackSay.text = Trim$(NPC(EditorIndex).AttackSay)
! If NPC(EditorIndex).Sprite < 0 Or NPC(EditorIndex).Sprite > .scrlSprite.Max Then NPC(EditorIndex).Sprite = 0
! .scrlSprite.Value = NPC(EditorIndex).Sprite
! .txtSpawnSecs.text = CStr(NPC(EditorIndex).SpawnSecs)
! .cmbBehaviour.ListIndex = NPC(EditorIndex).Behaviour
! .scrlRange.Value = NPC(EditorIndex).Range
! .txtChance.text = CStr(NPC(EditorIndex).DropChance)
! .scrlNum.Value = NPC(EditorIndex).DropItem
! .scrlValue.Value = NPC(EditorIndex).DropItemValue
! .txtHP.text = NPC(EditorIndex).HP
! .txtEXP.text = NPC(EditorIndex).EXP
! .txtLevel.text = NPC(EditorIndex).Level
! .txtDamage.text = NPC(EditorIndex).Damage
!
! 'ALATAR
! .chkQuest.Value = NPC(EditorIndex).Quest
! .scrlQuest.Value = NPC(EditorIndex).QuestNum
! '/ALATAR
!
! .scrlSpellNum.Max = MAX_NPC_SPELLS
! .scrlSpellNum.Value = 1
!
! ’ find the sound we have set
! If .cmbSound.ListCount >= 0 Then
! For i = 0 To .cmbSound.ListCount
! If .cmbSound.List(i) = Trim$(NPC(EditorIndex).Sound) Then
! .cmbSound.ListIndex = i
! SoundSet = True
! End If
! Next
! If Not SoundSet Or .cmbSound.ListIndex = -1 Then .cmbSound.ListIndex = 0
! End If
!
! For i = 1 To Stats.Stat_Count - 1
! .scrlStat(i).Value = NPC(EditorIndex).Stat(i)
! Next
! End With
! Call EditorNpc_BltSprite
! NPC_Changed(EditorIndex) = True
! ’ Error handler
! Exit Sub
! errorhandler:
! HandleError “NpcEditorInit”, “modGameEditors”, Err.Number, Err.Description, Err.Source, Err.HelpContext
! Err.Clear
! Exit Sub
! End Sub


This?

! ```
’ ////////////////
! ’ // Npc Editor //
! ’ ////////////////
! Public Sub NpcEditorInit()
! Dim i As Long
! Dim SoundSet As Boolean
! ’ If debug mode, handle error then exit out
! If Options.Debug = 1 Then On Error GoTo errorhandler
! If frmEditor_NPC.Visible = False Then Exit Sub
! EditorIndex = frmEditor_NPC.lstIndex.ListIndex + 1
! ’ populate the cache if we need to
! If Not hasPopulated Then
! PopulateLists
! End If
! ’ add the array to the combo
! frmEditor_NPC.cmbSound.Clear
! frmEditor_NPC.cmbSound.AddItem “None.”
! For i = 1 To UBound(soundCache)
! frmEditor_NPC.cmbSound.AddItem soundCache(i)
! Next
! ’ finished populating
! With frmEditor_NPC
! .txtName.text = Trim$(NPC(EditorIndex).Name)
! .txtAttackSay.text = Trim$(NPC(EditorIndex).AttackSay)
! If NPC(EditorIndex).Sprite < 0 Or NPC(EditorIndex).Sprite > .scrlSprite.Max Then NPC(EditorIndex).Sprite = 0
! .scrlSprite.Value = NPC(EditorIndex).Sprite
! .txtSpawnSecs.text = CStr(NPC(EditorIndex).SpawnSecs)
! .cmbBehaviour.ListIndex = NPC(EditorIndex).Behaviour
! .scrlRange.Value = NPC(EditorIndex).Range
! .txtChance.text = CStr(NPC(EditorIndex).DropChance)
! .scrlNum.Value = NPC(EditorIndex).DropItem
! .scrlValue.Value = NPC(EditorIndex).DropItemValue
! .txtHP.text = NPC(EditorIndex).HP
! .txtEXP.text = NPC(EditorIndex).EXP
! .txtLevel.text = NPC(EditorIndex).Level
! .txtDamage.text = NPC(EditorIndex).Damage
!
! 'ALATAR
! .chkQuest.Value = NPC(EditorIndex).Quest
! .scrlQuest.Value = NPC(EditorIndex).QuestNum
! '/ALATAR
!
! .scrlSpellNum.Max = MAX_NPC_SPELLS
! .scrlSpellNum.Value = 1
!
! ’ find the sound we have set
! If .cmbSound.ListCount >= 0 Then
! For i = 0 To .cmbSound.ListCount
! If .cmbSound.List(i) = Trim$(NPC(EditorIndex).Sound) Then
! .cmbSound.ListIndex = i
! SoundSet = True
! End If
! Next
! If Not SoundSet Or .cmbSound.ListIndex = -1 Then .cmbSound.ListIndex = 0
! End If
!
! For i = 1 To Stats.Stat_Count - 1
! .scrlStat(i).Value = NPC(EditorIndex).Stat(i)
! Next
! End With
! Call EditorNpc_BltSprite
! NPC_Changed(EditorIndex) = True
! ’ Error handler
! Exit Sub
! errorhandler:
! HandleError “NpcEditorInit”, “modGameEditors”, Err.Number, Err.Description, Err.Source, Err.HelpContext
! Err.Clear
! Exit Sub
! End Sub


This?

modTypes

NpcRec

Excuse me :P

! ```
Private Type NpcRec
! Name As String * NAME_LENGTH
! AttackSay As String * 100
! Sound As String * NAME_LENGTH
! Sprite As Long
! SpawnSecs As Long
! Behaviour As Byte
! Range As Byte
! DropChance As Long
! DropItem As Long
! DropItemValue As Long
! Stat(1 To Stats.Stat_Count - 1) As Byte
! HP As Long
! EXP As Long
! Animation As Long
! Damage As Long
! Level As Long
! 'ALATAR
! Quest As Byte
! QuestNum As Long
! '/ALATAR
! ’ Npc Spells
! Spell(1 To MAX_NPC_SPELLS) As Long
! End Type

A checkbox has three values: 0, 1 and 2. You may be trying to set the value to something beyond it’s max. I don’t know how Alatar’s quest system works, so I’ll let you figure that out on your own.

Try deleting your NPCs or convert them.

This is very frustrating…… I replace src carpets of client and server, compile them, and still dont working… HELL!!

EDIT: I FIX IT!!! I have Alatar Quest System, the problem was that the picturequestlog didnt appear, and looking around the forum i saw a solution: adding stats to the NPC Give Quester.

Nice, bye ^^

Log in to reply