Crear Server Mod twist

Descargas necesarias:
Visual Basic 6.0
El serial es Todo 111111111111111
Servidor
Cliente mirror 1
Cleinte mirror 2
Codigo del Cliente

Una ves que tenemos todo descargado y extraigo abrimos el codigo del cliente con el Visual Basic 6.0 y buscamos con "Ctrl + F"
Código:
Public Function CurServerIp

Nos va a salir algo asi:
Código:
Public Function CurServerIp() As String
CurServerIp = "190.50.169.119" (Aca ponemos nuestra ip)
'CurServerIp = "190.2.45.10" (Esto no importa)
End Function

Y para modificarlo seria asi:
Código:
CurServerIp = "190.50.169.119" (Aca tenes que poner tu I.P)

Nuevamente buscamos con Ctrl + F:
Código:
Server IP

Y deveria salir algo asi:
Código:
Server IP

Nos aparece esto

Código:
'Make Server IP and Port box visible
If KeyCode = vbKeyI And Shift = vbCtrlMask Then

'Port
PortTxt.Visible = False
'Label4.Visible = True

'Server IP
PortTxt.Text = "7666"
IPTxt.Text = "190.50.169.119" (Acá pones tu ip)
IPTxt.Visible = False
'Label5.Visible = True

En el modulo Mod_General(General.Bas) Buscamos:
Código:
Private Sub Image1_Click(index As Integer)

Nos saldra algo asi:
Código:
Private Sub Image1_Click(index As Integer)
CurServer = 0
'IPdelServidor = IPTxt
PuertoDelServidor = 7666
IPdelServidor = "190.50.169.119" 'testeando, NicoNZ (aca pones tu ip entre las "")

Ahora buscamos:
Código:
Private Sub imgServEspana_Click()

Y nos saldra algo asi:
Código:
Private Sub imgServEspana_Click()
Call Audio.PlayWave(SND_CLICK)
IPTxt.Text = "190.50.169.119" (Acá pones tu ip)
PortTxt.Text = "7666"
End Sub

Listo ahora nos queda generar nuestro .EXE para ellos vamos a Archivo.>Generar.Exe y listo.

Recuerden hacer otro para el Host
para ello vamos a inicio>Ejecutar>Cmd y aqui escribimos ipconfig

y donde dice Dirección ip . . . . . . . . . te dira la ip que tienes que remplasar en las ""
en la carpeta server fijensen de tener creada la carpeta "charfile" si no la tienen creenlan