Jump to content

How on earth did I do this! :-)

Morthawt

By Morthawt,
in AutoIt General Help and Support

 Share

Recommended Posts

Morthawt Universalist

Morthawt

Posted
Posted

Open Microsoft paint or Photoshop or some other graphics program that has a PENCIL tool. Set it to 1 pixel size if you need to set that, because it needs to be 1 pixel. Then with this script running press Ctrl+Alt+Win+1 and watch it do its magic :-)

I am curious, anyone have any ideas how I was able to do this? I was looking through the helpfile and got a crazy idea to do this lol. I just wanna know what you think you would have to do to be able to get what is needed to make a script like this to be able to type visually with a pencil tool.

#RequireAdmin
Opt('MouseCoordMode', 2)
Global $x
Global $y
HotKeySet('^#!1', 'StartReplicating')
Func StartReplicating()
$position = MouseGetPos()
$x = $position[0]
$y = $position[1]
EndFunc   ;==>StartReplicating
While 1
Sleep(50)
If $y Then ExitLoop
WEnd
Sleep(2000)
BlockInput(1)
MouseClick('left', ($x + 2), ($y + 2), 1, 1)
MouseClick('left', ($x + 3), ($y + 2), 1, 1)
MouseClick('left', ($x + 4), ($y + 2), 1, 1)
MouseClick('left', ($x + 10), ($y + 2), 1, 1)
MouseClick('left', ($x + 11), ($y + 2), 1, 1)
MouseClick('left', ($x + 12), ($y + 2), 1, 1)
MouseClick('left', ($x + 2), ($y + 3), 1, 1)
MouseClick('left', ($x + 3), ($y + 3), 1, 1)
MouseClick('left', ($x + 4), ($y + 3), 1, 1)
MouseClick('left', ($x + 10), ($y + 3), 1, 1)
MouseClick('left', ($x + 11), ($y + 3), 1, 1)
MouseClick('left', ($x + 12), ($y + 3), 1, 1)
MouseClick('left', ($x + 2), ($y + 4), 1, 1)
MouseClick('left', ($x + 3), ($y + 4), 1, 1)
MouseClick('left', ($x + 4), ($y + 4), 1, 1)
MouseClick('left', ($x + 5), ($y + 4), 1, 1)
MouseClick('left', ($x + 9), ($y + 4), 1, 1)
MouseClick('left', ($x + 10), ($y + 4), 1, 1)
MouseClick('left', ($x + 11), ($y + 4), 1, 1)
MouseClick('left', ($x + 12), ($y + 4), 1, 1)
MouseClick('left', ($x + 16), ($y + 4), 1, 1)
MouseClick('left', ($x + 17), ($y + 4), 1, 1)
MouseClick('left', ($x + 20), ($y + 4), 1, 1)
MouseClick('left', ($x + 21), ($y + 4), 1, 1)
MouseClick('left', ($x + 24), ($y + 4), 1, 1)
MouseClick('left', ($x + 25), ($y + 4), 1, 1)
MouseClick('left', ($x + 26), ($y + 4), 1, 1)
MouseClick('left', ($x + 27), ($y + 4), 1, 1)
MouseClick('left', ($x + 28), ($y + 4), 1, 1)
MouseClick('left', ($x + 30), ($y + 4), 1, 1)
MouseClick('left', ($x + 31), ($y + 4), 1, 1)
MouseClick('left', ($x + 32), ($y + 4), 1, 1)
MouseClick('left', ($x + 33), ($y + 4), 1, 1)
MouseClick('left', ($x + 34), ($y + 4), 1, 1)
MouseClick('left', ($x + 35), ($y + 4), 1, 1)
MouseClick('left', ($x + 36), ($y + 4), 1, 1)
MouseClick('left', ($x + 37), ($y + 4), 1, 1)
MouseClick('left', ($x + 2), ($y + 5), 1, 1)
MouseClick('left', ($x + 3), ($y + 5), 1, 1)
MouseClick('left', ($x + 4), ($y + 5), 1, 1)
MouseClick('left', ($x + 5), ($y + 5), 1, 1)
MouseClick('left', ($x + 9), ($y + 5), 1, 1)
MouseClick('left', ($x + 10), ($y + 5), 1, 1)
MouseClick('left', ($x + 11), ($y + 5), 1, 1)
MouseClick('left', ($x + 12), ($y + 5), 1, 1)
MouseClick('left', ($x + 16), ($y + 5), 1, 1)
MouseClick('left', ($x + 17), ($y + 5), 1, 1)
MouseClick('left', ($x + 20), ($y + 5), 1, 1)
MouseClick('left', ($x + 21), ($y + 5), 1, 1)
MouseClick('left', ($x + 24), ($y + 5), 1, 1)
MouseClick('left', ($x + 25), ($y + 5), 1, 1)
MouseClick('left', ($x + 26), ($y + 5), 1, 1)
MouseClick('left', ($x + 30), ($y + 5), 1, 1)
MouseClick('left', ($x + 31), ($y + 5), 1, 1)
MouseClick('left', ($x + 32), ($y + 5), 1, 1)
MouseClick('left', ($x + 33), ($y + 5), 1, 1)
MouseClick('left', ($x + 34), ($y + 5), 1, 1)
MouseClick('left', ($x + 35), ($y + 5), 1, 1)
MouseClick('left', ($x + 36), ($y + 5), 1, 1)
MouseClick('left', ($x + 37), ($y + 5), 1, 1)
MouseClick('left', ($x + 2), ($y + 6), 1, 1)
MouseClick('left', ($x + 3), ($y + 6), 1, 1)
MouseClick('left', ($x + 5), ($y + 6), 1, 1)
MouseClick('left', ($x + 6), ($y + 6), 1, 1)
MouseClick('left', ($x + 8), ($y + 6), 1, 1)
MouseClick('left', ($x + 9), ($y + 6), 1, 1)
MouseClick('left', ($x + 11), ($y + 6), 1, 1)
MouseClick('left', ($x + 12), ($y + 6), 1, 1)
MouseClick('left', ($x + 16), ($y + 6), 1, 1)
MouseClick('left', ($x + 17), ($y + 6), 1, 1)
MouseClick('left', ($x + 20), ($y + 6), 1, 1)
MouseClick('left', ($x + 21), ($y + 6), 1, 1)
MouseClick('left', ($x + 22), ($y + 6), 1, 1)
MouseClick('left', ($x + 23), ($y + 6), 1, 1)
MouseClick('left', ($x + 24), ($y + 6), 1, 1)
MouseClick('left', ($x + 25), ($y + 6), 1, 1)
MouseClick('left', ($x + 30), ($y + 6), 1, 1)
MouseClick('left', ($x + 31), ($y + 6), 1, 1)
MouseClick('left', ($x + 2), ($y + 7), 1, 1)
MouseClick('left', ($x + 3), ($y + 7), 1, 1)
MouseClick('left', ($x + 5), ($y + 7), 1, 1)
MouseClick('left', ($x + 6), ($y + 7), 1, 1)
MouseClick('left', ($x + 8), ($y + 7), 1, 1)
MouseClick('left', ($x + 9), ($y + 7), 1, 1)
MouseClick('left', ($x + 11), ($y + 7), 1, 1)
MouseClick('left', ($x + 12), ($y + 7), 1, 1)
MouseClick('left', ($x + 16), ($y + 7), 1, 1)
MouseClick('left', ($x + 17), ($y + 7), 1, 1)
MouseClick('left', ($x + 20), ($y + 7), 1, 1)
MouseClick('left', ($x + 21), ($y + 7), 1, 1)
MouseClick('left', ($x + 22), ($y + 7), 1, 1)
MouseClick('left', ($x + 23), ($y + 7), 1, 1)
MouseClick('left', ($x + 24), ($y + 7), 1, 1)
MouseClick('left', ($x + 30), ($y + 7), 1, 1)
MouseClick('left', ($x + 31), ($y + 7), 1, 1)
MouseClick('left', ($x + 32), ($y + 7), 1, 1)
MouseClick('left', ($x + 33), ($y + 7), 1, 1)
MouseClick('left', ($x + 34), ($y + 7), 1, 1)
MouseClick('left', ($x + 35), ($y + 7), 1, 1)
MouseClick('left', ($x + 2), ($y + 8), 1, 1)
MouseClick('left', ($x + 3), ($y + 8), 1, 1)
MouseClick('left', ($x + 6), ($y + 8), 1, 1)
MouseClick('left', ($x + 7), ($y + 8), 1, 1)
MouseClick('left', ($x + 8), ($y + 8), 1, 1)
MouseClick('left', ($x + 11), ($y + 8), 1, 1)
MouseClick('left', ($x + 12), ($y + 8), 1, 1)
MouseClick('left', ($x + 16), ($y + 8), 1, 1)
MouseClick('left', ($x + 17), ($y + 8), 1, 1)
MouseClick('left', ($x + 20), ($y + 8), 1, 1)
MouseClick('left', ($x + 21), ($y + 8), 1, 1)
MouseClick('left', ($x + 22), ($y + 8), 1, 1)
MouseClick('left', ($x + 23), ($y + 8), 1, 1)
MouseClick('left', ($x + 24), ($y + 8), 1, 1)
MouseClick('left', ($x + 25), ($y + 8), 1, 1)
MouseClick('left', ($x + 30), ($y + 8), 1, 1)
MouseClick('left', ($x + 31), ($y + 8), 1, 1)
MouseClick('left', ($x + 32), ($y + 8), 1, 1)
MouseClick('left', ($x + 33), ($y + 8), 1, 1)
MouseClick('left', ($x + 34), ($y + 8), 1, 1)
MouseClick('left', ($x + 35), ($y + 8), 1, 1)
MouseClick('left', ($x + 2), ($y + 9), 1, 1)
MouseClick('left', ($x + 3), ($y + 9), 1, 1)
MouseClick('left', ($x + 6), ($y + 9), 1, 1)
MouseClick('left', ($x + 7), ($y + 9), 1, 1)
MouseClick('left', ($x + 8), ($y + 9), 1, 1)
MouseClick('left', ($x + 11), ($y + 9), 1, 1)
MouseClick('left', ($x + 12), ($y + 9), 1, 1)
MouseClick('left', ($x + 16), ($y + 9), 1, 1)
MouseClick('left', ($x + 17), ($y + 9), 1, 1)
MouseClick('left', ($x + 20), ($y + 9), 1, 1)
MouseClick('left', ($x + 21), ($y + 9), 1, 1)
MouseClick('left', ($x + 24), ($y + 9), 1, 1)
MouseClick('left', ($x + 25), ($y + 9), 1, 1)
MouseClick('left', ($x + 26), ($y + 9), 1, 1)
MouseClick('left', ($x + 30), ($y + 9), 1, 1)
MouseClick('left', ($x + 31), ($y + 9), 1, 1)
MouseClick('left', ($x + 2), ($y + 10), 1, 1)
MouseClick('left', ($x + 3), ($y + 10), 1, 1)
MouseClick('left', ($x + 7), ($y + 10), 1, 1)
MouseClick('left', ($x + 11), ($y + 10), 1, 1)
MouseClick('left', ($x + 12), ($y + 10), 1, 1)
MouseClick('left', ($x + 16), ($y + 10), 1, 1)
MouseClick('left', ($x + 17), ($y + 10), 1, 1)
MouseClick('left', ($x + 20), ($y + 10), 1, 1)
MouseClick('left', ($x + 21), ($y + 10), 1, 1)
MouseClick('left', ($x + 25), ($y + 10), 1, 1)
MouseClick('left', ($x + 26), ($y + 10), 1, 1)
MouseClick('left', ($x + 27), ($y + 10), 1, 1)
MouseClick('left', ($x + 30), ($y + 10), 1, 1)
MouseClick('left', ($x + 31), ($y + 10), 1, 1)
MouseClick('left', ($x + 32), ($y + 10), 1, 1)
MouseClick('left', ($x + 33), ($y + 10), 1, 1)
MouseClick('left', ($x + 34), ($y + 10), 1, 1)
MouseClick('left', ($x + 35), ($y + 10), 1, 1)
MouseClick('left', ($x + 36), ($y + 10), 1, 1)
MouseClick('left', ($x + 37), ($y + 10), 1, 1)
MouseClick('left', ($x + 2), ($y + 11), 1, 1)
MouseClick('left', ($x + 3), ($y + 11), 1, 1)
MouseClick('left', ($x + 7), ($y + 11), 1, 1)
MouseClick('left', ($x + 11), ($y + 11), 1, 1)
MouseClick('left', ($x + 12), ($y + 11), 1, 1)
MouseClick('left', ($x + 16), ($y + 11), 1, 1)
MouseClick('left', ($x + 17), ($y + 11), 1, 1)
MouseClick('left', ($x + 20), ($y + 11), 1, 1)
MouseClick('left', ($x + 21), ($y + 11), 1, 1)
MouseClick('left', ($x + 25), ($y + 11), 1, 1)
MouseClick('left', ($x + 26), ($y + 11), 1, 1)
MouseClick('left', ($x + 27), ($y + 11), 1, 1)
MouseClick('left', ($x + 28), ($y + 11), 1, 1)
MouseClick('left', ($x + 30), ($y + 11), 1, 1)
MouseClick('left', ($x + 31), ($y + 11), 1, 1)
MouseClick('left', ($x + 32), ($y + 11), 1, 1)
MouseClick('left', ($x + 33), ($y + 11), 1, 1)
MouseClick('left', ($x + 34), ($y + 11), 1, 1)
MouseClick('left', ($x + 35), ($y + 11), 1, 1)
MouseClick('left', ($x + 36), ($y + 11), 1, 1)
MouseClick('left', ($x + 37), ($y + 11), 1, 1)
BlockInput(0)

