Quest System

[genusis]

lmao post contains to few characters

[Nean]

It's good, just work on your formatting. I'm going to try to convert this for Elysium.

[genusis]

the quest system i made was currently for Elysium, i converted it to ms4 for myself then i released it so others could use it.

[genusis]

just to let you know i fixed the tutorial ^^. i missed some things so i added it in for you all. thank for not telling em though XD. now the quest will finish and the npcs will say the ending stuff.

[timster0]

Thanks, I needed this. Last thing I need is a Guild System XD.

[genusis]

your welcomed =]. and i think i dark has a guild system coming and maybe nean might make one too who knows ^^. well I'm just wondering who is suppose to move working tutorials to the working tutorial section XD.

[Rian]

I will as soon as someone confirms that it's working

[genusis]

I will as soon as someone confirms that it's working

Nean or someone beside say this is working correctly.

[DarkX]

It works, don't you doubt. here's a copy of the source I'm working on with MS4 WITH THE QUEST SYSTEM IN IT!
http://mid-waytwistedgames.webs.com/dke2.0.rar

[Nean]

Forgot to add this to the quest rec:
QuestExpReward As Long

[genusis]

i might add that to the quest system who knows ^^.

[Nean]

No, what I mean is you have it called

Code:

Quest(i).QuestExpReward = 0

Yet you didn't define it in the quest rec. xD

[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.

[Rebjorn]

By the way, I have an issue when I try to get into my npceditor.

It bugs out at
Private Sub cmdOk_Click()
in frmIndex on the clientside.

If I try to force run it, it gives me an Compile Error: Invalid Qualifier
and marks up Public Sub NpcEditorInit()
in modGameEditors clienside. It also has a blue marking on this "DDSD_Sprite" same Sub.

What did I do wrong?

Edit: I figured that my quest editor did not show up even when I use the /editquest command, nothing happens, not even an error.

[genusis]

Re Read the tutorial and try it over make sure you have everything in the tutorial and that you did the npc stuff right and named the buttons and such correctly or placed the stuff in the npc subs correctly. other than that this tutorial does work without error. i add it to the newest addition of ms4 when they come out to make sure they work from this tutorial.

[maxrpg]

i seem to have a similar problem that Rebjorn had. when compiling/creating the .exe file it stops here

frmNpcEditor.scrlSprite.Max = (DDSD_Sprite.lHeight \ SIZE_Y) - 1

and gives me this error
Compile Error
Invalid Qualifier

however i can blank out the line like 'frmNpcEditor.scrlSprite.Max = (DDSD_Sprite.lHeight \ SIZE_Y) - 1 ...and it will compile and work fine. i can access the quest window and make quests but i cant figure out how exactly do you add the quest to the NPC? :\

is that line of code important in the script, what does it do?. and if i deffinately need it how can I solve this error problem please?
it is only that line of code that it has a problem with, the rest works fine.

[Rian]

The line that is giving you an error has nothing to do with the functionality of the quest system. All that line does is make the max value of the scroll bar scrlSprites equal to the max height of your sprite sheet. That line might be erroring because of recent changes to MS4.

Secondly, as far as adding the quest to an NPC, all you do is edit an npc and set it's quest number via a scroll bar on the NPC editor called scrlQuest. Which you should have added during this step of the tutorial:

Now in frmNpcEditor we need to add some stuff

first add

Code:
Private Sub Form_Load()
frmNpcEditor.scrlquest.Max = MAX_QUESTS
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


Now add a check box name it chkQuest, its caption: check to start quest.
Now make a two frames names frasay and the other fraQuest.

For frame frasay cut and add the textbox, txtAttackSay.
and in fraQuest make a label named: Label21, and a Hscrollbar named: scrlquest.
now set scrlquest min to 0 and the maxium to what ever you want like 30000.it doesn't matter.

now set fraQuest visible to false and frasay to true.

Any more questions?

[Robin]

I should start flagging your stuff as bloatware. Look through it and clean it up.

The simple fact you're not using loops where you should is worrying.

[genusis]

The original code was made off from the old Elysium and i just haven't changed it much from the old Elysium code. just modified it a bit to work with MS4.

[Matt]

The original code was made off from the old Elysium and i just haven't changed it much from the old Elysium code. just modified it a bit to work with MS4.

Rewrite it for MS4. Otherwise, this will eventually be deleted, moved or something. Not many people are going to use it. Well, the smart people anyways. Idiots will use this, I'm sure.

[Robin]

The original code was made off from the old Elysium and i just haven't changed it much from the old Elysium code. just modified it a bit to work with MS4.

I suggest you re-work it then, even if it's just for personal use.

[kasuko]

Does any one still have the frms for this? the download link is dead...