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

Dragon Eclipse 2.0


Draco.exe
 Share

Recommended Posts

hmmm you should try to compile the client and the server in the vb and test

About the "none" in the class required in the spell editor, here is how to fix it (thx to lel for reporting this!):

Client side:
In **Public Sub SpellEditorInit()** change this:
```
' build class combo
        .cmbClass.AddItem "None"
        .cmbClass.Clear

```
To this (just invert that tho lines):
```
' build class combo
        .cmbClass.Clear
        .cmbClass.AddItem "None"
```
Link to comment
Share on other sites

  • Replies 498
  • Created
  • Last Reply

Top Posters In This Topic

For "destroying" the summon item when you use it, do this (credits to Ryoku Hasu)

In modGameLogic replace **Sub SpawnPet** with this

>! ```
Sub SpawnPet(ByVal index As Long, ByVal mapNum As Long, npcNum As Long)
    Dim PlayerMap As Long
    Dim i As Integer
    Dim PetSlot As Byte

    'Prevent multiple pets for the same owner
    If TempPlayer(index).TempPetSlot > 0 Then Exit Sub

    PlayerMap = GetPlayerMap(index)
    PetSlot = 0

    For i = 1 To MAX_MAP_NPCS
        'If Map(PlayerMap).Npc(i) = 0 Then
        If MapNpc(PlayerMap).NPC(i).SpawnWait = 0 And MapNpc(PlayerMap).NPC(i).Num = 0 Then
            PetSlot = i
            Exit For
        End If
    Next

    If PetSlot = 0 Then
        Call GiveInvItem(index, npcNum, 0)
        Call PlayerMsg(index, "The map is too crowded for you to call on your pet!", Red)
        Exit Sub
    End If
>!     'create the pet for the map
    Map(PlayerMap).NPC(PetSlot) = npcNum
    MapNpc(PlayerMap).NPC(PetSlot).Num = npcNum
    'set its Pet Data
    MapNpc(PlayerMap).NPC(PetSlot).IsPet = YES
    MapNpc(PlayerMap).NPC(PetSlot).PetData.Name = GetPlayerName(index) & "'s " & NPC(npcNum).Name
    MapNpc(PlayerMap).NPC(PetSlot).PetData.Owner = index

    'If Pet doesn't exist with player, link it to the player
    If Player(index).Pet.SpriteNum <> npcNum Then
        Player(index).Pet.SpriteNum = npcNum
        Player(index).Pet.Name = GetPlayerName(index) & "'s " & NPC(npcNum).Name
    End If

    TempPlayer(index).TempPetSlot = PetSlot

    'cache the map for sending
    Call MapCache_Create(PlayerMap)
>!     'Cache the Pets for players logging on [Add new Number to array]
    PetMapCache(PlayerMap).UpperBound = PetMapCache(PlayerMap).UpperBound + 1
    PetMapCache(PlayerMap).Pet(PetMapCache(PlayerMap).UpperBound) = PetSlot

    If PetMapCache(Player(index).Map).UpperBound > 0 Then
        For i = 1 To PetMapCache(Player(index).Map).UpperBound
            Call NPCCache_Create(index, Player(index).Map, PetMapCache(Player(index).Map).Pet(i))
        Next
    End If
>!     Select Case GetPlayerDir(index)
        Case DIR_UP
            Call SpawnNpc(PetSlot, PlayerMap, GetPlayerX(index), GetPlayerY(index) - 1)
        Case DIR_DOWN
            Call SpawnNpc(PetSlot, PlayerMap, GetPlayerX(index), GetPlayerY(index) + 1)
        Case DIR_LEFT
            Call SpawnNpc(PetSlot, PlayerMap, GetPlayerX(index) + 1, GetPlayerY(index))
        Case DIR_RIGHT
            Call SpawnNpc(PetSlot, PlayerMap, GetPlayerX(index), GetPlayerY(index) - 1)
    End Select

    're-warp the players on the map
    For i = 1 To Player_HighIndex
        If IsPlaying(i) Then
            If GetPlayerMap(i) = GetPlayerMap(index) Then
                Call PlayerWarp(i, PlayerMap, GetPlayerX(i), GetPlayerY(i))
            End If
        End If
    Next

End Sub
>! ```

In modPlayer

>! find:
```
Case ITEM_TYPE_SUMMON
```
and add this at the bottom
```
Call TakeInvItem(index, itemnum, 0)
>! ```

–-------------------------------------------------------------------------

For the Projectiles, just create a weapon, then click on any other item in the list, then go back to your first item, you should see now the projectile options

---------------------------------------------------------------------------

@UchiaAxelz:

> Dear Eragon! If i place a door with the teleporting destination/ key requirement, and i walk into the D's spot, the server crashes with subscript out of range '9\. Any idea?

start the server in debug mode in Visual Basic (open the server.vbp and click F5) now do the thing you do for the error and when the error appears, press debug and paste here the highlighted code. I'll try to find the error too

maybe is causing some trouble with the door system of the event system
Link to comment
Share on other sites

@UchiaAxelz:

> Dear Eragon! If i place a door with the teleporting destination/ key requirement, and i walk into the D's spot, the server crashes with subscript out of range '9\. Any idea?

The Door system works good for me, check that the item is Type key (although you can place any item as key in the door editor)
Link to comment
Share on other sites

Why not just use the events for doors? I know ryokus door system is easy to use but a lot more with doors can be done threw events and once u play around with it for just a min u will se how easy it is to make animated doors for keys puzzles it simple unlocked moving doors as well.. sorry if this doesn't help I never had that issue with ryokus system in the past :/
Link to comment
Share on other sites

Thanks found the code in the source
```
Private Sub picCharacter_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
Const WM_NCLBUTTONDOWN = &HA1
    Const HTCAPTION = 2
    If Button = 1 Then
        ReleaseCapture
        SendMessage picCharacter.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
    End If

    If x > picCharacter.width - 10 Then
        If Y < -picCharacter.height + 281 Then
        picCharacter.Visible = False
        End If
    End If
End Sub
```
Link to comment
Share on other sites

@sebas1475:

> I have a problem. When i make a event, it not work, i press ctrl but nothing happen. You know what is the problem?
>
> PD: Sorry if my english is bad

hmmm idk really how the Event System work, just tried some things…you should check the official Eclipse Event download for guide and maybe you can ask in that thread for your question

you can use this page as a base for the event system, it's very similar: http://www.rmxp.tigerseye.uk.com/tutorial_event1.shtml
Link to comment
Share on other sites

In vanilla eclipse the event system work great, but whit your version it have some problems for work, for example, if i make the event to active when you press ctrl it don't work, but when i make the event to active when the player touch it, it work. You can find a fix for this?
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...