SHARE
TWEET

Untitled

a guest Sep 10th, 2019 90 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  2.     If (Not SendTxt.Visible) And (Not SendCMSTXT.Visible) Then
  3.        
  4.         '[CUSTOM KEYS]
  5.        If LenB(CustomKeys.ReadableName(KeyCode)) > 0 Then
  6.  
  7.             Select Case KeyCode
  8.  
  9.                 Case CustomKeys.BindedKey(eKeyType.mKeyToggleMusic)
  10.  
  11.                     If Not Audio.PlayingMusic Then
  12.                         Audio.MusicActivated = True
  13.                         Audio.PlayMIDI CStr(currentMidi) & ".mid"
  14.                     Else
  15.                         Audio.MusicActivated = False
  16.                         Audio.StopMidi
  17.  
  18.                     End If
  19.                    
  20.                 Case CustomKeys.BindedKey(eKeyType.mKeyGetObject)
  21.                     Call AgarrarItem
  22.  
  23.                 Case CustomKeys.BindedKey(eKeyType.mKeyEquipObject)
  24.                     Call EquiparItem
  25.  
  26.                 Case CustomKeys.BindedKey(eKeyType.mKeyToggleNames)
  27.                     Nombres = Not Nombres
  28.  
  29.                 Case CustomKeys.BindedKey(eKeyType.mKeyTamAnimal)
  30.                     Call SendData("UK" & Domar)
  31.  
  32.                 Case CustomKeys.BindedKey(eKeyType.mKeySteal)
  33.                     Call SendData("UK" & Robar)
  34.  
  35.                 Case CustomKeys.BindedKey(eKeyType.mKeyToggleSafeMode)
  36.                     Call SendData("/SEG")
  37.  
  38.                 Case CustomKeys.BindedKey(eKeyType.mKeySafeGuild)
  39.                     Call SendData("/SEGCLAN")
  40.  
  41.                 Case CustomKeys.BindedKey(eKeyType.mKeyCombate)
  42.                     Call SendData("/SEGCMBT")
  43.  
  44.                 Case CustomKeys.BindedKey(eKeyType.mKeyObjetos)
  45.                     Call SendData("/SEGOBJT")
  46.  
  47.                 Case CustomKeys.BindedKey(eKeyType.mKeyHechizos)
  48.                     Call SendData("/SEGHZS")
  49.  
  50.                 Case vbKeyZ:
  51.                     frmMain.RecTxt.Text = vbNullString
  52.  
  53.                 Case CustomKeys.BindedKey(eKeyType.mKeyHide)
  54.                     Call SendData("UK" & Ocultarse)
  55.  
  56.                 Case CustomKeys.BindedKey(eKeyType.mKeyDropObject)
  57.                     Call TirarItem
  58.  
  59.                 Case CustomKeys.BindedKey(eKeyType.mKeyUseObject)
  60.  
  61.                     If Not NoPuedeUsar Then
  62.                         NoPuedeUsar = True
  63.                         Call UsarItem
  64.  
  65.                     End If
  66.        
  67.                 Case vbKeyP:
  68.  
  69.                     If Not NoPuedeUsar Then
  70.                         NoPuedeUsar = True
  71.                         Call UsarItem
  72.  
  73.                     End If
  74.  
  75.                 Case CustomKeys.BindedKey(eKeyType.mKeyRequestRefresh)
  76.  
  77.                     If UserPuedeRefrescar Then
  78.                         Call SendData("RPU")
  79.                         UserPuedeRefrescar = False
  80.                         Beep
  81.  
  82.                     End If
  83.  
  84.             End Select
  85.  
  86.         End If
  87.  
  88.     End If
  89.        
  90.     Select Case KeyCode
  91.                
  92.         Case CustomKeys.BindedKey(eKeyType.mKeyOnline)
  93.             Call SendData("/ONLINE")
  94.  
  95.         Case CustomKeys.BindedKey(eKeyType.mKeyExitGame)
  96.             Call SendData("/SALIR")
  97.  
  98.         Case CustomKeys.BindedKey(eKeyType.mKeyAttack)
  99.  
  100.             If SendTxt.Visible Then Exit Sub
  101.             If (Not UserDescansar) And (Not UserMeditar) Then
  102.                 SendData "KC"
  103.  
  104.             End If
  105.  
  106.         Case CustomKeys.BindedKey(eKeyType.mKeyWorkMacro)
  107.  
  108.             If Timer1.Enabled = True Then
  109.                 Call AddtoRichTextBox(frmMain.RecTxt, "Macro herramientas desactivado!", 255, 255, 255, False, False, False)
  110.                 Timer1.Enabled = False
  111.                 Exit Sub
  112.  
  113.             End If
  114.      
  115.             If Not Inventario.ObjType(Inventario.SelectedItem) = 18 Then
  116.                 Call AddtoRichTextBox(frmMain.RecTxt, "Debes tener seleccionada la herramienta!", 255, 255, 255, False, False, False)
  117.                 Exit Sub
  118.  
  119.             End If
  120.  
  121.             If Inventario.Equipped(Inventario.SelectedItem) = False Then
  122.                 Call AddtoRichTextBox(frmMain.RecTxt, "Debes equiparte la herramienta!", 255, 255, 255, False, False, False)
  123.                 Exit Sub
  124.  
  125.             End If
  126.  
  127.             If Timer1.Enabled = False Then
  128.                 Timer1.Enabled = True
  129.                 Call AddtoRichTextBox(frmMain.RecTxt, "Macro herramientas activado!", 255, 255, 255, False, False, False)
  130.             Else
  131.                 Timer1.Enabled = False
  132.                 Call AddtoRichTextBox(frmMain.RecTxt, "Macro herramientas desactivado!", 255, 255, 255, False, False, False)
  133.  
  134.             End If
  135.  
  136.         Case CustomKeys.BindedKey(eKeyType.mKeyShowOptions)
  137.             Call frmOpciones.Show(, frmMain)
  138.  
  139.         Case CustomKeys.BindedKey(eKeyType.mKeyToggleMAPA)
  140.             Call frmMapa.Show(, frmMain)
  141.  
  142.         Case CustomKeys.BindedKey(eKeyType.mKeyBank)
  143.             Call SendData("/BOVEDA")
  144.  
  145.         Case CustomKeys.BindedKey(eKeyType.mKeyMeditate)
  146.             Call SendData("/MEDITAR")
  147.  
  148.         Case CustomKeys.BindedKey(eKeyType.mKeyTrade)
  149.             Call SendData("/COMERCIAR")
  150.  
  151.         Case CustomKeys.BindedKey(eKeyType.mKeyTakeScreenShot)
  152.             Dim x As Long
  153.             Foto.Area = Ventana
  154.             Foto.Captura
  155.  
  156.             For x = 1 To 1000
  157.  
  158.                 If Not FileExist(DirFotos & x & ".jpg", vbNormal) Then Exit For
  159.             Next
  160.             Call Convertir(Foto.Imagen, DirFotos & x & ".jpg")
  161.             Call AddtoRichTextBox(frmMain.RecTxt, "Imagen Guardada Como " & DirFotos & x & ".jpg", 255, 255, 255, False, False, False)
  162.                        
  163.     End Select
  164.  
  165.     Select Case KeyCode
  166.  
  167.         Case CustomKeys.BindedKey(eKeyType.mKeyTalkGuild)
  168.  
  169.             If SendTxt.Visible Then Exit Sub
  170.            
  171.             If Not Comerciando And Not frmCantidad.Visible Then
  172.                 SendCMSTXT.Visible = True
  173.                 SendCMSTXT.SetFocus
  174.  
  175.             End If
  176.            
  177.         Case CustomKeys.BindedKey(eKeyType.mKeyTalk)
  178.  
  179.             If SendCMSTXT.Visible Then Exit Sub
  180.            
  181.             If Not Comerciando And Not frmCantidad.Visible Then
  182.                 SendTxt.Visible = True
  183.                 SendTxt.SetFocus
  184.  
  185.             End If
  186.  
  187.     End Select
  188.  
  189. 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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top