jordy205

Up, some one can help me?

> Now just resize your form "frmMain" to the suitable size. I have change it but it = [http://gyazo.com/77e1a330eb80199ca610cea806ada910](http://gyazo.com/77e1a330eb80199ca610cea806ada910)

I want to change the resolution of the game but is directx 8 and it dont have picscreen i have change in the server and in client the map constants ' Map constants Public Const MAX_MAPS As Long = 500 Public Const MAX_MAPX As Byte = 31 Public Const MAX_MAPY As Byte = 24 But [http://gyazo.com/6c0…77e91c9174e2c51](http://gyazo.com/6c0c8a3dc1bc29cee77e91c9174e2c51) only i change the map i need teh screen :S Regards

> Take a look at the name of the object on the form that is the Experience bar, and then look for that name in the code (ctrl+f) These is my code but id ont know how to add the other bar ``` Public Sub DrawGUIBars() Dim tmpWidth As Long, barWidth As Long, x As Long, y As Long, dX As Long, dY As Long, sString As String Dim Width As Long, Height As Long ' backwindow + empty bars x = GUIWindow(GUI_BARS).x y = GUIWindow(GUI_BARS).y Width = GUIWindow(GUI_BARS).Width Height = GUIWindow(GUI_BARS).Height RenderTexture Tex_GUI(21), x, y, 0, 0, Width, Height, Width, Height If Not HUDClose Then RenderTexture Tex_Buttons(17), 270, 59, 0, 0, 19, 19, 19, 19 Else RenderTexture Tex_Buttons(18), 270, 59, 0, 0, 19, 19, 19, 19 End If RenderTexture Tex_Character(Player(MyIndex).Sprite), x + 11, y + 15, 32, 0, 32, 32, 32, 32 x = GUIWindow(GUI_BARS).x + 41 y = GUIWindow(GUI_BARS).y + 3 ' hardcoded for POT textures barWidth = 241 ' health bar BarWidth_GuiHP_Max = ((GetPlayerVital(MyIndex, Vitals.HP) / barWidth) / (GetPlayerMaxVital(MyIndex, Vitals.HP) / barWidth)) * barWidth RenderTexture Tex_GUI(13), x + 7, y + 9, 0, 0, BarWidth_GuiHP, Tex_GUI(13).Height, BarWidth_GuiHP, Tex_GUI(13).Height ' render health sString = GetPlayerVital(MyIndex, Vitals.HP) & "/" & GetPlayerMaxVital(MyIndex, Vitals.HP) dX = x + 7 + (barWidth / 2) - (EngineGetTextWidth(Font_Default, sString) / 2) dY = y + 9 RenderText Font_Default, sString, dX, dY, White ' spirit bar BarWidth_GuiSP_Max = ((GetPlayerVital(MyIndex, Vitals.MP) / barWidth) / (GetPlayerMaxVital(MyIndex, Vitals.MP) / barWidth)) * barWidth RenderTexture Tex_GUI(14), x + 7, y + 31, 0, 0, BarWidth_GuiSP, Tex_GUI(14).Height, BarWidth_GuiSP, Tex_GUI(14).Height ' render spirit sString = GetPlayerVital(MyIndex, Vitals.MP) & "/" & GetPlayerMaxVital(MyIndex, Vitals.MP) dX = x + 7 + (barWidth / 2) - (EngineGetTextWidth(Font_Default, sString) / 2) dY = y + 31 RenderText Font_Default, sString, dX, dY, White ' experience bar BarWidth_GuiSP_Max = ((GetPlayerVital(MyIndex, Vitals.MP) / barWidth) / (GetPlayerMaxVital(MyIndex, Vitals.MP) / barWidth)) * barWidth RenderTexture Tex_GUI(14), x + 7, y + 31, 0, 0, BarWidth_GuiSP, Tex_GUI(14).Height, BarWidth_GuiSP, Tex_GUI(14).Height ' render spirit sString = GetPlayerVital(MyIndex, Vitals.MP) & "/" & GetPlayerMaxVital(MyIndex, Vitals.MP) dX = x + 7 + (barWidth / 2) - (EngineGetTextWidth(Font_Default, sString) / 2) dY = y + 31 RenderText Font_Default, sString, dX, dY, White End Sub Public Sub DrawQuestLog() Dim buttonnum As Long, x As Long, y As Long Dim Width As Long, Height As Long ' render the window Width = GUIWindow(GUI_QUESTLOG).Width Height = GUIWindow(GUI_QUESTLOG).Height 'EngineRenderRectangle Tex_GUI(4), GUIWindow(GUI_INVENTORY).x, GUIWindow(GUI_INVENTORY).y, 0, 0, width, height, width, height, width, height RenderTexture Tex_GUI(7), GUIWindow(GUI_QUESTLOG).x, GUIWindow(GUI_QUESTLOG).y, 0, 0, Width, Height, Width, Height RenderText Font_Default, "Quest log", GUIWindow(GUI_QUESTLOG).x + (GUIWindow(GUI_QUESTLOG).Width / 2) - (EngineGetTextWidth(Font_Default, "Quest log") / 2), GUIWindow(GUI_QUESTLOG).y + 5, White ' draw the buttons For buttonnum = 27 To 32 x = GUIWindow(GUI_QUESTLOG).x + Buttons(buttonnum).x y = GUIWindow(GUI_QUESTLOG).y + Buttons(buttonnum).y Width = Buttons(buttonnum).Width Height = Buttons(buttonnum).Height ' render accept button If Buttons(buttonnum).state = 2 Then ' we're clicked boyo Width = Buttons(buttonnum).Width Height = Buttons(buttonnum).Height 'EngineRenderRectangle Tex_Buttons_c(Buttons(buttonnum).PicNum), x, y, 0, 0, width, height, width, height, width, height RenderTexture Tex_Buttons_c(Buttons(buttonnum).PicNum), x, y, 0, 0, Width, Height, Width, Height ElseIf (GlobalX >= x And GlobalX = y And GlobalY

> Download an engine that already has an experience bar. Then, take a look at how its handled and adapt it to the engine that you're using. Can you say me want i have to search in the sever and the client. Regards 

My engine is the Resbak Online engine  or the Drachen Eclipse 

In mi engine i dont have any experience bar and i want to add, can antone help me ? Regards

Have you any tutorial :S i am new in the vb6.0

But when i try to make .exe i cant becUse say me that the picscreen dont exist i think that is something of dx8

Hi everybody i want to change the resolution of my game but in all tutorial ssy that i have to search in frmain a sub like form_load but in my codee i only have form_unload and when i put in for_unload the code: picscreen.hight and picscreen.wight i try to copile and it says a error like picscreen dont exist. Now i am in the hight school and i cant paste you the code. Regards

4974 ^^

I want to know if any persons know where i can dowload the complete resource of the sprite creator 3 >  I want all the hairs, bags mantles, all… Thanks

> i can remove or add event system on EO.. i studied it while removing Event system everything i download it.. hi add me on skype 

First sorry for my english. I have lot of work and i am searching a programmer not very expensive but that work good and on time. My engine is the same that Resbak Online or Drachen Engine: [http://gyazo.com/0af…894fb0a0e0b4ca5](http://gyazo.com/0af111ae1fb54f08e894fb0a0e0b4ca5) Feactures that i want to change or add: -First i want change the event system to the new of eclipse origins: [http://gyazo.com/8c4…bf33d29899b8d21](http://gyazo.com/8c421b65b76aebd57bf33d29899b8d21) Thse ismy event system. The all list complete of feactures i will say to the programmer on my skype: jordy205 Add my if you are a godd programmer Regards

I have it and is not portable :S

But the problem is that these tutorial is for dx7 and my engine is dx8 :S

I have these error loading the project: [http://gyazo.com/d36…2106d9595f43720](http://gyazo.com/d36eefc3da10fd4c42106d9595f43720) ``` Private Sub lvwInfo_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) 'When a ColumnHeader object is clicked, the ListView control is sorted by the subitems of that column. 'Set the SortKey to the Index of the ColumnHeader - 1 'Set Sorted to True to sort the list. If lvwInfo.SortOrder = lvwAscending Then lvwInfo.SortOrder = lvwDescending Else ``` Can any help me? Thanks

