----***************SCRIPT CREADO POR
BADIZHER***************------------------------
------------------------
INSTRUCCIONES-----------------------------------------------
------------EL VALOR DE movsize DEFINE EL TAMAÑO DEL
MOVIMIENTO-------------------
------------EL VALOR DE vary DEFINE CUANTO BAJA EL
MOUSE----------------------------
-----------------------------------------------------------------------------------
-
--
*******************************************************************************---
function OnEvent(event, arg)
--Tecla de activacion
--if capslock activated
if IsKeyLockOn("capslock" )then
--Si el clic derecho esta activado
--R clic
if IsMouseButtonPressed(3)then
repeat
--OutputLogMessage("Clic derecho presionado\n")
--Si el clic izquierdo esta activado
if IsMouseButtonPressed(1)then
ajuste = 0
movsize = 32-------Solo editaremos esta variable
mosizey = 0
movright= 0
movleft = 0
varx = 0
vary = 0
repeat
--Reset eje X y eje Y
varx = 0
vary = 0
if(ajuste<(movsize/2))then
varx = -1
elseif(movright<movsize)then
movright = movright+1
varx = 1
if(movright ==movsize)then
movleft = 0
end
elseif(movleft<movsize)then
movleft = movleft+1
varx = -1
if(movleft ==movsize)then
movright = 0
end
end
--OutputLogMessage("Clic izquierdo presionado\n")
--Repetir acciones hasta que dejemos de presionar boton izq y boton derecho
--Mover mouse a la izquierda
--Moverlo a la derecha
--Para bajar (QUITAR EL BLOQUE SI NO NECESITAN QUE BAJE EL MOUSE)
if(ajuste%2==0)then
vary = 1
else
vary = 0
end
--(QUITAR HASTA AQUI SI NO NECESITAN QUE BAJE EL MOUSE)
MoveMouseRelative (varx,vary)
ajuste = ajuste+1
Sleep(8)
until not IsMouseButtonPressed(1)
end
Sleep(500)
until not IsMouseButtonPressed(3)
Sleep(60)
end
end
end