Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Coyote

Members
 View Profile  See their activity

  • Posts

    154

  • Joined

  • Last visited

 Content Type 

Posts posted by Coyote

    Software for editing Code.

    in Help and Bugs

    Posted

    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.

    Coyote's Shop - VB6

    in Talent Center

    Posted

    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)
    ![alt text](http://i.imgur.com/vhnCXPY.png)

    Need a Developer For Engine

    in Talent Center

    Posted

    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 :)

    aaaaaaaaaaaaaa

    in Help and Bugs

    Posted

    @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 <= NumCharacters Then
    > 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 <= NumCharacters Then
    > 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.

    aaaaaaaaaaaaaa

    in Help and Bugs

    Posted

    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.

    Different servers

    in Help and Bugs

    Posted

    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:
    ![alt text](https://image.prntscr.com/image/5U_fCNdFTVSf26CsJmYcIA.png)

    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!

    Different servers

    in Help and Bugs

    Posted

    @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.

    Make Eclipse Great Again!

    in Suggestions

    Posted

    Nice post , I'm around eclipse since its golden days from around 2010.
    First thing of all is getting new forum software.
    MyBB is ok free software but it is awful in some parts.Getting rid of those who spam porn sites etc.
    Second is getting a new, simple, modern theme.(Because this one is so bad, mobile theme which is only text and rectangles is 10 times better)
    And at last a new engine, since there are a lot of engines you can build a good engine around , VB6 engine should not be hard to deal.
    But why not making Vb.net engine.Most of users are more familiar to vb than c# and other languages. Vb.net is a good choice for an engine.
    Thats all from me.
×
×
  • Create New...