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

NightmareX91

Members
  • Posts

    106
  • Joined

  • Last visited

    Never

Posts posted by NightmareX91

  1. @Rainbow:

    > … of course it fucking does.

    Amazing way to bypass sensoring! But anyway. I normally get this when programming. Don't understand how you get it without programming :/
  2. @Lightning:

    > Change the values of CLIENT_MAJOR, CLIENT_MINOR and CLIENT_REVISION server-side. This stops people playing the game with a different version.

    Yes or this. Either way works, but I find mine easier because I am not editing the source in every update. But every update I add the new version file to my webs.com files and at the same time I edit version.txt
  3. Hello everybody. Now because I figured this out after asking how to do this, I thought I'd share a tutorial. This is all clientside

    What you need:
    A webhost (I use webs.com)
    VB6 (Obviously)

    Okay. So start off by creating a version.txt and put inside it the game version. I will use my current version in this tutorial.

    On frmMenu, open it in code and look for the form_load sub. Above:
    ```
    Dim tmpTxt As String, tmpArray() As String, I As Long
    ```put:
    ```
        'NightmareX91's Update alert system
        Dim Site As String
        Dim Current As String
        Dim Answer As Integer
        Site = Inet1.OpenURL("URL OF VERSION.TXT") 'Enter URL of text file with latest version number
        Current = "6.0" 'Version number of the program being used
        If Site = Current Then
        Else
        Answer = MsgBox("You dont have the latest version of the game! Please run the Autoupdater!", vbOKOnly)
        If Answer = vbOK Then
        End
        End If
        End If

    ```Now go into form mode. Same form, insert a Microsoft Internet Transfer Control (Inet)

    Now you can customize the message! If you want to let people play without updating, change
    ```
        Answer = MsgBox("You dont have the latest version of the game! Please run the Autoupdater!", vbOKOnly)
        If Answer = vbOK Then
    End

    ```to:
    ```
        Answer = MsgBox("You dont have the latest version of the game! Please run the Autoupdater! Exit?", vbYesNo)
        If Answer = vbYes Then
    End
    Else
    Answer = MsgBox("You will find missing sprites/features during gameplay!", vbOKOnly)

    ```

    [GM]

    I would like to know more about this too. Where exactly does Call SetPlayerName(index, "[GM] & " GetPlayerName(index) & ") go?
  4. @iSkweek:

    > Are you talking about Samu's tutorial? If yes then I think that is probably the easiest way to do it. But I am not hugely knowledgeable in terms of DirectDraw. If you feel like learning you could just look at the code for it in the EE source and then try and make a similar piece of code for EO.

    Yes, I had trouble with it due to modFonts' removal.
  5. @Savents:

    > When ever I make an account and character I can log in just fine, when I log out and try to log back in again I get a "Incorrect Password" message, I read in a another topic that this can happen if you have opened up the .BIN character file, I have done this but I didn't know I would get an error from it, now when ever I make a new account I log in, but once I log back out again I get incorrect password well trying to log back in.

    Happened to me LOADS of times. Use a different username. Character name can be the same as last time.
  6. Yes this was posted before but I have it where I put –> <--. Could someone help me?
    ```
    ' ::::::::::::::::::::::
    ' :: Save item packet ::
    ' ::::::::::::::::::::::
    Sub HandleSaveItem(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddR As Long, ByVal ExtraVar As Long)
        Dim n As Long
        Dim Buffer As clsBuffer
        Dim ItemSize As Long
        Dim ItemData() As Byte
        Set Buffer = New clsBuffer
        Buffer.WriteBytes Data()

        ' Prevent hacking
        If GetPlayerAccess(index) < ADMIN_DEVELOPER Then
            Exit Sub
        End If

        n = Buffer.ReadLong 'CLng(Parse(1))

        If n < 0 Or n > MAX_ITEMS Then
            Exit Sub
        End If

        ' Update the item
        ItemSize = LenB(Item(n))
        ReDim ItemData(ItemSize - 1)
        ItemData = Buffer.ReadBytes(ItemSize)
    --> CopyMemory ByVal VarPtr(Item(n)), ByVal VarPtr(ItemData(0)), ItemSize <--
        Set Buffer = Nothing

        ' Save it
        Call SendUpdateItemToAll(n)
        Call SaveItem(n)
        Call AddLog(GetPlayerName(index) & " saved item #" & n & ".", ADMIN_LOG)
    End Sub

    ```
  7. Eclipse Darkarkia is basically used in my game, Dark Fortress. This version of EO will contain everything I add to the engine. I will release it for download when I've finished the weather system. In the source you MAY find fail attempts for the House editor so if you want you could implement that for me because I've had trouble with it.

    DOWNLOAD: Not released.
×
×
  • Create New...