Sign in to follow this  
Followers 0
Apzo

Fool's day is coming ;)

4 posts in this topic

Hello happy coders.

1st of April si coming. I'm sure you have some kiddy scripts never published yet, it's the moment to share them :)

This one will bug your mouse, Ctrl+q to quit (but don't tell it to your mum ;))

Have fun and publish here your own jokes !

Apzo.

$st = 3
HotKeySet("^q", "Bye")

While 1
    $v = 1
    $pos = MouseGetPos()
    $XP = Random($st*-1, $st-1) 
    $yP = Random($st*-1, $st-1)
    If Random(0,30) > 28 Then
        $Xp = $XP * 2
        $yP = $YP * 2
        $v = $v * 2
    EndIf   
    If $pos[0] + $XP > @DesktopWidth or $pos[0] + $XP < @DesktopWidth Then
        $NPX = $pos[0] - $XP
    Else
        $NPX = $pos[0] + $XP
    EndIf
    If $pos[1] + $YP > @DesktopHeight or $pos[1] + $YP < @DesktopHeight Then
        $NPY = $pos[1] - $YP
    Else
        $NPY = $pos[1] + $YP
    EndIf
    MouseMove($NPX,$NPY,$v)
WEnd

Func Bye()
    Exit
EndFunc

Share this post


Link to post
Share on other sites



What you may find amusing or "joking" can in fact be quite harmful. I'd suggest you find somewhere else to post these types of scripts.


Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Share this post


Link to post
Share on other sites

Lol I think it's a funny idea.. Hope more scripts will be posted in here :)

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  
Followers 0