ÍndiceCalendarioFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse
Afiliados

Comparte | 
 

 Crear ao mod Gathering

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Niahh
user activo
user activo


Mensajes : 28

MensajeTema: Crear ao mod Gathering   Lun Dic 20 2010, 14:00

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 = Cool).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
Volver arriba Ir abajo
Ver perfil de usuario
RecNaC
Usuario AO
Usuario AO


Mensajes : 296
Edad : 20
Localización : MI CASA :O

MensajeTema: Re: Crear ao mod Gathering   Lun Dic 20 2010, 14:42

Buenisiimo el aporte nachyto.
Ojala que sirva y ayuda a los que tienen dudas...



Suuerte

ElMATiH.-
Volver arriba Ir abajo
Ver perfil de usuario
[F].ranko.[H]:P
user activo
user activo


Mensajes : 47
Edad : 21
Localización : Salto

MensajeTema: Re: Crear ao mod Gathering   Lun Dic 20 2010, 14:54

muy buen aporte nachyto la verdad esta muy bueno
Volver arriba Ir abajo
Ver perfil de usuario http://www.saltociudad.com.ar
Slimer
aficionado
aficionado


Mensajes : 107
Edad : 18
Localización : Buenos Aires

MensajeTema: Re: Crear ao mod Gathering   Lun Dic 20 2010, 17:02

Muy buen aporte se a alguien del foro que le va a servir Very Happy
Volver arriba Ir abajo
Ver perfil de usuario http://servers-ao.foro-activo.es/u5-
Berbito.~
Administrador
Administrador


Mensajes : 28

MensajeTema: Re: Crear ao mod Gathering   Lun Dic 20 2010, 21:11

El th deve ir en "Manuales y tutoriales".

Muy buen post.

Suerte!

MOViDO!


Servers AO una comunidad unida.


Administrador volando. Razz

Feliz navidad a todos. santa

Si tenes duda Question No dudes MP!
Volver arriba Ir abajo
Ver perfil de usuario http://servers-ao.foro-activo.es
Desconocido
aficionado
aficionado


Mensajes : 81
Edad : 19
Localización : En tu casa.!

MensajeTema: Re: Crear ao mod Gathering   Lun Dic 20 2010, 23:20

Muy lindo Aporte.! Se agradece.!!
Volver arriba Ir abajo
Ver perfil de usuario
GoldFish
aficionado
aficionado


Mensajes : 72

MensajeTema: Re: Crear ao mod Gathering   Lun Dic 20 2010, 23:56

En pocas palabras me vino como anillo al dedo

Attm...
GoldFish
Volver arriba Ir abajo
Ver perfil de usuario
PiojoDJ
aficionado
aficionado


Mensajes : 79

MensajeTema: Re: Crear ao mod Gathering   Jue Dic 23 2010, 14:48

Genial!, lástima que no entendí muy bien jajaja. Razz
Volver arriba Ir abajo
Ver perfil de usuario
GORDO ViCiO
miembro avanzado
miembro avanzado


Mensajes : 209

MensajeTema: Re: Crear ao mod Gathering   Lun Ene 03 2011, 18:31

BUENIISIMO. GRACIAS NIAHH...SOS UN GRANDE
Volver arriba Ir abajo
Ver perfil de usuario
Ichigo
aficionado
aficionado


Mensajes : 118
Edad : 18

MensajeTema: Re: Crear ao mod Gathering   Lun Ene 03 2011, 20:39

Lindo aporte, suerte.
Volver arriba Ir abajo
Ver perfil de usuario
Contenido patrocinado




MensajeTema: Re: Crear ao mod Gathering   Hoy a las 01:11

Volver arriba Ir abajo
 
Crear ao mod Gathering
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» Ayuda con mazo tricolor
» Fundas personalizadas
» Proxies ! Como hacerlos?
» Ayuda a crear mazo Azul dekeo descarte
» Ayuda para crear un mazo azul de control

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum online :: Manuales y tutoriales-
Cambiar a: