2 Servers On 1 Client [UPDATE]

[andy200129]

**Please Comment if you have used this or liked it i want to see how many people use/like it lol and i will bring out more tutorials like this**
Tutorial Difficulty 1/5 Newb Friendly

Requirements
Visual Basics 6
EE 2.7 Source

**Video: [UPDATE]**
http://www.youtube.com/watch?v=bnDBeH4cH_0

Tutorial in Text:
Step By Step
1)Copy And Paste your Server make sure the Server - Copy is renamed to Server2
2) Copy and paste Client rename Client -copy to Test Client
3) Open Visual Basics 6  open the Client.vbp
4) open frmMainMenu add 2 buttons name them the 2 servers
5) put the code below on the buttons
6) Change the 1st button code port (0000) to the 1st servers port
7) change the 2nd button code port (0000) to the 2nd server port
8)make sure u save and compile the new client.exe into test client folder
9)run both servers Open client and test to check it works

**Code**
Yellow = change to your server ports
Red = Change to your Ip

>! Dim IP As String, Port As String
    Dim fErr As Integer
>!     Port = Val(0000)
>!     fErr = 0
    If fErr = 0 And Port <= 0 Then
        fErr = 1
        Call MsgBox("Please Fix The Port!", vbCritical, GAME_NAME)
        Exit Sub
    End If
    If fErr = 0 Then
        Call WriteINI("IPCONFIG", "PORT", 0000, (App.Path & "\config.ini"))
    End If
    Call TcpDestroy
>!     frmStable.Socket.RemotePort = 0000
**Different Computer Host**

>! Dim IP As String, Port As String
    Dim fErr As Integer
>!     IP = 000.000.000
    Port = Val(0000)
>!     fErr = 0
    If fErr = 0 And Len(Trim$(IP)) = 0 Then
        fErr = 1
        Call MsgBox("Please Fix The IP!", vbCritical, GAME_NAME)
        Exit Sub
    End If
    If fErr = 0 And Port <= 0 Then
        fErr = 1
        Call MsgBox("Please Fix The Port!", vbCritical, GAME_NAME)
        Exit Sub
    End If
    If fErr = 0 Then
        Call WriteINI("IPCONFIG", "IP", 000.000.000, (App.Path & "\config.ini"))
        Call WriteINI("IPCONFIG", "PORT", 0000, (App.Path & "\config.ini"))
    ' Call MenuState(MENU_STATE_IPCONFIG)
    End If
    Call TcpDestroy
    frmStable.Socket.RemoteHost = 000.000.000
    frmStable.Socket.RemotePort = 0000
After I Made mine i changed the graphics and now it looks like this

>! 

Please Comment Tell me if u have problems its something i thought of doing i got bored lol :)

[teh jimpie]

VERY NICE!

But what If your both server's/client's have a diffrent source?

[andy200129]

just copy the source folder the Client.vbp/server.vbp into the client/server folder whats not updated like the 1st or 2nd one :)

[andy200129]

Awww no one likes my tutorial  :cry:

[shadowchris]

Dude this pwnz 2 times harder. Question:Can you host different servers from different computerS?

[SagonSoulsOnline]

OMG i love this!!

[andy200129]

yes you can make it from 2 different computers its just the code alterd a bit
want me to make the code for hosting from different computer?

[mrmiguu]

You would have to have separate characters for each server if you hosted it on a different computer. This setup is more like channels.

[shadowchris]

@MonkeyGunZ:

> yes you can make it from 2 different computers its just the code alterd a bit
> want me to make the code for hosting from different computer?

Sure! That would be epic

[andy200129]

ok do you want me to put on here or me send you the code by pm since you want it? lol and ill instruct you how to use

[shadowchris]

I added you on MSN.

[andy200129]

ok i will check i just hope your not the one i rejected

[andy200129]

