troglodite

Nice work :O Thx for improve the server!

Awesome graphics work. Nice project idea :O

Hello, I am the director of a community of a game called "The Legend of Zelda: El Reino Dorado", its a spanish project :P I need a programmer, we have worked very hard in this server and I will not let die. Hacking problems were the worst troubles we ever face, so I need somebody with programming skills to increase security on the server, because my current programmer failed me, and we need to change a lot of things in the server side for a better client experience. This is the web/forum: [http://zeldaelreinodorado.foroactivo.com/forum](http://zeldaelreinodorado.foroactivo.com/forum) Add my on skype: "**edu_universo**" Thanks for read :)

Hello, I am the director of a community of a game called "The Legend of Zelda: El Reino Dorado", its a spanish project :P I need a programmer, we have worked very hard in this server and I will not let die. Hacking problems were the worst troubles we ever face, so I need somebody with programming skills to increase security on the server, because my current programmer failed me, and we need to change a lot of things in the server side for a better client experience. This is the web/forum: [http://zeldaelreinodorado.foroactivo.com/forum](http://zeldaelreinodorado.foroactivo.com/forum) Add my on skype: "**edu_universo**" Thanks for read :)

Thx por answer anyway! :)

So… nobody have it? :S

Hello Eclipsians! I back here for a simple reason: I want a full screen in my game, based on EO 2.0 But I couldnt found it on [tutorials post](http://www.eclipseorigins.com/community/index.php?/topic/122357-source-tutorial-index/), so… Does anyone still have the code? I was looking for something like this: [Full Screen Without Stretchting](http://www.eclipseorigins.com/community/index.php?/topic/135500-full-screen-without-stretching/) Thx anyway :)

I tested a little more and i realized neither Run Time 6 or 9 cause this bug. So i'm still searching what kind of thing freezes the server, any ideas?

We have no access to CPS, but through tests we found out these stuff: -Data Packets can be sent/received normally -GetTickCount works correctly -The thing that seems not to work is GameLoop Procedeture, that would exlain why NPC's doesn't move, broken spell casts… So i think when te server goes to Run Time X, GameLoop Stops Working but data packets still on it. Is that possible?

Hello!! How are you Eclipseans? Well, I wanna know if somebody here had the same problem, and, if yes, how to fix it! Sometimes, our server, gets "freezed": Npcs dont move, even if you attack them; users are paralyzed if they use a spell: they can chat, can make control attacks, but they can not move, they get in the same position for ever… until they re login. Do you know anything about this??

Hello, I have an Eclipse Origins server, version 2.0 (with a lot of changes and performances) and right now we are looking for a cheap hosting, can you bring me information about it? We dont know to much about it, maybe some server hostings webs will help us to know how to make our server back to life again :) because our hoster leave us :( Thanks everybody, regardles!

All depends in what type of game do you want to make… the graphics must be the same style, and think about what style do you want to see in your game... like "cartoon" or "creepy", "few details" or "very elaborate"... Get some ideas first, check out others RPG and choose your style :)

The walk speed? Look here: CLIENT SIDE ``` ' Constants for player movement: Tiles per Second Public Const MOVING_WALKING As Byte = 1 Public Const MOVING_RUNNING As Byte = 2 ```

A friend made a fix and I think it works, because I get no more this bug using warps I paste this ``` If Map.MaxX < GetPlayerX(MyIndex) Or Map.MaxY < GetPlayerY(MyIndex) Then Exit Function End If ``` Just below this ``` Function CheckDirection(ByVal Direction As Byte) As Boolean Dim x As Long Dim y As Long Dim i As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler CheckDirection = False ``` If somebody have this problem, try this fix :) credits goes to my friend Joan!

