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

Mail System Help


WiseRock
 Share

Recommended Posts

Hello I was looking through the Eclipse Tutorials and I didn't find a Mailbox Tut for either 2.0 or 3.0.

And I was wondering if anyone could get me a link to a mailbox tutorial that doesn't need any DX7 or DX8 coding. Please

Thanks,

Render
Link to comment
Share on other sites

I am not that good at programming

I found one tutorial does this work?

[http://www.touchofdeathforums.com/community/index.php?/topic/97157-es-10-in-game-email-system-20/page__hl__%2Bmail+%2Bsystem](http://www.touchofdeathforums.com/community/index.php?/topic/97157-es-10-in-game-email-system-20/page__hl__%2Bmail+%2Bsystem)
Link to comment
Share on other sites

actualy if you can change packets i think it should work,,, >.>but tut isnt explained good for somethings o-o

and edits needed in mod handle data…

(parse,senddata,sep_char,end_char) < these dont work in eo just telling you,
Link to comment
Share on other sites

> There's your answer ^
>
> If you're using Eclipse Stable, then go for it!

Using EO Nightly

> actualy if you can change packets i think it should work,,, >.>but tut isnt explained good for somethings o-o
>
> and edits needed in mod handle data…
>
> (parse,senddata,sep_char,end_char) < these dont work in eo just telling you,

How would I convert it?
Link to comment
Share on other sites

this:

```
If (Casestring = "xobniym") Then

If Val(Parse(2)) <= 9 Then

frmInbox.lstMail.addItem "[000" & Parse(2) & "]" & " " & Parse(1) & " - " & Parse(3)

ElseIf Val(Parse(2)) >= 9 And Val(Parse(2)) <= 99 Then

frmInbox.lstMail.addItem "[00" & Parse(2) & "]" & " " & Parse(1) & " - " & Parse(3)

ElseIf Val(Parse(2)) > 99 Then

frmInbox.lstMail.addItem "[0" & Parse(2) & "]" & " " & Parse(1) & " - " & Parse(3)

Else

frmInbox.lstMail.addItem "[" & Parse(2) & "]" & " " & Parse(1) & " - " & Parse(3)

End If

Exit Sub

End If
```
would turn in:```

Sub HandleMyInbox(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)

Dim Buffer As clsBuffer

' If debug mode, handle error then exit out

If Options.Debug = 1 Then On Error GoTo errorhandler

Set Buffer = New clsBuffer

Buffer.WriteBytes Data()

If Buffer.ReadLong <= 9 Then

frmInbox.lstMail.addItem "[000" & Buffer.ReadString & "]" & " " & Buffer.ReadString & " - " & Buffer.ReadString

ElseIf Buffer.ReadLong >= 9 And Buffer.ReadLong <= 99 Then

frmInbox.lstMail.addItem "[00" & Buffer.ReadString & "]" & " " & Buffer.ReadString & " - " & Buffer.ReadString

ElseIf Buffer.ReadLong > 99 Then

frmInbox.lstMail.addItem "[0" & Buffer.ReadString & "]" & " " & Buffer.ReadString & " - " & Buffer.ReadString

Else

frmInbox.lstMail.addItem "[" & Buffer.ReadString & "]" & " " & Buffer.ReadString & " - " & Buffer.ReadString

End If

Set Buffer = Nothing

' Error handler

Exit Sub

errorhandler:

HandleError "HandleMyInbox", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

Exit Sub

End Sub

```
but please note this needs server adjustments as well, you cant just paste this in and expect it to work xd
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...