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

Dzastin

Members
  • Posts

    148
  • Joined

  • Last visited

    Never

Posts posted by Dzastin

  1. Yes,

    Public Const MAX_PLAYERS As Byte = 70
    Public Const MAX_ITEMS As Long = 500
    Public Const MAX_NPCS As Long = 500
    Public Const MAX_ANIMATIONS As Long = 255
    Public Const MAX_INV As Byte = 35
    Public Const MAX_MAP_ITEMS As Byte = 255
    Public Const MAX_MAP_NPCS As Byte = 30
    Public Const MAX_SHOPS As Byte = 50
    Public Const MAX_PLAYER_SPELLS As Byte = 100
    Public Const MAX_SPELLS As Byte = 255
    Public Const MAX_TRADES As Byte = 20
    Public Const MAX_RESOURCES As Byte = 100
    Public Const MAX_LEVELS As Byte = 150
    Public Const MAX_BANK As Byte = 100
  2. Hi, I have a problem.

    the last time we turned off the engine and turned it on again jumped Run Time:

    ![](http://img709.imageshack.us/img709/1025/npcf.png)
    Fixed Image Link ~ Soul
    Server is still running, but the NPCs do not move, and when excluding the server run time it rains.
  3. When I inserted the code in my error displays:
    [![](http://ifotos.pl/mini/error_srhwse.JPG)](http://ifotos.pl/zobacz/error_srhwse.JPG/)

    >! Case ITEM_TYPE_RECIPE
                    ' Get the recipe information
                    Item1 = Item(GetPlayerInvItemNum(Index, InvNum)).Data1
                    Item2 = Item(GetPlayerInvItemNum(Index, InvNum)).Data2
                    Result = Item(GetPlayerInvItemNum(Index, InvNum)).Data3

                    ' Perform Recipe checks
                    If Item1 <= 0 Then
                        Call PlayerMsg(Index, "This is an incomplete recipe…", White)
                        Exit Sub
                    End If

                    If Item2 <= 0 Then
                        Call PlayerMsg(Index, "This is an incomplete recipe...", White)
                        Exit Sub
                    End If

                    If Result <= 0 Then
                        Call PlayerMsg(Index, "This is an incomplete recipe...", White)
                        Exit Sub
                    End If

                    If GetPlayerEquipment(Index, Weapon) <= 0 Then
                        Call PlayerMsg(Index, "You don't have the proper tool equipped!", White)
                        Exit Sub
                    End If

                    If Item(GetPlayerEquipment(Index, Weapon)).Tool = Item(GetPlayerInvItemNum(Index, InvNum)).ToolReq Then
                        ' Give the resulting item
                            If HasItem(Index, Item1) Then
                                If HasItem(Index, Item2) Then
                                    Call TakeInvItem(Index, Item1, 1)
                                    Call TakeInvItem(Index, Item2, 1)
                                    Call GiveInvItem(Index, Result, 1)
                                    Call TakeInvItem(Index, GetPlayerInvItemNum(Index, InvNum), 0)
                                    Call PlayerMsg(Index, "You have successfully created " & Trim(Item(Result).Name) & ".", White)
                                Else
                                    Call PlayerMsg(Index, "You do not have all of the ingredients.", White)
                                    Exit Sub
                                End If
                            Else
                                Call PlayerMsg(Index, "You do not have all of the ingredients.", White)
                                Exit Sub
                            End If
                        Else
                            Call PlayerMsg(Index, "This is not the tool used in this recipe.", White)
                            Exit Sub
                        End If
×
×
  • Create New...