Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

[EO] Alatar's Quest System v1.2


Alatar
 Share

Recommended Posts

  • Replies 703
  • Created
  • Last Reply

Top Posters In This Topic

ok i got a fix for that no quest log bug.  its pretty easy.

in **Private Sub HandlePlayerQuest**

search for```
For i = 1 To MAX_QUESTS
```
just below it should look like this if you added the tut right.
```
      Player(Index).PlayerQuest(i).Status = Buffer.ReadLong
      Player(Index).PlayerQuest(i).ActualTask = Buffer.ReadLong
      Player(Index).PlayerQuest(i).CurrentCount = Buffer.ReadLong
```
just change it to this
```
      Player(MyIndex).PlayerQuest(i).Status = Buffer.ReadLong
      Player(MyIndex).PlayerQuest(i).ActualTask = Buffer.ReadLong
      Player(MyIndex).PlayerQuest(i).CurrentCount = Buffer.ReadLong
```
Link to comment
Share on other sites

@sotvotkong:

> ok i got a fix for that no quest log bug.  its pretty easy.
>
> in **Private Sub HandlePlayerQuest**
>
> search for```
> For i = 1 To MAX_QUESTS
> ```
> just below it should look like this if you added the tut right.
> ```
>       Player(Index).PlayerQuest(i).Status = Buffer.ReadLong
>       Player(Index).PlayerQuest(i).ActualTask = Buffer.ReadLong
>       Player(Index).PlayerQuest(i).CurrentCount = Buffer.ReadLong
> ```
> just change it to this
> ```
>       Player(MyIndex).PlayerQuest(i).Status = Buffer.ReadLong
>       Player(MyIndex).PlayerQuest(i).ActualTask = Buffer.ReadLong
>       Player(MyIndex).PlayerQuest(i).CurrentCount = Buffer.ReadLong
> ```

Thanks ;D
Link to comment
Share on other sites

Just installed this…went step by step and got no errors or any problems starting the server and logging in...the only thing i cant figure out is why the /editquest or end button is not bringing anything up..have no way to get the menu up ..

Pretty sure i didnt miss a step but i guess i obviously did something wrong...

Anyone point me to which step or a way to fix this...

P.S.: On a side note..i dont have to have a npc spawned to edit the quests right? i mean i can just create the quests and place them later?
Link to comment
Share on other sites

@TheWidow:

> Just installed this…went step by step and got no errors or any problems starting the server and logging in...the only thing i cant figure out is why the /editquest or end button is not bringing anything up..have no way to get the menu up ..
>
> Pretty sure i didnt miss a step but i guess i obviously did something wrong...
>
> Anyone point me to which step or a way to fix this...

Are you sure you've added this :

@Alatar:

> **modInput**
>
> Find:
> ```
> SendRequestEditSpell
> ```Paste:
> ```
>                 Case "/editquest"
>                     If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then GoTo Continue
>                     SendRequestEditQuest
> ```

@TheWidow:

> P.S.: On a side note..i dont have to have a npc spawned to edit the quests right? i mean i can just create the quests and place them later?

Yes
Link to comment
Share on other sites

@Bcm27:

> If i copied the files from the blank EO into my existing game folders..Would it work?

When i tried this…it didnt work for me. Although it was 4am and i could have missed something and still confused to this moment why it didnt work. I ended up taking the blank EO folder renaming it and merging my existing files (moving the files 1 by 1) from my older game folder into the blank EO template folder.

Hope this helps.
Link to comment
Share on other sites

who knows, that uses eo1.5  it may work, but i know this works in 2.0  the newest version.  what you should use.
Link to comment
Share on other sites

your Form_Load for the frmQuest_Editor had a slight error you mixed up on of the MAX_BYTES and MAX_ITEMS it should be.

Private Sub Form_Load()
    scrlTotalTasks.Max = MAX_TASKS
    scrlNPC.Max = MAX_NPCS
    scrlItem.Max = MAX_ITEMS
    scrlMap.Max = MAX_MAPS
    scrlResource.Max = MAX_RESOURCES
    scrlAmount.Max = MAX_BYTE
    scrlReq(1).Max = MAX_LEVELS
    scrlReq(2).Max = MAX_ITEMS
    scrlReq(3).Max = MAX_QUESTS
    scrlItemRew.Max = MAX_ITEMS
    scrlItemRewValue.Max = MAX_BYTE  'can also be changed to any number under 32767 (For larger cash rewards)
    scrlItemNum(0).Max = MAX_ITEMS
    scrlItemNum(1).Max = MAX_ITEMS
    scrlItemValue(0).Max = MAX_BYTE 'can also be changed to any number under 32767
    scrlItemValue(1).Max = MAX_BYTE 'can also be changed to any number under 32767 (the max integer)
End Sub
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share


×
×
  • Create New...