[Aporte] Aodrag 7.0 Completo

CRaW

www.aojimp.com
por cierto le pasado el virus total y salta 1 .gen
No se que es eso, pero en todo caso, como va a saltar virus si lo único que hace es escribir un fichero plano, uno binario y un bitmap? xD

para que quieren un descompresor sin el compresor :D

un saludo
Es compresor/descompresor, solo hay que saber como usar el output del mismo :D.

La compresión que utilizaba esta gente era la más ridícula de la época, era tan simple que parecía incluso arte de ingeniería y realmente es una tontería como está empaquetado. La clave siempre estuvo presente ante todos nosotros, precisamente en el cliente liberado del 2004, la versión 2.7, esa que se suele confundir con la 3.7.
Realmente la palabra compresión, está mal dicha en este programa que facilito, alfinal de cuentas, lo que aodrag hacía no era comprimir, sinó, empaquetar que es distinto, por eso a aojimp le puse un compresor reduciendo así el tamaño en un 70-80%.
 
Última edición:

lopera

Aprendiz Lvl 3
compañero he probado de todas maneras y he buscado por todos los codigos y no encuentro la forma de crear objetos no es como dices haber si tu lo encuentras y me lo solucionas te lo agradecería un saludo y gracias de antemano
Buenas, perdona por mi error.

te muestro el codigo que tienes que buscar,,


