Crear ao mod Gathering

Hoal vine a traer esta guia para crear su mod gathering

Tenemos que descargar lo Siguiente:

Codigos del server
Recursos ServerCodigos del ClienteRecursos Cliente
Visual Basic 6

Server

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



Vamos a archivo GENERAR Server:



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

---

If Npclist(MapData(Map, X, Y).NpcIndex).NPCtype = NPCTYPE_ENGARZADOR Then

y reemplazan ese IF por todo esto:
'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:

Sub Engarzar

y lo reemplazan todo eso por todo esto :

'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 una no ip

Ya tenemos nuestro no IP ahora hay que cambiar la IP

Buscamos
Número de Linea | Expandir/Contraer | Seleccionar todo
IPdelServidor =


Asi lo tiene que encontrar
Número de Linea | Expandir/Contraer | 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.
Número de Linea | Expandir/Contraer | Seleccionar todo
Ipdelservidor= Ejemplo.no-ip.org


Y abajo del IPdelservidor se encuentra PuertodelServidor
Buscan:
Número de Linea | Expandir/Contraer | Seleccionar todo
PuertodelServidor =


Y ponemos al lado del Igual

Número de Linea | Expandir/Contraer | Seleccionar todo
10200


Y copilamos y YA ESTA...

Fuente Blisse - Games

muy buen aporte nachyto la verdad esta muy bueno

Muy buen aporte se a alguien del foro que le va a servir

Muy lindo Aporte.! Se agradece.!!

BUENIISIMO. GRACIAS NIAHH...SOS UN GRANDE