Varios Codigos para tu AO!

comunidad de Spikel, hoy se me da por aportar , les traigo 3 codigos sencillos y un Cliente/Server 13.0 Funcional para que puedan empezar su servidor más una guía!.
Bien Empezemos:

1° Ver daño cuerpo a cuerpo/hechizo a NPCS
2°Aumentar Exp y Oro desde un INIT
3°Arreglo del Bug del Alphableing.
4° Nombres siempre visibles
________
1° Cliente/Servidor 13.0 Totalmente Funcional y Completo
2° Guía de Como crear alkon 13.0


Cliente/Servidor 13.0:
El pack esta hecho basado en el CVS de Alkon del día 9 de Mayo de 2010 con todos los gráficos, mapas, dats y modificaciones para que funcione inmediatamente se lo descomprime. Testeado Completamente

Incluye (Códigos y Compilados):
*Cliente
*Servidor

*y Todas las librerías necesarias.!

NOTA: El compresor, indexador, aosetup, aoupdate son los mismos que la versión 0.12.3 y no son imprescindibles para ejecutar el servidor y cliente

Tamaño: Tamaño: 69 MB

4Shared:
[Tienes que estar registrado y conectado para ver este vínculo]

Megaupload:
[Tienes que estar registrado y conectado para ver este vínculo]

Guía:
Lo primero que hacemos, al tenerlos descargados, es dirigirnos a server.ini en la carpeta del servidor.
Una vez dentro, donde dice:
Citación:
ServerIP=

Ponemos al lado del Igual nuestra IP o NO-IP. Si no, para probar el servidor, ponemos la IP: 127.0.0.1

Ahora hay 2 formas de poner la IP en el Cliente:

1.- Desde Sinfo.dat (la que yo use).
Ingresamos a la carpeta del Cliente -> INIT -> Sinfo.dat
Donde dice:
IP=

Ponemos nuestra la misma IP que en server.ini

2.-

CLIENTE:

1)Abrimos Cliente.vbp

2)En MOD_General buscámos:
Código:
CurServerIp = frmConnect.IPTxt


frmConnect.IPTxt lo cambiamos por la IP de ustedes entre comillas Por Ej: "127.0.0.1" Su ip o una No-Ip


3) Buscamos
CurServerPort = Val(frmConnect.PortTxt)

Val(frmConnect.PortTxt) lo cambiamos por el puerto 7666



4)Buscamos esta línea y la borramos:
webNoticias.Navigate("http://ao.alkon.com.ar/noticiascliente/noticias.php")

5)Buscamos este Sub y lo borramos:

Private Sub webNoticias_NewWindow2(ppDisp AsAs Boolean) Object, Cancel
WebAuxiliar.RegisterAsBrowser = True
Set ppDisp = WebAuxiliar.Object
End Sub

6)Ahora compilamos:
Si tenes el visual basic en ingles vamos a File>Make Argentum.exe>Y clickeamos en Aceptar
Si lo tenemos en español vamos a Inicio>Generar Argentum.exe>Y clickeamos en Aceptar

______________________Con eso terminamos la Mini Guía________________________________________________________
Ahora nos quedan los codigos!
Empezemos :

1° Arreglar Bug de Alphablieng:

Reemplazan su ModResolution por Este:

Código:

'**************************************************************
' Resolution.bas - Performs resolution changes.
'
' Designed and implemented by Juan Martín Sotuyo Dodero (Maraxus)
' (juansotuyo@gmail.com)
'**************************************************************
 
'**************************************************************************
'This program is free software; you can redistribute it and/or modify
'it under the terms of the Affero General Public License;
'either version 1 of the License, or any later version.
'
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'Affero General Public License for more details.
'
'You should have received a copy of the Affero General Public License
'along with this program; if not, you can find it at http://www.affero.org/oagpl.html
'**************************************************************************
 
''
'Handles all incoming / outgoing packets for client - server communications
'The binary prtocol here used was designed by Juan Martín Sotuyo Dodero.
'This is the first time it's used in Alkon, though the second time it's coded.
'This implementation has several enhacements from the first design.
'
' @file    Resolution.bas
' @author  Juan Martín Sotuyo Dodero (Maraxus) [Tienes que estar registrado y conectado para ver este vínculo]
' @version  1.1.0
' @date    20080329
 
