Si estas muerto no te deje entrar al tp

» 05 Feb 2012 23:06

Hola , yo agregue limitacionmes a las arenas y quise poner para que si estas muerto no puedas entrar pero me tiro error de compilacion;:
dejo el codigo:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

 
'La sala de 2v2 está llena por lo cual no lo deja entrar 
If MapInfo(5).NumUsers >= 4 Then
                     Call WriteConsoleMsg(UserIndex, "La sala de 2vs2 se encuentra llena.", FontTypeNames.FONTTYPE_INFO)
                        Call ClosestStablePos(UserList(UserIndex).Pos, nPos)
                         If nPos.X <> 0 And nPos.Y <> 0 Then
                            Call WarpUserChar(UserIndex, nPos.Map, nPos.X, nPos.Y, FxFlag)
                         End If
                     ' Si está muerto tampoco
                       ElseIf .flags.Muerto = 1 Then
                     Call WriteConsoleMsg(UserIndex, "¡¡¡Estás Muerto!!!", FontTypeNames.FONTTYPE_INFO)
                                        Call ClosestStablePos(UserList(UserIndex).Pos, nPos)
                    If nPos.x <> 0 And nPos.Y <> 0 Then
                         Call WarpUserChar(UserIndex, nPos.Map, nPos.x, nPos.Y, FxFlag)
                   End If
                    Else
`Si la posicion es legal y no está muerto y hay menos de 4 users lo teletransporta
                   If LegalPos(DestPos.Map, DestPos.X, DestPos.Y, PuedeAtravesarAgua(UserIndex)) Then
                        Call WarpUserChar(UserIndex, DestPos.Map, DestPos.X, DestPos.Y, FxFlag)
                    Else
                        Call ClosestLegalPos(DestPos, nPos)
                        If nPos.X <> 0 And nPos.Y <> 0 Then
                           Call WarpUserChar(UserIndex, nPos.Map, nPos.X, nPos.Y, FxFlag)
                        End If
                    End If
                       End If

Al compilar me tirar error en:

ElseIf .flags.Muerto = 1 Then
Call WriteConsoleMsg(UserIndex, "¡¡¡Estás Muerto!!!", FontTypeNames.FONTTYPE_INFO)
Call ClosestStablePos(UserList(UserIndex).Pos, nPos)
If nPos.x <> 0 And nPos.Y <> 0 Then
Call WarpUserChar(UserIndex, nPos.Map, nPos.x, nPos.Y, FxFlag)
'End If

Subrayando: .flags

"No se encontro el metodo o miembro de datos"

ME podrian ayudar? gracias

» 06 Feb 2012 00:10

Pone asi:

Userlist(Userindex).flags.muerto = 1 then

y con eso lo solucionas

» 06 Feb 2012 00:15

Graciass me funciono.

Si estas muerto no te deje entrar al tp

¿Quién está conectado?