[EO] Quest system - edited

[Qazek]

NEW WORKING VERSION!!! I think that XD

It's my quest system. If you don't have choice you can use it but it's very very bad quest system XD

CLIENT SIDE

Download attachments and replace in source client folder

It's a new NPC Editor if you don't have npc spell casting system you can delete this frame with scrollbars and labels XD I think you know what I said but I'm not good in english xD

Search this:

```
Private Type NpcRec
```
Add to this type:

```
    QuestNum As Long
    QuestLevel As Long
    QuestReqItem As Long
    QuestReqItemHowMany As Long
    QuestRewItem As Long
    QuestRewItemHowMany As Long
    QuestMsg1 As String * 250
    QuestMsg2 As String * 250
    QuestMsg3 As String * 250
    QuestMsg4 As String * 250
```
Search:
```
Public Const NPC_BEHAVIOUR_GUARD As Byte = 4
```
Add:
```
Public Const NPC_BEHAVIOUR_QUEST As Byte = 6
```
Search in NPCEditorInit in modGameEditors:
```
.txtEXP.text = Npc(EditorIndex).EXP
```
Add:
```
        .txtQuestNum.text = Npc(EditorIndex).QuestNum
        .txtQuestLevel.text = Npc(EditorIndex).QuestLevel
        .txtQuestReqItem.text = Npc(EditorIndex).QuestReqItem
        .txtQuestReqMany.text = Npc(EditorIndex).QuestReqItemHowMany
        .txtQuestRewItem.text = Npc(EditorIndex).QuestRewItem
        .txtQuestRewMany.text = Npc(EditorIndex).QuestRewItemHowMany
        .txtMsg1.text = Trim$(Npc(EditorIndex).QuestMsg1)
        .txtMsg2.text = Trim$(Npc(EditorIndex).QuestMsg2)
        .txtMsg3.text = Trim$(Npc(EditorIndex).QuestMsg3)
        .txtMsg4.text = Trim$(Npc(EditorIndex).QuestMsg4)
```
Ok now SERVER SIDE

Search:

```
Private Type NpcRec
```
Add to this type:

```
    QuestNum As Long
    QuestLevel As Long
    QuestReqItem As Long
    QuestReqItemHowMany As Long
    QuestRewItem As Long
    QuestRewItemHowMany As Long
    QuestMsg1 As String * 250
    QuestMsg2 As String * 250
    QuestMsg3 As String * 250
    QuestMsg4 As String * 250
```
Search:
```
Public Const NPC_BEHAVIOUR_GUARD As Byte = 4
```
Add:
```
Public Const NPC_BEHAVIOUR_QUEST As Byte = 6
```
Find in CanAttackNPC:

```
                    If Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_FRIENDLY And Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_SHOPKEEPER Then
```
Change to this:

```
                    If Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_FRIENDLY And Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_SHOPKEEPER And Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_QUEST Then
```
You will find below:
```
                        CanAttackNpc = True
                    Else
```
under this paste:

```
                        If Npc(NpcNum).Behaviour = NPC_BEHAVIOUR_QUEST Then
                            If Npc(NpcNum).QuestLevel <= GetPlayerLevel(Attacker) Then
                                If GetVar("data\quest\" & GetPlayerName(Attacker) & ".ini", "QUEST", "Quest" & Npc(NpcNum).QuestNum) = 0 Then
                                    Call PlayerMsg(Attacker, Npc(NpcNum).QuestMsg1, Yellow)
                                    Call PutVar("data\quest\" & GetPlayerName(Attacker) & ".ini", "QUEST", "Quest" & Npc(NpcNum).QuestNum, 1)
                                Exit Function
                                End If

                                If GetVar("data\quest\" & GetPlayerName(Attacker) & ".ini", "QUEST", "Quest" & Npc(NpcNum).QuestNum) = 1 Then
                                If HasItem(Attacker, Npc(NpcNum).QuestReqItem) Then
                                    Call PlayerMsg(Attacker, Npc(NpcNum).QuestMsg2, Yellow)
                                    Call TakeInvItem(Attacker, Npc(NpcNum).QuestReqItem, Npc(NpcNum).QuestReqItemHowMany)
                                    Call GiveInvItem(Attacker, Npc(NpcNum).QuestRewItem, Npc(NpcNum).QuestRewItemHowMany)
                                    Call PutVar("data\quest\" & GetPlayerName(Attacker) & ".ini", "QUEST", "Quest" & Npc(NpcNum).QuestNum, 2)
                                    Exit Function
                                Else
                                    Call PlayerMsg(Attacker, Npc(NpcNum).QuestMsg3, Yellow)
                                End If
                                End If

                                If GetVar("data\quest\" & GetPlayerName(Attacker) & ".ini", "QUEST", "Quest" & Npc(NpcNum).QuestNum) = 2 Then
                                    Call PlayerMsg(Attacker, Npc(NpcNum).QuestMsg4, Yellow)
                                Exit Function
                                End If
                            Else
                                Call PlayerMsg(Attacker, "You don't have required level!", Yellow)
                            End If
                        End If
```
Search:

