deD33

Condicionales DsAO Retos Fast

Feb 3rd, 2020
179
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Remplazar sub:
  2.  
  3. ' Comprobamos las posiciones de los RetoFast
  4. Public Sub RetoFast_Cheking()
  5. On Error GoTo Errhandler
  6.     Dim A As Long
  7.     Dim B As Long
  8.     Dim Can As Boolean
  9.    
  10.    
  11.     Can = True
  12.     For A = 1 To MAX_RETO_FAST
  13.         With RetoFast(A)
  14.             If Not .Run Then
  15.                 For B = LBound(.Pos) To UBound(.Pos)
  16.                     With MapData(.map, .Pos(B).X, .Pos(B).Y)
  17.                         If .UserIndex = 0 Then Can = False
  18.                        
  19.                         'Está montando.
  20.                        If UserList(.UserIndex).flags.Montando Then
  21.                         Can = False
  22.                         Call WriteConsoleMsg(.UserIndex, "Estás montando.", FontTypeNames.FONTTYPE_CENTINELA)
  23.                         End If
  24.                        
  25.                        
  26.                         'Está muerto.
  27.                        If UserList(.UserIndex).flags.Muerto Then
  28.                         Can = False
  29.                         Call WriteConsoleMsg(.UserIndex, "Estás muerto.", FontTypeNames.FONTTYPE_CENTINELA)
  30.                         End If
  31.                        
  32.                         'Es menor a 40.
  33.                        If UserList(.UserIndex).Stats.ELV < 40 Then
  34.                         Can = False
  35.                         Call WriteConsoleMsg(.UserIndex, "Solo pueden jugar los usuarios de nivel 40 en adelante.", FontTypeNames.FONTTYPE_CENTINELA)
  36.                         End If
  37.                        
  38.                         'Está invisible.
  39.                        If UserList(.UserIndex).flags.invisible Then
  40.                         Can = False
  41.                         Call WriteConsoleMsg(.UserIndex, "Estás invisible..", FontTypeNames.FONTTYPE_CENTINELA)
  42.                         End If
  43.                        
  44.                         'Está navegando.
  45.                        If UserList(.UserIndex).flags.Navegando Then
  46.                         Can = False
  47.                         Call WriteConsoleMsg(.UserIndex, "Estás navegando.", FontTypeNames.FONTTYPE_CENTINELA)
  48.                         End If
  49.                        
  50.                     End With
  51.                 Next B
  52.                
  53.                 If Can Then
  54.                     Call RetoFast_PrepareUsers(A)
  55.                     .Run = True
  56.                 End If
  57.                
  58.                 Can = True
  59.             End If
  60.         End With
  61.     Next A
  62. Exit Sub
  63. Errhandler:
  64. End Sub
RAW Paste Data