**Requisites** **NPC Spells v.2.0.0 for [EO]** [http://www.eclipseorigins.com/community/index.php?/topic/106297-eo-npc-spells-v200/](http://www.eclipseorigins.com/community/index.php?/topic/106297-eo-npc-spells-v200/) _**Let´s Do It, in two steps!**_ **Server Side** , _**all in Sub NpcSpellPlayer**_ **Step one**! Above ``` NpcAttackPlayer mapNpcNum, i, Damage ``` Paste ``` If Spell(SpellNum).StunDuration > 0 Then StunPlayer victim, SpellNum End If ``` **Step two**! Above ``` NpcAttackPlayer mapNpcNum, victim, Damage ``` Paste ``` If Spell(SpellNum).StunDuration > 0 Then StunPlayer victim, SpellNum End If ```

> I meant from within the line of code that errors. If isDirBlocked(Map.Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex)).DirBlock, Direction + 1) Then MyIndex = 1 Direction = 2 that?? :huh:

I found that! MapNpc(i).num = MapNpc(i).x = MapNpc(i).y = From: ``` ' Check to see if a npc is already on that tile For i = 1 To Npc_HighIndex If MapNpc(i).num > 0 Then If MapNpc(i).x = x Then If MapNpc(i).y = y Then CheckDirection = True Exit Function End If End If End If Next ```

> The name of the error? The error number? The value of the variables? Run Time Error 9 - Subscript out of range MyIndex = 1 Direction = 2 **CheckDirection** = False Where must be True I think: If isDirBlocked(Map.Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex)).DirBlock, Direction + 1) Then **CheckDirection** = True Exit Function End If In the map where I enter there are some blocks, but far away from the entry… like 10 tiles far away thx for collaboration Abhi :)