Free and easy Autoit scripting video tutorials (plus more videos always coming!)

General video tutorials, especially correct and safe TeamSpeak permissions tutorials.

Link to comment
Share on other sites
JohnOne Universalist

JohnOne

Posted
Posted

I am curious, anyone have any ideas how I was able to do this?

Yes, you wrote a bunch of mouse clicks.

If you want to improve it, make it into a function that takes a string as an argument and draws it.

AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Link to comment
Share on other sites
Morthawt Universalist

Morthawt

Posted
  • Author
Posted

Yes, you wrote a bunch of mouse clicks.

If you want to improve it, make it into a function that takes a string as an argument and draws it.

Yeah I did do a bunch of mouse clicks, I was referring mainly to how did I actually pull it off being precise. I did not look at the text and manually line by line add mouse clicks at all, that would have driven me crazy before I even had gotten started lol.

I am just curious how someone else would go about making something like this without having to line by line do each click manually.

Free and easy Autoit scripting video tutorials (plus more videos always coming!)

General video tutorials, especially correct and safe TeamSpeak permissions tutorials.

Link to comment
Share on other sites
JohnOne Universalist

JohnOne

Posted
Posted (edited)

Don't know really, its all maths. Are you saying you just used a load of random numbers and it spelled that out?

Something like this perhaps.

