Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Real2Two

Pages: [1] 2
1
Programs / Re: Screenshare
« on: July 09, 2020, 12:52:10 pm »
I tried to use JQuery instead of reload but I gave up.

2
Programs / Screenshare
« on: July 09, 2020, 12:49:51 pm »
Thanks to Ashish for helping me fix a bug which made the website not work.

I made a little screenshare program... it isn't perfect but it works:

host.bas
Code: QB64: [Select]
  2. dd = _OPENHOST("TCP/IP:80")
  3. crlf$ = CHR$(13) + CHR$(10)
  5.     c = _OPENCONNECTION(dd)
  6.     IF c <> 0 THEN
  7.         addr$ = _CONNECTIONADDRESS(c)
  8.         COLOR 15: PRINT "Client connected: ";: COLOR 12: PRINT addr$
  9.  
  10.         GET #c, , x$
  11.  
  12.         a = INSTR(x$, "GET ")
  13.         b = INSTR(a + 5, x$, " ")
  14.         request$ = RIGHT$(LEFT$(x$, b - 1), b - a - 4)
  15.         COLOR 14, 8
  16.         PRINT "request = ";
  17.         COLOR 0, 7: PRINT request$
  18.         IF LEN(request$) = 0 THEN PRINT x$
  19.         COLOR 7, 0
  20.  
  21.         SELECT CASE request$
  22.             CASE "/"
  23.                 ff = FREEFILE
  24.                 OPEN "index.html" FOR BINARY AS #ff
  25.                 a$ = SPACE$(LOF(ff))
  26.                 GET #ff, 1, a$
  27.                 CLOSE ff
  28.                 reply$ = "HTTP/1.0 200 OK" + crlf$ + crlf$
  29.                 reply$ = reply$ + a$
  30.             CASE "/screen"
  31.                 SaveImage _SCREENIMAGE, "screen"
  32.                 ff = FREEFILE
  33.                 OPEN "screen.bmp" FOR BINARY AS #ff
  34.                 a$ = SPACE$(LOF(ff))
  35.                 GET #ff, 1, a$
  36.                 CLOSE ff
  37.                 reply$ = "HTTP/1.0 200 OK" + crlf$
  38.                 reply$ = reply$ + "Content-Length:" + STR$(LEN(a$)) + crlf$
  39.                 reply$ = reply$ + "Content-Type: image/bmp" + crlf$ + crlf$
  40.                 reply$ = reply$ + a$
  41.             CASE ELSE
  42.                 FourOhFour:
  43.                 reply$ = "HTTP/1.0 404 Not found" + crlf$
  44.                 reply$ = reply$ + "Content-Length: 103" + crlf$
  45.                 reply$ = reply$ + "Content-Type: text/html" + crlf$ + crlf$
  46.                 reply$ = reply$ + "<html><head><title>404 Not Found</title></head><body><p>This page does not exist.</p></body></html>" + crlf$ + crlf$
  47.         END SELECT
  48.         PUT #c, , reply$
  49.         CLOSE c
  50.         c = 0
  51.         x$ = ""
  52.         request$ = ""
  53.         reply$ = ""
  54.     END IF
  55.     _LIMIT 30
  57.  
  58. SUB SaveImage (image AS LONG, filename AS STRING)
  59.     bytesperpixel& = _PIXELSIZE(image&)
  60.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
  61.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
  62.     x& = _WIDTH(image&)
  63.     y& = _HEIGHT(image&)
  64.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
  65.     IF bytesperpixel& = 1 THEN
  66.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
  67.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
  68.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
  69.         NEXT
  70.     END IF
  71.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
  72.     lastsource& = _SOURCE
  73.     _SOURCE image&
  74.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
  75.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
  76.         r$ = ""
  77.         FOR px& = 0 TO x& - 1
  78.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
  79.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
  80.         NEXT px&
  81.         d$ = d$ + r$ + padder$
  82.     NEXT py&
  83.     _SOURCE lastsource&
  84.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
  85.     b$ = b$ + d$ ' total file data bytes to create file
  86.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
  87.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
  88.     f& = FREEFILE
  89.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
  90.     OPEN filename$ + ext$ FOR BINARY AS #f&
  91.     PUT #f&, , b$
  92.     CLOSE #f&
  94.  

index.html
Code: Text: [Select]
  1. <html>
  2.     <head>
  3.         <title>Screenshare</title>
  4.         <style>
  5.             body {
  6.                 margin: 0;
  7.             }
  8.         </style>
  9.         <script src="https://ajax.googleapis.com/ajax/libs/jquery/3.4.1/jquery.min.js"></script>
  10.     </head>
  11.     <body>
  12.         <div id="screen">
  13.         </div>
  14.         <script>
  15.             imageLoop()
  16.             function imageLoop() {
  17.                 document.getElementById("screen").innerHTML = `<img id="imgvar" src="/screen">`;
  18.                 setTimeout(function(){
  19.                     location.reload();
  20.                 }, 8000);
  21.             }
  22.         </script>
  23.     </body>
  24. </html>

