NotaPublicado: 08 Sep 2010 20:02
por laureanocabj
Bueno gente de Gs necesito un par de codigos para implementarle a mi server ya que voy muy bien hasta ahora :P 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 :P 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.

NotaPublicado: 08 Sep 2010 21:05
por maTih.-
mira el 1 es algo así, en el sub connectnewuser

  1. '???????????????? INVENTARIO ¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿


y por ahi dice

  1. UserList(UserIndex).Invent.NroItems = 4


reemplazalo x

  1. UserList(UserIndex).Invent.NroItems = 8


y busca x ahi también

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


abajo pone

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


2...

busca (cliente)

  1.                            If .priv = 0 Then
  2.                                 If .Criminal Then
  3.                                     color = RGB(ColoresPJ(50).r, ColoresPJ(50).g, ColoresPJ(50).b)
  4.                                 Else
  5.                                     color = RGB(ColoresPJ(49).r, ColoresPJ(49).g, ColoresPJ(49).b)
  6.                                 End If
  7.                             Else
  8.                                 color = RGB(ColoresPJ(.priv).r, ColoresPJ(.priv).g, ColoresPJ(.priv).b)
  9.                             End If
  10.                            
  11.                             'Nick
  12.                             line = Left$(.Nombre, Pos - 2)
  13.                             Call RenderTextCentered(PixelOffsetX + TilePixelWidth \ 2 + 5, PixelOffsetY + 30, line, color, frmMain.font)
  14.                            
  15.                             'Clan
  16.                             line = mid$(.Nombre, Pos)
  17.                             Call RenderTextCentered(PixelOffsetX + TilePixelWidth \ 2 + 5, PixelOffsetY + 45, line, color, frmMain.font)


reemplazalo x

  1.                            If .priv = 0 Then
  2.                               If Not .Criminal Then
  3.                                     color = RGB(ColoresPJ(49).r, ColoresPJ(49).g, ColoresPJ(49).b)
  4.                                 End If
  5.                             Else
  6.                                 color = RGB(ColoresPJ(.priv).r, ColoresPJ(.priv).g, ColoresPJ(.priv).b)
  7.                             End If
  8.                            
  9.                             'Nick
  10.                             If .Criminal Then
  11.                             line = Left$(.Nombre, Pos - 2)
  12.                             Call RenderTextCentered(PixelOffsetX + TilePixelWidth \ 2 + 5, PixelOffsetY + 30, line, vbMagenta, frmMain.font)
  13.                             Else
  14.                             line = Left$(.Nombre, Pos - 2)
  15.                             Call RenderTextCentered(PixelOffsetX + TilePixelWidth \ 2 + 5, PixelOffsetY + 30, line, color, frmMain.font)
  16.                             End If
  17.                             'Clan
  18.                             If .Criminal Then
  19.                             line = mid$(.Nombre, Pos)
  20.                             Call RenderTextCentered(PixelOffsetX + TilePixelWidth \ 2 + 5, PixelOffsetY + 45, line, vbMagenta, frmMain.font)
  21.                             Else
  22.                             line = mid$(.Nombre, Pos)
  23.                             Call RenderTextCentered(PixelOffsetX + TilePixelWidth \ 2 + 5, PixelOffsetY + 45, line, color, frmMain.font)
  24.                             End If


este probalo y dechime chi funcha

para la 3...

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


maTih.-

NotaPublicado: 08 Sep 2010 21:40
por laureanocabj
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")

NotaPublicado: 08 Sep 2010 21:59
por Samke
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:
  1. Call Noticias.Navigate("http://ESCRIBI ACA LA WEB DE TU AO")
  2.     'IP y Puerto de tu AO
  3.     WinNoticias.Connect "localhost", "7666"


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

Saludos.

NotaPublicado: 08 Sep 2010 22:18
por laureanocabj
Nono se puede me tira variable no definida , aparte no me gusta como qeda asi porq el webbroswer usa internet explorer

NotaPublicado: 09 Sep 2010 00:17
por Damian
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

NotaPublicado: 09 Sep 2010 11:21
por maTih.-
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.-

NotaPublicado: 09 Sep 2010 19:43
por laureanocabj
No mati no me sirvio :S cuando lo clikeo al pj se me cierra el game

NotaPublicado: 09 Sep 2010 19:45
por RayDer
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 :P

NotaPublicado: 09 Sep 2010 20:19
por laureanocabj
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.

NotaPublicado: 17 Sep 2010 23:29
por Symantec
Para cambiar el color, haz lo siguiente:

Busca:

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


Y en esta parte, debes de cambiar esto:

  1.                        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: