[Aportes indexados] Pergaminos / Pasajes

Estado
Cerrado para nuevas respuestas.

^[GS]^

GS-Zone Admin
Administrador
Pergaminos / Pasajes

Para el servidor...

En el modulo Declaraciones....
Buscar...
Código:
' Tipos de objetos
Public Type ObjData
abajo poner
Código:
    ' [GS] Pergaminos
    Teletransporte As WorldPos
En el modulo ES (FileIO)...
Buscar...
Código:
    ObjData(Object).HechizoIndex = val(Leer.DarValor("OBJ" & Object, "HechizoIndex"))
abajo poner
Código:
    ' [GS] Pergaminos
    tStr = CStr(Leer.DarValor("OBJ" & Object, "Telep"))
    ObjData(Object).Teletransporte.Map = val(ReadField(1, tStr, 45))
    ObjData(Object).Teletransporte.X = val(ReadField(2, tStr, 45))
    ObjData(Object).Teletransporte.Y = val(ReadField(3, tStr, 45))
En el modulo InvUsuarios...
Buscar...
Código:
          Case OBJTYPE_PERGAMINOS
            If UserList(Userindex).flags.Muerto = True Then
                Call SendData(ToIndex, Userindex, 0, "||¡¡Estas muerto!! Solo podes usar items cuando estas vivo. " & FONTTYPE_INFO)
                Exit Sub
            End If
abajo poner
Código:
            ' [GS] Pergaminos
            If Obj.Teletransporte.Map > 0 Then
                If LegalPos(Obj.Teletransporte.Map, Obj.Teletransporte.X, Obj.Teletransporte.Y, PuedeAtravesarAgua(Userindex)) = False Then
                    Call SendData(ToIndex, Userindex, 0, "||El sitio no esta preparado para tú ingreso." & FONTTYPE_INFO)
                    Exit Sub
                Else
                    Call WarpUserChar(Userindex, Obj.Teletransporte.Map, Obj.Teletransporte.X, Obj.Teletransporte.Y, True)
                    If ObjData(UserList(Userindex).Invent.Object(Slot).ObjIndex).HechizoIndex = 0 Then
                        Call QuitarUserInvItem(Userindex, CByte(Slot), 1)
                        Call UpdateUserInv(False, Userindex, CByte(Slot))
                        Exit Sub
                    End If
                End If
            End If
 

MCDESCARGA

Newbie Lvl 2
Re: [SERVIDOR] Pergaminos / Pasajes

No me funca y puse todo tal cal lo hiciste me podes ayudar por fabor!! :mrgreen:

Nota del Moderador (Standelf): Nooo zarpada revivida de 3 años, la proxima fijate :S
Leete el Reglamento
 
Estado
Cerrado para nuevas respuestas.
Arriba