Ok so… sometimes, when I enter to a house (with a warp tile), the client crashes! And gives me that line of code: ``` If isDirBlocked(Map.Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex)).DirBlock, Direction + 1) Then ``` I searched into this site forum and there are other people with the same problem, and I only saw 1 solution to it, [in that thread](http://www.eclipseorigins.com/community/index.php?/topic/132706-engine-crashes-on-warpoccasionally/?hl=%2Bisdirblocked%28map.tile%28getplayerx%28myindex%29%2C+%2Bgetplayery%28myindex%29%29.dirblock%2C+%2Bdirection+%2Bthen), the last post made by **escfoe2** And I added it, and when I run the client with VB, my client do not crashes; BUT when I simply run the client.exe with double click… CRASHES! So I think that this solution does not work at all... Can somebody help me with that?? PLEASE I am really frustrated about this error! Its VERY annoying :( This is my actual CheckDirection function ``` Function CheckDirection(ByVal Direction As Byte) As Boolean Dim x As Long Dim y As Long Dim i As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler CheckDirection = False ' check directional blocking If isDirBlocked(Map.Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex)).DirBlock, Direction + 1) Then CheckDirection = True Exit Function End If Select Case Direction Case DIR_UP x = GetPlayerX(MyIndex) y = GetPlayerY(MyIndex) - 1 Case DIR_DOWN x = GetPlayerX(MyIndex) y = GetPlayerY(MyIndex) + 1 Case DIR_LEFT x = GetPlayerX(MyIndex) - 1 y = GetPlayerY(MyIndex) Case DIR_RIGHT x = GetPlayerX(MyIndex) + 1 y = GetPlayerY(MyIndex) End Select ' Check to see if the map tile is blocked or not If Map.Tile(x, y).Type = TILE_TYPE_BLOCKED Then CheckDirection = True Exit Function End If ' Check to see if the map tile is tree or not If Map.Tile(x, y).Type = TILE_TYPE_RESOURCE Then CheckDirection = True Exit Function End If ' Check to see if the key door is open or not If Map.Tile(x, y).Type = TILE_TYPE_KEY Then ' This actually checks if its open or not If TempTile(x, y).DoorOpen = NO Then CheckDirection = True Exit Function End If End If ' Check to see if a player is already on that tile For i = 1 To Player_HighIndex If IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then If GetPlayerX(i) = x Then If GetPlayerY(i) = y Then CheckDirection = True Exit Function End If End If End If Next i ' Check to see if a npc is already on that tile For i = 1 To Npc_HighIndex If MapNpc(i).num > 0 Then If MapNpc(i).x = x Then If MapNpc(i).y = y Then CheckDirection = True Exit Function End If End If End If Next ' Error handler Exit Function errorhandler: HandleError "checkDirection", "modGameLogic", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function ``` Thx for reading anyway :)

Nope :( Debug=1, the error occurs but there is no log created

I THINK is fixed, I added "_If tradeTarget > 0 Then_" under _"_Buffer.WriteByte dataType" and _"End If_ " above "_' send total worth of trade_" ``` Sub SendTradeUpdate(ByVal index As Long, ByVal dataType As Byte) Dim Buffer As clsBuffer Dim i As Long Dim tradeTarget As Long Dim totalWorth As Long tradeTarget = TempPlayer(index).InTrade Set Buffer = New clsBuffer Buffer.WriteLong STradeUpdate Buffer.WriteByte dataType If tradeTarget > 0 Then If dataType = 0 Then ' own inventory For i = 1 To MAX_INV Buffer.WriteLong TempPlayer(index).TradeOffer(i).Num Buffer.WriteLong TempPlayer(index).TradeOffer(i).Value ' add total worth If TempPlayer(index).TradeOffer(i).Num > 0 Then ' currency? If Item(TempPlayer(index).TradeOffer(i).Num).Type = ITEM_TYPE_CURRENCY Then totalWorth = totalWorth + (Item(GetPlayerInvItemNum(index, TempPlayer(index).TradeOffer(i).Num)).price * TempPlayer(index).TradeOffer(i).Value) Else totalWorth = totalWorth + Item(GetPlayerInvItemNum(index, TempPlayer(index).TradeOffer(i).Num)).price End If End If Next ElseIf dataType = 1 Then ' other inventory For i = 1 To MAX_INV Buffer.WriteLong GetPlayerInvItemNum(tradeTarget, TempPlayer(tradeTarget).TradeOffer(i).Num) Buffer.WriteLong TempPlayer(tradeTarget).TradeOffer(i).Value ' add total worth If GetPlayerInvItemNum(tradeTarget, TempPlayer(tradeTarget).TradeOffer(i).Num) > 0 Then ' currency? If Item(GetPlayerInvItemNum(tradeTarget, TempPlayer(tradeTarget).TradeOffer(i).Num)).Type = ITEM_TYPE_CURRENCY Then totalWorth = totalWorth + (Item(GetPlayerInvItemNum(tradeTarget, TempPlayer(tradeTarget).TradeOffer(i).Num)).price * TempPlayer(tradeTarget).TradeOffer(i).Value) Else totalWorth = totalWorth + Item(GetPlayerInvItemNum(tradeTarget, TempPlayer(tradeTarget).TradeOffer(i).Num)).price End If End If Next End If End If ' send total worth of trade Buffer.WriteLong totalWorth SendDataTo index, Buffer.ToArray() Set Buffer = Nothing End Sub ```

Some people haved this problem in the past, I guess that there is a solution to it, but I didnt found it :( When somebody declines a Trade, an error crashes the server :( Debuggued line: Sub SendTradeUpdate ``` tradeTarget = TempPlayer(index).InTrade ``` Help please

The problem is that, when I run the game with VB, I get no error :S (Iam his partner project work)

Okey thx :)

Hey Eclipse People! Is there some tutorial for this? A chat above head for each player? I found this: [http://www.eclipseorigins.com/community/index.php?/topic/122255-eo-simple-chat-above-a-players-head/?hl=chat](http://www.eclipseorigins.com/community/index.php?/topic/122255-eo-simple-chat-above-a-players-head/?hl=chat) But says: **Don't Use This Until Its Fixed (Unless you want a ~~shitty~~ unprofessional game)** So, isnt fixed? :( Thx for reading :)