No se pueden agarrar items del piso

Estado
Cerrado para nuevas respuestas.

Lekasak

Barrilete cósmico ^^
bueno tengo este problema:
en mi ao no se pueden agarrar items del piso, no se puede ni siendo admin,dios, semi, conse, director, coordinador, rolmaster ni user común, tirar si se puede (excepto sindo consejero o rolmaster).

si alguien me ayuda me pongo mas feliz que riquelme ^^
 

-GanjaH^

Semper Widia Staff
Buscá en el servidor:

Case "TI"

y posteame todo el case.

Y en el cliente, fijate si tenes está linea:

Call AgarrarItem

Si la encontras, decime donde está.
 

Khardus

Newbie Lvl 6
remplaza los siguientes cases del servidor por un 11.5 que si andé:

"TI"

EL SUB TIRARORO, TIRARTODO , TIRARITEM
 

-GanjaH^

Semper Widia Staff
rodry_97 dijo:
el case "TI" no esta.

y el call agarraritem es:
Código:
 Case vbKeyA:
                    Call AgarrarItem
Debe ser por eso.. primero posteame todo el sub:

Código:
Sub AgarrarItem
Edit: Igual habia manqueado, el case "TI" es para tira objetos, no para agarrar xD., posteame el sub que te pedí.
 

Khardus

Newbie Lvl 6
no es mejor remplazar todo lo q tenga q ver con agarraritem , extraerlo funcional de algun ao y ponerlos en el tuyo? es mas facil.- busca todo lo q tenga q ver con Agarraritem y remplazalo por algun mod 11.5
 

Lekasak

Barrilete cósmico ^^
Código:
Private Sub AgarrarItem()
    SendData "AG"
End Sub
es lo unico que encuentra...
 

Lekasak

Barrilete cósmico ^^
Código:
Case "AG"
        If UserList(UserIndex).flags.Invisible = 1 Or UserList(UserIndex).flags.Oculto = 1 Then
        Call SendData(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, "NOVER" & UserList(UserIndex).char.CharIndex & ",0")
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "Z11")
        UserList(UserIndex).flags.Invisible = 0
        UserList(UserIndex).flags.Oculto = 0
        UserList(UserIndex).Counters.Invisibilidad = 0
        End If
            If UserList(UserIndex).flags.Muerto = 1 Then
                    Call SendData(SendTarget.ToIndex, UserIndex, 0, "Z12")
                    Exit Sub
            End If
 

Mafia

Juree!
rodry_97 dijo:
Código:
Case "AG"
        If UserList(UserIndex).flags.Invisible = 1 Or UserList(UserIndex).flags.Oculto = 1 Then
        Call SendData(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, "NOVER" & UserList(UserIndex).char.CharIndex & ",0")
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "Z11")
        UserList(UserIndex).flags.Invisible = 0
        UserList(UserIndex).flags.Oculto = 0
        UserList(UserIndex).Counters.Invisibilidad = 0
        End If
            If UserList(UserIndex).flags.Muerto = 1 Then
                    Call SendData(SendTarget.ToIndex, UserIndex, 0, "Z12")
                    Exit Sub
            End If
Postea los paquetes Z12 y Z11 del cliente
 

-GanjaH^

Semper Widia Staff
Está mal eso.. que cambios le hiciste ?, tendria que ser algo así ..

Código:
        Case "AG"
            If UserList(UserIndex).flags.Muerto = 1 Then
                    Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡¡Estas muerto!! Los muertos no pueden tomar objetos. " & FONTTYPE_INFO)
                    Exit Sub
            End If
            '[Consejeros]
            If UserList(UserIndex).flags.Privilegios = PlayerType.Consejero And Not UserList(UserIndex).flags.EsRolesMaster Then
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No puedes tomar ningun objeto. " & FONTTYPE_INFO)
                Exit Sub
            End If
            Call GetObj(UserIndex)
            Exit Sub
 

Lekasak

Barrilete cósmico ^^
-GanjaH^ dijo:
Está mal eso.. que cambios le hiciste ?, tendria que ser algo así ..

Código:
        Case "AG"
            If UserList(UserIndex).flags.Muerto = 1 Then
                    Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡¡Estas muerto!! Los muertos no pueden tomar objetos. " & FONTTYPE_INFO)
                    Exit Sub
            End If
            '[Consejeros]
            If UserList(UserIndex).flags.Privilegios = PlayerType.Consejero And Not UserList(UserIndex).flags.EsRolesMaster Then
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No puedes tomar ningun objeto. " & FONTTYPE_INFO)
                Exit Sub
            End If
            Call GetObj(UserIndex)
            Exit Sub
solucionado, gracias.
 
Estado
Cerrado para nuevas respuestas.
Arriba