'**************************************************************************
' - HISTORY
'      v1.0.0  -  Initial release ( 2007/08/14 - Juan Martín Sotuyo Dodero )
'      v1.1.0  -  Made it reset original depth and frequency at exit ( 2008/03/29 - Juan Martín Sotuyo Dodero )
'**************************************************************************
 
Option Explicit
 
Private Const CCDEVICENAME As Long = 32
Private Const CCFORMNAME As Long = 32
Private Const DM_BITSPERPEL As Long = &H40000
Private Const DM_PELSWIDTH As Long = &H80000
Private Const DM_PELSHEIGHT As Long = &H100000
Private Const DM_DISPLAYFREQUENCY As Long = &H400000
Private Const CDS_TEST As Long = &H4
Private Const ENUM_CURRENT_SETTINGS As Long = -1
 
Private Type typDevMODE
    dmDeviceName      As String * CCDEVICENAME
    dmSpecVersion      As Integer
    dmDriverVersion    As Integer
    dmSize            As Integer
    dmDriverExtra      As Integer
    dmFields          As Long
    dmOrientation      As Integer
    dmPaperSize        As Integer
    dmPaperLength      As Integer
    dmPaperWidth      As Integer
    dmScale            As Integer
    dmCopies          As Integer
    dmDefaultSource    As Integer
    dmPrintQuality    As Integer
    dmColor            As Integer
    dmDuplex          As Integer
    dmYResolution      As Integer
    dmTTOption        As Integer
    dmCollate          As Integer
    dmFormName        As String * CCFORMNAME
    dmUnusedPadding    As Integer
    dmBitsPerPel      As Integer
    dmPelsWidth        As Long
    dmPelsHeight      As Long
    dmDisplayFlags    As Long
    dmDisplayFrequency As Long
End Type
 
Private oldResHeight As Long
Private oldResWidth As Long
Private oldDepth As Integer
Private oldFrequency As Long
Private bNoResChange As Boolean
 
 
Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lptypDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lptypDevMode As Any, ByVal dwFlags As Long) As Long
 
 
'TODO : Change this to not depend on any external public variable using args instead!
 
 Public Sub SetResolution()
'***************************************************
'Autor: Unknown
'Last Modification: 03/29/08
'Changes the display resolution if needed.
'Last Modified By: Juan Martín Sotuyo Dodero (Maraxus)
' 03/29/2008: Maraxus - Retrieves current settings storing display depth and frequency for proper restoration.
'***************************************************
    Dim lRes As Long
    Dim MidevM As typDevMODE
    Dim CambiarResolucion As Boolean
 
    lRes = EnumDisplaySettings(0, ENUM_CURRENT_SETTINGS, MidevM)
 
    oldResWidth = Screen.Width \ Screen.TwipsPerPixelX
    oldResHeight = Screen.Height \ Screen.TwipsPerPixelY
 
    If NoRes Then
        CambiarResolucion = (oldResWidth < 800 Or oldResHeight < 600)
    Else
        CambiarResolucion = (oldResWidth <> 800 Or oldResHeight <> 600)
    End If
 
    If CambiarResolucion Then
      frmMain.WindowState = vbMaximized
        With MidevM
            oldDepth = .dmBitsPerPel
            oldFrequency = .dmDisplayFrequency
         
            .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL
            .dmPelsWidth = 800
            .dmPelsHeight = 600
            .dmBitsPerPel = 16
        End With
     
        lRes = ChangeDisplaySettings(MidevM, CDS_TEST)
    Else
        bNoResChange = True
        MidevM.dmFields = DM_BITSPERPEL
        MidevM.dmBitsPerPel = 16
        lRes = ChangeDisplaySettings(MidevM, CDS_TEST)
        frmMain.WindowState = vbNormal
 End If
End Sub
 