hope you all are liking this i will bring a new tutorial on making it more professional later :( please comment

[cheatking]

Haven't watched the video because you tube seems to take forever to load no a days but how does two server make the game any better?

[andy200129]

i haven't said nothing about making the game better its to improve game play if your PC is strong enough or you have alot of server host stuff and you don't want like 1000's of people on 1 server so its hard to move about so jam packed its to expand the world of online games so it dose not get over crowded on 1 server you can have a maximum to stop alot of arguments and complaints that its hard to move around on the game because so many people are on the 1 server if you get what I'm saying

[shadowwulf]

Hmm. Might integrate this into my project. Even if you dont expect a super high playerbase, sometimes people like to play ORPG single player style or know they will only see their group of friends.

[andy200129]

cool cool at-least i know 1 person is using it lol o actually found the code in seconds lmao

[donkeydiddles]

mine works now. ur totally awsome!

[gamesucker]

@MonkeyGunZ:

> ok do you want me to put on here or me send you the code by pm since you want it? lol and ill instruct you how to use

lol, I would like to know if I can get that.

[andy200129]

Glad to help all more tutorials will be released soon just keep an eye out for the signiture for more xD

[escfoe2]

I love AlienWare / AlienGUIse  It's awesome I can tell you're using it or something like it… Kewl

[bluelego]

Great video

[aster]

When I try to host with a different IP I get
Compile Error:
Expected: End Of Statement
here is what it looks like
```
Private Sub Server1_Click()
Dim IP As String, Port As String
    Dim fErr As Integer

    IP = 000.00.00.0
    Port = Val(4000)

    fErr = 0
    If fErr = 0 And Len(Trim$(IP)) = 0 Then
        fErr = 1
        Call MsgBox("Please Fix The IP!", vbCritical, GAME_NAME)
        Exit Sub
    End If
    If fErr = 0 And Port <= 0 Then
        fErr = 1
        Call MsgBox("Please Fix The Port!", vbCritical, GAME_NAME)
        Exit Sub
    End If
    If fErr = 0 Then
        Call WriteINI("IPCONFIG", "IP", 000.00.00.0, (App.Path & "\config.ini"))
        Call WriteINI("IPCONFIG", "PORT", 4000, (App.Path & "\config.ini"))
    ' Call MenuState(MENU_STATE_IPCONFIG)
    End If
    Call TcpDestroy
    frmStable.Socket.RemoteHost = 000.00.00.0
    frmStable.Socket.RemotePort = 4000
End Sub
```Note I changed my IP to 0's lol

[andy200129]

@EclipseStalker:

> When I try to host with a different IP I get
> Compile Error:
> Expected: End Of Statement
> here is what it looks like
> ```
> Private Sub Server1_Click()
> Dim IP As String, Port As String
>     Dim fErr As Integer
>
>     IP = 000.00.00.0
>     Port = Val(4000)
>
>     fErr = 0
>     If fErr = 0 And Len(Trim$(IP)) = 0 Then
>         fErr = 1
>         Call MsgBox("Please Fix The IP!", vbCritical, GAME_NAME)
>         Exit Sub
>     End If
>     If fErr = 0 And Port <= 0 Then
>         fErr = 1
>         Call MsgBox("Please Fix The Port!", vbCritical, GAME_NAME)
>         Exit Sub
>     End If
>     If fErr = 0 Then
>         Call WriteINI("IPCONFIG", "IP", 000.00.00.0, (App.Path & "\config.ini"))
>         Call WriteINI("IPCONFIG", "PORT", 4000, (App.Path & "\config.ini"))
>     ' Call MenuState(MENU_STATE_IPCONFIG)
>     End If
>     Call TcpDestroy
>     frmStable.Socket.RemoteHost = 000.00.00.0
>     frmStable.Socket.RemotePort = 4000
> End Sub
> ```Note I changed my IP to 0's lol

if u stick to the tutorials it shouldn't have problems you must of put the wrong port or so watch and read the tutorial carefully