15 days for Halloween code challenge

[TempodiBasic]

@Steve
I have take a look and it is very interesting and cool.
I'm waiting for development....

It lasts 6 days....

[TempodiBasic]

Hi Guys
I hope that you are using the lasting time to upset your creations....
and I am doing so.

I remember that it lasts only 4 days to post your contribute...

Good Coding waiting Halloween's results

[SMcNeill]

Hi Guys
I hope that you are using the lasting time to upset your creations....
and I am doing so.

I remember that it lasts only 4 days to post your contribute...

Good Coding waiting Halloween's results

My project got postponed a bit.  The last couple of days haven't given me any time for doing much serious coding as I've been too busy trying to devirus the wife's computer.  Let me tell ya: she's got a talent for finding them!!

At this point, I'm thinking the only sensible thing to do is boot to a fresh Linux system, via CD or USB, then dig and search for her documents and pictures which she wants to save, and copy them to a quarantined drive, before finally fdisking and blanking the whole damn drive and then reinstalling Windows for her.

I dunno how she did it, but Windows is partitioned on a separate drive from her data files (D:\ instead of C:\), and yet she's managed to get BOTH drives infected with 2418 different versions of spyware, adware, malware, viruses, trojans, and keyloggers! 

The woman has a God-given talent, I'm telling ya!!

[TempodiBasic]

Hi Steve
just to give a preview of your project

[TempodiBasic]

Last day to post your ideas and results about Halloween challenge...
see later!

Good Type Type Typing Code
:-)

[FellippeHeitor]

I apologize for not taking part in the challenge, Tempodi. Too much in my hands these days.

I hope more people submit entries! There's till midnight!

[TempodiBasic]

Also I am typing because yesterday  I got into a fight with alphatrasparency image. I am not a great graphic operator (I use LodePaint or GIMP 2). Now I just fight with _limit and flickering :-)
But at the end I think to win these issues!

[Pete]

@ Fell's reply: And by too much on his hands he means diapers. Don't worry Fell, potty training solves that, it just takes 1+ years.

That bat is all I've coded in the past couple of months. I've been up to a lot of political stuff with the mid-term elections here. That's hardly a hobby. It feels more like a fight to keep a decent life for family and their future. Still, I have not regained the interest in programming I used to have. I still have some projects of interest that are more business related, which I may take up next year. Until then, I'm afraid "bats" all for now.

Pete

[TempodiBasic]

Hi Pete
I'm sorry but a virus has modified your code....

Code: QB64: [Select]

1. SCREEN 0
2. RANDOMIZE TIMER
3. 'background
4. COLOR 14
5. CLS , 1
6. RESTORE moon
7. FOR a = 1 TO 13
8.     FOR b = 1 TO 15
9.         READ c
10.         IF c = 1 THEN
11.             LOCATE 6 + a, 10 + b
12.             PRINT CHR$ (64)
13.         END IF
14.     NEXT
15. NEXT
16. COLOR 6, 6
17. LOCATE 25, 1
18. PRINT SPACE$(80);
19. PCOPY 0, 1
20.  
21. a$ = "^^0^^"
22. b$ = "VV0VV"
23.  
24. FOR i = 25 TO 1 STEP -1
25.     IF i = 2 THEN i = 25
26.     IF i = 25 THEN col = INT(RND * 75) + 1
27.     PCOPY 1, 0
28.     COLOR 15, 1
29.     LOCATE 22, i: PRINT " Ü ";
30.     LOCATE 23, i: PRINT "ÛìÛ";
31.     LOCATE 24, i: PRINT "ÛÛÛ";
32.     COLOR 7, 1
33.     LOCATE i, col
34.     PRINT a$;
35.     _DELAY .2
36.     LOCATE , col: PRINT b$;
37.     _DELAY .1
38.     COLOR 15, 1
39.     LOCATE 22, i: PRINT "   ";
40.     LOCATE 23, i: PRINT "   ";
41.     LOCATE 24, i: PRINT "   ";
42.     COLOR 7, 1
43.  
44.     LOCATE , col: PRINT SPACE$(5)
45.  
46. NEXT
47. 'matrix 15x13 for moon
48. moon:
49. DATA 0,0,0,0,1,1,1,1,1,1,1,1,1,0,0
50. DATA 0,0,0,1,1,1,1,1,1,1,1,1,1,1,0
51. DATA 0,0,1,1,1,1,1,1,1,1,0,0,1,1,0
52. DATA 0,0,1,1,1,1,1,1,1,0,0,0,1,1,1
53. DATA 0,1,1,1,1,1,1,0,0,0,0,0,0,1,1
54. DATA 1,1,1,1,1,1,1,0,0,0,0,0,0,0,0
55. DATA 1,1,1,1,1,1,0,0,0,0,0,0,0,0,0
56. DATA 0,1,1,1,1,1,0,0,0,0,0,0,0,0,0
57. DATA 0,0,1,1,1,1,1,0,0,0,0,0,0,0,0
58. DATA 0,0,1,1,1,1,1,1,0,0,0,0,0,0,0
59. DATA 0,0,0,1,1,1,1,1,1,0,0,0,0,1,1
60. DATA 0,0,0,0,1,1,1,1,1,1,1,1,1,1,0
61. DATA 0,0,0,0,0,1,1,1,1,1,1,1,1,0,0
62.  

and I got this screenshot attached

