[R] Inverser les mouvements de la souris.

[theAvenger]

Salut à tous !!
J'aimerais savoir s'il était possible d'inverser les axes de la souris, ou au moins de faire comme si.
Par inverser, je veux dire que lorsque l'on déplace la souris vers le bas, le pointeur aille vers le haut et vice-versa, et que lorsque l'on déplace la souris vers la gauche, le pointeur aille vers la droite et vice-versa.

Merci !!!

[silvere]

Edit ton titre en "inverser les mouvement de souris" car j'ai crut que tu parler des axe moi
Sinon je creuse dans ma tête comment faire, peut être avec mousegetpos puis mousemove mais je sais pas si sa marcherai bien.

[sylvanie]

on peut bricoler comme ça ...

► Afficher le texte

Code : Tout sélectionner

HotKeySet("²","fin")
$pos=MouseGetPos()

While 1
    $newpos=MouseGetPos()
    If Not IsArray($newpos) Then ContinueLoop
    $deltax=$newpos[0]-$pos[0]
    $deltay=$newpos[1]-$pos[1]
    ;ConsoleWrite($pos[1]&" "&$pos[1]&" "&$deltax&" "&$deltay&@CRLF)
    If $deltax<>0 Or $deltay<>0 Then
        $pos[0]=max($pos[0]-$deltax,0)
        $pos[1]=max($pos[1]-$deltay,0)
        MouseMove($pos[0],$pos[1],0)
    EndIf
WEnd

Func min($a,$b)
    If $a < $b Then Return $a
    Return $b
EndFunc

Func max($a,$b)
    If $a < $b Then Return $b
    Return $a
EndFunc

Func fin()
    Exit 0
EndFunc

[theAvenger]

Marche en partie : une fois qu'on a touché un des bords de l'écran, la souris reste "bloquée".
Mais ça devrait être réparable. Merci !

[sylvanie]

il y a une petite correction pour les parties droites et bas, mais le pb persiste.
En effet je me base sur le vrai déplassement de la souris, mais qand on atteint un bord, admettons x=0, alors le déplacement vers la gauche n'est plus pris en compte

► Afficher le texte

Code : Tout sélectionner

HotKeySet("²","fin")
$pos=MouseGetPos()

While 1
    $newpos=MouseGetPos()
    If Not IsArray($newpos) Then ContinueLoop
    $deltax=$newpos[0]-$pos[0]
    $deltay=$newpos[1]-$pos[1]
    ;ConsoleWrite($pos[1]&" "&$pos[1]&" "&$deltax&" "&$deltay&@CRLF)
    If $deltax<>0 Or $deltay<>0 Then
        $pos[0]=max($pos[0]-$deltax,0)
        $pos[1]=max($pos[1]-$deltay,0)
        $pos[0]=min($pos[0],@DesktopWidth)
        $pos[1]=min($pos[1],@DesktopHeight)
        MouseMove($pos[0],$pos[1],0)
    EndIf
WEnd

Func min($a,$b)
    If $a < $b Then Return $a
    Return $b
EndFunc

Func max($a,$b)
    If $a < $b Then Return $b
    Return $a
EndFunc

Func fin()
    Exit 0
EndFunc
 

[theAvenger]

Oui, c'est logique. C'est donc impossible à réaliser par ce moyen.

[silvere]

Si tu met quand il est a 20 pixel des extrémités qu'il bloque
Edit: c'est quoi cette phrase ? mdr je fatigue

[theAvenger]

Je fait remarquer que le problème est le même si on empêche le curseur d'aller plus loin.

[sylvanie]

Si tu met quand il est a 20 pixel des extrémités qu'il bloque

Bonne idée

► Afficher le texte

Code : Tout sélectionner

HotKeySet("²","fin")
$pos=MouseGetPos()

While 1
    $newpos=MouseGetPos()
    If Not IsArray($newpos) Then ContinueLoop
    $deltax=$newpos[0]-$pos[0]
    $deltay=$newpos[1]-$pos[1]
    ;ConsoleWrite($pos[1]&" "&$pos[1]&" "&$deltax&" "&$deltay&@CRLF)
    If $deltax<>0 Or $deltay<>0 Then
        $pos[0]=max($pos[0]-$deltax,20)
        $pos[1]=max($pos[1]-$deltay,20)
        $pos[0]=min($pos[0],@DesktopWidth-20)
        $pos[1]=min($pos[1],@DesktopHeight-20)
        MouseMove($pos[0],$pos[1],0)
    EndIf
WEnd

Func min($a,$b)
    If $a < $b Then Return $a
    Return $b
EndFunc

Func max($a,$b)
    If $a < $b Then Return $b
    Return $a
EndFunc

Func fin()
    Exit 0
EndFunc
 

[theAvenger]

Félicitation !! Et merci beaucoup !!!
Je penserais que ça ne marcherait pas.
Bon, il y a une zone qu'on ne peut pas atteindre, mais ça ne me dérange pas, parce que c'était pour faire un jeu de vitesse et le joueur à normalement autre chose à f***** que de chercher à s'approcher du bord de l'écran.
Donc, merci beaucoup !!!!

[sylvanie]

j'ai essayé avec 2 au lieu de 20 et ça marche toujours, avec donc plus de zone couverte.
avec 1 par contre ça ne marche plus

[theAvenger]

Oui, j'ai remarqué aussi. Merci !!

[silvere]

Bonne idée

Depuis que je programme elles commencent a venir