Erin AO [12.1]

Ir abajo

Erin AO [12.1]

Mensaje por SumiN el Mar Jul 19, 2011 3:19 am



Nombre del servidor: Erin-AO

Descarga [Client Y Server] www.megaupload.com/?d=CPUXHXKH

Aclaracion: Borre TODOS los mapas asi tarda menos, tienen que agregar carpeta ''Maps'' y ponerselos, y ''Mapas'' y ponerselos (maps: server, mapas: cliente)

¿Modificación de otro servidor?: Mod 12.1 (modificacion de QuilmesAO)

Experiencia: Editable

Oro: No se usa

Programacion:

Arreglo de Bug's
Nombre siempre visibles
Sistema de /Cara (numero de genero correspondido)
Call para el MSN
Modificado el connect
Ip y puerto ocultos
Te editas el nivel (F1)
Te editas los skills (F2)
Reseteas tu personaje (F11)

Te editas hasta nivel 35 (sacas la vida que VOS quieras) y despues subis matando usuarios (claro, experiencia reducida..) hasta llegar al nivel 45.

En nivel 40 te dan un item, y en nivel 45 te dan otro item. Para fundar clan no se necesita nada de items, solo ser nivel 40 o 45.

Hay un pequeño bug, cuando apretas F11 tenes que relogear para ver los cambios.

Nivel maximo 45
Escrachar acciones de GM's (cuando hacen algo de /mod, /ci, tiran un item, avisa consola)
Sistema de Global
Nivel maximo en frmMain
Sistema de Duelos 1 vs 1
Meditacion segun usuarios matados:
100 usuarios: meditacion chica
200 usuarios: meditacion mediana
400 usuarios: meditacion grande
600 usuarios: meditacion mas grande
1000 usuarios: meditacion mas mas grande
Labeles de stamina, mana, vida, sed y hambre.
Limpiar mundo cada 45 minutos
Comando /PROMEDIO
Activar y Desactivar denuncias
GM's se teletransportan con click derecho
Ganas 30 skills por lvl (no hace falta ganarlos, ni nada, solo apretar click)
En /RMSG dice el nombre del GM
Form al /SALIR
Y muchas cosas mas, que prefiero guardarlas

Empezamos con lo que quieran cambiar:


F1 solo edita a nivel 35:

Buscas:

Codigo:
If .Stats.ELV = 35 Then
Call WriteConsoleMsg(UserIndex, "Ya es tiempo que entrenes por tu cuenta, no puedes seguir utilizando este comando.", FontTypeNames.FONTTYPE_EJECUCION)
Exit Sub
End If
.Stats.Exp = .Stats.ELU
Call CheckUserLevel(UserIndex)
End With
End Sub
Y lo remplazas por:

Codigo:
If .Stats.ELV = STAT_MAXELV Then
Call WriteConsoleMsg(UserIndex, "No puede seguir subiendo de nivel", FontTypeNames.FONTTYPE_EJECUCION)
Exit Sub
End If
.Stats.Exp = .Stats.ELU
Call CheckUserLevel(UserIndex)
End With
End Sub
Editar el item que te da y el nivel:

Codigo:
If userlist(userindex).stats.elv = 45 Then
Dim MiObj As Obj

MiObj.ObjIndex = 699
MiObj.Amount = 1

If Not MeterItemEnInventario(UserIndex, MiObj) Then _
Call TirarItemAlPiso(Userlist(UserIndex).Pos, MiObj)
End If
Para que se puedan usar todos los keys (f1, etc, me olvide de ponerlo)

Buscas:

Codigo:
Private Const NUM_CUSTOM_KEYS As Byte = 27
Y lo editas por el numero de keys

Ver la cantidad de keys:

Codigo:
mappedKeys(eKeyType.mKeySubeNivel) = KeyCodeConstants.vbKeyF1
y buscas todos los que son asi, los contas y listo

Reporten los bugs, etc.

Cambien el Call para el msn, y todo eh.

¡Adios!

PD: Para modificarlo tengan el VB
avatar
SumiN
Principiante
Principiante

Mensajes : 23
Fecha de inscripción : 19/07/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: Erin AO [12.1]

Mensaje por El Orco el Mar Jul 19, 2011 3:21 am

Buen aporte fran!






PD: No me tenes msn :S agregame
thomipinto@hotmail.com

El Orco
Influyente
Influyente

Mensajes : 51
Fecha de inscripción : 18/07/2011
Edad : 17
Localización : After-Foro

Ver perfil de usuario http://aftercomunidad.foro-activo.com

Volver arriba Ir abajo

Re: Erin AO [12.1]

Mensaje por Cynal el Mar Jul 19, 2011 4:03 am

Agregado al Indice.
avatar
Cynal
Influyente
Influyente

Mensajes : 52
Fecha de inscripción : 19/07/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: Erin AO [12.1]

Mensaje por A B C el Mar Jul 19, 2011 5:18 pm

Cynal escribió:Agregado al Indice.

Antes de decir Agregalo al Indice mirá el post aunque sea porque no puso el
Código:
code


No quiero armar pelea e.e
avatar
A B C
Principiante
Principiante

Mensajes : 6
Fecha de inscripción : 19/07/2011
Edad : 20
Localización : zone-gaming.com.ar

Ver perfil de usuario http://zone-gaming.com.ar

Volver arriba Ir abajo

Re: Erin AO [12.1]

Mensaje por Cynal el Mar Jul 19, 2011 7:37 pm

No te preocupes, lo agrego en un spoiler y listo. no hace falta que el me lo deje en code
avatar
Cynal
Influyente
Influyente

Mensajes : 52
Fecha de inscripción : 19/07/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: Erin AO [12.1]

Mensaje por NoSoyCualquiera el Mar Jul 19, 2011 10:28 pm

Buen aporte, intenta agregar imagenes, fuente si es que lo sacaste de algún lado y explicarme lo de la vida hasta nivel 35 que no entendí Razz

Off: Perdoname A B C, pero las reglas son claras. Robaste post, 1 advertencia. Sad

_________________
Hola Invitado, soy NoSoyCualquiera o Piojo; y te doy la bienvenida al foro. Te inscribiste el y solamente tienes 0 mensajes. ¿Que esperas para seguir aportando? Very Happy
avatar
NoSoyCualquiera
Admin
Admin

Mensajes : 52
Fecha de inscripción : 15/07/2011
Edad : 19
Localización : A la vuelta de un Super Mercado Chino...

Ver perfil de usuario http://aftercomunidad.foro-activo.com

Volver arriba Ir abajo

Re: Erin AO [12.1]

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.