Codigo Comando /mod:
 'MODIFICA CARACTER
    If UCase$(Left$(rdata, 5)) = "/MOD " Then
        Call LogGM(UserList(UserIndex).Name, rdata)
        rdata = Right$(rdata, Len(rdata) - 5)
        If ReadField(1, rdata, 32) = "yo" Then
            Tindex = UserIndex
        Else
            Tindex = NameIndex(Replace(ReadField(1, rdata, 32), "+", " "))
        End If
        Arg1 = ReadField(2, rdata, 32)
        Arg2 = ReadField(3, rdata, 32)
        Arg3 = ReadField(4, rdata, 32)
        Arg4 = ReadField(5, rdata, 32)
        If Tindex <= 0 Then
            Call SendData(ToIndex, UserIndex, 0, "||Usuario offline." & "´" & FontTypeNames.FONTTYPE_info)
            Exit Sub
        End If

        Select Case UCase$(Arg1)

            Case "ORO"
                If val(Arg2) < 95001 Then
                    UserList(Tindex).Stats.GLD = val(Arg2)
                    Call SendUserStatsOro(Tindex)
                Else
                    Call SendData(ToIndex, UserIndex, 0, "||No esta permitido utilizar valores mayores a 95000. Su comando ha quedado en los logs del juego." & "´" & FontTypeNames.FONTTYPE_info)
                    Exit Sub
                End If



            Case "OBJETO"
                Dim MiObj As obj
                MiObj.Amount = 200
                MiObj.ObjIndex = val(Arg2)
                'comprueba tipo de objeto
                If val(Arg2) > NumObjDatas Then
                    Call SendData(ToIndex, UserIndex, 0, "||No hay tantos objetos." & "´" & FontTypeNames.FONTTYPE_WARNING)
                    Exit Sub
                End If

                If ObjData(val(Arg2)).OBJType <> 40 And ObjData(val(Arg2)).OBJType <> OBJTYPE_USEONCE And ObjData(val(Arg2)).OBJType <> OBJTYPE_WEAPON And ObjData(val(Arg2)).OBJType <> OBJTYPE_ARMOUR And ObjData(val(Arg2)).OBJType <> OBJTYPE_POCIONES And ObjData(val(Arg2)).OBJType <> OBJTYPE_BEBIDA And ObjData(val(Arg2)).OBJType <> OBJTYPE_LEÑA And ObjData(val(Arg2)).OBJType <> OBJTYPE_HERRAMIENTAS And ObjData(val(Arg2)).OBJType <> OBJTYPE_PERGAMINOS And ObjData(val(Arg2)).OBJType <> OBJTYPE_MINERALES And ObjData(val(Arg2)).OBJType <> OBJTYPE_BARCOS And ObjData(val(Arg2)).OBJType <> OBJTYPE_FLECHAS Then
                    Call SendData(ToIndex, UserIndex, 0, "||No esta permitido fabricar este tipo de objetos." & "´" & FontTypeNames.FONTTYPE_WARNING)
                    Exit Sub
                End If

                'lo mete en el inventario o lo suelta.
                If Not MeterItemEnInventario(UserIndex, MiObj) Then
                    Call TirarItemAlPiso(UserList(UserIndex).Pos, MiObj)
                End If

                Call UpdateUserInv(True, UserIndex, 0)
                Exit Sub
                'pluto:Todo tipo de objetos
            Case "OBJETOX"
                MiObj.Amount = 1000
                MiObj.ObjIndex = val(Arg2)
                If val(Arg2) > NumObjDatas Then
                    Call SendData(ToIndex, UserIndex, 0, "||No hay tantos objetos." & "´" & FontTypeNames.FONTTYPE_WARNING)
                    Exit Sub
                End If
                'lo suelta.
                Call TirarItemAlPiso(UserList(UserIndex).Pos, MiObj)
                Exit Sub
            Case "EXP"
                If val(Arg2) < 999999999 Then
                    If UserList(Tindex).Stats.exp + val(Arg2) > _
                       UserList(Tindex).Stats.Elu Then
                        Dim resto
                        resto = val(Arg2) - UserList(Tindex).Stats.Elu
                        UserList(Tindex).Stats.exp = UserList(Tindex).Stats.exp + UserList(Tindex).Stats.Elu
                        Call CheckUserLevel(Tindex)
                        UserList(Tindex).Stats.exp = UserList(Tindex).Stats.exp + resto
                    Else
                        UserList(Tindex).Stats.exp = val(Arg2)
                    End If
                    Call SendUserStatsEXP(Tindex)
                Else
                    Call SendData(ToIndex, UserIndex, 0, "||No esta permitido utilizar valores mayores a 5000. Su comando ha quedado en los logs del juego." & "´" & FontTypeNames.FONTTYPE_info)
                    Exit Sub
                End If


            Case "BODY"
                '[GAU] agregamo UserList(UserIndex).Char.Botas
                Call ChangeUserChar(ToMap, 0, UserList(Tindex).Pos.Map, Tindex, val(Arg2), UserList(Tindex).Char.Head, UserList(Tindex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim, UserList(UserIndex).Char.Botas)
                Exit Sub
            Case "HEAD"
                '[GAU] Agregamo UserList(UserIndex).Char.Botas
                Call ChangeUserChar(ToMap, 0, UserList(Tindex).Pos.Map, Tindex, UserList(Tindex).Char.Body, val(Arg2), UserList(Tindex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim, UserList(UserIndex).Char.Botas)
                Exit Sub
            Case "CRI"
                UserList(Tindex).Faccion.CriminalesMatados = val(Arg2)
                Exit Sub
            Case "CIU"
                UserList(Tindex).Faccion.CiudadanosMatados = val(Arg2)
                Exit Sub
            Case "LEVEL"
                'pluto:2.15
                If val(Arg2) > 200 Then Arg2 = 200
                UserList(Tindex).Stats.ELV = val(Arg2)
                Exit Sub
            Case Else
                Call SendData(ToIndex, UserIndex, 0, "||Comando no permitido." & "´" & FontTypeNames.FONTTYPE_info)
                Exit Sub
        End Select

        Exit Sub
    End If
 

SaSoRi_14

Newbie Lvl 1
Cuando intento generar el exe desde "gmdinamico" me aparece este error

Quiero cambiar la ip para poder jugar en mi casa tengo 2 pcs y quiero que el cliente se conecte a mi ip, pero tampoco logro encontrar la ip, alguno podra generar el exe por mi? o como solucionar este problema.

Saludos
 

PeLaLencioni

Newbie Lvl 1
Cuando intento generar el exe desde "gmdinamico" me aparece este error

Quiero cambiar la ip para poder jugar en mi casa tengo 2 pcs y quiero que el cliente se conecte a mi ip, pero tampoco logro encontrar la ip, alguno podra generar el exe por mi? o como solucionar este problema.

Saludos
Tengo el mismo problema como lo soluciono?

Si me pueden ayudar les agradezco.
 

PeLaLencioni

Newbie Lvl 1
Proyecto>Componentes y el nombre no me lo acuerdo xD
Busca más en el foro.

Dale muchas gracias capo

Cualquier cosa te mando por priv.
Post automatically merged:


Pregunta como lo solucionaste? me esta pasando lo mismo.
Post automatically merged:

Extraigo el servidor, lo abro, todo correcto, lo cierro, lo quiero volver a abrir y se queda cargando y se termina cerrando, asi todo el rato. Para que funcione tengo q volver a extraer la carpeta servidor, abrirlo, si lo cierro despues otra vez no puedo volver a abrirlo. Les pasa lo mismo?

En los logs, me tira esto:

04/11/2018 12:40:04 loadguildsdb 9 D: El subíndice está fuera del intervalo
04/11/2018 12:40:04 NAMEINDEX9 D: El subíndice está fuera del intervalo
04/11/2018 12:40:04 NAMEINDEX9 D: El subíndice está fuera del intervalo
04/11/2018 12:40:04 NAMEINDEX9 D: El subíndice está fuera del intervalo

TENGO EL MISMO PROBLEMA, COMO LO SOLUCIONASTE?
 
Última edición:

HTZ

Newbie Lvl 1
aqui tiene el cliente generado con al ip 127.0.0.1 recuerda que en el server.ini tienes que ponerlo .

https://mega.nz/#!YtFWTABB!ozY_tSaMLgi5iOFi5Qieg0dTgZFFv3nuGoGasx5pxQE




espero que te sirva..
Estoy intenando crear el exe que apunte a mi local (127.0.0.1) pero no consigo mas que el tipico error de socket.
Te comento el codigo que he cambiado, por si me he dejado algo o me puedes dar alguna pista:

ASP.net:
mod_TCP(TCP.bas)
frmMain.ws_cliente.Connect "127.0.0.1", "7666"

mod_General(General.bas)

Public Function CurServerPort() As Integer
     ...
    CurServerPort = "7666"
     ...


Public Function CurServerIp() As String
    ...
    CurServerIp = "127.0.0.1"
    ...
P.D: Con el play2.exe que has pasado tu me funciona perfectamente a si que tema del servidor no es.
Un saludo
 

Rocksteady

Newbie Lvl 1
Hola, tengo el mismo problema al reiniciar le servidor no me funciona.
Tambien queria saber una lista de comandos gm para esta version, pude crear objetos con /mod "nick" objeto "codigo objeto" pero como puedo ver todos los objetos para saber le codigo.
MUCHAS GRACIAS
 
Arriba