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

Lavos

Members
  • Posts

    867
  • Joined

  • Last visited

Posts posted by Lavos

  1. @Yukiyo:

    > Client Writes to Server which creates/saves/stores the binaries.

    Alright is there a way where I can locate the code which writes the data/binaries on to the server directory folder? Maybe you can point me to the right direction? I'm Guessing it might be in modClientTcp and modHandledata?
  2. Okay I did mention before that I'm trying to build a Hotbar on ES but there are somethings I can't put my finger on. I continuously explored all the forms and the modules on the client side trying to find out where does the edited source from the "Editor's" such as spell editor and item editor store all there data at? All the clue's ive found is that it has something to do with an index or myindex. I searched the key word on every form and mods, but there are ton of them written all over the place. Where can I find the root of this?
  3. Hi!
        I got question about the Mailing system on ES I trying to make frmInbox work on a picturebox located in frmStable. I am able to send and receive a warning that I have mail but for some reason I'm able to read or see the messages because on both lstInbox and lstOutbox is blank. Here is what I did so far on the edit.

    INSIDE frmStable
    ```
    Private Sub cmdInboxSel_Click()
      frOutbox.Visible = False
        picMailBox.Width = 217
        lstOutbox.Visible = False
        lstMail.Visible = True
    End Sub

    Private Sub cmdOutboxSel_Click()
      frOutbox.Visible = False
        picMailBox.Width = 217
        lstOutbox.Visible = True
        lstMail.Visible = False
    End Sub

    Private Sub cmdForward_Click()
      If frNew.Visible = True Then
            Exit Sub
        End If
        Dim ListedMsg As Long
        Dim MsgID As String
        If lstMail.Visible = True Then
            MsgID = lstMail.Text
            If MsgID <> "" Then
                ListedMsg = Mid$(MsgID, 2, 4)
                Call GetMsgBody(GetPlayerName(MyIndex), ListedMsg, 1)
            End If
        Else
            MsgID = lstOutbox.Text
            If MsgID <> "" Then
                ListedMsg = Mid$(MsgID, 2, 4)
                Call GetMsgBody(GetPlayerName(MyIndex), ListedMsg, 2)
            End If
        End If
        frNew.Visible = True
        picMailBox.Width = 497
        cmdForward.Enabled = False
        cmdOutboxSel.Enabled = False
        cmdInboxSel.Enabled = False
        cmdDelete.Enabled = False
        'cmdCloseInbox.Enabled = False
        cmdNew.Enabled = False
        frInbox.Visible = False
        frOutbox.Visible = False
    End Sub

    Private Sub cmdDelete_Click()
      Dim DltMsg As String
        Dim DltMsgNum As Long

        If frNew.Visible = True Then
            Exit Sub
        End If

        If lstMail.Visible = True Then
            DltMsg = lstMail.Text
            If DltMsg <> "" Then
                DltMsgNum = Mid$(DltMsg, 2, 4)
                Call RemoveMail(GetPlayerName(MyIndex), DltMsgNum, 1)
                lstMail.RemoveItem lstMail.ListIndex
            End If
        Else
                DltMsg = lstOutbox.Text
            If DltMsg <> "" Then
                DltMsgNum = Mid$(DltMsg, 2, 4)
                Call RemoveMail(GetPlayerName(MyIndex), DltMsgNum, 2)
                lstOutbox.RemoveItem lstOutbox.ListIndex
            End If
        End If
    End Sub

    ```
    Then on modHandledata I edited the following:
    ```
    'Email system
        If (Casestring = "setmsgbody") Then
            If Parse(4) = 1 Then
                frmStable.txtSender.Text = Parse(1)
                frmStable.txtSubject.Text = Parse(2)
                frmStable.txtBody.Text = Parse(3)
                frmStable.txtBody2.Text = Parse(3)
            Else
                frmStable.txtReceiver2.Text = Parse(1)
                frmStable.txtSubject.Text = Parse(2)
                frmStable.txtBody.Text = Parse(3)
                frmStable.txtBody3.Text = Parse(3)
            End If
            Exit Sub
        End If

        If (Casestring = "xobniym") Then
            If Val(Parse(2)) <= 9 Then
                frmStable.lstMail.addItem "[000" & Parse(2) & "]" & " " & Parse(1) & " - " & Parse(3)
            ElseIf Val(Parse(2)) >= 9 And Val(Parse(2)) <= 99 Then
                frmStable.lstMail.addItem "[00" & Parse(2) & "]" & " " & Parse(1) & " - " & Parse(3)
            ElseIf Val(Parse(2)) > 99 Then
                frmStable.lstMail.addItem "[0" & Parse(2) & "]" & " " & Parse(1) & " - " & Parse(3)
            Else
                frmStable.lstMail.addItem "[" & Parse(2) & "]" & " " & Parse(1) & " - " & Parse(3)
            End If
            Exit Sub
        End If

        If (Casestring = "myoutbox") Then
            If Val(Parse(2)) <= 9 Then
                frmStable.lstOutbox.addItem "[000" & Parse(2) & "]" & " " & Parse(1) & " - " & Parse(3)
            ElseIf Val(Parse(2)) >= 9 And Val(Parse(2)) <= 99 Then
                frmStable.lstOutbox.addItem "[00" & Parse(2) & "]" & " " & Parse(1) & " - " & Parse(3)
            ElseIf Val(Parse(2)) > 99 Then
                frmStable.lstOutbox.addItem "[0" & Parse(2) & "]" & " " & Parse(1) & " - " & Parse(3)
            Else
                frmStable.lstOutbox.addItem "[" & Parse(2) & "]" & " " & Parse(1) & " - " & Parse(3)
            End If
            Exit Sub
        End If
        If (Casestring = "unreadmsg") Then
            Dim E As Long
            Dim Ending1 As String
            If Parse(1) > 0 Then
                For E = 1 To 3
                    If E = 1 Then Ending1 = ".gif"
                    If E = 2 Then Ending1 = ".jpg"
                    If E = 3 Then Ending1 = ".bmp"

                    If FileExists("GUI\Inbox" & Ending1) Then
                        frmStable.CmdMail.Picture = LoadPicture(App.Path & "\GUI\Inbox2" & Ending1)
                    End If
                Next E
            Else
                For E = 1 To 3
                    If E = 1 Then Ending1 = ".gif"
                    If E = 2 Then Ending1 = ".jpg"
                    If E = 3 Then Ending1 = ".bmp"

                    If FileExists("GUI\Inbox2" & Ending1) Then
                        frmStable.CmdMail.Picture = LoadPicture(App.Path & "\GUI\Inbox" & Ending1)
                    End If
                Next E
            End If
        End If

    End Sub

    ```
    So what I basically did was change the address frmInbox to frmStable for the most part. I'm not sure if I am missing something that requires editing. I also have a picture on what the problem is, I've spent days trying to figure this out and its starting to get to me. Some help would be nice. Thanks in advance. ;)

    >! ![](http://i6.photobucket.com/albums/y226/Hazama_Masame/screenhelp.jpg)
  4. @europris:

    > @Robin:
    >
    > > @europris:
    > >
    > > > **Here is a beta plan:
    > > >
    > > > 1\. Make post/tropic in a single database that none will try to crack it
    > > > 2\. Make the database
    > > > 3\. Make a program that's is encrypted with a 256-bit AES key or FUD
    > > > 4\. Upload it on the forum
    > > > 5\. Rewrite the  Ecplise to Vb 2008\2010
    > > > 6\. Get bigger community
    > > > 7\. have fun** ;D
    > >
    > > You've obviously just heard the occasional snippet of information at school and you're trying to act as if you know what you're talking about.
    >
    > I don't think you read the text right, I said BETA plan.
    > And can you please stop being to negative!

    lol wth!
  5. I port forwarded 4000 both udp and tcp and having ppl connect to my server with no problems, but for some reason when i want to connect with my own client it wont let me ive tried turning off firewalls and rebooting the pc. it still wont connect using my client. can anyone help me solve this?
  6. It also has to do with chemistry amongst the team. Working with a huge team will create problems, but though sometimes talented people don't want to waste there time on other people's projects and decide to do things on there own in order to get the results they want. Usually motivation and time is the issue so if you don't that then your mostly likely lead to an epic fail.
    And another thing if your team sucks then your project SUCKS!! :icon_meditation:
  7. @Shackles:

    > @SoiWilliamSoi:
    >
    > > I bought some, rolled it in a bible page from the back, lit that shit up in my room and I was baked as duck eating home made taco soup. I was ducking fried for my first time. Now smoke some coked laced weed and tell me a good story. ;].
    >
    > > I aint doing drugs, ever.
    > >
    > > Marijuana is not a drug, it is a plant.
    >
    > AMEN! lol ima pot head AND WHAT!
    >
    > >! ![](http://i6.photobucket.com/albums/y226/Hazama_Masame/Pictures%20For%20Gaia/Picture001.jpg)
  8. @[THE-KRIS:

    > link=topic=61409.msg648621#msg648621 date=1276438412]
    > ythe blonde chick looks like a younger version of quistis (final fantasy 8)

    All of my drawing I did out of my head. The reason why she prolly looks like quistes is maybe because of one your FF Fanatic or two you just think shes HAWT! lol thx of the complament =)
  9. @Azkanan:

    > @Lavis:
    >
    > > @Azkanan:
    > >
    > > > He didn't do those concepts…
    > >
    > > I dont know what your talking about. :huh:
    >
    > Did you draw those artworks?

    of course I got a million of them.

    >! ![](http://i6.photobucket.com/albums/y226/Hazama_Masame/My%20Art/Drawing4.jpg)![](http://i6.photobucket.com/albums/y226/Hazama_Masame/My%20Art/Drawing3.jpg)![](http://i6.photobucket.com/albums/y226/Hazama_Masame/My%20Art/LoginScreenScetch.jpg)
  10. @Anna:

    > The artwork is very good, but I don't like the GUI graphics. The images seem like stock anime, and the GUI buttons and features are ugly and don't match the background. You can really do better, given your artistic abilities – just get some practice.
    >
    > Oh the mapping isn't very good but this is more due to inexperience than poor ability. Practice mapping, read some tutorials, and practice mapping!

    To tell the truth most of my artwork are all half assed(unfinshed)because this is all a rough draft, like scale added on to just get more idea's out of. Also I'm still new to programming so I spend all my time reading other then drawing and using photoshop. I mean whats the point on making all these cool looking sprites when you dont know how to draw them to the screen. Example: adding breathing animation.  :embarrassed:
  11. @DDunit:

    > The artwork is very nice. Your mapping, however, needs some revisions.
    >
    > As a side-note: If you can draw that good, why are you stealing an image to use as a GUI?

    first of all it's open to the public. Google "OPEN SOURCE" on wikipidia
    second it's because I want to. =)
×
×
  • Create New...