Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Remplazar sub:
- ' Comprobamos las posiciones de los RetoFast
- Public Sub RetoFast_Cheking()
- On Error GoTo Errhandler
- Dim A As Long
- Dim B As Long
- Dim Can As Boolean
- Can = True
- For A = 1 To MAX_RETO_FAST
- With RetoFast(A)
- If Not .Run Then
- For B = LBound(.Pos) To UBound(.Pos)
- With MapData(.map, .Pos(B).X, .Pos(B).Y)
- If .UserIndex = 0 Then Can = False
- 'Está montando.
- If UserList(.UserIndex).flags.Montando Then
- Can = False
- Call WriteConsoleMsg(.UserIndex, "Estás montando.", FontTypeNames.FONTTYPE_CENTINELA)
- End If
- 'Está muerto.
- If UserList(.UserIndex).flags.Muerto Then
- Can = False
- Call WriteConsoleMsg(.UserIndex, "Estás muerto.", FontTypeNames.FONTTYPE_CENTINELA)
- End If
- 'Es menor a 40.
- If UserList(.UserIndex).Stats.ELV < 40 Then
- Can = False
- Call WriteConsoleMsg(.UserIndex, "Solo pueden jugar los usuarios de nivel 40 en adelante.", FontTypeNames.FONTTYPE_CENTINELA)
- End If
- 'Está invisible.
- If UserList(.UserIndex).flags.invisible Then
- Can = False
- Call WriteConsoleMsg(.UserIndex, "Estás invisible..", FontTypeNames.FONTTYPE_CENTINELA)
- End If
- 'Está navegando.
- If UserList(.UserIndex).flags.Navegando Then
- Can = False
- Call WriteConsoleMsg(.UserIndex, "Estás navegando.", FontTypeNames.FONTTYPE_CENTINELA)
- End If
- End With
- Next B
- If Can Then
- Call RetoFast_PrepareUsers(A)
- .Run = True
- End If
- Can = True
- End If
- End With
- Next A
- Exit Sub
- Errhandler:
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement