My Brave Shine

Hi @Lulux , the load of Font's are made by Direct3DTexture8. So it is basically an instantiation of directX8 on your machine. If the problem persists and you have not yet done the test on virtual machines (even within your system.) I advise you to downgrade DirectX8 and re-register even if it is done in another folder. If the problem persists, analyze issues related to the resolution of your machine. Persisting even more, I would then recommend you to encrypt a chat system via render texture instead of making use of the standard chat engine, this would allow you in DX8 to work up to several additional factors such as color changes and scales. att, with love; My Brave Shine ~

@'Sekiguchi: > Is this based of the anime "grimgar of fantasy and ash"? Yes Seki, have classes based and… the initial spawns and history line.

@'James': > The UI could use some work, it's a bit strange for the hp mp being bottom right (Unless you can move the UI around) Thx It is in production the possibility of custom a whole screen of the form that the player prefers. About Ui we get a designer now has a few days, and we are working on the new standard!

 † About the Developer † Hello, I spent a lot of time outside the community, away from the Eclipse world by these lands. But now I'm back with a new project that is in Test Alpha. The Game is set in PT-BR, but I intend to select the language option or create a server for English. My English is very weak, so be patient and try to understand if you wish. † The Project Resume - WIP † Grimgard online now has about 2 to 3 months of life, where it already has about 1 month in tests and updates, changes and improvements. He seeks to retrace the Diablo, Final Fantasy, Zelda and many other retro games and mixed with Hack's Slash. Your access is free, just download and play. You will be warmly welcomed by me, and by the staff. We have an average of online players that varies from 5 to 25 players, depending on the time of day, or if it is weekend. Remembering we are in ALPHA.   † About the Game † In relation to the game, available so far we have 4 classes, which will soon be 6\. Each one calculated and having an excellent function in game and different mechanics. Are they: - Warrior - Mage - Priest - Ladino Still to come: - Black Knight - Hunter The game features unique mechanics, for style, an EO rendering replay, login lobby, and more. The focus is on group work to advance it, but it's obvious that solitary wolves who love to play alone make excellent progress. Structured, I come to bring hours of a possible good game that every week will reveal more ways to entertain you and take you to a new world.  † Videos † In case you are interested, you can see development videos here in these links: Links: [](https://www.youtube.com/watch?v=7S0Pnw-kM-g&t[/url) [https://www.youtube.com/watch?v=lcrCa3Y5UUY&t](https://www.youtube.com/watch?v=lcrCa3Y5UUY&t) [https://www.youtube.com/watch?v=BT4aBvAeWmA&t](https://www.youtube.com/watch?v=BT4aBvAeWmA&t) [https://www.youtube.com/watch?v=6SeMrgW64cc](https://www.youtube.com/watch?v=6SeMrgW64cc) [https://www.youtube.com/watch?v=gtBMs3au4yM](https://www.youtube.com/watch?v=gtBMs3au4yM) † Download † - 47mb Actual Version - v3.9.8 - 12.04.17 [Download - Grimgard Online - v3.9.8 - Mega](https://mega.nz/#!U6432BRD!r4d3k0psbgKIvI-FufmcKTc8aq_crIcFV8jHPaGGVnk) [](https://mega.nz/#!U6432BRD!r4d3k0psbgKIvI-FufmcKTc8aq_crIcFV8jHPaGGVnk) Grateful! < 3

LoL, he is new in engine. Need explain better u.u Download the Visual Basic 6 to edit source of engine. In codes u can acess all side and edit "msg" and "actiontxt's", just change the names. Players no need understand the diference with Spell Skill Ability? Magic? Just change the msgs of server and client. Ex: Player use spell running … the server send one msg to he... "You cannot cast spell walking.. " Change to other msg... "You cannot cast ability walking.." Have a too extensive line to change the "msg", u need look for "PlayerMsg" in VisualBasic using Crtl + F to search in forms and modules. Att

You have change every constants? remember, the server need be " = 8" too. MAX_HOTBAR as long = XX ? 08? server and client? ;x

