Coyote

Selling dbz platformer! new features : Pets 3v3 5v5 Matches Spreading projectiles Flying ... 85$ Also making custom features. Pm me, answering only on PM's.

bumpmpmp

bumping bump ... available for more work.

My old project. Nice bump xD

bump bump

Nice page. Good post, will be useful for someone.

Since VB6 was only purchase software and you can not buy it now nobody here is able to provide you a copy legaly so you can search it over torrent etc. There are plenty of youtube videos about how you can install it and download it on newest windows. Anyway is pretty similar to vb.net. There is also a portable version but I doubt you can edit things in it.Most probably not. So if you really want it go check youtube or something.It should be pretty easy to.

If anyone needs some VB6 work feel free to pm me 7+ years working with VB6 and 5+ years with eclipse origins engines. I'm available to add custom systems. Feel free to message me and tell me what you need. If you need custom engines I have: Pokemon Engine - Full 6 Generations , moves coded, various features.100% Completed - 500$ Dragon Ball Engine - Platformer, a lot of features, beam projectiles like kamehameha etc. - 100$ [CLICK HERE TO SEE IT](https://www.eclipseorigins.com/topic/85490/platformer-eo-based-dragon-ball-engine/3) 

I am familiar with eclipse and vb6 for super long time. And making a pokemon mmo myself I know how hard it is. It took over a year to do it with some pauses. Overall about 4 months of constant development. Features itself are pretty easy to code but Database coding such as move special effects and battle related things take huge amount of time since you need to code almost every move etc.(If you use function codes its a lot easier.I saved a week of work doing so and its easily editable) Also there are a lot of small things to work on. Plus removing all the non-pokemon features from the engine. I doubt you will find a developer for this much features. If you do then expect price being higher than you expected. At the end, its not about how hard it is to code the features, its about the time you put into coding those features. Anyway good luck with your project :)

@solidlink said in [How can I make Quest indicators?](/post/699874): > [?] > > ``` > If Quest(I).Task(Player(MyIndex).PlayerQuest(I).ActualTask).NPC = npcNum Then > Name = "[?]" > TextX = ConvertMapX(MapNpc(Index).X * PIC_X) + TempMapNpc(Index).xOffset + (PIC_X \ 2) - (EngineGetTextWidth(Font_Default, Name) / 2) > TextY = ConvertMapY(MapNpc(Index).Y * PIC_Y) + TempMapNpc(Index).yOffset - 16 > If NPC(npcNum).Sprite >= 1 And NPC(npcNum).Sprite TextY = ConvertMapY(MapNpc(Index).Y * PIC_Y) + TempMapNpc(Index).yOffset - (Tex_Character(NPC(npcNum).Sprite).Height / 4) > End If > If Not NPC(npcNum).Behaviour = NPC_BEHAVIOUR_FRIENDLY Or NPC(npcNum).Behaviour = NPC_BEHAVIOUR_SHOPKEEPER Then > Call RenderText(Font_Default, Name, TextX, TextY - 12, Yellow) > Else > Call RenderText(Font_Default, Name, TextX, TextY, Yellow) > End If > Exit For > End If > End If > ``` > > [!] > > ``` > If Player(MyIndex).PlayerQuest(I).Status = QUEST_NOT_STARTED Or Player(MyIndex).PlayerQuest(I).Status = QUEST_COMPLETED_BUT Then > 'the npc gives this quest? > If NPC(npcNum).Quest = 1 Then > Name = "[!]" > TextX = ConvertMapX(MapNpc(Index).X * PIC_X) + TempMapNpc(Index).xOffset + (PIC_X \ 2) - (EngineGetTextWidth(Font_Default, Name) / 2) > TextY = ConvertMapY(MapNpc(Index).Y * PIC_Y) + TempMapNpc(Index).yOffset - 16 > If NPC(npcNum).Sprite >= 1 And NPC(npcNum).Sprite TextY = ConvertMapY(MapNpc(Index).Y * PIC_Y) + TempMapNpc(Index).yOffset - (Tex_Character(NPC(npcNum).Sprite).Height / 4) > End If > If Not NPC(npcNum).Behaviour = NPC_BEHAVIOUR_FRIENDLY Or NPC(npcNum).Behaviour = NPC_BEHAVIOUR_SHOPKEEPER Then > Call RenderText(Font_Default, Name, TextX, TextY - 12, Yellow) > Else > Call RenderText(Font_Default, Name, TextX, TextY, Yellow) > End If > Exit For > End If > End If > End If > ``` > > I have the quest blips images but wondering how instead of drawing the name to [?]/[!] I want to draw the image > > Or is it possible to resize the text larger? That would also work. Now in modGraphics or modDirecDraw idk which one you have make a sub that draws indicator image. Lets say you call it DrawQuest After u've done that replace Call RenderText(Font_Default, Name, TextX, TextY, Yellow) with DrawQuest sub. If you have trouble with it PM me i'll do it for you.

