daily pastebin goal
22%
SHARE
TWEET

Untitled

Luciano_fuentes Aug 12th, 2017 64 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top