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

minipimp

Members
  • Posts

    527
  • Joined

  • Last visited

    Never

Posts posted by minipimp

  1. Hey, Eldrum's server is online and looking for Mappers…..   Im looking for anyone who can get the job done in a timely manner. Doesnt have to work 24/7... but still knows how to make progress..   Im looking for someone to start immediately, Here is a screenshot of  the city you start out in. I need someone who can finish this city and expand. I have a drawn up template so you would just have to work your magic looking at a template rather than pulling stuff out of your rear.   PM if interested , show me your work. :)

    ![](http://tsbeats.com/images/desk.png)
  2. Well okay i started up the client.vbp and clicked okay to all the load errors.  I then put a " ' "  on each of subs that are giving me errors and it then started up but gave an error due to it needing to read a file that I "' " put on it. so Could you help me figure out what I need to do for it to start up correctly. its not giving me runtime errors , just these few errors  "User-defined type not defined."

    Ive dealt with the source before so I know a little bit of what I am doing, but I do not know how to fix this so I can edit the client and compile it without these loading errors.
  3. I did that, it says [“Object library not registered”  ](http://stackoverflow.com/questions/16018271/object-library-not-registered-when-adding-microsoft-rich-textbox-control-6-0) for both client and server when I changed that.   error on the few forms loading still.
  4. Does the source load fine for you? straight from the download,  I really wish I could get this figured out.  I just want to be able to edit the source, the game client works fine.. just wont open source correctly. :(
  5. > The following error occured at 'Form_Unload' In 'frmMain'.
    >
    > Run-time error '0': .
    >
    > The following error occured at 'cmdSpawn_Click' In 'frmAdmin'.
    > Run-time error '0': .
    >
    > The following error occured at 'Form_Unload' In 'frmMain'.
    > Run-time error '0': .
    >
    > The following error occured at 'Form_Unload' In 'frmMain'.
    > Run-time error '0': .
    >
    > The following error occured at 'HandleUpdateQuest' In 'modHandleData'.
    > Run-time error '0': .
    >
    > The following error occured at 'HandleUpdateQuest' In 'modHandleData'.
    > Run-time error '0': .
    >
    > The following error occured at 'Form_Unload' In 'frmMain'.
    > Run-time error '0': .
    >
    > The following error occured at 'HandleUpdateQuest' In 'modHandleData'.
    > Run-time error '0': .
    >
    > The following error occured at 'HandleUpdateQuest' In 'modHandleData'.
    > Run-time error '0': .
    >
    > The following error occured at 'cmdSpawn_Click' In 'frmAdmin'.
    > Run-time error '0': .
    >
    > The following error occured at 'cmdSpawn_Click' In 'frmAdmin'.
    > Run-time error '0': .
    >
    > The following error occured at 'Form_Unload' In 'frmMain'.
    > Run-time error '0': .
    >
    > The following error occured at 'HandleUpdateQuest' In 'modHandleData'.
    > Run-time error '0': .
    >
    > The following error occured at 'HandleUpdateQuest' In 'modHandleData'.
    > Run-time error '0': .
    >
    > The following error occured at 'Form_Unload' In 'frmMain'.
    > Run-time error '0': .
  6. ```
    Public Sub FindNearestTarget()
    Dim i As Long, x As Long, y As Long, x2 As Long, y2 As Long, xDif As Long, yDif As Long
    Dim bestX As Long, bestY As Long, bestIndex As Long

    x2 = GetPlayerX(MyIndex)
    y2 = GetPlayerY(MyIndex)

    bestX = 255
    bestY = 255

    For i = 1 To MAX_MAP_NPCS
    If MapNpc(i).num > 0 Then
    x = MapNpc(i).x
    y = MapNpc(i).y
    ' find the difference - x
    If x < x2 Then
    xDif = x2 - x
    ElseIf x > x2 Then
    xDif = x - x2
    Else
    xDif = 0
    End If
    ' find the difference - y
    If y < y2 Then
    yDif = y2 - y
    ElseIf y > y2 Then
    yDif = y - y2
    Else
    yDif = 0
    End If
    ' best so far?
    If (xDif + yDif) < (bestX + bestY) Then
    bestX = xDif
    bestY = yDif
    bestIndex = i
    End If
    End If
    Next

    ' target the best
    If bestIndex > 0 And bestIndex <> myTarget Then playertarget bestIndex, TARGET_TYPE_NPC
    End Sub

    ```
    It says the sub or function of PLAYERTARGET BESTINDEX is undefined.  im trying to place this in my engine that is based off of Prospects engine. ( dont hate for using this engine )   How could I convert it to work?    Im placing this so when I push the tab button i can cycle through all the nearest npcs around my character instead of using the point to click method.
×
×
  • Create New...