Nombre y Clan abajo de la barca ALKON 13.0

Ir abajo

Nombre y Clan abajo de la barca ALKON 13.0

Mensaje por Toyz el 23/8/2015, 1:06 pm

Fuente: GS

Utilidad : Para cuando navegas y estas con team, no darle equivocadamente a tus compañeros.

Esta aportado para 11.5 y 12.0 (En este foro) así que lo traigo.

Cliente Buscan:

Código:
Public picMouseIcon As Picture

Abajo ponen :

Código:
Public Const iFragataFantasmal = 87
Public Const iFragataReal = 190
Public Const iFragataCaos = 189
Public Const iBarca = 84
Public Const iGalera = 85
Public Const iGaleon = 86
Public Const iBarcaCiuda = 395
Public Const iBarcaPk = 396
Public Const iGaleraCiuda = 397
Public Const iGaleraPk = 398
Public Const iGaleonCiuda = 399
Public Const iGaleonPk = 400

Cliente Al final del Modulo (TileEngine) Agregan:

Código:
Public Function BodyIsBoat(ByVal body As Integer) As Boolean
'**************************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 10/07/2008
'Checks if a given body index is a boat
'**************************************************************
'TODO : This should be checked somehow else. This is nasty....
    If body = iFragataReal Or body = iFragataCaos Or body = iBarcaPk Or _
            body = iGaleraPk Or body = iGaleonPk Or body = iBarcaCiuda Or _
            body = iGaleraCiuda Or body = iGaleonCiuda Or body = iFragataFantasmal Then
        BodyIsBoat = True
    End If
End Function

Cliente Buscan:

Código:
       PixelOffsetX = PixelOffsetX + .MoveOffsetX
                 PixelOffsetY = PixelOffsetY + .MoveOffsetY

Abajo agregan:

Código:
If BodyIsBoat(.iBody) 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
          
            Pos = getTagPosition(.Nombre)
          
            line = Left$(.Nombre, Pos - 2)
            RenderTextCentered PixelOffsetX + 15, PixelOffsetY + 30, line, color, frmMain.font
          
            line = mid$(.Nombre, Pos)
            RenderTextCentered PixelOffsetX + 15, PixelOffsetY + 45, line, color, frmMain.font
          
        End If

Testeado y funcional.



_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5046
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: Nombre y Clan abajo de la barca ALKON 13.0

Mensaje por zeoban69 el 13/12/2016, 5:14 pm

Tremendo si que me sirvió Very Happy
Muchas gracias por tu ayuda
ya solucione el error Smile

zeoban69
Nivel 4
Nivel 4

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 170
Localización : ruby
Fecha de inscripción : 08/11/2012

Ver perfil de usuario

Volver arriba Ir abajo

Volver arriba


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