Hello Darling's Eclipsians. I Have one trouble, in Serve Side. What Happens?! I create one Spell and set she in one Npc // The Npc cast good, animations and damage work Fine. But, have case when Player has Killed to one Npc Nomal Damage or Spell :s , he broken the server, and this is constant. The error says Number 9 , and appoint this Line : ``` ' Spell Types Select Case Spell(spellnum).Type ``` Inside of PlayerSpellNpc // ModCombat. Above one image of line and sub. ``` [img]http://i.imgur.com/xpbk3qv.png[/img] ``` All Sub: ``` Sub NpcSpellPlayer(ByVal MapNpcNum As Long, ByVal victim As Long, SpellSlotNum As Long) Dim mapNum As Long Dim i As Long Dim n As Long Dim spellnum As Long Dim buffer As clsBuffer Dim InitDamage As Long Dim Damage As Long Dim MaxHeals As Long Dim HPCost As Long Dim DidCast As Boolean ' Check for subscript out of range If MapNpcNum MAX_MAP_NPCS Or isPlaying(victim) = False Then Exit Sub End If ' Check for subscript out of range If MapNpc(GetPlayerMap(victim)).NPC(MapNpcNum).num = MaxHeals Then Exit Sub If MapNpc(mapNum).NPC(MapNpcNum).Vital(Vitals.HP) 0 Then If MapNpc(mapNum).NPC(i).Vital(Vitals.HP) > 0 Then If isInRange(Spell(spellnum).AoE, MapNpc(mapNum).NPC(MapNpcNum).x, MapNpc(mapNum).NPC(MapNpcNum).y, MapNpc(mapNum).NPC(i).x, MapNpc(mapNum).NPC(i).y) Then InitDamage = Spell(spellnum).Vital + (NPC(MapNpc(mapNum).NPC(MapNpcNum).num).stat(Stats.Intelligence) / 2) MapNpc(mapNum).NPC(i).Vital(Vitals.HP) = MapNpc(mapNum).NPC(i).Vital(Vitals.HP) + InitDamage SendActionMsg mapNum, "+" & InitDamage, BrightGreen, 1, (MapNpc(mapNum).NPC(i).x * 32), (MapNpc(mapNum).NPC(i).y * 32) Call SendAnimation(mapNum, Spell(spellnum).SpellAnim, 0, 0, TARGET_TYPE_NPC, MapNpcNum) If MapNpc(mapNum).NPC(i).Vital(Vitals.HP) > NPC(MapNpc(mapNum).NPC(i).num).HP Then MapNpc(mapNum).NPC(i).Vital(Vitals.HP) = NPC(MapNpc(mapNum).NPC(i).num).HP End If MapNpc(mapNum).NPC(MapNpcNum).Heals = MapNpc(mapNum).NPC(MapNpcNum).Heals + 1 MapNpc(mapNum).NPC(MapNpcNum).SpellTimer(SpellSlotNum) = GetTickCount + Spell(spellnum).CDTime * 1000 Exit Sub End If End If End If Next Else ' Non AOE Healing Spells InitDamage = Spell(spellnum).Vital + (NPC(MapNpc(mapNum).NPC(MapNpcNum).num).stat(Stats.Intelligence) / 2) MapNpc(mapNum).NPC(MapNpcNum).Vital(Vitals.HP) = MapNpc(mapNum).NPC(MapNpcNum).Vital(Vitals.HP) + InitDamage SendActionMsg mapNum, "+" & InitDamage, BrightGreen, 1, (MapNpc(mapNum).NPC(MapNpcNum).x * 32), (MapNpc(mapNum).NPC(MapNpcNum).y * 32) Call SendAnimation(mapNum, Spell(spellnum).SpellAnim, 0, 0, TARGET_TYPE_NPC, MapNpcNum) If MapNpc(mapNum).NPC(MapNpcNum).Vital(Vitals.HP) > NPC(MapNpc(mapNum).NPC(MapNpcNum).num).HP Then MapNpc(mapNum).NPC(MapNpcNum).Vital(Vitals.HP) = NPC(MapNpc(mapNum).NPC(MapNpcNum).num).HP End If MapNpc(mapNum).NPC(MapNpcNum).Heals = MapNpc(mapNum).NPC(MapNpcNum).Heals + 1 MapNpc(mapNum).NPC(MapNpcNum).SpellTimer(SpellSlotNum) = GetTickCount + Spell(spellnum).CDTime * 1000 Exit Sub End If End If ' AOE Damaging Spells Case SPELL_TYPE_DAMAGEHP ' Make sure an npc waits for the spell to cooldown If Spell(spellnum).IsAoE Then For i = 1 To Player_HighIndex If isPlaying(i) Then If GetPlayerMap(i) = mapNum Then InUseArea2 i, MapNpcNum, spellnum If isInRange(Spell(spellnum).AoE, MapNpc(mapNum).NPC(MapNpcNum).x, MapNpc(mapNum).NPC(MapNpcNum).y, GetPlayerX(i), GetPlayerY(i)) Then If Spell(spellnum).IsAoE = True Then InUseArea i, spellnum DidCast = True End If End If InitDamage = Spell(spellnum).Vital + (NPC(MapNpc(mapNum).NPC(MapNpcNum).num).stat(Stats.Intelligence) / 2) Damage = InitDamage - Player(i).stat(Stats.Willpower) If Damage 0 Then StunPlayer victim, spellnum End If NpcAttackPlayer MapNpcNum, i, Damage SendAnimation mapNum, Spell(spellnum).SpellAnim, 0, 0, TARGET_TYPE_PLAYER, MapNpcNum MapNpc(mapNum).NPC(MapNpcNum).SpellTimer(SpellSlotNum) = GetTickCount + Spell(spellnum).CDTime * 1000 Exit Sub End If End If End If Next ' Non AoE Damaging Spells Else If isInRange(Spell(spellnum).Range, MapNpc(mapNum).NPC(MapNpcNum).x, MapNpc(mapNum).NPC(MapNpcNum).y, GetPlayerX(victim), GetPlayerY(victim)) Then InitDamage = Spell(spellnum).Vital + (NPC(MapNpc(mapNum).NPC(MapNpcNum).num).stat(Stats.Intelligence) / 2) Damage = InitDamage - Player(victim).stat(Stats.Willpower) If Damage 0 Then StunPlayer victim, spellnum End If NpcAttackPlayer MapNpcNum, victim, Damage SendAnimation mapNum, Spell(spellnum).SpellAnim, 0, 0, TARGET_TYPE_PLAYER, victim MapNpc(mapNum).NPC(MapNpcNum).SpellTimer(SpellSlotNum) = GetTickCount + Spell(spellnum).CDTime * 1000 Exit Sub End If End If End If End Select End Sub ``` I shall be grateful if someone get help , even if you try ! (Sorry my bad english : / )

