bobbby Posted January 27, 2011 Share Posted January 27, 2011 I don't know how i can fix so mousemove can draw from 1 point to another. Like the mousedrag method. But the mousedrag doesn't work when i do it. So i need to do this like a workaround. I'm so lost also, how should i do it? It should also draw - and then _ and go down. I use +16 because the linetool is 16 in width and height. hotkeyset("{f2}","doit") Opt("MouseClickDownDelay", 1) Opt("MouseClickDelay", 1) Opt("MouseCoordMode", 2) global $f = 0,$xx = 0 func doit() $pos = mousegetpos() global $f = 0,$xx = 0 for $i = 1 to 10 for $x = 1 to 2 mousedown("left") mousemove($pos[0]+$xx,$pos[1]+$f,1) $xx += 16 Next $f += 16 Next mouseup("left") EndFunc while 1 sleep(100) WEnd Link to comment Share on other sites More sharing options...
Xibalba Posted January 27, 2011 Share Posted January 27, 2011 You are declaring a global var twice. Link to comment Share on other sites More sharing options...
JoHanatCent Posted January 28, 2011 Share Posted January 28, 2011 (edited) It should also draw - and then _ and go down. If I open paint and select Pencil I get - then \ and the again -. Can you explain what the - and then _ mean? If you only want - and then - lower without the \ you can try: HotKeySet("{f2}", "doit") HotKeySet("{f3}", "StopAll") Opt("MouseClickDownDelay", 1) Opt("MouseClickDelay", 1) Opt("MouseCoordMode", 2) Global $f = 0, $xx = 0, $OPOs[2] Func doit() $Pos = MouseGetPos() $OPOs[0] = $Pos[0] $OPOs[1] = $Pos[1] For $i = 1 To 10 For $x = 0 To 2 MouseMove($Pos[0] + $xx, $Pos[1] + $f, 20) MouseDown("left") $xx += 16 Next $f += 16 MouseUp("left") Next MouseMove($OPOs[0], $OPOs[1], 1) EndFunc ;==>doit While 1 Sleep(100) WEnd Func StopAll() Exit EndFunc ;==>StopAll Edited January 28, 2011 by JoHanatCent Link to comment Share on other sites More sharing options...
bobbby Posted January 28, 2011 Author Share Posted January 28, 2011 If I open paint and select Pencil I get - then \ and the again -.Can you explain what the - and then _ mean?If you only want - and then - lower without the \ you can try:Not like that. It should start at orange and end in lightgreen.Here is how i mean, http://imgur.com/W0poB.png.Like this:####################################################Not like this:####-------------####-------------####- Link to comment Share on other sites More sharing options...
JoHanatCent Posted January 29, 2011 Share Posted January 29, 2011 (edited) Like this: ############# ############# ############# ############# Like this?: HotKeySet("{F2}", "doit") HotKeySet("{F3}", "StopAll") Opt("MouseClickDownDelay", 1) Opt("MouseClickDelay", 1) Opt("MouseCoordMode", 2) Global $f = 0, $xx = 0, $OPOs[2] Func doit() $Pos = MouseGetPos() $OPOs[0] = $Pos[0];x $OPOs[1] = $Pos[1];y For $i = 1 To 10 For $x = 0 To 2 MouseMove($Pos[0] + $xx, $Pos[1] + $f, 5) MouseDown("left") $xx += 16 Next $f += 16 $xx = 0 MouseUp("left") Next MouseMove($OPOs[0], $OPOs[1], 1) EndFunc ;==>doit While 1 Sleep(10) WEnd Func StopAll() Exit EndFunc ;==>StopAll Edited January 29, 2011 by JoHanatCent Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now