Public Sub ResetResolution()
'***************************************************
'Autor: Unknown
'Last Modification: 03/29/08
'Changes the display resolution if needed.
'Last Modified By: Juan Martín Sotuyo Dodero (Maraxus)
' 03/29/2008: Maraxus - Properly restores display depth and frequency.
'***************************************************
    Dim typDevM As typDevMODE
    Dim lRes As Long
 
    If Not bNoResChange Then
 
        lRes = EnumDisplaySettings(0, ENUM_CURRENT_SETTINGS, typDevM)
     
        With typDevM
            .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL Or DM_DISPLAYFREQUENCY
            .dmPelsWidth = oldResWidth
            .dmPelsHeight = oldResHeight
            .dmBitsPerPel = oldDepth
            .dmDisplayFrequency = oldFrequency
        End With
     
        lRes = ChangeDisplaySettings(typDevM, CDS_TEST)
    Else
        lRes = EnumDisplaySettings(0, ENUM_CURRENT_SETTINGS, typDevM)
     
        With typDevM
            .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL Or DM_DISPLAYFREQUENCY
            .dmPelsWidth = oldResWidth
            .dmPelsHeight = oldResHeight
            .dmBitsPerPel = oldDepth
            .dmDisplayFrequency = oldFrequency
        End With
     
        lRes = ChangeDisplaySettings(typDevM, CDS_TEST)
    End If
End Sub

Testeado y Funcional.
_________________________________________________________________________________________________________

2° Ver daño Cuerpo a Cuerpo/Hechizo a Npcs:

SERVIDOR:

•Buscamos:

Código:

Call WriteConsoleMsg(UserIndex, "¡Le has quitado " & daño & " puntos de vida a la criatura!", FontTypeNames.FONTTYPE_FIGHT)

•Abajo Ponemos:

Código:

Call WriteChatOverHead(UserIndex, " -" & daño, str(Npclist(NpcIndex).Char.CharIndex), vbRed)

•Buscamos:

Código:

'Call WriteUserHitNPC(UserIndex, daño)
        Call WriteMultiMessage(UserIndex, eMessages.UserHitNPC, daño)

•Abajo poner:

Código:

Call WriteChatOverHead(UserIndex, " -" & daño, str(Npclist(NpcIndex).Char.CharIndex), vbRed)

Testeado y Funcional ^^,
_________________________________________________________________________________________________________

3° Aumentar Exp y Oro desde Server.ini:

TODO EN EL SERVIDOR!:

•Buscamos:

Código:

Global LeerNPCs As New clsIniReader

•Abajo ponemos:

Código:

 Public Expc As Integer
    Public Oroc As Integer

•Buscamos:

Código:

frmCargando.Show
 
    'Call PlayWaveAPI(App.Path & "\wav\harp3.wav")

•ABajo ponemos:

Código:

Expc = val(GetVar(IniPath & "Server.ini", "INIT", "Expc"))
    Oroc = val(GetVar(IniPath & "Server.ini", "INIT", "Oroc"))

•Buscamos:

Código:

Call TirarOroNpc(.Drop(NroDrop).Amount, npc.Pos)

•Lo reemplazamos por:

Código:

Call TirarOroNpc(.Drop(NroDrop).Amount * Oroc, npc.Pos)

•Buscamos:

Código:

.GiveEXP = val(Leer.GetValue("NPC" & NpcNumber, "GiveEXP"))

•Lo reemplazamos por:

Código:

.GiveEXP = val(Leer.GetValue("NPC" & NpcNumber, "GiveEXP")) * Expc

Listo Ahora solo falta agregar en el SERVER.INI de la carpeta del Servidor abajo de PuedeCrearPersonajes=1 Agregar:

Código:

Expc=X
Oroc=X

Note: Donde estan las X reemplazenlos por la Exp y Oro que quieran por Ejemplo Expc: 25 Oroc:100

_________________________________________________________________________________________________________

4° Nombres SIempre visibles

Buscamos:

Código:

If Nombres And Abs(nX - x) < 2 And (Abs(nY - y)) < 2 Then

y lo reemplazamos por:

Código:

 If Nombres Then

^^


Ahi termino la Guía espero que les sirva cualquier duda o problema mandenme un M.P o posteen aca.


Atte Frann.- ^^ Fuente: Gs-Zone

Muy buen aporte Zhapire.

Ayuda un monton las imagenes para la gente nueva.

bien zhapire segui asi

PD: Bueno para Aprendizes

Lo revisé y no andan los clanes.

Buen APORTE!!! Les va a servir mucho a los que recien empiezan.

Atte OzerLord

AmenO escribió:Lo revisé y no andan los clanes.

Tenés que tener la carpeta Guilds creada con el archivo GuildsInfo.

Buen aporte zhapire , de 10 me re sirve,

Francohhh escribió:

AmenO escribió:Lo revisé y no andan los clanes.

Tenés que tener la carpeta Guilds creada con el archivo GuildsInfo.

Gracias!