[Aporte] Luz Abajo del Item 11.5 <Dx8>

Crean un nuevo modulo en el cliente con el nombre de "LuzItem"

Y ponen esto

Código:

Option Explicit
Public Const NumItemsLuz As Byte = 2 'Numeros de items con luz
Public GrhItemLuz(1 To NumItemsLuz) As Integer
 
Function TieneLuz(ByVal X As Byte, ByVal Y As Byte)
'**************Autor: Nait(Nicolás Pedetti)**************************
Dim i As Byte
For i = 1 To NumItemsLuz
   If GrhItemLuz(i) = MapData(X, Y).ObjGrh.GrhIndex And MapData(X, Y).OBJInfo.TieneLuz = 0 Then
   MapData(X, Y).OBJInfo.TieneLuz = 1
   Light.Create_Light_To_Map X, Y, 3, 255, 255, 255
   End If
Next i
End Function
 
Function DeletLuz(ByVal X As Byte, ByVal Y As Byte)
'**************Autor: Nait(Nicolás Pedetti)**************************
Dim i As Byte
For i = 1 To NumItemsLuz
    If GrhItemLuz(i) = MapData(X, Y).ObjGrh.GrhIndex And MapData(X, Y).OBJInfo.TieneLuz = 1 Then
        Light.Delete_Light_To_Map X, Y
    End If
Next i
End Function
 
Sub ObjLuz()
'**************Autor: Nait(Nicolás Pedetti)**************************
GrhItemLuz(1) = 1521 'Fogata
GrhItemLuz(2) = 510 'Daga comun
End Sub


Buscan

Código:

Call CargarColores

Abajo ponen

Código:

Call ObjLuz

Buscan

Código:

Case "BO"

Rempalzan todo ese case por este

Código:

Case "BO"           ' >>>>> Borrar un Objeto
            Rdata = Right$(Rdata, Len(Rdata) - 2)
            X = Val(ReadField(1, Rdata, 44))
            Y = Val(ReadField(2, Rdata, 44))
            DeletLuz X, Y
            MapData(X, Y).ObjGrh.GrhIndex = 0
            Exit Sub

Buscan

Código:

Call Draw_Grh(.ObjGrh, PixelOffsetXTemp, PixelOffsetYTemp, 1, 1, , X, Y)

Abajo ponen

Código:

TieneLuz X, Y

Buscan

Código:

Public Type Obj

Abajo agregan

Código:

TieneLuz As Byte

Aca editan los item´s que quieren que tengan Luzes

 

Buen aporte. Se agradece.

Buen Aporte con esto podes copiar a IAO no? alguien hace algun aporte para que se pueda poner mas de un item con luz? Gracias

Felipiño escribió:Buen Aporte con esto podes copiar a IAO no? alguien hace algun aporte para que se pueda poner mas de un item con luz? Gracias

Podes poner mas de 1 Item.-
'Item 1.-
GrhItemLuz(1) = 1521 'Fogata

'Item 2.-
GrhItemLuz(2) = 510 'Daga comun

'Item3 .-
GrhItemLuz(3) = "Grh del item"

'y así sucesivamente