SHARE
TWEET

Untitled

Luciano_fuentes Aug 12th, 2017 59 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub listaMisiones_Click()
  2.  
  3.     Dim i As Long
  4.  
  5.     With Misiones(listaMisiones.ListIndex + 1)
  6.  
  7.         If (listaMisiones.ListIndex + 1) > UBound(.Objetivos.Obj()) Then Exit Sub
  8.    
  9.         For i = 1 To UBound(.Objetivos.Obj())
  10.             lblObjetivos(i - 1).Caption = "Conseguir: " & .Objetivos.Obj(i).Amount & "  " & .Objetivos.Obj(i).Nombre
  11.         Next i
  12.         Dim ultimoI As Long
  13.         ultimoI = i - 1
  14.         For i = 1 To UBound(.Objetivos.npc())
  15.             lblObjetivos(i - 1 + ultimoI).Caption = "Matar: " & .Objetivos.npc(i).Amount & "  " & .Objetivos.npc(i).Nombre
  16.         Next i
  17.        
  18.         For i = 1 To UBound(.Objetivos.Obj)
  19.             lblRecompensas(i - 1).Caption = .Recompensas.Obj(i).Amount & "  " & .Objetivos.Obj(i).Nombre
  20.         Next i
  21.         lblRecompensas(i - 1).Caption = .Recompensas.Exp & " puntos de experiencia"
  22.         lblRecompensas(i).Caption = .Recompensas.Oro & " monedas de oro"
  23.     End With
  24.    
  25. End Sub
RAW Paste Data
Top