Hello Darling's Eclipsians. I Have one trouble, in Serve Side. What Happens?! I create one Spell and set she in one Npc // The Npc cast good, animations and damage work Fine. But, have case when Player has Killed to one Npc Nomal Damage or Spell :s , he broken the server, and this is constant. The error says Number 9 , and appoint this Line : ``` ' Spell Types Select Case Spell(spellnum).Type ``` Inside of PlayerSpellNpc // ModCombat. Above one image of line and sub. ``` [img]http://i.imgur.com/xpbk3qv.png[/img] ``` All Sub: ``` Sub NpcSpellPlayer(ByVal MapNpcNum As Long, ByVal victim As Long, SpellSlotNum As Long) Dim mapNum As Long Dim i As Long Dim n As Long Dim spellnum As Long Dim buffer As clsBuffer Dim InitDamage As Long Dim Damage As Long Dim MaxHeals As Long Dim HPCost As Long Dim DidCast As Boolean ' Check for subscript out of range If MapNpcNum MAX_MAP_NPCS Or isPlaying(victim) = False Then Exit Sub End If ' Check for subscript out of range If MapNpc(GetPlayerMap(victim)).NPC(MapNpcNum).num = MaxHeals Then Exit Sub If MapNpc(mapNum).NPC(MapNpcNum).Vital(Vitals.HP) 0 Then If MapNpc(mapNum).NPC(i).Vital(Vitals.HP) > 0 Then If isInRange(Spell(spellnum).AoE, MapNpc(mapNum).NPC(MapNpcNum).x, MapNpc(mapNum).NPC(MapNpcNum).y, MapNpc(mapNum).NPC(i).x, MapNpc(mapNum).NPC(i).y) Then InitDamage = Spell(spellnum).Vital + (NPC(MapNpc(mapNum).NPC(MapNpcNum).num).stat(Stats.Intelligence) / 2) MapNpc(mapNum).NPC(i).Vital(Vitals.HP) = MapNpc(mapNum).NPC(i).Vital(Vitals.HP) + InitDamage SendActionMsg mapNum, "+" & InitDamage, BrightGreen, 1, (MapNpc(mapNum).NPC(i).x * 32), (MapNpc(mapNum).NPC(i).y * 32) Call SendAnimation(mapNum, Spell(spellnum).SpellAnim, 0, 0, TARGET_TYPE_NPC, MapNpcNum) If MapNpc(mapNum).NPC(i).Vital(Vitals.HP) > NPC(MapNpc(mapNum).NPC(i).num).HP Then MapNpc(mapNum).NPC(i).Vital(Vitals.HP) = NPC(MapNpc(mapNum).NPC(i).num).HP End If MapNpc(mapNum).NPC(MapNpcNum).Heals = MapNpc(mapNum).NPC(MapNpcNum).Heals + 1 MapNpc(mapNum).NPC(MapNpcNum).SpellTimer(SpellSlotNum) = GetTickCount + Spell(spellnum).CDTime * 1000 Exit Sub End If End If End If Next Else ' Non AOE Healing Spells InitDamage = Spell(spellnum).Vital + (NPC(MapNpc(mapNum).NPC(MapNpcNum).num).stat(Stats.Intelligence) / 2) MapNpc(mapNum).NPC(MapNpcNum).Vital(Vitals.HP) = MapNpc(mapNum).NPC(MapNpcNum).Vital(Vitals.HP) + InitDamage SendActionMsg mapNum, "+" & InitDamage, BrightGreen, 1, (MapNpc(mapNum).NPC(MapNpcNum).x * 32), (MapNpc(mapNum).NPC(MapNpcNum).y * 32) Call SendAnimation(mapNum, Spell(spellnum).SpellAnim, 0, 0, TARGET_TYPE_NPC, MapNpcNum) If MapNpc(mapNum).NPC(MapNpcNum).Vital(Vitals.HP) > NPC(MapNpc(mapNum).NPC(MapNpcNum).num).HP Then MapNpc(mapNum).NPC(MapNpcNum).Vital(Vitals.HP) = NPC(MapNpc(mapNum).NPC(MapNpcNum).num).HP End If MapNpc(mapNum).NPC(MapNpcNum).Heals = MapNpc(mapNum).NPC(MapNpcNum).Heals + 1 MapNpc(mapNum).NPC(MapNpcNum).SpellTimer(SpellSlotNum) = GetTickCount + Spell(spellnum).CDTime * 1000 Exit Sub End If End If ' AOE Damaging Spells Case SPELL_TYPE_DAMAGEHP ' Make sure an npc waits for the spell to cooldown If Spell(spellnum).IsAoE Then For i = 1 To Player_HighIndex If isPlaying(i) Then If GetPlayerMap(i) = mapNum Then InUseArea2 i, MapNpcNum, spellnum If isInRange(Spell(spellnum).AoE, MapNpc(mapNum).NPC(MapNpcNum).x, MapNpc(mapNum).NPC(MapNpcNum).y, GetPlayerX(i), GetPlayerY(i)) Then If Spell(spellnum).IsAoE = True Then InUseArea i, spellnum DidCast = True End If End If InitDamage = Spell(spellnum).Vital + (NPC(MapNpc(mapNum).NPC(MapNpcNum).num).stat(Stats.Intelligence) / 2) Damage = InitDamage - Player(i).stat(Stats.Willpower) If Damage 0 Then StunPlayer victim, spellnum End If NpcAttackPlayer MapNpcNum, i, Damage SendAnimation mapNum, Spell(spellnum).SpellAnim, 0, 0, TARGET_TYPE_PLAYER, MapNpcNum MapNpc(mapNum).NPC(MapNpcNum).SpellTimer(SpellSlotNum) = GetTickCount + Spell(spellnum).CDTime * 1000 Exit Sub End If End If End If Next ' Non AoE Damaging Spells Else If isInRange(Spell(spellnum).Range, MapNpc(mapNum).NPC(MapNpcNum).x, MapNpc(mapNum).NPC(MapNpcNum).y, GetPlayerX(victim), GetPlayerY(victim)) Then InitDamage = Spell(spellnum).Vital + (NPC(MapNpc(mapNum).NPC(MapNpcNum).num).stat(Stats.Intelligence) / 2) Damage = InitDamage - Player(victim).stat(Stats.Willpower) If Damage 0 Then StunPlayer victim, spellnum End If NpcAttackPlayer MapNpcNum, victim, Damage SendAnimation mapNum, Spell(spellnum).SpellAnim, 0, 0, TARGET_TYPE_PLAYER, victim MapNpc(mapNum).NPC(MapNpcNum).SpellTimer(SpellSlotNum) = GetTickCount + Spell(spellnum).CDTime * 1000 Exit Sub End If End If End If End Select End Sub ``` I shall be grateful if someone get help , even if you try ! (Sorry my bad english : / )

