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

Iman7

Members
 View Profile  See their activity

  • Posts

    26

  • Joined

  • Last visited

    Never

 Content Type 

Posts posted by Iman7

    NPC's Do Nothing! (Need VB6 Help!)

    in Q & A

    Posted

    BUMP

    I have an idea but I need someone who knows they can fix this error on their own. This sounds kinda lame and rude but I will send someone the files to my game, server and all (That`s why I need to trust them, plus the game is just for me and my buds anyways!)

    and have them fix it for me, cause a lot of people like Matthew and Sherwin know how to fix this, so if your in for the job then please ask and I will send you the files! When your done send the fixed game back and I will have to owe you one ![;)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/wink.png) (Must be at least over newbie rank please!)

    NPC's Do Nothing! (Need VB6 Help!)

    in Q & A

    Posted

    Yes I do can you help me check out the code above?

    EDIT: Balls….....I figured out I need a licensed product but I realy don't want to pay for it, I don't have money to waste on

    things like that ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/sad.png)

    Another EDIT: I looked for the real version and I couldn't even find it...........

    NPC's Do Nothing! (Need VB6 Help!)

    in Q & A

    Posted

    Okay I found some .vbp files in the template,projects folder but what now do i have to make a file?

    PS:I have a free version of it.

    Edit:Nevermind so I opened the server.vbp file with VB6 and then ran it. It says

    Runtime error 429

    License information for this component not found. You do not have an appropriate liscense to use this functionality in the

    design enviorment.

    Then I clicked debug and it showed this,

    ```
    Public Sub InitServer()

    Dim i As Long

    Dim F As Long

    Dim StartTime As Long

    Dim EndTime As Long

    Call InitMessages

    StartTime = timeGetTime

    frmServer.Show

    ' Initialize the random-number generator

    Randomize

    ' Check if the directory is there, if its not make it

    ChkDir App.Path & "\data\", "accounts"

    ChkDir App.Path & "\data\", "animations"

    ChkDir App.Path & "\data\", "banks"

    ChkDir App.Path & "\data\", "items"

    ChkDir App.Path & "\data\", "logs"

    ChkDir App.Path & "\data\", "maps"

    ChkDir App.Path & "\data\", "npcs"

    ChkDir App.Path & "\data\", "resources"

    ChkDir App.Path & "\data\", "shops"

    ChkDir App.Path & "\data\", "spells"

    ChkDir App.Path & "\data\", "convs"

    ChkDir App.Path & "\data\", "quests"

    ' set quote character

    vbQuote = ChrW$(34)

    ' load options, set if they dont exist

    If Not FileExist(App.Path & "\data\options.ini", True) Then

    Options.Game_Name = "EclipseVB"

    Options.Port = 7001

    Options.MOTD = "Welcome to EclipseVB."

    Options.Website = "http://www.touchofdeathforums.com/"

    SaveOptions

    Else

    LoadOptions

    End If

    ' Get the listening socket ready to go

    frmServer.Socket(0).RemoteHost = frmServer.Socket(0).LocalIP

    frmServer.Socket(0).LocalPort = Options.Port

    ' Init all the player sockets

    Call SetStatus("Initializing player array...")

    For i = 1 To MAX_PLAYERS

    Call ClearPlayer(i)

    Load frmServer.Socket(i)

    Next

    ' Serves as a constructor

    Call ClearGameData

    Call LoadGameData

    Call SetStatus("Spawning map items...")

    Call SpawnAllMapsItems

    Call SetStatus("Spawning map npcs...")

    Call SpawnAllMapNpcs

    Call SetStatus("Creating map cache...")

    Call CreateFullMapCache

    Call SetStatus("Loading System Tray...")

    Call LoadSystemTray

    ' Check if the master charlist file exists for checking duplicate names, and if it doesnt make it

    If Not FileExist("data\accounts\charlist.txt") Then

    F = FreeFile

    Open App.Path & "\data\accounts\charlist.txt" For Output As #F

    Close #F

    End If

    ' Start listening

    frmServer.Socket(0).Listen

    Call UpdateCaption

    ' Check how long it took to start up

    EndTime = timeGetTime

    Call SetStatus("Initialization complete. Server loaded in " & EndTime - StartTime & "ms.")

    ' reset shutdown value

    isShuttingDown = False

    ' Starts the server loop

    ServerLoop

    End Sub

    Public Sub DestroyServer()

    Dim i As Long

    ServerOnline = False

    Call SetStatus("Destroying System Tray...")

    Call DestroySystemTray

    Call SetStatus("Saving players online...")

    Call SaveAllPlayersOnline

    Call ClearGameData

    Call SetStatus("Unloading sockets...")

    For i = 1 To MAX_PLAYERS

    Unload frmServer.Socket(i)

    Next

    End

    End Sub

    Public Sub SetStatus(ByVal Status As String)

    Call TextAdd(Status)

    DoEvents

    End Sub

    Public Sub ClearGameData()

    Call SetStatus("Clearing temp tile fields...")

    Call ClearTempTiles

    Call SetStatus("Clearing maps...")

    Call ClearMaps

    Call SetStatus("Clearing map items...")

    Call ClearMapItems

    Call SetStatus("Clearing map npcs...")

    Call ClearMapNpcs

    Call SetStatus("Clearing npcs...")

    Call ClearNpcs

    Call SetStatus("Clearing resources...")

    Call ClearResources

    Call SetStatus("Clearing items...")

    Call ClearItems

    Call SetStatus("Clearing shops...")

    Call ClearShops

    Call SetStatus("Clearing spells...")

    Call ClearSpells

    Call SetStatus("Clearing animations...")

    Call ClearAnimations

    Call SetStatus("Clearing conversations...")

    Call ClearConvs

    Call SetStatus("Clearing quests...")

    Call ClearQuests

    End Sub

    Private Sub LoadGameData()

    Call SetStatus("Loading classes...")

    Call LoadClasses

    Call SetStatus("Loading maps...")

    Call LoadMaps

    Call SetStatus("Loading items...")

    Call LoadItems

    Call SetStatus("Loading npcs...")

    Call LoadNpcs

    Call SetStatus("Loading resources...")

    Call LoadResources

    Call SetStatus("Loading shops...")

    Call LoadShops

    Call SetStatus("Loading spells...")

    Call LoadSpells

    Call SetStatus("Loading animations...")

    Call LoadAnimations

    Call SetStatus("Loading conversations...")

    Call LoadConvs

    Call SetStatus("Loading quests...")

    Call LoadQuests

    End Sub

    Public Sub TextAdd(Msg As String)

    NumLines = NumLines + 1

    If NumLines >= MAX_LINES Then

    frmServer.txtText.Text = vbNullString

    NumLines = 0

    End If

    frmServer.txtText.Text = frmServer.txtText.Text & vbNewLine & Msg

    frmServer.txtText.SelStart = Len(frmServer.txtText.Text)

    End Sub

    ' Used for checking validity of names

    Function isNameLegal(ByVal sInput As Integer) As Boolean

    If (sInput >= 65 And sInput <= 90) Or (sInput >= 97 And sInput <= 122) Or (sInput = 95) Or (sInput = 32) Or (sInput >= 48 And sInput <= 57) Then

    isNameLegal = True

    End If

    End Function

    ```

    NPC's Do Nothing! (Need VB6 Help!)

    in Q & A

    Posted

    Sorry for double post but I got VB6 now what do I do? Please explain very detailed because I have no idea how to use this software…... ![:D](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/biggrin.png)

    Weird Client Glitch

    in Q & A

    Posted

    Now im using eclipse 3.0 and it says RUNTIME ERROR 429 ACTIVE X CANT CREATE OBJECT. I think were getting closer! (and im using windows 7 and yes i set the compatibility mode!)

    Individual Runtime Files [ASAP]

    in Q & A

    Posted

    Hi guys…..

    I have a problem installing the runtime files with the installer so I decided I will just do it manually!

    So if you could send me a link to them that would be great!

    And don't procrastinate I am desperate!

    And I'm pretty sure that you all have them!

    Thanks for your time and remember

    ASAP

    Weird Client Glitch

    in Q & A

    Posted

    gosh whenever i install the runtimes it shows a tiny bit of green, says 100% and says installing tabctl32.ocx then says its done! If that's an error please notify me ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/sad.png) this really sucks…......and yes i put blood back ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/sad.png) and im using EclipseVB 2.2.0

    EDIT: I checked where the runtimes should be (windows,system32x) and they weren't there! So I think i should install them manually, so does anyone have the actual runtime files?
×
×
  • Create New...