Unas cositas para mi server

» 08 Sep 2010 20:02

Bueno gente de Gs necesito un par de codigos para implementarle a mi server ya que voy muy bien hasta ahora

solucione un par de problemitas... bueno paso a decirles.(Es versión 12.1)

1) Agregarle potas a los Newbie , osea cuando arrancan un pj de 0 que aparte de tener ropita , daga ; comi y bebi tambien tengan potas rojas (100 o más si es posible).

2) Cuando un usuario se hace Criminal se le pone el nombre en rojo ; yo le quiero cambiar ese color por otro (si es posible un violeta o gris) , porque sino cuando se hace un caos tamb. es rojo y como que no da

que tengan el mismo color.

3) Un sistema de noticias ; pero no como uno que vi que te hacia abrir una sección de la página del juego sino como tiene IAO ó El AO alkon ; que aparecen hay en el frmconect pero no dentro de la página.(Nose si entendieron miren les dejo la imagen del ImperiumAO para que vean como):

Imagen

4) Es una pregunta ¿Queria saber si se puede cambiar los sonidos de entrada osea los Midi? porq yo lo cambie pero no suena... nose si tiene q pesar lo mismo o qee...

5) Otra pregunta ¿Los mapas... como hacer para sacar algunos mapas pero que siga funcionando bien el server? porque yo saco mapas pero me tira errores cuando entro al juego.

Saludos y Gracias de antemano.

» 08 Sep 2010 21:05

mira el 1 es algo así, en el sub connectnewuser

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

'???????????????? INVENTARIO ¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿

y por ahi dice

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

UserList(UserIndex).Invent.NroItems = 4

reemplazalo x

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

UserList(UserIndex).Invent.NroItems = 8

y busca x ahi también

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

UserList(UserIndex).Invent.Object(4).Equipped = 1

abajo pone

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

UserList(UserIndex).Invent.Object(5).objindex = 38
userlist(userindex).invent.object(5).amount = 150

2...

busca (cliente)

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

                            If .priv = 0 Then
                                If .Criminal Then
                                    color = RGB(ColoresPJ(50).r, ColoresPJ(50).g, ColoresPJ(50).b)
                                Else
                                    color = RGB(ColoresPJ(49).r, ColoresPJ(49).g, ColoresPJ(49).b)
                                End If
                            Else
                                color = RGB(ColoresPJ(.priv).r, ColoresPJ(.priv).g, ColoresPJ(.priv).b)
                            End If
                            
                            'Nick
                            line = Left$(.Nombre, Pos - 2)
                            Call RenderTextCentered(PixelOffsetX + TilePixelWidth \ 2 + 5, PixelOffsetY + 30, line, color, frmMain.font)
                            
                            'Clan
                            line = mid$(.Nombre, Pos)
                            Call RenderTextCentered(PixelOffsetX + TilePixelWidth \ 2 + 5, PixelOffsetY + 45, line, color, frmMain.font)

reemplazalo x

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

                            If .priv = 0 Then
                              If Not .Criminal Then
                                    color = RGB(ColoresPJ(49).r, ColoresPJ(49).g, ColoresPJ(49).b)
                                End If
                            Else
                                color = RGB(ColoresPJ(.priv).r, ColoresPJ(.priv).g, ColoresPJ(.priv).b)
                            End If
                            
                            'Nick
                            If .Criminal Then
                            line = Left$(.Nombre, Pos - 2)
                            Call RenderTextCentered(PixelOffsetX + TilePixelWidth \ 2 + 5, PixelOffsetY + 30, line, vbMagenta, frmMain.font)
                            Else
                            line = Left$(.Nombre, Pos - 2)
                            Call RenderTextCentered(PixelOffsetX + TilePixelWidth \ 2 + 5, PixelOffsetY + 30, line, color, frmMain.font)
                            End If
                            'Clan
                            If .Criminal Then
                            line = mid$(.Nombre, Pos)
                            Call RenderTextCentered(PixelOffsetX + TilePixelWidth \ 2 + 5, PixelOffsetY + 45, line, vbMagenta, frmMain.font)
                            Else
                            line = mid$(.Nombre, Pos)
                            Call RenderTextCentered(PixelOffsetX + TilePixelWidth \ 2 + 5, PixelOffsetY + 45, line, color, frmMain.font)
                            End If

este probalo y dechime chi funcha

para la 3...

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

http://www.gs-zone.org/ft41103_noticias_en_frmconnect.html

maTih.-

» 08 Sep 2010 21:40

1) Listo!