> The tutorial should cover everything you need to locate in the code. If you know how to open the code, then you're all good to go. If you want i can paste the code and you help me?

> Look up some basic Visual Basic 6 tutorials on the web and you should get a basic idea of how to access the code. I kñow to acess but is the Drachen Eclipse Engine and it is a little bit modified xD and i dont know how to start because have a lots of code

**Work to be done: I want to modified a custom evrsion** **Will you be willing to pay?: Now i dont have money but i can explain the reason in skype** **Can you vouch for me: (Optional)i dont understand what is these because i from spain but yes XDD** **Skype ID: (Leave as is if you want to discuss via the forum's PM) jordy205** **Engine: (EO 2.0, 2.3, 3.0, EA, ER, Custom)**CUSTOM

Can some one help me whit the tutorial because i dont know how to change it… :S?¿ I need help

[http://gyazo.com/2eca06ffc67898aa9e6736864c308302](http://gyazo.com/2eca06ffc67898aa9e6736864c308302) these is my actually event system and these is to the i want to change [http://gyazo.com/8238a42559e6932b9c8e7cb1d37e0416](http://gyazo.com/8238a42559e6932b9c8e7cb1d37e0416)

Noe i am in the highshool xD if you want add me skype and we talk

Hi everybody first of all sorry for my english. I want to lnos if i can change a old event system for the new one of the origins 3.0 the event system that i have is like a attribute that you have to edit the event sepparated lf the map editor i think that is based of cs:de i any person know how to make it or need more information please talk wiht me on skype: jordy205 I am eritting in my mobilphone sorry for the bad english lenguage. Regards