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

Iman7

Members
  • Posts

    26
  • Joined

  • Last visited

    Never

Iman7's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. nevermind i got it! ![:)](http://www.touchofdeathforums.com/community/public/style_emoticons//smile.png)
  2. 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//wink.png) (Must be at least over newbie rank please!)
  3. Sorry for double post but I wanna know if anybody else is having this error or if its just my amazing luck ;(
  4. Okay so I got the real version (portable) but it's still not working D:
  5. 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//sad.png) Another EDIT: I looked for the real version and I couldn't even find it...........
  6. 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 = 97 And sInput = 48 And sInput
  7. I meant how do I open it in VB6…....
  8. I know this is probalbly hell for you but exactly how do I "Open the vbp file on server/client side?"
  9. Do you know how i acctually open it like what code I write? I googled it but found nothing ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons//sad.png)
  10. 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//biggrin.png)
  11. No I don't want to pay for VB6 ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons//sad.png) know where there is a free version?
  12. I tried everything and I know that the npc is causing the runtime error but i dont know what im doing wrong ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons//sad.png)
  13. Nooooo! I still get the error even with vb 2.2.1 ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons//sad.png)
  14. Where is this newer version and i dont get rte 9 anymore ![;)](http://www.touchofdeathforums.com/community/public/style_emoticons//wink.png)
  15. I was making my game in eclipsevb 2.2.0 and whenever i kill an enemy they do their drops and stuff but they dont attack or respawn! And every once in a while I get runtime error 9…please help!
×
×
  • Create New...