Global $Start[2] = [(@DesktopWidth / 2) - 200, @DesktopHeight / 2]
WinActivate("Untitled - Paint")
MouseMove($Start[0], $Start[1], 5)
_Draw(0,-15)
_Draw(5,10)
_Draw(5,-10)
_Draw(0,15)
Func _Draw($x, $y)
   $pos = MouseGetPos()
   MouseClickDrag("Primary", $pos[0], $pos[1], $pos[0] + $x, $pos[1] + $y, 2)
EndFunc
Edited by JohnOne

AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Link to comment
Share on other sites
Morthawt Universalist

Morthawt

Posted
  • Author
Posted

That is an interesting method you have there. I did not do that kind of thing actually. It is based off a piece of text I typed out in Photoshop. It is the exact same font and size and everything as the original. Only thing being I create it using single clicks.

Do you have any other theories about how I was able to make this possible? I really am curious if anyone else has the same thought as me.

Free and easy Autoit scripting video tutorials (plus more videos always coming!)

General video tutorials, especially correct and safe TeamSpeak permissions tutorials.

Link to comment
Share on other sites
JohnOne Universalist

JohnOne

Posted
Posted (edited)

I suppose you might have mapped the pixels of the font using pixelgetcolor()

Global $Start[2] = [(@DesktopWidth / 2) - 200, @DesktopHeight / 2]
WinActivate("Untitled - Paint")
MouseMove($Start[0], $Start[1], 5)
MsgBox(0,0,0)
_Draw(0,-15)
_Draw(5,10)
_Draw(5,-10)
_Draw(0,15)
_Draw(0,-15,5,0)
_Draw(0,15,5,0)
_Draw(5,-8,0,-7)
_Draw(5,9,-5,6)
_Draw(0,-15,5,0)
_Draw(5,0)
_Draw(5,0,-5,7)
_Draw(5,0,-5,8)
Func _Draw($x, $y, $x2 = 0, $y2 = 0)
   $pos = MouseGetPos()
   If $x2 Or $y2 Then
    $pos[0] += $x2
    $pos[1] += $y2
   EndIf
   MouseClickDrag("Primary", $pos[0], $pos[1], $pos[0] + $x, $pos[1] + $y, 0)