3
QB64 Discussion / An Orginial Game Idea - Take the idea if you want.
« on: June 01, 2020, 12:20:17 pm »
When I was outside, I decided to try to avoid all the shadows with my shadow. Then, that got me thinking of a game idea.

Maybe, what if there was a RPG type game but there are shadows you aren't allowed to touch with the characters shadow.

The shadow should always stay in 1 direction no matter where the chracter is facing and if the shadow touches another shadow, you lose. Example: https://imgur.com/2W4tv5k

Also, the shadow should be 2 blocks when the chracter is looking all directions but east. When the character is looking in the east direction, the shadow should be 1 block.

It would be cool if someone takes this idea to make a game.

If you question me about more ideas or what I mean about this game idea, I can explain more about it.

If you wonder why I wouldn't make this, I just don't feel like making a game, even though it is a cool orginial idea that I've never seen any game have.

4
Programs / Re: COVID-19 in QB64
« on: June 01, 2020, 09:36:09 am »
Quote from: _vince on June 01, 2020, 08:49:25 am
Nice work, ashishh. I made yours a little more efficient:

Code: QB64: [Select]
  1. 'COVID-19 in QB64
  2. 'By Ashish
  3. '1 Jun, 2020
  4. '
  5. 'WARNING:Use mask. Apply santizer after closing the program.
  6.  
  7. _TITLE "I'm Covid-19"
  8. SCREEN _NEWIMAGE(600, 600, 32)
  9.  
  11.     SUB glutSolidSphere (BYVAL radius AS DOUBLE, BYVAL slices AS LONG, BYVAL stack AS LONG)
  12.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
  13.  
  15.  
  16. DIM SHARED glAllow AS _BYTE
  17. TYPE vec3
  18.     x AS SINGLE
  19.     y AS SINGLE
  20.     z AS SINGLE
  22.  
  23. TYPE COVID19
  24.     POS AS vec3
  25.     r AS SINGLE
  27.  
  28. DIM SHARED virus AS COVID19
  29.  
  30. virus.r = 0.3
  31.  
  32. glAllow = -1
  34.     _LIMIT 1
  36.  
  37. SUB _GL ()
  38.     STATIC init, aspect, rotY
  39.  
  40.     IF glAllow = 0 THEN EXIT SUB
  41.     IF init = 0 THEN
  42.         init = 1
  43.         aspect = _WIDTH / _HEIGHT
  44.         _glViewport 0, 0, _WIDTH, _HEIGHT
  45.     END IF
  46.  
  47.     _glEnable _GL_DEPTH_TEST
  48.     _glEnable _GL_LIGHTING
  49.     _glEnable _GL_LIGHT0
  50.  
  51.     _glLightfv _GL_LIGHT0, _GL_AMBIENT, glVec4(0.0, 0.0, 0.0, 1)
  52.     _glLightfv _GL_LIGHT0, _GL_DIFFUSE, glVec4(0.8, 0.8, 0.8, 1)
  53.     _glLightfv _GL_LIGHT0, _GL_SPECULAR, glVec4(1, 1, 1, 1)
  54.     _glLightfv _GL_LIGHT0, _GL_POSITION, glVec4(0, 0, 10, 1)
  55.  
  56.  
  57.  
  58.     _glMatrixMode _GL_PROJECTION
  59.     _gluPerspective 50, aspect, 0.1, 10
  60.  
  61.     _glMatrixMode _GL_MODELVIEW
  62.     gluLookAt 0, 0, 2, 0, 0, 0, 0, 1, 0
  63.  
  64.  
  65.     _glLineWidth 2.0
  66.     _glPointSize 10.0
  67.  
  68.     _glTranslatef virus.POS.x, virus.POS.y, virus.POS.z
  69.     _glRotatef rotY, 0.5, 1, 0
  70.     rotY = rotY + 1
  71.  
  72.     _glMaterialfv _GL_FRONT_AND_BACK, _GL_DIFFUSE, glVec4(0, 0.9, 0, 1)
  73.  
  74.     glutSolidSphere virus.r, 20, 20
  75.  
  76.     _glDisable _GL_LIGHTING
  77.     _glColor3f 1, 0, 0
  78.     _glBegin _GL_LINES
  79.     'FOR phi = 0.4 TO _PI(2) STEP .5
  80.     'FOR theta = 0.3 TO _PI STEP .5
  81.  
  82.     rr = 0.18
  83.     a = _ASIN(rr / (0.1 + virus.r))
  84.     FOR theta = a TO _PI STEP a
  85.         aa = rr / ((0.1 + virus.r) * SIN(theta))
  86.         FOR phi = aa TO _PI(2) STEP aa
  87.             _glVertex3f virus.r * SIN(theta) * COS(phi), virus.r * SIN(theta) * SIN(phi), virus.r * COS(theta)
  88.             _glVertex3f (0.1 + virus.r) * SIN(theta) * COS(phi), (0.1 + virus.r) * SIN(theta) * SIN(phi), (0.1 + virus.r) * COS(theta)
  89.         NEXT
  90.     NEXT
  91.  
  92.     _glEnd
  93.     _glBegin _GL_POINTS
  94.     FOR theta = a TO _PI STEP a
  95.         aa = rr / ((0.1 + virus.r) * SIN(theta))
  96.         FOR phi = aa TO _PI(2) STEP aa
  97.             _glVertex3f (0.1 + virus.r) * SIN(theta) * COS(phi), (0.1 + virus.r) * SIN(theta) * SIN(phi), (0.1 + virus.r) * COS(theta)
  98.         NEXT
  99.     NEXT
  100.     _glEnd
  101.     _glEnable _GL_LIGHTING
  102.  
  103.  
  105.  
  106.  
  107. FUNCTION glVec4%& (x, y, z, w) 'give the offset of the given vector
  108.     STATIC internal_vec4(3)
  109.     internal_vec4(0) = x
  110.     internal_vec4(1) = y
  111.     internal_vec4(2) = z
  112.     internal_vec4(3) = w
  113.     glVec4%& = _OFFSET(internal_vec4())
  115.  

Why did you evolve the virus?

5
QB64 Discussion / Re: OpenClient trouble
« on: May 29, 2020, 02:16:36 pm »
I'm not too sure but:
1. rpi and computer might not be connecting
2. I feel like this would be spamming OPENCLIENT... I think you should only connect the client once and use GET...

6
QB64 Discussion / Re: Downloading TEXT file from internet
« on: March 20, 2020, 09:02:54 pm »
Check out how this works https://github.com/FellippeHeitor/Snippets/blob/master/scoreboard.bas

7
QB64 Discussion / Re: Downloading TEXT file from internet
« on: March 20, 2020, 09:00:16 pm »
Try doing some get of GET request of QB64, which I remember seeing code with the GET with QB64, but I forgot about it.

8
QB64 Discussion / Re: Flashing text: how to do it?
« on: February 15, 2020, 06:44:02 am »
Worked? _LIMIT was always confusing to me.

SLEEP, _DELAY, _LIMIT... all so different

9
QB64 Discussion / Re: Flashing text: how to do it?
« on: February 15, 2020, 06:41:21 am »
Try this:

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(300, 500, 32)
  2.  
  3. colornum = 0
  4.  
  7. IF colornum = 0 THEN
  8. colornum = 1
  9. COLOR &HFFffffff
  11. colornum = 0
  12. COLOR &HFF000000
  14. LOCATE 10, 1: PRINT "test"
  18. SYSTEM ' Not required.

Also try adjusting _LIMIT

10
QB64 Discussion / Re: Flashing text: how to do it?
« on: February 15, 2020, 06:39:35 am »
Is the screen just black?

11
QB64 Discussion / Re: Flashing text: how to do it?
« on: February 15, 2020, 06:30:45 am »
Something like:

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(300, 500, 32)
  2.  
  3. colornum = 0
  4.  
  7. IF colornum = 0 THEN
  8. colornum = 1
  9. COLOR &HFFffffff
  11. colornum = 0
  12. COLOR &HFF000000
  14. LOCATE 10, 1: PRINT "test"
  18. SYSTEM ' Not required.

12
QB64 Discussion / Re: Flashing text: how to do it?
« on: February 15, 2020, 06:01:33 am »
What do you mean flashing text? Text constantly changing color/black and white?

13
QB64 Discussion / Re: CTRL+v
« on: February 14, 2020, 05:23:38 pm »
Like long time ago. Doesnt say on wiki rip

14
QB64 Discussion / Re: Can someone write a qb64 code for me?
« on: February 12, 2020, 06:51:13 am »
It might be easier to write it in batch but I guess if you use SHELL, you can loop all files (but idk how to do that).

15
QB64 Discussion / Re: Can someone write a qb64 code for me?
« on: February 11, 2020, 02:54:54 pm »
I've never found a way to unzip files with qb64. This might be hard to do.

Pages: [1] 2