2) Me funcionó , le qedo re bien el nombre en violeta pero me olvide de desirte si tambien se puede cambiar cuando lo clikias que qede tamb en el mismo color , xq si lo clikias aparece en rojo. y si se puede cambiar que embes de hacerse criminal se hagan renegados , osea cambiarle CRIMINAL por RENEGADO.

3)Cuando lo puse no lo pude compilar me tira un:

Error de compilación:
No se encontro el metodo o el miembro de datos.

En esta linea: LblNoticias.Caption = WNoticias.OpenURL("http://www.fileden.com/files/2009/9/11/2572257/Noticias.txt")

» 08 Sep 2010 21:59

laureanocabj escribió:1) Listo!

2) Me funcionó , le qedo re bien el nombre en violeta pero me olvide de desirte si tambien se puede cambiar cuando lo clikias que qede tamb en el mismo color , xq si lo clikias aparece en rojo. y si se puede cambiar que embes de hacerse criminal se hagan renegados , osea cambiarle CRIMINAL por RENEGADO.

3)Cuando lo puse no lo pude compilar me tira un:
Error de compilación:
No se encontro el metodo o el miembro de datos.

En esta linea: LblNoticias.Caption = WNoticias.OpenURL("http://www.fileden.com/files/2009/9/11/2572257/Noticias.txt")

Mas facil??

Frmconnect crea un winsock con el name WinNoticias y despues en el Private sub Form_Load abajo mandale:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Call Noticias.Navigate("http://ESCRIBI ACA LA WEB DE TU AO")
    'IP y Puerto de tu AO
    WinNoticias.Connect "localhost", "7666"

Ahora anda frmconnect denuevo crea un webbrowser con el nombre Noticias.

Saludos.

» 08 Sep 2010 22:18

Nono se puede me tira variable no definida , aparte no me gusta como qeda asi porq el webbroswer usa internet explorer

» 09 Sep 2010 00:17

laureanocabj escribió:Nono se puede me tira variable no definida , aparte no me gusta como qeda asi porq el webbroswer usa internet explorer

Lamento decirte qe VB6 = Microsoft
por lo tanto Microsoft = Internet Explorer

» 09 Sep 2010 11:21

creo que era el sub loakatlike algo asi xd

busca donde se genera la cadena de caracteres "Ves a " & .name algo así y donde dice

ft = blabla

reemplaza ft = vbmagenta

creo que ahi andaría

maTih.-

» 09 Sep 2010 19:43

No mati no me sirvio

cuando lo clikeo al pj se me cierra el game

» 09 Sep 2010 19:45

Te corrijo una cosa, el sistema de noticias de ImperiumAO es una web, mira es esta, fijate:

http://www.imperiumao.com.ar/noticias.php?i=es

para la de las publicidades tiene otra, pero tego q buscarla ni ganas ahora

» 09 Sep 2010 20:19

1) Listo!

2) No esta por completo.... Me falta que al clikiarlo sea vea violeta porq sino se sige viendo rojo. eso nada mas

3) Listo la encontre en otro lado... http://www.uasuforos.com/f39/aporte-sistema-de-noticias-simple-y-facil-63/ y me anda perfecto.

» 17 Sep 2010 23:29

Para cambiar el color, haz lo siguiente:

Busca:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

                    ElseIf criminal(TempCharIndex) Then
                        Stat = Stat & " <CRIMINAL>"
                        ft = FontTypeNames.FONTTYPE_FIGHT
                    Else

Y en esta parte, debes de cambiar esto:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

                        ft = FontTypeNames.FONTTYPE_FIGHT

Luego, modificas esto:

FONTTYPE_FIGHT

Por alguna de las FontTypeNames existentes, estas son todas las que trae el AO:

FONTTYPE_TALK
FONTTYPE_FIGHT
FONTTYPE_WARNING
FONTTYPE_INFO
FONTTYPE_INFOBOLD
FONTTYPE_EJECUCION
FONTTYPE_PARTY
FONTTYPE_VENENO
FONTTYPE_GUILD
FONTTYPE_SERVER
FONTTYPE_GUILDMSG
FONTTYPE_CONSEJO
FONTTYPE_CONSEJOCAOS
FONTTYPE_CONSEJOVesA
FONTTYPE_CONSEJOCAOSVesA
FONTTYPE_CENTINELA
FONTTYPE_GMMSG
FONTTYPE_GM
FONTTYPE_CITIZEN
FONTTYPE_CONSE
FONTTYPE_DIOS
FONTTYPE_ADMINISTRADOR

Saludos.

Symantec.-

ON: ¡Espero verte ayudado! :ok:

Unas cositas para mi server

¿Quién está conectado?