;3 Thx John; [DarkDino](http://www.eclipseorigins.com/community/index.php?/user/48122-darkdino/), if u need help, send pm haha :3

I would say to do something related to Eclipse, a short story where players would make a scenario within the game = P Ex: A noble marriage; A meeting of war. Only with player's.. As a theater players. xD

##ServerSide [ModCombat] - Sub CanPlayerAttackPlayer Search for.. "' Make sure they have more then 0 hp" after this add: If TempPlayer(attacker).inParty = TempPlayer(victim).inParty And TempPlayer(attacker).inParty > 0 Then Call PlayerMsg(attacker, GetPlayerName(victim) & " is member of your Party.", BrightRed) Exit Function End If In the second Case e.e i cant solve fast =P Need made a variable. ATT

Sorry revive this topic haha… But i have a same problem in my engine. But if you deleted all Spells in Server Data, and reopen the server this solve '-' Is bug in Serverloop or any Mod to load spells e.e (well, my error solve when delete this arquives... ) ##Sorry my bad english haha

Omg e.e Add in Editor Search for "Mask" or "Fringer" . Add Night in count '-' Edit is in Client Side. e,.e I do not know exactly how to do, I thank my beloved Johnson to put it in my engine haha

Yes, No matter Member que use this item , it will bring the All Other party members When Call locations. If you want you can add easily an implement that allows only the Leader , make that call . :3 No matter Member que use this item , it will bring the All Other party members When Call locations. No matter Member que use this item , it will bring the All Other party members When Call locations.No matter Member que use this item , it will bring the All Other party members When Call locations. No matter Member que use this item , it will bring the All Other party members When Call locations. No matter Member que use this item , it will bring the All Other party members When Call locations.

Hi There! This is the first tutorial I do, I hope you approve, is very simple, I know many here with a supreme capacity and would think of a better and more appropriately. But tutorial is tutorial. ### What does this do? It is an item that can be used only if you are in Party, and the function is to call all party members no matter where they are. ###What is needed to be able to do this? - Visual Basic 6 - Sourcer of you Engine =P **Lets Work!** **### Cliente and Server Side ###** **01\. [Mod Constants]** Search for ``` ' Item constants ``` This area will be similar to this: ``` Public Const ITEM_TYPE_NONE As Byte = 0 Public Const ITEM_TYPE_WEAPON As Byte = 1 Public Const ITEM_TYPE_ARMOR As Byte = 2 Public Const ITEM_TYPE_HELMET As Byte = 3 Public Const ITEM_TYPE_LEG As Byte = 4 Public Const ITEM_TYPE_GLOVES As Byte = 5 Public Const ITEM_TYPE_BOOTS As Byte = 6 Public Const ITEM_TYPE_RING As Byte = 7 Public Const ITEM_TYPE_SHIELD As Byte = 8 Public Const ITEM_TYPE_CONSUME As Byte = 9 Public Const ITEM_TYPE_KEY As Byte = 10 Public Const ITEM_TYPE_CURRENCY As Byte = 11 Public Const ITEM_TYPE_SPELL As Byte = 12 Public Const ITEM_TYPE_LOGO_GUILD As Byte = 13 Public Const ITEM_TYPE_STAT_RESET As Byte = 14 Public Const ITEM_TYPE_AUTOHEAL As Byte = 15 Public Const ITEM_TYPE_RECIPE As Byte = 16 ``` **Add this** (Remember to add this in your Sequence.) ``` Public Const ITEM_TYPE_PARTYCALL As Byte = 17 ``` **### Client Side ###** **2\. [frmEditor_Item]** In cmbType, add the "Party Call" in the Property List; ** - Client Done =P** **### Server Side ###** **3\. [ModPlayer]** Search for this Sub ``` Public Sub UseItem(ByVal Index As Long, ByVal invNum As Long) ``` Now, go to end of sub. Before of **End Select ** - ADD this: ``` Case ITEM_TYPE_PARTYCALL If TempPlayer(Index).inParty > 0 Then Call SendAnimation(GetPlayerMap(Index), 1, GetPlayerX(Index), GetPlayerY(Index)) Call PartyWarp(Index, Player(Index).Map, Player(Index).x, Player(Index).y) Else Call PlayerMsg(Index, " You need stay in Party to use this.", Pink) Exit Sub End If Call TakeInvItem(Index, Player(Index).Inv(invNum).num, 0) ' send the sound SendPlayerSound Index, GetPlayerX(Index), GetPlayerY(Index), SoundEntity.seItem, ItemNum Call PlayerMsg(Index, "You party have recalled!", BrightRed) ``` **4\. [ModPlayer]** In end of this Module, ADD This: ``` Sub PartyWarp(ByVal Index As Long, ByVal mapNum As Long, ByVal x As Long, ByVal y As Long) Dim i As Long If TempPlayer(Index).inParty > 0 Then For i = 1 To Party(TempPlayer(Index).inParty).MemberCount Call PlayerWarp(Party(TempPlayer(Index).inParty).Member(i), mapNum, x, y) Next End If End Sub ``` **~ Done s2** **Now, Compile and Test. ** **Sorry for my bad English, if there is any failure to contact that help solve!**

Hhihi, u can made that, Using a Event System… Learn how to use a Player's Variable and made xD Make 25 same Npc's, and each you add a quest.. And randomizes the respawn them using the event as a trigger. It is not so much work , in a few seconds you do this.

haha, i 'm back now . I think it would be interesting one equipment and weapons upgrade system . Opening a new box where the Player drag the item that you want to upgrade and put together the catalyst item. Transforming the item at +1 / +2 / +3 … Etc. In each command Upgrade give an improvement of for example ... 10% more attributes and status. Getting to +10 with double the original status = P But u engine is a nice engine. Promising! Ur Lovelly : )

Possible? I think not. For this have one tutorial.. is no one DLC or Upgrade to put in you engine.. all need study and prepair. There are many engines , in addition to a variety of custom , which ultimately modify packages, modules and subs . Each individual should examine his own engine and make the appropriate changes . Of course you can pay someone to do it, but I believe that a " Applicator " systems would be something useless. After much of the forum is made up of programmers, it's something that lend would have been done. =P

ow, Nice Work, really. U can add in Graphic one Display to Hunger Bar. Is really good this!

hey, Nice! this like a cash shop in games ~ really good.

Entei, you need go to ModTypes, Client and Server… PlayerSpellRec, and add you new type here. You need too declare the function of you combobox in Spell Editor ~ in modEditor. AND, in modconstants if you use this in sub. "ex: Spell_Type_STR.. " case counter,you's modifications do not enougth nothing. I think, you no need declare the Dim of the combobox in sub castspell.

9730 hours of love

Infernoux, i can send this to you. : ) Is simples, but have more of 200 paper. Weapons, Customs, LightSaber '-' , armors, vests, pants etc… To night i send to you ; )

Baron s2 i hate you : )))))) *0*

Ok - PM