I dont have source for the system cause Search doesnt work. But what I know is that using CTRL + F in vb6 , choosing "Current Project" option and searching for "[?]" or "[!]" will bring you to the sub where indicators are written. After that using other simple Draw or Blt Sub as a help or example you could add drawing indicators , especially if you have misc drawing its more easy. Now you just simply draw the image on X and Y where text was and if there is any additional text write it on the same X just add indicator image width to it and remove. If you provide me source of altar quest system I can help you more.

Maybe its not from eclipse but if you are more familiar with java take a look at this: [https://github.com/Equinox-/Equinox-MMORPG-Maker](https://github.com/Equinox-/Equinox-MMORPG-Maker)

Gonna end this: In client make a new form and call it frmServers. Next add new OptionButton and leave its name Option1. Now copy that OptionButton and when it asks you to duplicate it (Make an array of controls) click **YES**. When you do that add a command button. Should look like this:  Now next thing that you wanna do is really important , go to Project (At the top bar) and then to last option (Its EO Properties to me) and then change Startup Object from Sub Main to frmServers. After you've done that go to modGlobals and add this at the end of module: Public ServerSelected As Boolean After u've done that go to frmServers again and double click command button you made to view its code. Now paste this into its code: If Option1(0).Value = True Then Options.IP = "RED SERVER IP" 'IP as a string Options.Port = 7001 'port in number ServerSelected = True End If If Option1(1).Value = True Then Options.IP = "GREEN SERVER IP" 'IP as a string Options.Port = 7001 'port in number ServerSelected = True End If If Option1(2).Value = True Then Options.IP = "BLUE SERVER IP" 'IP as a string Options.Port = 7001 'port in number ServerSelected = True End If If ServerSelected = False Then MsgBox ("Please select a server!") Exit Sub End If Call Main Unload Me Change "RED/GREEN/BLUE SERVER IP" string with IPs you want client to connect to when server is selected. Same with the port Now final thing is to look for Sub LoadOptions in modDatabase and replace few lines of code: Replace: Options.IP = "127.0.0.1" Options.Port = 7001 With: If ServerSelected = False Then Options.IP = "127.0.0.1" Options.Port = 7001 End If And Replace: Options.IP = GetVar(fileName, "Options", "IP") Options.Port = Val(GetVar(fileName, "Options", "Port")) With: If ServerSelected = False Then Options.IP = GetVar(fileName, "Options", "IP") Options.Port = Val(GetVar(fileName, "Options", "Port")) End If Thats it you are ready to run!

@shina said in [Different servers](/post/699837): > @solidlink said in [Different servers](/post/699836): > > try adding Optionboxes. Lets say we added 2 optionboxes. One is blue and one is red > > double click on blue and add a code like > > ``` > > Options.IP = "Blue's IP" > > Options.Port="Blue's Port" > > ``` > > Double click on Red and do the same thing but with Red's server. Then create a copy of your server but this time it loads the red's server and then keep both of those server open. No idea how to sync with other servers though. > > > Changing those while the client already opened won't change it > the moment you pass the TCPInit or whatever it called on the engine where you setup the remotehostip and remotehostport of the winsocket, even if you change those, the socket destination won't change.. it must be reinit again or just change the winsocket destination Then simply make another form with Server selection or make login form work offline before tcpinit is called.It should be pretty simple.

Learn to code or perhaps you can ask someone for it not spamming I want …

lol Someone lock this

I only use skype.Send me ur username.

I'm a vb6 programmer so If anyone needs something to be done you can pm me. I'm doing things cheap and fast, bugfree.

UPDATED - 25$ for engine pm me. Bugfree all features working.

Space, enter?

Maybe you should check and edit in source?

Its eliminator_takataa add me because I cant seem to find you

Looks like pms are bugged.I'll add you on skype. * * * Cant seem to find u tho.

Pm me

Sometimes the issue is not in bmp or file name. If you used some kind of program that has issue with saving as bmp etc. the image wont be loaded by engine. I had the same problem with my own program saving images. The fix for this is to just open up the saved image in paint and save it a .bmp again.