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.

Oh sorry…

I have big plans for the project. ;P

 **What is Tirinia Online?** **Tirinia project is a MMORPG based on the classic "RPGs" of consoles, the game you have to fight and follow a story, so in the end save the entire continent of Tirinia! In addition, you should protect your kingdom, and crash and strategic fights that can set the whole economy jogo.Monte your guild master cities, is powerful, protect your race, and above all, destroy all the evil that haunts the continent ! The game has a mode of play different from the others, because each player has to complete the quests and follow the story, moreover, some are "offline", yes, you will have the help of NPCs just to complete some dungeons and caves chunks of the game, in addition, various animations in the game there will be something like a npc fighting a boss, and dying, and asking you to defeat the boss for it (just example), not to mention the bosses who can use various spells provided powerful curses that can make your friend turn against you, till it turns into one of his subordinates ..**. **The game's story will soon be made available.** **This game is being made in vb.net with dx9.** **The battle system of the game will be based on this game:(FINAL FANTASY TACTICS)** [http://www.youtube.com/v/41zTzmZklu4](http://www.youtube.com/v/41zTzmZklu4) **Photo:** **[Not Official]**  **NEW/Not Official** **** **Did you like the game? Follow us on facebook!** [http://www.facebook….475999609100137](http://www.facebook.com/pages/Tirinia-Online/475999609100137) **Sorry for my terrible english …** > FIRST EVENT OF OUR COMMUNITY!! > > Want to start knowing more than others about how to play this new style of battle?! > > Download the game "Final Fantasy Tactics" > > [http://freakshare.co…actics.rar.html](http://freakshare.com/files/sbyc2gof/Final_Fantasy_Tactics.rar.html) > > Or > > [http://coolrom.com/r…asy_Tactics.php](http://coolrom.com/roms/psx/38675/Final_Fantasy_Tactics.php) > > And the PS1 emulator > > [http://www.roxdownlo…tation/ps1.aspx](http://www.roxdownload.net/emuladores/playstation/ps1.aspx) # ePSXe > > Who beat the game with the nickname of the main character as "Tirinia" and post a picture here, you will receive great rewards for our team, 2000 ingame cash, and a T-shirt and a poster Tirinia Online! They will be delivered at the launch of the game! > > Note: You must be enjoying the page > > [http://www.facebook.com/TiriniaOnline](http://www.facebook.com/TiriniaOnline) > > Share and help us publicize this event!

Thanks for the help, Just changed the place of bltsprite. 

All time.

How do I do that?

When you upgrade the engine, you post how to convert the previous version?

Added

haha, sorry, I thought the engine was abandoned. most errors occur after the engine is put online for everyone.

I decided to bring someone else's problem. Maybe she used a different engine, sorry. Plis,add this to Project Vertigo: http://www.touchofdeathforums.com/smf/index.php/topic,77397.msg828198.html