Aqui dejo como crear servidor mod gathering:
Necesario:

Codigos Server = 4shared.com /file/114939404/e6b89889/Server_GatheringAO_020.html
Recursos Server = 4shared.com /file/114962090/28ff4774/_2__Server_GatheringAO_020.html
Codigos Cliente = 4shared.com /file/114943480/f491eaec/_2__Cliente_GatheringAO_020.html
Recursos Cliente = 4shared.com /file/110320367/3918197f/Cliente_GatheringAO_020.html
Visual Basic 6 = megaupload.com 99WSE2DZ


Server

Bueno al descargar todo eso abren el VB6...
Abrimos el proyecto:

Vamos a archivo GENERAR Server:
Imagen

En ese momento cuando copilen les va a tirar un error...
Buscan eso(Ctrl + F)

Código | Seleccionar todo:
If Npclist(MapData(Map, X, Y).NpcIndex).NPCtype = NPCTYPE_ENGARZADOR Then



y reemplazan ese IF por todo esto:

Código | Seleccionar todo:
'If Npclist(MapData(Map, X, Y).NpcIndex).NPCtype = NPCTYPE_ENGARZADOR Then
'If UserList(UserIndex).flags.Muerto Then
' Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Estas Muerto, primero ve al Sacerdote antes de hablar conmigo." & "°" & Npclist(NpcIndex).Char.CharIndex & FONTTYPE_TALK)
' Else
' Call Engarzar(UserIndex, UserList(UserIndex).TargetNpc)
' End If
' Exit Sub
' End If



Ahora buscamo esto:

Código | Seleccionar todo:
Sub Engazar



y lo reemplazan todo eso por todo esto :

Código | Seleccionar todo:
'Sub Engarzar(UserIndex As Integer, NpcIndex As Integer)

'Dim MiObj As Obj
'Dim ItemIndex As Integer
'Dim Item1 As String
'Dim Item2 As String
'Dim Item3 As String

'Item1 = ObjData((MapData(ObjData(ItemIndex).WMapa, ObjData(ItemIndex).WX, ObjData(ItemIndex).WY).trigger = ).Name
'Item2 = ObjData((MapData(ObjData(ItemIndex).WMapa, ObjData(ItemIndex).WX, ObjData(ItemIndex).WY).trigger = 9)).Name
'Item3 = ObjData((MapData(ObjData(ItemIndex).WMapa, ObjData(ItemIndex).WX, ObjData(ItemIndex).WY).trigger = 10)).Name

'If Item1 = UCase$("Rodela") And Item2 = UCase$("Escudo de Hierro") And Item3 = UCase$("Escudo Imperial") Then
' MiObj.OBJIndex = 616
' MiObj.Amount = 1

'If Not MeterItemEnInventario(UserIndex, MiObj) Then
' Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "No tienes lugar en tu inventario." & "°" & Npclist(NpcIndex).Char.CharIndex & FONTTYPE_TALK)
' Else
' Call MeterItemEnInventario(UserIndex, MiObj)
' Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Felicitaciones!, has obtenido un " & ObjData(MiObj).Name & "." & "°" & Npclist(NpcIndex).Char.CharIndex & FONTTYPE_TALK)
' End If
'End If

'End Sub



y GENERAMOS...Y va a andar el .exe del server...

Ahora vamos al server.ini y buscamos (es la 2da linea):

StartPort=
y ponemos a lado del = 10200

y listo el servidor

Cliente

Bueno en el cliente la unica modificacion que tiene que hacer es Cambiar el puerto y la IP del cliente, y para muchos iniciantes en esto sostiene que tambien hay que cambiar una IP del Servidor(ni siquiera existente), eso es un FAKE.
Para que no queden dudas,les voy a explicar, el Cliente asi llamado por nosotros, ejecuta siertas operaciones y una de ellas es conectarse con el servidor,y cuando busca conectarse recurre a la IP porque sino no sabria donde ir, IP (la IP es como decirlo, el nombre y el apellido de tu PC).
Y hay muchos Clientes de Arnet que tiene IP rotativa (como en mi caso), y por eso se tiene que hacer un NO-IP (esto no es para banear usuarios sino es un nombre fijo para tu IP asi cuando la busque por el nombre la encuentre)


Como hacer un NOIP

Ya tenemos nuestro no IP ahora hay que cambiar la IP

Buscamos

Código | Seleccionar todo:
IPdelServidor =



Asi lo tiene que encontrar

Código | Seleccionar todo:
'BETA
'IPdelServidor = "190.55.51.204"
IPdelServidor = "192.168.1.101"
'IPdelServidor = "200.43.193.121"
'PuertoDelServidor = 1081
PuertoDelServidor = 1080
'PuertoDelServidor = 10300



y a lado del igual ponemos nuestra NOIP Ej.

Código | Seleccionar todo:
Ipdelservidor= Ejemplo.no-ip.org



Y abajo del IPdelservidor se encuentra PuertodelServidor
Buscan:

Código | Seleccionar todo:
PuertodelServidor =



Y ponemos al lado del Igual

Código | Seleccionar todo:
10200



Y copilamos y YA ESTA...

TENEMOS NUESTRO PROPIO SERVIDOR MOD FENIX (SUB MODO GATHERING)

A B C escribió:

Buen aporte siempre que quiero generar ALGUN ERROR ME TIRA en los AOs que quise hacer.

El error que tenes es que es semejante copy paste

el error es el siguiente:
Código | Seleccionar todo:
Sub Engazar

La solucion es:
Código | Seleccionar todo:
Sub Engarzar


/CLOSED