terabin

This correction is wrong… True correction: ``` ChatText = Mid$(ChatText, i, Len(ChatText) - 1) Name = Mid(Name, 2, Len(Name)) ' Make sure they are actually sending something If Len(ChatText) - 1 > 0 Then ChatText = Mid$(ChatText, 1 + 1, Len(ChatText) - 1) ```

> this engine for mobile or pc ? This engine can run in mobile and pc, if you can make this. :)

Hi, Recently I see this topic: [http://www.eclipseorigins.com/community/index.php?/topic/127602-eo-java-edition-10/](http://www.eclipseorigins.com/community/index.php?/topic/127602-eo-java-edition-10/) But, I can't find the libraries to run this… Anyone can help?

_**Hello, **_ _**I offer here an almost complete engine. **_ _**I worked on it for a long time, until I decided to completely abandon the VB.net. **_ _**For it is not a job in vain, I provide here the engine.**_  I have no current photos … The project runs more beautiful than this …    The server was programmed with optimum safety and stability. But I created only editor of maps, the rest is done within the source. So it takes some knowledge to develop a game that basis. **Log** _-Login/Register perfect_ _-Character creation with customization perfect_ _-AI for npcs aprimored (compared to EO)_ _-Attack system perfect (different characters obtain diferent range)_ _-Special attack with right mouse click_ _-Inventory perfect_ _What's not completed?_ _-Skills_ _-Character window_ **Engine download:** [http://www.sendspace.com/file/h96r4r](http://www.sendspace.com/file/h96r4r) **To open the source is required:** **_Visual basic 2010 (With service pack 1)_** [http://www.microsoft.com/visualstudio/eng/downloads#d-2010-express](http://www.microsoft.com/visualstudio/eng/downloads#d-2010-express) **_Windows phone sdk:_** [http://www.microsoft.com/en-us/download/details.aspx?id=27570](http://www.microsoft.com/en-us/download/details.aspx?id=27570) _**I want to create new versions of the engine, if the result of the reaction of you is positive.**_ _**Plis, respect the license, and sorry for my english…**_

I can not connect after compiling only the tests …

My knowledge in vb.net is limited…

That did not work …

I having problems… Vb6 version ``` Public Function ReadBytes(ByVal nLength As Long, Optional MoveReadHead As Boolean = True) As Byte() Dim Data() As Byte If nLength = 0 Then Exit Function If ReadHead + nLength - 1 > BufferSize Then Exit Function ReDim Data(nLength - 1) CopyMemory Data(0), Buffer(ReadHead), nLength If MoveReadHead Then ReadHead = ReadHead + nLength ReadBytes = Data End Function ``` My Vb.net Version ``` Public Function ReadBytes(ByVal nLength As Integer, Optional ByVal MoveReadHead As Boolean = True) As Byte() Dim Data() As Byte If nLength = 0 Then Return Nothing If ReadHead + nLength - 1 > BufferSize Then Return Nothing ReDim Data(nLength - 1) For i As Integer = 0 To ReadHead + nLength - 1 Data(i) = Buffer(i) Next If MoveReadHead Then ReadHead += nLength Return Data End Function ``` Error: "Index was outside the bounds of the array"

I resolved using this: ``` Dim TempStr As String Dim TempIndex As Integer For i = 1 To MAX_FRIENDS 'Percorre a lista de amigos If Player(Index).Friends(i).FriendName vbNullString Then ' Se não houver nulos TempStr = Player(Index).Friends(i).FriendName For n = 1 To MAX_PLAYER 'Percorre a lista de jogadores online If IsPlaying(n) Then If GetPlayerName(n) = TempStr Then 'Se achar o nome pegar o Index TempIndex = n Exit For ' Quebrar o loop End if End if Next If TempIndex > 0 Then 'Se encontrar jogador online enviar Call SendDataTo(index, SUpdateFriendList & SEP_CHAR & Player(index).Friends(i).FriendName & SEP_CHAR & "(Online)" & END_CHAR) Else 'Se não encontrar jogador online enviar Call SendDataTo(index, SUpdateFriendList & SEP_CHAR & Player(index).Friends(i).FriendName & SEP_CHAR & END_CHAR) End If Else 'Se houver nulo, enviar free slot Call SendDataTo(index, SUpdateFriendList & SEP_CHAR & "Free Slot" & SEP_CHAR & END_CHAR) End If TempIndex = 0 'Zerar TempIndex para proxima procura Next ``` The problem is the exit for.

This already exist here…and the problem continue... ``` If GetPlayerName(i4) = Player(index).Friends(i).FriendName And IsPlaying(i4) Then Player(index).Friends(i).Online = 1 Else Player(index).Friends(i).Online = 0 End If ```

Here…? ``` If Player(index).Friends(i).Online = 1 Then Call SendDataTo(index, SUpdateFriendList & SEP_CHAR & Player(index).Friends(i).FriendName & SEP_CHAR & "(Online)" & END_CHAR) Else Call SendDataTo(index, SUpdateFriendList & SEP_CHAR & Player(index).Friends(i).FriendName & SEP_CHAR & vbNullString & END_CHAR) End If ```

Ok,a changed to this: ``` For i = 1 To MAX_FRIENDS For i4 = 1 To MAX_PLAYERS ''''''' Player(index).Friends(i).Online = 0 If GetPlayerName(i4) = Player(index).Friends(i).FriendName And IsPlaying(i4) And Not Player(index).Friends(i).FriendName = vbNullString Then Player(index).Friends(i).Online = 1 Else Player(index).Friends(i).Online = 0 End If If Player(index).Friends(i).Online = 1 Then Call SendDataTo(index, SUpdateFriendList & SEP_CHAR & Player(index).Friends(i).FriendName & SEP_CHAR & "(Online)" & END_CHAR) Else Call SendDataTo(index, SUpdateFriendList & SEP_CHAR & Player(index).Friends(i).FriendName & SEP_CHAR & vbNullString & END_CHAR) End If Exit For Next Next ``` And the problem: 

Hello,anyone can help-me? I having problems with my friend list… This code send the friend list... ``` For i = 1 To MAX_FRIENDS For i4 = 1 To MAX_PLAYERS ''''''' If GetPlayerName(i4) = Player(index).Friends(i).FriendName And Not Player(index).Friends(i).FriendName = vbNullString Then Call SendDataTo(index, SUpdateFriendList & SEP_CHAR & Player(index).Friends(i).FriendName & SEP_CHAR & "(Online)" & END_CHAR) End If Next Next For i = 1 To MAX_FRIENDS For i4 = 1 To MAX_PLAYERS If Not GetPlayerName(i4) = Player(index).Friends(i).FriendName Then Call SendDataTo(index, SUpdateFriendList & SEP_CHAR & Player(index).Friends(i).FriendName & SEP_CHAR & END_CHAR) End If Exit For Next Next ``` And this is my problem: 

Ya,I posted the new banner. e_e

Thanks for comments.