EndFunc

:graduated:

Edited by JohnOne

AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Link to comment
Share on other sites
Morthawt Universalist

Morthawt

Posted
  • Author
Posted

Right, I mapped it using pixelgetcolor, defining the box area to check pix by pix line by line and if the colour is not the same as the original colour at the top left then create a click for that pixel:

Hot key 1 is for the top left of the area to "scan", 2 is for the top right and 3 is how far down to scan till. That way it is defining the box area to scan. Anything that is not the colour of the first top left (background) colour is defined with a click. It is not fast by any means but it does its thing. I can't think of any use for this but I just wanted to see if I could do it from having a theory about how it may be possible to "replicate" a solid colour shape or text with 1 pixel clicks using a pen tool.

#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=replicator.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Global $top
Global $left
Global $right
Global $bottom
Global $x
Global $y
Global $file = 'replication.au3'
HotKeySet('^#!1', 'Left')
HotKeySet('^#!2', 'Right')
HotKeySet('^#!3', 'Bottom')
HotKeySet('^#!0', 'ExitProgram')
FileDelete($file)
FileWrite($file, _
  "#RequireAdmin" & @CRLF & _
  "Opt('MouseCoordMode', 2)" & @CRLF & _
  "Global $x" & @CRLF & _
  "Global $y" & @CRLF & _
  "HotKeySet('^#!1', 'StartReplicating')" & @CRLF & _
  "Func StartReplicating()" & @CRLF & _
  "$position = MouseGetPos()" & @CRLF & _
  "$x = $position[0]" & @CRLF & _
  "$y = $position[1]" & @CRLF & _
  "EndFunc" & @CRLF & _
  "While 1" & @CRLF & _
  "Sleep(50)" & @CRLF & _
  "If $y Then ExitLoop" & @CRLF & _
  "WEnd" & @CRLF & _
  "Sleep(2000)" & @CRLF & _
  "BlockInput(1)" & @CRLF)
 

