+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: QB64 Rising (https://qb64phoenix.com/forum/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://qb64phoenix.com/forum/forumdisplay.php?fid=3)
+---- Forum: Programs (https://qb64phoenix.com/forum/forumdisplay.php?fid=7)
+---- Thread: Prank (/showthread.php?tid=2535)
Prank - SquirrelMonkey - 03-21-2024
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
LoopRE: Prank - bplus - 03-21-2024
Yeah, I've got a couple of those with spiders!
it's been awhile since we last heard from you.