Domino_

So i can basically redo EO to java with Jabaco without any problems ?

Best way I have seen in forum for custom exp for lvl. Thanks. 

"pokemon online"  cool, waiting for next tut.  p.s. also jabaco support better icon.* quality than original vb6? 

This feature isnt rllyneeded to latest version because you can make same with event system, am I right?

add that code in any module. . .

Will player get back his original look afther unequiping item? o.O

> I made a better version. > > [Snapshot](http://i.imm.io/DOXx.bmp) lol, looks good, but use combobox… O.O

Ohh yea, crap, 0 = Default and 1 = Dragon , but wait. I'v added if lisindex < 0 then if it will be smaller than 0 then it will say that there is problem… ohh now i see. But its mostly the same. only mine is bit newbie xD

> Well this is the list as mod/admin I could do > > -mapping > > -monitoring the chat > > -possibly sprites > > -helping people out like of they get glitched > > -I will be active definitely > > As a beta tester > > -I would test stuff XD You can do all theese stuff alone without any help and team. I have tryed pixel art, vb6 coding on free hand, hosting server, monitoring and even more, yes maybe it it bit difficult but noone makes you to do this… Its like hobby. Lol you cant pay but your looking for so mutch people to work with you for free... What people will get for free pixel art or gui making for you? For now I suggest you do this all yourself and maybe it will be mutch better than asking for someone else, also learning new stuff wount go bad for you. 

> Why I If I change the Original to Dragon the GUI still in Original .. and if I Close And Open Again the GUI change to Dragon.. Not like in the video if Change To dragon GUI change to Dragon.. ? Did you saved changes and have you added GUI = 0 in config.ini ? p.s. gui will be changed only afther pressing Save button. –--------------------------------------------- Added link to addon.

Doesnt look interesting for me… Im not Starwars fan xD

Hahaha noone likes #4 xD I like #5 ) p.ss Dont see difference between 3,4,5 xD

Where you want npc to stop move, please try to explain bit different.

This is addition for [EO 2.0] Change GUI client side http://youtu.be/QBc3EB67i9w (Client Side) * Download attached file and place **picGUIChange** in **FrmMenu** positions 0, -112 File: [http://www.touchofde…3817768ee74.rar](http://www.touchofdeathforums.com/community/ccs_files/file_host/c9d60ef3b653e43fe64ea3817768ee74.rar) * Now in **Public Sub LoadOptions()** before error handler add this ``` If Options.Music = 0 Then frmMenu.optMOff.Value = True Else frmMenu.optMOn.Value = True End If If Options.Sound = 0 Then frmMenu.optSOff.Value = True Else frmMenu.optSOn.Value = True End If ``` Img link: ``` http://www.touchofdeathforums.com/community/ccs_files/file_host/84925f9801cb4e044257282c77d5f37e.bmp ``` Link to Dragon menu, just extract this in gui folder.  ``` http://www.touchofdeathforums.com/community/ccs_files/file_host/872e0b9c0179e024676755b121d7d77c.rar ``` Also added ``` If CmbStyle.ListIndex < 0 Then Call MsgBox("You havent changed theme.") Else ``` so there wount be problems with gui change. If you have problems, please report. 

> This seems insanely cool. I wonder how this wasn't made before, heh. There was no requests.  –----------------------------------- Added how to use information.

> **About and Video** > > Coded for EverEmber because there were some people with their skins and the didnt look bad. > > So if you will add this in your projec you will be avalable to change game look. (only graphic) > > [media]http://youtu.be/UFmNrUhy30s[/media] > > This is not tutorial for video gui change because i'v lost my source for this, just made bit different. xD > **Let's start.** > > **(**Client Side Only**)** > > * In **modGeneral** > * afther **Public Sub Main()** add > > ``` > > Dim StyleNum As Long, Style As String > > > ``` > * Find **Public Sub Main()** and afther **Load frmMenu** add > > ``` > > 'add name of gui > > frmMenu.CmbStyle.AddItem "Original" > > frmMenu.CmbStyle.AddItem "Dragon" > > StyleNum = Options.GUI > > 'load gui name > > If StyleNum = 0 Then Style = "Original" > > If StyleNum = 1 Then Style = "Dragon" > > > ``` > To make more options to choose just add > > ``` > > frmMenu.CmbStyle.AddItem "Third theme" > > > ``` > and > > ``` > > If StyleNum = 2 Then Style = "Third theme" > > > ``` > * Change > > ``` > > ' Check if the directory is there, if its not make it > > ChkDir App.Path & "\data files\", "graphics" > > ChkDir App.Path & "\data files\graphics\", "animations" > > ChkDir App.Path & "\data files\graphics\", "characters" > > ChkDir App.Path & "\data files\graphics\", "items" > > ChkDir App.Path & "\data files\graphics\", "paperdolls" > > ChkDir App.Path & "\data files\graphics\", "resources" > > ChkDir App.Path & "\data files\graphics\", "spellicons" > > ChkDir App.Path & "\data files\graphics\", "tilesets" > > ChkDir App.Path & "\data files\graphics\", "faces" > > ChkDir App.Path & "\data files\graphics\", "gui" > > ChkDir App.Path & "\data files\graphics\gui\", "menu" > > ChkDir App.Path & "\data files\graphics\gui\", "main" > > ChkDir App.Path & "\data files\graphics\gui\menu\", "buttons" > > ChkDir App.Path & "\data files\graphics\gui\main\", "buttons" > > ChkDir App.Path & "\data files\graphics\gui\main\", "bars" > > ChkDir App.Path & "\data files\", "logs" > > ChkDir App.Path & "\data files\", "maps" > > ChkDir App.Path & "\data files\", "music" > > ChkDir App.Path & "\data files\", "sound" > > > ``` > to > > ``` > > ' Check if the directory is there, if its not make it > > ChkDir App.Path & "\data files\", "graphics" > > ChkDir App.Path & "\data files\graphics\", "animations" > > ChkDir App.Path & "\data files\graphics\", "characters" > > ChkDir App.Path & "\data files\graphics\", "items" > > ChkDir App.Path & "\data files\graphics\", "paperdolls" > > ChkDir App.Path & "\data files\graphics\", "resources" > > ChkDir App.Path & "\data files\graphics\", "spellicons" > > ChkDir App.Path & "\data files\graphics\", "tilesets" > > ChkDir App.Path & "\data files\graphics\", "faces" > > ChkDir App.Path & "\data files\graphics\", "gui" > > ChkDir App.Path & "\data files\graphics\gui\" & Style & "\", "menu" > > ChkDir App.Path & "\data files\graphics\gui\" & Style & "\", "main" > > ChkDir App.Path & "\data files\graphics\gui\" & Style & "\menu\", "buttons" > > ChkDir App.Path & "\data files\graphics\gui\" & Style & "\main\", "buttons" > > ChkDir App.Path & "\data files\graphics\gui\" & Style & "\main\", "bars" > > ChkDir App.Path & "\data files\", "logs" > > ChkDir App.Path & "\data files\", "maps" > > ChkDir App.Path & "\data files\", "music" > > ChkDir App.Path & "\data files\", "sound" > > > ``` > * Change sub **Public Sub loadGUI** to > > ``` > > Public Sub loadGUI(Optional ByVal loadingScreen As Boolean = False) > > Dim i As Long > > Dim StyleNum As Long, Style As String > > ' if we can't find the interface > > On Error GoTo errorhandler > > > > LoadOptions > > StyleNum = Options.GUI > > If StyleNum = 0 Then Style = "Original" > > If StyleNum = 1 Then Style = "Dragon" > > If StyleNum >= 2 Then Style = "Original" > > > > ' loading Screen > > If loadingScreen Then > > frmLoad.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\menu\loading.jpg") > > Exit Sub > > End If ' menu > > frmMenu.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\menu\background.jpg") > > frmMenu.picMain.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\menu\main.jpg") > > frmMenu.picLogin.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\menu\login.jpg") > > frmMenu.picRegister.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\menu\register.jpg") > > frmMenu.picCredits.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\menu\credits.jpg") > > frmMenu.picCharacter.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\menu\character.jpg") > > ' main > > frmMain.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\main.jpg") > > frmMain.picInventory.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\inventory.jpg") > > frmMain.picCharacter.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\character.jpg") > > frmMain.picSpells.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\skills.jpg") > > frmMain.picOptions.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\options.jpg") > > frmMain.picParty.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\party.jpg") > > frmMain.picItemDesc.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\description_item.jpg") > > frmMain.picSpellDesc.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\description_spell.jpg") > > frmMain.picTempInv.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\dragbox.jpg") > > frmMain.picTempBank.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\dragbox.jpg") > > frmMain.picTempSpell.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\dragbox.jpg") > > frmMain.picShop.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\shop.jpg") > > frmMain.picBank.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\bank.jpg") > > frmMain.picTrade.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\trade.jpg") > > frmMain.picHotbar.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\hotbar.jpg") > > ' main - bars > > frmMain.imgHPBar.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\bars\health.jpg") > > frmMain.imgMPBar.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\bars\spirit.jpg") > > frmMain.imgEXPBar.Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\bars\experience.jpg") > > ' main - party bars > > For i = 1 To MAX_PARTY_MEMBERS > > frmMain.imgPartyHealth(i).Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\bars\party_health.jpg") > > frmMain.imgPartySpirit(i).Picture = LoadPicture(App.Path & "\data files\graphics\gui\" & Style & "\main\bars\party_spirit.jpg") > > Next > > > > ' store the bar widths for calculations > > HPBar_Width = frmMain.imgHPBar.width > > SPRBar_Width = frmMain.imgMPBar.width > > EXPBar_Width = frmMain.imgEXPBar.width > > ' party > > Party_HPWidth = frmMain.imgPartyHealth(1).width > > Party_SPRWidth = frmMain.imgPartySpirit(1).width > > > > Exit Sub > > > > ' let them know we can't load the GUI > > errorhandler: > > MsgBox "Cannot find one or more interface images." & vbNewLine & "If they exist then you have not extracted the project properly." & vbNewLine & "Please follow the installation instructions fully.", vbCritical > > DestroyGame > > Exit Sub > > End Sub > > > ``` > * Change sub **Public Sub renderButton_Menu(ByVal buttonNum As Long)** to > > ``` > > Public Sub renderButton_Menu(ByVal buttonNum As Long) > > Dim bSuffix As String > > Dim StyleNum As Long, Style As String > > ' If debug mode, handle error then exit out > > If Options.Debug = 1 Then On Error GoTo errorhandler > > > > ' get the suffix > > Select Case MenuButton(buttonNum).state > > Case 0 ' normal > > bSuffix = "_norm" > > Case 1 ' hover > > bSuffix = "_hover" > > Case 2 ' click > > bSuffix = "_click" > > End Select > > > > 'Lets load our current GUI > > StyleNum = Options.GUI > > If StyleNum = 0 Then Style = "Original" > > If StyleNum = 1 Then Style = "Dragon" > > > > ' render the button > > frmMenu.imgButton(buttonNum).Picture = LoadPicture(App.Path & "\Data Files\graphics\gui\" & Style & "\menu\buttons\" & MenuButton(buttonNum).fileName & bSuffix & ".jpg") > > > > ' Error handler > > Exit Sub > > errorhandler: > > HandleError "renderButton_Menu", "modGeneral", Err.Number, Err.Description, Err.Source, Err.HelpContext > > Err.Clear > > Exit Sub > > End Sub > > > ``` > * Change sub **Public Sub renderButton_Main(ByVal buttonNum As Long)** to > > ``` > > Public Sub renderButton_Main(ByVal buttonNum As Long) > > Dim bSuffix As String > > Dim StyleNum As Long, Style As String > > ' If debug mode, handle error then exit out > > If Options.Debug = 1 Then On Error GoTo errorhandler > > > > ' get the suffix > > Select Case MainButton(buttonNum).state > > Case 0 ' normal > > bSuffix = "_norm" > > Case 1 ' hover > > bSuffix = "_hover" > > Case 2 ' click > > bSuffix = "_click" > > End Select > > > > 'Lets load our current GUI > > StyleNum = Options.GUI > > If StyleNum = 0 Then Style = "Original" > > If StyleNum = 1 Then Style = "Dragon" > > > > ' render the button > > frmMain.imgButton(buttonNum).Picture = LoadPicture(App.Path & "\Data Files\graphics\gui\" & Style & "\main\buttons\" & MainButton(buttonNum).fileName & bSuffix & ".jpg") > > > > ' Error handler > > Exit Sub > > errorhandler: > > HandleError "renderButton_Main", "modGeneral", Err.Number, Err.Description, Err.Source, Err.HelpContext > > Err.Clear > > Exit Sub > > End Sub > > > ``` > * Now go to **modTypes** and in **Private Type OptionsRec** add > > ``` > > GUI As Byte > > > ``` > * In **modDatabase** sub **Public Sub SaveOptions()** add > > ``` > > Call PutVar(fileName, "Options", "GUI", Str(Options.GUI)) > > > ``` > * In **Public Sub LoadOptions()** afther > > ``` > > Options.Debug = 0 > > > ``` > add > > ``` > > Options.GUI = 0 > > > ``` > and afther > > ``` > > Options.Debug = GetVar(fileName, "Options", "Debug") > > > ``` > add > > ``` > > Options.GUI = GetVar(fileName, "Options", "GUI") > > > ``` > * Now go to **FrmMenu** Add somewhere **Label** named **lblEditGUI** 2x click and add in it this > > ``` > > picGUIChange.Visible = True > > > ``` > * Somewhere add **PictureBox** with name **picGUIChange** ( Make picture box visible to false!!! ) > > In it add **ComboBox** named **CmbStyle** and **Command** named **cmdSaveGUI** > * 2x click on **cmbSaveGUI** and add in > > ``` > > 'Save stuff > > Options.GUI = CmbStyle.ListIndex > > SaveOptions > > loadGUIpicGUIChange.Visible = False > > > ``` > > > Now add somewhere in your Config.ini this > > ``` > > GUI= 0 > > > ``` > How to use? > > Go to " data files\graphics\gui " and you will see your main and menu folder. > > Now you need to add 2 more folders, Original and Dragon(you can call dragon whatever you want just need then change in source code.) and copy main and menu and paste in both folders. > > So now you have data files\graphics\gui\Original and there is main and menu folder with gui. > Addon > > Option Panel (with sound and music turn on/off) > > [http://www.touchofde…nel-in-frmmenu/](http://www.touchofdeathforums.com/community/index.php?/topic/128886-eo-20-option-panel-in-frmmenu/) There is 100% better way like I'v done it but forgot xD You can use this fully or modify for your need. Ill update this code afther remember or get suggestions of better way.

Maybe you have problems with port or ip?

14

umm… 33846 ?

1, 2, 3, …. 1, 2, 3, .... Anyone hear me?

@Slayer: > VB6? Just confused me even more now. Dow do you think game begin developed, with notepad? :D You need to download Visual Basic 6 ( Search yourself somewhere, i dont suggest u to download portable version. )

Too mutch everything for normal person. :X Added to favorite. xD Thanks. :)

1.

Server and Client side in constants change Max_Maps. ( server will generate/creane new maps if there will be need for them) To save changes save your project and run though vb6 with full compile or make *.exe of your project. Answered on your question, close this thread, nothing more to say.

Please add shadow, that cliff and tree, without shadow looks like its a picture under ground. Just make a bit shadow pls. Good project, wish you luck. :)