While 1
If $bottom Then ExitLoop
Sleep(10)
WEnd
$xoriginal = $left
$yoriginal = $top
$x = $left
$y = $top
Sleep(2000)
BlockInput(1)
$defaultcolour = Hex(PixelGetColor($x, $y), 6)
While 1
MouseMove($x, $y, 2)
$colour = Hex(PixelGetColor($x, $y), 6)
If $colour <> $defaultcolour Then
  $xpos = $x - $xoriginal
  $ypos = $y - $yoriginal
  FileWrite($file, _
    "MouseClick('left', ($x +" & $xpos & "), ($y +" & $ypos & "), 1, 1)" & @CRLF)
EndIf

If $x <> $right Then $x += 1

If $y = $bottom And $x = $right Then
  BlockInput(0)
  FileWrite($file, "BlockInput(0)" & @CRLF)
  ExitProgram()
  ExitLoop
EndIf

If $x = $right Then
  $x = $left
  $y += 1
EndIf
;~  Sleep(1)
WEnd
 
 
Func ExitProgram()
HotKeySet('^#!1')
HotKeySet('^#!2')
HotKeySet('^#!3')
HotKeySet('^#!0')
BlockInput(0)
MsgBox(0,0,0)
Exit
EndFunc   ;==>ExitProgram
Func Left()
$position = MouseGetPos()
$left = $position[0]
$top = $position[1]
EndFunc   ;==>Left
Func Right()
$position = MouseGetPos()
$right = $position[0]
EndFunc   ;==>Right
Func Bottom()
$position = MouseGetPos()
$bottom = $position[1]
EndFunc   ;==>Bottom
BlockInput(0)

Free and easy Autoit scripting video tutorials (plus more videos always coming!)

General video tutorials, especially correct and safe TeamSpeak permissions tutorials.

Link to comment
Share on other sites
ovideo Seeker

ovideo

Posted
Posted

Obvious way is this

$xstart,$xend,$ystart,$yend  -> set them manually or mousegetpos()
$black     -> set manually or pixelgetcolr()
$x=0,$y=0
While $x+$xstart-$xend
While $y+$ystart-$yend
if pixelgetcolor($x+$xstart)=$black then filewrite(".\painterscript.au3","MouseClick('left', ($x + "&$x&"), ($y + "&$y&"), 1, 1)"&@CRLF)
WEnd
WEnd

Then you just add the rest of the program to painterscript.au3

Link to comment
Share on other sites
SadBunny Universalist

SadBunny

Posted
Posted

Open Microsoft paint or Photoshop or some other graphics program that has a PENCIL tool. Set it to 1 pixel size if you need to set that, because it needs to be 1 pixel. Then with this script running press Ctrl+Alt+Win+1 and watch it do its magic :-)

I am curious, anyone have any ideas how I was able to do this? I was looking through the helpfile and got a crazy idea to do this lol. I just wanna know what you think you would have to do to be able to get what is needed to make a script like this to be able to type visually with a pencil tool.

#RequireAdmin
Opt('MouseCoordMode', 2)
Global $x
Global $y
HotKeySet('^#!1', 'StartReplicating')
Func StartReplicating()
$position = MouseGetPos()
$x = $position[0]
$y = $position[1]
EndFunc   ;==>StartReplicating
While 1
Sleep(50)
If $y Then ExitLoop
WEnd
Sleep(2000)
BlockInput(1)
MouseClick('left', ($x + 2), ($y + 2), 1, 1)
MouseClick('left', ($x + 3), ($y + 2), 1, 1)
MouseClick('left', ($x + 4), ($y + 2), 1, 1)
MouseClick('left', ($x + 10), ($y + 2), 1, 1)
MouseClick('left', ($x + 11), ($y + 2), 1, 1)
MouseClick('left', ($x + 12), ($y + 2), 1, 1)
MouseClick('left', ($x + 2), ($y + 3), 1, 1)
MouseClick('left', ($x + 3), ($y + 3), 1, 1)
MouseClick('left', ($x + 4), ($y + 3), 1, 1)
MouseClick('left', ($x + 10), ($y + 3), 1, 1)
MouseClick('left', ($x + 11), ($y + 3), 1, 1)
MouseClick('left', ($x + 12), ($y + 3), 1, 1)
MouseClick('left', ($x + 2), ($y + 4), 1, 1)
MouseClick('left', ($x + 3), ($y + 4), 1, 1)
MouseClick('left', ($x + 4), ($y + 4), 1, 1)
MouseClick('left', ($x + 5), ($y + 4), 1, 1)
MouseClick('left', ($x + 9), ($y + 4), 1, 1)
MouseClick('left', ($x + 10), ($y + 4), 1, 1)
MouseClick('left', ($x + 11), ($y + 4), 1, 1)
MouseClick('left', ($x + 12), ($y + 4), 1, 1)
MouseClick('left', ($x + 16), ($y + 4), 1, 1)
MouseClick('left', ($x + 17), ($y + 4), 1, 1)
MouseClick('left', ($x + 20), ($y + 4), 1, 1)
MouseClick('left', ($x + 21), ($y + 4), 1, 1)
MouseClick('left', ($x + 24), ($y + 4), 1, 1)
MouseClick('left', ($x + 25), ($y + 4), 1, 1)
MouseClick('left', ($x + 26), ($y + 4), 1, 1)
MouseClick('left', ($x + 27), ($y + 4), 1, 1)
MouseClick('left', ($x + 28), ($y + 4), 1, 1)
MouseClick('left', ($x + 30), ($y + 4), 1, 1)
MouseClick('left', ($x + 31), ($y + 4), 1, 1)
MouseClick('left', ($x + 32), ($y + 4), 1, 1)
MouseClick('left', ($x + 33), ($y + 4), 1, 1)
MouseClick('left', ($x + 34), ($y + 4), 1, 1)
MouseClick('left', ($x + 35), ($y + 4), 1, 1)
MouseClick('left', ($x + 36), ($y + 4), 1, 1)
MouseClick('left', ($x + 37), ($y + 4), 1, 1)
MouseClick('left', ($x + 2), ($y + 5), 1, 1)
MouseClick('left', ($x + 3), ($y + 5), 1, 1)
MouseClick('left', ($x + 4), ($y + 5), 1, 1)
MouseClick('left', ($x + 5), ($y + 5), 1, 1)
MouseClick('left', ($x + 9), ($y + 5), 1, 1)
MouseClick('left', ($x + 10), ($y + 5), 1, 1)
MouseClick('left', ($x + 11), ($y + 5), 1, 1)
MouseClick('left', ($x + 12), ($y + 5), 1, 1)
MouseClick('left', ($x + 16), ($y + 5), 1, 1)
MouseClick('left', ($x + 17), ($y + 5), 1, 1)
MouseClick('left', ($x + 20), ($y + 5), 1, 1)
MouseClick('left', ($x + 21), ($y + 5), 1, 1)
MouseClick('left', ($x + 24), ($y + 5), 1, 1)
MouseClick('left', ($x + 25), ($y + 5), 1, 1)
MouseClick('left', ($x + 26), ($y + 5), 1, 1)
MouseClick('left', ($x + 30), ($y + 5), 1, 1)
MouseClick('left', ($x + 31), ($y + 5), 1, 1)
MouseClick('left', ($x + 32), ($y + 5), 1, 1)
MouseClick('left', ($x + 33), ($y + 5), 1, 1)
MouseClick('left', ($x + 34), ($y + 5), 1, 1)
MouseClick('left', ($x + 35), ($y + 5), 1, 1)
MouseClick('left', ($x + 36), ($y + 5), 1, 1)
MouseClick('left', ($x + 37), ($y + 5), 1, 1)
MouseClick('left', ($x + 2), ($y + 6), 1, 1)
MouseClick('left', ($x + 3), ($y + 6), 1, 1)
MouseClick('left', ($x + 5), ($y + 6), 1, 1)
MouseClick('left', ($x + 6), ($y + 6), 1, 1)
MouseClick('left', ($x + 8), ($y + 6), 1, 1)
MouseClick('left', ($x + 9), ($y + 6), 1, 1)
MouseClick('left', ($x + 11), ($y + 6), 1, 1)
MouseClick('left', ($x + 12), ($y + 6), 1, 1)
MouseClick('left', ($x + 16), ($y + 6), 1, 1)
MouseClick('left', ($x + 17), ($y + 6), 1, 1)
MouseClick('left', ($x + 20), ($y + 6), 1, 1)
MouseClick('left', ($x + 21), ($y + 6), 1, 1)
MouseClick('left', ($x + 22), ($y + 6), 1, 1)
MouseClick('left', ($x + 23), ($y + 6), 1, 1)
MouseClick('left', ($x + 24), ($y + 6), 1, 1)
MouseClick('left', ($x + 25), ($y + 6), 1, 1)
MouseClick('left', ($x + 30), ($y + 6), 1, 1)
MouseClick('left', ($x + 31), ($y + 6), 1, 1)
MouseClick('left', ($x + 2), ($y + 7), 1, 1)
MouseClick('left', ($x + 3), ($y + 7), 1, 1)
MouseClick('left', ($x + 5), ($y + 7), 1, 1)
MouseClick('left', ($x + 6), ($y + 7), 1, 1)
MouseClick('left', ($x + 8), ($y + 7), 1, 1)
MouseClick('left', ($x + 9), ($y + 7), 1, 1)
MouseClick('left', ($x + 11), ($y + 7), 1, 1)
MouseClick('left', ($x + 12), ($y + 7), 1, 1)
MouseClick('left', ($x + 16), ($y + 7), 1, 1)
MouseClick('left', ($x + 17), ($y + 7), 1, 1)
MouseClick('left', ($x + 20), ($y + 7), 1, 1)
MouseClick('left', ($x + 21), ($y + 7), 1, 1)
MouseClick('left', ($x + 22), ($y + 7), 1, 1)
MouseClick('left', ($x + 23), ($y + 7), 1, 1)
MouseClick('left', ($x + 24), ($y + 7), 1, 1)
MouseClick('left', ($x + 30), ($y + 7), 1, 1)
MouseClick('left', ($x + 31), ($y + 7), 1, 1)
MouseClick('left', ($x + 32), ($y + 7), 1, 1)
MouseClick('left', ($x + 33), ($y + 7), 1, 1)
MouseClick('left', ($x + 34), ($y + 7), 1, 1)
MouseClick('left', ($x + 35), ($y + 7), 1, 1)
MouseClick('left', ($x + 2), ($y + 8), 1, 1)
MouseClick('left', ($x + 3), ($y + 8), 1, 1)
MouseClick('left', ($x + 6), ($y + 8), 1, 1)
MouseClick('left', ($x + 7), ($y + 8), 1, 1)
MouseClick('left', ($x + 8), ($y + 8), 1, 1)
MouseClick('left', ($x + 11), ($y + 8), 1, 1)
MouseClick('left', ($x + 12), ($y + 8), 1, 1)
MouseClick('left', ($x + 16), ($y + 8), 1, 1)
MouseClick('left', ($x + 17), ($y + 8), 1, 1)
MouseClick('left', ($x + 20), ($y + 8), 1, 1)
MouseClick('left', ($x + 21), ($y + 8), 1, 1)
MouseClick('left', ($x + 22), ($y + 8), 1, 1)
MouseClick('left', ($x + 23), ($y + 8), 1, 1)
MouseClick('left', ($x + 24), ($y + 8), 1, 1)
MouseClick('left', ($x + 25), ($y + 8), 1, 1)
MouseClick('left', ($x + 30), ($y + 8), 1, 1)
MouseClick('left', ($x + 31), ($y + 8), 1, 1)
MouseClick('left', ($x + 32), ($y + 8), 1, 1)
MouseClick('left', ($x + 33), ($y + 8), 1, 1)
MouseClick('left', ($x + 34), ($y + 8), 1, 1)
MouseClick('left', ($x + 35), ($y + 8), 1, 1)
MouseClick('left', ($x + 2), ($y + 9), 1, 1)
MouseClick('left', ($x + 3), ($y + 9), 1, 1)
MouseClick('left', ($x + 6), ($y + 9), 1, 1)
MouseClick('left', ($x + 7), ($y + 9), 1, 1)
MouseClick('left', ($x + 8), ($y + 9), 1, 1)
MouseClick('left', ($x + 11), ($y + 9), 1, 1)
MouseClick('left', ($x + 12), ($y + 9), 1, 1)
MouseClick('left', ($x + 16), ($y + 9), 1, 1)
MouseClick('left', ($x + 17), ($y + 9), 1, 1)
MouseClick('left', ($x + 20), ($y + 9), 1, 1)
MouseClick('left', ($x + 21), ($y + 9), 1, 1)
MouseClick('left', ($x + 24), ($y + 9), 1, 1)
MouseClick('left', ($x + 25), ($y + 9), 1, 1)
MouseClick('left', ($x + 26), ($y + 9), 1, 1)
MouseClick('left', ($x + 30), ($y + 9), 1, 1)
MouseClick('left', ($x + 31), ($y + 9), 1, 1)
MouseClick('left', ($x + 2), ($y + 10), 1, 1)
MouseClick('left', ($x + 3), ($y + 10), 1, 1)
MouseClick('left', ($x + 7), ($y + 10), 1, 1)
MouseClick('left', ($x + 11), ($y + 10), 1, 1)
MouseClick('left', ($x + 12), ($y + 10), 1, 1)
MouseClick('left', ($x + 16), ($y + 10), 1, 1)
MouseClick('left', ($x + 17), ($y + 10), 1, 1)
MouseClick('left', ($x + 20), ($y + 10), 1, 1)
MouseClick('left', ($x + 21), ($y + 10), 1, 1)
MouseClick('left', ($x + 25), ($y + 10), 1, 1)
MouseClick('left', ($x + 26), ($y + 10), 1, 1)
MouseClick('left', ($x + 27), ($y + 10), 1, 1)
MouseClick('left', ($x + 30), ($y + 10), 1, 1)
MouseClick('left', ($x + 31), ($y + 10), 1, 1)
MouseClick('left', ($x + 32), ($y + 10), 1, 1)
MouseClick('left', ($x + 33), ($y + 10), 1, 1)
MouseClick('left', ($x + 34), ($y + 10), 1, 1)
MouseClick('left', ($x + 35), ($y + 10), 1, 1)
MouseClick('left', ($x + 36), ($y + 10), 1, 1)
MouseClick('left', ($x + 37), ($y + 10), 1, 1)
MouseClick('left', ($x + 2), ($y + 11), 1, 1)
MouseClick('left', ($x + 3), ($y + 11), 1, 1)
MouseClick('left', ($x + 7), ($y + 11), 1, 1)
MouseClick('left', ($x + 11), ($y + 11), 1, 1)
MouseClick('left', ($x + 12), ($y + 11), 1, 1)
MouseClick('left', ($x + 16), ($y + 11), 1, 1)
MouseClick('left', ($x + 17), ($y + 11), 1, 1)
MouseClick('left', ($x + 20), ($y + 11), 1, 1)
MouseClick('left', ($x + 21), ($y + 11), 1, 1)
MouseClick('left', ($x + 25), ($y + 11), 1, 1)
MouseClick('left', ($x + 26), ($y + 11), 1, 1)
MouseClick('left', ($x + 27), ($y + 11), 1, 1)
MouseClick('left', ($x + 28), ($y + 11), 1, 1)
MouseClick('left', ($x + 30), ($y + 11), 1, 1)
MouseClick('left', ($x + 31), ($y + 11), 1, 1)
MouseClick('left', ($x + 32), ($y + 11), 1, 1)
MouseClick('left', ($x + 33), ($y + 11), 1, 1)
MouseClick('left', ($x + 34), ($y + 11), 1, 1)
MouseClick('left', ($x + 35), ($y + 11), 1, 1)
MouseClick('left', ($x + 36), ($y + 11), 1, 1)
MouseClick('left', ($x + 37), ($y + 11), 1, 1)
BlockInput(0)

