Prank

[SquirrelMonkey]

Prank your co-worker with this program.

Code: (Select All)

Screen _ScreenImage
_FullScreen
Do
    If InKey$ <> "" Then GoTo sa
Loop
sa:
Screen _NewImage(1920, 1080, 256)
_FullScreen
_MouseHide
Do
    For e = 10 To 100
        For c = 1 To 10
            For w = 0 To 1920 Step e
                For i = 0 To 1080 Step 2
                    x = Sin((i / c) * 3.1415927)
                    PSet (w + i, (x * w) + 20), 10
                    PSet (w + i, 1080 - (x * w) + 20), 12
                    PSet (i, (x * w) + 20), 10
                    PSet (i, 1080 - (x * w) + 20), 12
                    PSet (1920 - i, (x * w) + 20), 11
                    PSet (1920 - i, 1080 - (x * w) + 20), 15
                    PSet (1920 - i - w, (x * w) + 20), 11
                    PSet (1920 - i - w, 1080 - (x * w) + 20), 15
                    If InKey$ <> "" Then System
                Next i
            Next w
            Line (500, 0)-(502, 1080), _RGB(17, 249, 139), BF
            Line (550, 0)-(550, 1080), _RGB(17, 249, 139), BF
            _Display
            Line (0, 0)-(1920, 1080), _RGB(0, 0, 0), BF
            '_Delay .00002
        Next c
    Next e
Loop

[bplus]

Yeah, I've got a couple of those with spiders!

it's been awhile since we last heard from you.