Jump to content
Sign in to follow this  
Apzo

Fool's day is coming ;)

Recommended Posts

Apzo

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
SmOke_N

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
newbiescripter

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  

×