Hola gente. Creo este thread para ver si me pueden ayudar con un problema que me surgió en mi servidor...
La cosa es así: entre a mi server que estoy preparando lo más bien y voy a configurar teclas y pongo "cargar por defecto" y ahí me tira un runtime 9. Esto no me pasaba, calculo que es porque puse el código de Franeg de F1=SUBIR NIVEL F3SKILLS ,ETC (http://www.gs-zone.org/f1_subirnivel_f3_skills_al_maximo_f4_reset_tdnb.html). En el foro vi un tema parecido pero no me pudo ayudar: http://www.gs-zone.org/configurar_teclas_por_defecto_tiSo.html&hilit=editar+las+teclas+por+defecto+site%3Ags+zone.org


Muchas gracias desde ya.

Busca esta constante:

Private Const NUM_CUSTOM_KEYS As Byte =

Y al valor que tenga aumentalo en 3.

Osea ti tenes 27 pone 30.

Ahora corrijo eso y otro tema en el aporte (tambien corrijo un bug que tiene el level).

Franeg95 escribió:Busca esta constante:

Private Const NUM_CUSTOM_KEYS As Byte =

Y al valor que tenga aumentalo en 3.

Osea ti tenes 27 pone 30.

Ahora corrijo eso y otro tema en el aporte (tambien corrijo un bug que tiene el level).

Hice eso y ahora al apretar en "Configurar teclas" directamente me tira: Run time error 340
Control array element "28" doesn't existe.

Gracias por responder.

Cambia los handles en el servidor por estos:



Y en el cliente busca:

Public Enum eKeyType

Y antes del end enum pone:

mKeyLevel
mKeySkills
mKeyReset

al pedo toda esa complicacion....

if keycode = vbkeyF1 then
asdasdd
elseif keycode = vbkeyf2 then
asdasd2
elseif keycode = vbkeyf3 then
asdasdasd3
end if

ElSiR escribió:

Franeg95 escribió:Busca esta constante:

Private Const NUM_CUSTOM_KEYS As Byte =

Y al valor que tenga aumentalo en 3.

Osea ti tenes 27 pone 30.

Ahora corrijo eso y otro tema en el aporte (tambien corrijo un bug que tiene el level).

Hice eso y ahora al apretar en "Configurar teclas" directamente me tira: Run time error 340
Control array element "28" doesn't existe.

Gracias por responder.

Me sigue tirando eso. Noté también algo dentro del juego que es que como que el Argentum ahora toma que la tecla meditar es el F3, el macro hechizos el F4 y el macro trabajo F1

Y entonces si por ejemplo edito para que se medite con el F6, subo skills con el f6. Y así con las otras teclas...

mira hace esto

si implementaste este aporte

f1_subirnivel_f3_skills_al_maximo_f4_reset_tdnb.html

busca y borra



tamb esto



a esto no lo borramos (esto qe pongo aca abajo) solamente le RESTAS 3 del numero que tiene



bueno ahora

buscas



y abajo pones

Che chamigo fijate asiendo algo anda a la carpeta inits y saca el bindkeys y inicia el cliente asi se crea uno nuevo con todos los datos nuevos

maTih.- escribió:mira hace esto

si implementaste este aporte

f1_subirnivel_f3_skills_al_maximo_f4_reset_tdnb.html

busca y borra

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1.   mappedKeys(eKeyType.mKeyLevel) = KeyCodeConstants.vbKeyF1
2.     mappedKeys(eKeyType.mKeySkills) = KeyCodeConstants.vbKeyF3
3.     mappedKeys(eKeyType.mKeyReset) = KeyCodeConstants.vbKeyF4

tamb esto

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1.   Case CustomKeys.BindedKey(eKeyType.mKeyLevel)
2.     Call writeUpLevel
3.     Exit Sub
4.     Case CustomKeys.BindedKey(eKeyType.mkeyReset)
5.     Call writeResetLevel
6.     Exit Sub
7.     Case CustomKeys.BindedKey(eKeyType.mKeySkills)
8.     Call writeFullSkilss
9.     Exit Sub

a esto no lo borramos (esto qe pongo aca abajo) solamente le RESTAS 3 del numero que tiene

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Private Const NUM_CUSTOM_KEYS As Byte =  

bueno ahora

buscas

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
2. '***************************************************
3. 'Autor: Unknown
4. 'Last Modification: 18/11/2009
5. '18/11/2009: ZaMa - Ahora se pueden poner comandos en los mensajes personalizados (execpto guildchat y privados)
6. '***************************************************
7. #If SeguridadAlkon Then
8.     If LOGGING Then Call CheatingDeath.StoreKey(KeyCode, False)
9. #End If
10.    
11.     If (Not SendTxt.Visible) And (Not SendCMSTXT.Visible) Then

y abajo pones

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1.        Dim processed As Boolean
2.        
3.         Select Case KeyCode
4.                Case vbKeyF1
5.                     writeuplevel
6.                     processed = True
7.                 Case vbKeyF3
8.                     writeresetlevel
9.                     processed = True
10.                 Case vbKeyF4
11.                     writefullskills
12.                     processed = True
13.         End Select
14.        
15.         If processed Then Exit Sub

SOLUCIONADO GRACIAS.


PD: Ya lo había solucionado pero eso también anda. Si no hacen eso tienen que agregar 3 teclas configurables (texts) en el frm.customkeys: de nombre Text1(28),Text1(29) y Text1(30). Acuerdense también de acomodar siempre los mkey a lo último de todos.