I'm sorry, it seems that AVAST do not avast  (in my local dialect avast = it is not enough) !

[SMcNeill]

I'm just a guy easily distracted by other........   LOOK!  BOOBIES!!!

... Now, wait a moment...  Where was I?  OH, right!  I was saying I was easy distrac...

DID YOU SEE THAT CAT VIDEO??  No??  Well, nevermind.  What was I talking about?  Oh yeah!  My QBDbas...

Sorry.  I had to let the dog go pee...

But, as I was saying, "Have you seen the changes to CONST?  Or the bug fixes I was wooooorrr.....

BOOBIES!!  AGAIN!!

You know, I wouldn't have these issues if my wife wouldn't walk around topless half the tiiiiiimmmmeee.....

HI honey!  You know, I just love it when you lean over my shoulder and look at what I'm typing, while you're dressed like thaaaa....

....umm.....ummm..... 

Sorry guys.  I gotta go.  The wife needs my help in the bedroom for a while..  We can talk about ....  whatever it was....

Later.

[Pete]

Sorry guys.  I gotta go.  The wife needs my help in the bedroom for a while..  We can talk about ....  whatever it was....

Later.

Yeah, she needs you to go on a battery run!

[STxAxTIC]

Hahaha, this why I love Pete... always beats me to the zing and with a better one no less...

[bplus]

Oh rats! another mod from Bplus:

Code: QB64: [Select]

1. _TITLE "Fake sphere mapping mod 2  2018-10-31 B+"
2.  
3. CONST WW = 800
4. CONST WH = 600
5. SCREEN _NEWIMAGE(WW, WH, 32)
6.  
7. map& = _NEWIMAGE(WW, WH, 32)
8. _DEST map&
9. LINE (0, 0)-(WW, WH), _RGB32(200, 100, 0), BF
10. FOR i = 0 TO WW STEP WW / 12
11.     LINE (i, 0)-(i + 1, WH), _RGB32(0, 0, 0), BF
12. NEXT
13.  
14. k~& = _RGB32(255, 255, 0)
15. ftri map&, WW / 2 - 100, WH / 3, WW / 2 - 100 - 25, WH / 3 + 50, WW / 2 - 100 + 25, WH / 3 + 50, k~&
16. ftri map&, WW / 2 + 100, WH / 3, WW / 2 + 100 - 25, WH / 3 + 50, WW / 2 + 100 + 25, WH / 3 + 50, k~&
17. ftri map&, WW / 2 - 25, WH / 3 + 100, WW / 2, WH / 3 + 150, WW / 2 + 25, WH / 3 + 100, k~&
18.  
19. ftri map&, WW / 2 - 50, WH / 3 + 125, WW / 2 - 55, WH / 3 + 130, WW / 2 - 200, WH / 3 + 80, k~&
20. ftri map&, WW / 2 + 50, WH / 3 + 125, WW / 2 + 55, WH / 3 + 130, WW / 2 + 200, WH / 3 + 80, k~&
21.  
22. ftri map&, WW / 2 - 60, WH / 3 + 140, WW / 2 - 60, WH / 3 + 145, WW / 2 - 220, WH / 3 + 140, k~&
23. ftri map&, WW / 2 + 60, WH / 3 + 140, WW / 2 + 60, WH / 3 + 145, WW / 2 + 220, WH / 3 + 140, k~&
24.  
25. ftri map&, WW / 2 - 60, WH / 3 + 160, WW / 2 - 55, WH / 3 + 165, WW / 2 - 220, WH / 3 + 210, k~&
26. ftri map&, WW / 2 + 60, WH / 3 + 160, WW / 2 + 55, WH / 3 + 165, WW / 2 + 220, WH / 3 + 210, k~&
27.  
28. _DEST 0
29. _PUTIMAGE , map&
30.  
31. r = WH / 3
32. xc = WW / 2
33. yc = WH / 2
34. xo = 0
35. COLOR , _RGB32(40, 0, 68)
36. DO
37.     CLS
38.     FOR y = -r TO r
39.         x1 = SQR(r * r - y * y)
40.         tv = (_ASIN(y / r) + 1.5) / 3
41.         FOR x = -x1 + 1 TO x1
42.             tu = (_ASIN(x / x1) + 1.5) / 6
43.             _SOURCE map&
44.             pc~& = POINT((xo + tu * WW) MOD WW, tv * WH)
45.             _DEST 0
46.             PSET (x + xc, y + yc), pc~&
47.         NEXT x
48.     NEXT y
49.     xo = xo + 1
50.     xo = xo MOD WW
51.     _DISPLAY
52.     _LIMIT 60
53. LOOP
54.  
55. ' found at [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]:    http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=14425.0
56. SUB ftri (d&, x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
57.     a& = _NEWIMAGE(1, 1, 32)
58.     _DEST a&
59.     PSET (0, 0), K
60.     _DEST d&
61.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
62.     _FREEIMAGE a& '<<< this is important!
63. END SUB
64.  
65.  

[Pete]

Hahaha, this why I love Pete... always beats me to the zing and with a better one no less...

Thanks, but jokes like these have had some people considering me to be a misogynist, which is weird, because I have spent a lot of money in my adult life on battered women. They're just better deep fried. I mean who wouldn't prefer a well-"bread" woman over a boneless one, anyway?

@BPlus - Nice basketball, but why does it have a cat's face on it?

[bplus]

Some bats ate all the pumpkins.