```
            ' exit out early
            If IsSpell Then
                If Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_FRIENDLY And Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_SHOPKEEPER Then
                    CanAttackNpc = True
                    Exit Function
                End If
            End If
```
Change to this:

```
            ' exit out early
            If IsSpell Then
                If Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_FRIENDLY And Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_SHOPKEEPER And Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_QUEST Then
                    CanAttackNpc = True
                    Exit Function
                End If
            End If
```

Search this in AddChar:
```
        ' set starter equipment
        For n = 1 To 5
            Player(Index).Inv(n).Num = Class(ClassNum).StartItem(n)
            Player(Index).Inv(n).Value = Class(ClassNum).StartValue(n)
        Next
```
Add under this:

```
        For n = 1 To 100
            Call PutVar("data\quest\" & GetPlayerName(Index) & ".ini", "QUEST", "Quest" & n, 0)
        Next
```
Ok now in data folder in server add new folder "quest"

[Zetasis]

I'll have t test this out and see how it works.  :cheesy:

[DshWinchester]

A noob even know how end a sub  :renzo:

you are at least intermediate

I will try too D:

–-

origins dont have takeitem and giveitem function

so gives a problem

its different

must change to takeinvitem and giveinvitem

[Qazek]

WTF?

In my EO (1.1.0) there's TakeItem and GiveItem.

[Zetasis]

I'm pretty sure Origins does have the Take/GiveItem subs. Robin would know for sure so it would be best to ask him… Or just look through the source lol.

[DshWinchester]

wtf

here dont  :renzo:

anyway nice work  ;D

[Zetasis]

I just tried adding this into EO 1.1.0 and yeah there is no giveitem and takeitem subs. Any chance you have a fix for this?

[Robin]

Just replace them with 'TakeInvItem' and 'GiveInvItem'. I changed them around when I added the bank, as I needed similar procedures for taking/giving items to the bank.

[Qazek]

Ok changed to working version XD

[Zetasis]

So I have found a bug. The Reward Item Number does not save in the text box so when you finish a quest it will take the Required Item but gives the player nothing for finishing the quest.

[Mulkaar]

Any screenshots people want screenshots before they download it.

[Zetasis]

What exactly would you like a screen shot of?

[Mulkaar]

The Quest System ingame…

[Robin]

There's really not much to see. It's a very basic system which only uses PlayerMsgs to interface with the player. It's also using a God-awful .ini system. ;o

[Mr.Man03053ÃâžÂ]

Hm. We need someone to come up with an awesome quest system, with a nice looking log, fully sourced. Would be cool. For the time being, I guess we will have to use this..what type of quests can it create?

[Robin]

@Lunar1LTK:

> Hm. We need someone to come up with an awesome quest system, with a nice looking log, fully sourced.

A few of us have created those. Doubt they'll ever be released though.

[Mr.Man03053ÃâžÂ]

does anyone know what type of quests this can create? isnt to detailed..

[Robin]

If you look at the code, it's easy to see that it's just a basic "Give item" quest system. You attack a quest NPC to start the quest, you attack them again when you have the item they want, you receive reward.

[Mr.Man03053ÃâžÂ]

Wow..thats it? Hm..wow..haha. Maybe he should atleast add..killing quests? Even though I guess you could make it so the npc drops something everytime but stil…

[Robin]

@Lunar1LTK:

> Wow..thats it? Hm..wow..haha. Maybe he should atleast add..killing quests? Even though I guess you could make it so the npc drops something everytime but stil…

Do it yourself. He just released the system he created for himself.

[Mr.Man03053ÃâžÂ]

I will, I was auctally thinking of getting all the fixes for Eclipse Origins together, a guild and party system, quest system, enemy health bars and text and release. Im thinking about it though, might just keep it for Valkyrie Online, and release Eclipse Origins with all the fixes. But yeah, looks like Ill just edit this to my needs. Thanks guys.

[Robin]

Why would you do that? Simply post what the problems are and I'll fix them myself.

[Mr.Man03053ÃâžÂ]

Oh well I didnt know if you were going to do that or not. Alright hehe, sorry.

[Robin]

Am I going to fix all the bugs that get reported? Of course. What would be the point me releasing it otherwise?

[Mr.Man03053ÃâžÂ]

Well I wasnt sure if you were like Mr.Miguu who released Project Vertigo, and didn't really fix anything..or atleast thats what I tink had happened. Where should I post the bugs? in the Bugs and Errors form with [EO] tags?