Jump to content

Fool's day is coming ;)


Apzo
 Share

Recommended Posts

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
Link to comment
Share on other sites

  • Moderators

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.

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
 Share

  • Recently Browsing   0 members

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