Looks kind of funny actually... If you would add a very short and sharp sawtooth-synth sound sample every time you click, I bet it'd really look and sound like one of those 80's/90's 9-pin matrix printers we had back than. Boy, was that ever a nauseating experience to watch and listen one of those print out a Dr Halo painting :graduated:

Roses are FF0000, violets are 0000FF... All my base are belong to you.

Link to comment
Share on other sites
JohnOne Universalist

JohnOne

Posted
Posted

Here's my new and improved faster version. :graduated:

Global $Start[2] = [(@DesktopWidth / 2) - 200, @DesktopHeight / 2]
WinActivate("Untitled - Paint")
MouseMove($Start[0], $Start[1], 5)
MsgBox(0, 0, 0)
_Draw(0, -15)
_Draw(5, 10)
_Draw(5, -10)
_Draw(0, 15)
_Draw(0, -15, 5, 0)
_Draw(0, 15, 5, 0)
_Draw(5, -8, 0, -7)
_Draw(5, 9, -5, 6)
_Draw(0, -15, 5, 0)
_Draw(5, 0)
_Draw(5, 0, -5, 7)
_Draw(5, 0, -5, 8)
MouseUp("Primary")
 
 
Func _Draw($x, $y, $x2 = 0, $y2 = 0)
    $iSpeed = 0
    $pos = MouseGetPos()
    If $x2 Or $y2 Then
      MouseUp("Primary")
      $pos[0] += $x2
      $pos[1] += $y2
    EndIf
    MouseMove($pos[0], $pos[1], 0)
    MouseDown("Primary")
    MouseMove($pos[0] + $x, $pos[1] + $y, $iSpeed)
EndFunc   ;==>_Draw

AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Link to comment
Share on other sites
Morthawt Universalist

Morthawt

Posted
  • Author
Posted

very nice. I always like to experiment and see what ideas I could turn into real programs. I have been going through the help file and noticed a couple things that could be easily used to make certain programs that won't be discussed on this forum. When I think "What could I make with Autoit today?" I really should be asking for what can't I make... the list would be smaller lol.

Free and easy Autoit scripting video tutorials (plus more videos always coming!)

General video tutorials, especially correct and safe TeamSpeak permissions tutorials.

Link to comment
Share on other sites
JohnOne Universalist

JohnOne

Posted
Posted

I've been thinking about making the func to take a string and write it like this, but I just cannot be arsed working out all the formulas for circles, elipses, and what not.

I had a quick look around the internet to see if such formulas exist already for letters, but couldn't find anything, apart from circles and the like here on the forums.

AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...