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 - MasterGy

Pages: 1 2 3 [4] 5 6 ... 22

QB64 Discussion / Re: _MAPTRIANGLE 3D ----> 2D ?

« on: February 21, 2022, 04:49:37 pm »

Actually, by displaying 2 points, it could be counted back to make it work if I use 1 proportionality multiplier. However, if the proportionality factor changes, if there are elements in the formula for calculating the 3D point that do not work as easily as "FLatX = X / Z", I can easily run into chaos.
I want to make a simple 3d editor where I have the ability to place, stretch, and rotate rectangles in space and put textures on it. (I want a horror-fps game. Squeaking door, crying baby, scary castle, ghosts :)
The games so far have been made so I started something and added what I figured out on the fly. It was never an end in itself. It just became something. Unfortunately, if you don’t have a plan in the beginning, things can happen that need to fundamentally change something. So if the system isn’t good for the idea in the first place, it’s a lot of time and brainstorming.
I would like to start building a large castle first, but drawing it in a projection diagram in a booklet would be my brain.
If I can't find a solution to this, I'll calculate the 3d value myself and use _MAPTRIANGLE 2d. The only inconvenience is that the textures have to be displayed in order.
Funny because when I first came across qb64 and saw the _maptriangle statement, I was so happy to be able to drag an image onto the screen at good speed. I didn't know anything about qb64, only what I knew about qb 7.1. I was glad that my old desire, which I could not realize during the dos, would now be my chance. with _maptriangle 2d. I was inattentive because I immediately jumped in to make "Philip and the Resistants." And that required the "FlatX = X / Z" thing in the program and the sorting, which significantly reduced the maximum number of textures because a lot had to be counted. And then I came happily to show it here (I signed up then) and slapped a huge one on my forehead because I didn’t understand when someone asked me here on the forum, I don’t even remember ... “why did you use _maptriangle 2d”? :) I didn't know that _maptriangle can work directly in 3d :)
So the solution will be to turn back to that solution.
Thank you for your answers !

Programs / Mover Bricks 2D and 3D

« on: February 21, 2022, 03:46:47 pm »

Hello !

The game is complete, it does not use external files. At start-up, the difficulty level can be adjusted (1-5).
I could still increase the design, but it wasn’t my goal with all this to make a design game, so I won’t deal with it anymore.
I was wondering how many of you make games. You make very good 2D games. I especially like walking games.A small change can be made from these games into a 3D game.

The program would ultimately be a demonstration. At the end of the source code, those few lines perform the 3D calculations.
You need a 3D coordinate system, you need to include many points (many points form textures), and you need a point in this space who is an "observer." This is the most important ! The observer! Who looks at the other points. The observer has 5 data. X, Y, Z coordinates and direction to look. This is the angle of 2 planes perpendicular to each other. So X, Y, Z, ALPHA, BETA Knowing this, you can calculate the projected position of all the points on the screen, and _maptriangle can come.
I was thinking of a 3d engine that anyone could easily try based on their own ideas, but since the whole thing would be about 5 lines, I figured out instead that I would try to describe it as simply as possible to make it understandable.
A short, perfectly understandable writing about this. Put 2d theory and 3D projection on one level! It's a lot simpler than it looks.
Next time, I’ll check to see if a lot of people get to deal with it.

Code: QB64: [Select]

DIM SHARED size_block, size_wall, me(9), cam(9), monx, mony, mb_c, map_x, map_y, crash_test_disable, shdw_c, speed_min, speed_max, draw_2d_map, zoom_3d
'----------------- settings ---------------------------------------------------------------------------------------------
 
 
PRINT "MOVER BRICK game  (MasterGy 2022)"
PRINT "Choise level !  Press key 1,2,3,4,5"
PRINT "(1-no move bricks 2-easy 3-medium 4-high 5-extreme)"
DO: _LIMIT 10: x = ASC(RIGHT$(" " + INKEY$, 1)): IF x = 27 THEN SYSTEM
LEVEL = x - 49: LOOP WHILE LEVEL < 0 OR LEVEL > 4
'LEVEL = 3
 
map_x = 30 'size map X
map_y = 30 'size map Y
money_c = 10 'money number what you find
mb_c = 90 'maximum mover bricks in the map
me_speed = .12 'my speed
mouse_sens = 1
 
 
 
'------------------------------------------------------ advanced settings -------------------------------------------------------------
add_wall_c = 4 'cross road-walls inside map
walk_limit = 8 'walk limit outside map
tile_marg = 5 'tiles outside near wall
me(5) = .5 'the size of my extent relative to a brick (1=standard size)
cheat_keys = 0 'enable cheat keys
monx = 800: mony = INT(monx / _DESKTOPWIDTH * _DESKTOPHEIGHT)
size_wall = .9 'size percent size_block (1=standard)
b_colors = 12 'brick colors
shdw_c = 50 'mipmap
speed_max = .11 * LEVEL / 4 'bricks maximum speed
speed_min = speed_max * .7 'bricks minimum speed
zoom_2d = .8
'----------------------------------------------------------------------------------------
 
'ARRAYS
'MB array 0-ena/disa 1,2-XYlocation 3-direction 4-stopcounter 5-colorindex 6-relativespeed 7-levelratiospeed
'MAP array 0-empty 1-wall 2-wall-crossroad 3-money
'ME/CAM array  '0,1,2-X,Y,Z   3=angXY 4=angXZ    5'XY dimension
 
DIM SHARED temp_color(9) AS _INTEGER64
CONST pip180 = 3.141592 / 180
RANDOMIZE TIMER: _AUTODISPLAY
 
'ME install
me(0) = -1: me(1) = -1 'my start locate
size = 100: temp = _NEWIMAGE(size, size, 32): _DEST temp: CLS 0, _RGB32(10, 10, 10): CIRCLE (size / 2, size / 2), size / 2 * size_wall, _RGB32(200, 200, 200)
PAINT (size / 2, size / 2), _RGB32(200, 200, 200): _CLEARCOLOR _RGB32(10, 10, 10): me_text = _COPYIMAGE(temp, 33): _FREEIMAGE temp
 
'shadows
DIM SHARED shdw(16383) AS _BYTE: FOR t = 0 TO 16383
    ashdw = INT((shdw_c - 1) * 0.0006 * t): IF ashdw > shdw_c - 1 THEN ashdw = shdw_c - 1
    shdw(t) = ashdw
NEXT t
 
 
'directions
DIM d(3, 1) AS _BYTE: d(3, 1) = -1: d(0, 0) = 1: d(1, 1) = 1: d(2, 0) = -1: d(3, 1) = -1
 
DIM SHARED map(map_x - 1, map_y - 1) AS _UNSIGNED _BYTE, mb(mb_c - 1, 9)
 
'make colors
DIM SHARED b_colors(b_colors - 1) AS _INTEGER64: FOR t = 1 TO b_colors - 1: b_colors(t) = _RGB32(30 + 180 * RND(1), 30 + 180 * RND(1), 30 + 180 * RND(1)): NEXT t
b_colors(0) = _RGB32(150, 20, 20) 'wall color
 
'make textures
marg = .12: tmax = 40: tmin = 40
DIM SHARED text_mb(mb_c - 1, shdw_c - 1), text_wall(shdw_c - 1)
FOR t = 0 TO shdw_c - 1: size = INT(tmax - (tmax - tmin) / (shdw_c - 1) * t): dark = 1 - 1 / (shdw_c - 1) * t
    stand_temp = _NEWIMAGE(size, size, 32): _DEST stand_temp: CLS , _RGB32(50, 50, 50) 'frame color
    LINE (size * marg, size * marg)-(size - size * marg, size - size * marg), _RGB32(180, 180, 180), BF: _SOURCE stand_temp
    noise = 5 + 5 * (1 / (shdw_c - 1) * t) ^ 1.2 'add noise far tiles
    FOR tx = 0 TO size - 1: FOR ty = 0 TO size - 1: temp_color(0) = POINT(tx, ty)
            PSET (tx, ty), _RGB32(_RED32(temp_color(0)) - noise / 2 + RND(1) * noise, _GREEN32(temp_color(0)) - noise / 2 * RND(1) * noise, _BLUE32(temp_color(0)) - noise / 2 + RND(1) * noise)
    NEXT ty, tx
 
    'make wall
    FOR t2 = 0 TO b_colors - 1: temp = _COPYIMAGE(stand_temp, 32): _DEST temp
        IF t2 = 0 THEN LINE (0, 0)-(size, size), _RGB32(50, 50, 50): LINE (size, 0)-(0, size), _RGB32(50, 50, 50) 'no mover wall
        trans = _NEWIMAGE(5, 5, 32): _DEST trans: CLS , _RGBA32(_RED32(b_colors(t2)) * dark, _GREEN32(b_colors(t2)) * dark, _BLUE32(b_colors(t2)) * dark, 150)
        _SOURCE trans: _DEST temp: _BLEND temp: _PUTIMAGE: _FREEIMAGE trans 'tile coloring
        trans = _NEWIMAGE(5, 5, 32): _DEST trans: CLS , _RGBA32(0, 0, 0, (1 - dark) * 255)
        _SOURCE trans: _DEST temp: _PUTIMAGE: _FREEIMAGE trans 'tile darking
    text_mb(t2, t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t2: _FREEIMAGE stand_temp
NEXT t
 
 
'skys_color
DIM text_sky(999)
FOR t = 0 TO 499
    temp = _NEWIMAGE(3, 3, 32): _DEST temp: CLS , _RGB32(20, 20, 255 / 499 * t): text_sky(t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp
NEXT t
 
 
'make walls
FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: map(tx, ty) = ABS(tx = 0 OR ty = 0 OR tx = map_x - 1 OR ty = map_y - 1): NEXT ty, tx
 
'add walls within the framework
add_wall_p(0) = .8: add_wall_p(1) = .8: FOR t = 1 TO add_wall_c
    DO: FOR t2 = 0 TO 3: p(t2) = map_x * add_wall_p(t2 MOD 2) * RND(1) + map_x * (1 - add_wall_p(t2 MOD 2)) / 2: NEXT t2
    dis = SQR((p(0) - p(2)) ^ 2 + (p(1) - p(3)) ^ 2): LOOP WHILE dis < 5: dis = dis * .7
FOR t2 = 0 TO dis: map(INT(p(0) + (p(2) - p(0)) / dis * t2), INT(p(1) + (p(3) - p(1)) / dis * t2)) = 2: NEXT t2, t
 
'money install
DIM SHARED text_money(9)
FOR t = 0 TO 9: temp = _NEWIMAGE(8, 16, 32): _DEST temp: COLOR _RGB32(256 * RND(1), 256 * RND(1), 256 * RND(1)): PRINT "$";
_CLEARCOLOR _RGB32(0, 0, 0): text_money(t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t
DIM money(money_c - 1, 9)
FOR t = 0 TO money_c - 1: DO: money(t, 0) = INT(1 + (map_x - 2) * RND(1)): money(t, 1) = INT(1 + (map_y - 2) * RND(1))
LOOP WHILE map(money(t, 0), money(t, 1)): map(money(t, 0), money(t, 1)) = 3: NEXT t
 
'make mover bricks
FOR t = 0 TO mb_c - 1: agent_timer = TIMER
    DO: mb(t, 1) = INT(1 + (map_x - 2) * RND(1)): mb(t, 2) = INT(1 + (map_y - 2) * RND(1)): mb(t, 3) = INT(4 * RND(1)): busy = 0
        FOR tx = -1 TO 1: FOR ty = -1 TO 1: what = map(tx + mb(t, 1), ty + mb(t, 2)): busy = busy OR ABS(what = 2 OR what = 3): NEXT ty, tx
        FOR t2 = 0 TO mb_c - 1: IF mb(t2, 0) = 0 OR busy THEN _CONTINUE
        busy = busy OR (SQR((mb(t2, 1) - mb(t, 1)) ^ 2 + (mb(t2, 2) - mb(t, 2)) ^ 2) < 2): NEXT t2: IF ABS(agent_timer - TIMER) > 2 THEN EXIT FOR
    LOOP WHILE busy: mb(t, 0) = 1: mb(t, 5) = 1 + INT((b_colors - 1) * RND(1))
    mb(t, 7) = RND(1)
NEXT t
 
'entri brick to the area
DO: t = INT(2 * RND(1)): posx = INT((1 + (map_x - 2) * RND(1)) * t) + INT(2 * RND(1)) * (map_x - 1) * ABS(t = 0)
    posy = INT((1 + (map_y - 2) * RND(1)) * (t XOR 1)) + INT(2 * RND(1)) * (map_x - 1) * ABS((t XOR 1) = 0)
    busy = 0: FOR t = 0 TO mb_c - 1: busy = busy OR SQR((posx - mb(t, 1)) ^ 2 + (posy - mb(t, 2)) ^ 2) < 1.5: NEXT t
LOOP WHILE busy: map(posx, posy) = 0
 
 
 
mon = _NEWIMAGE(monx, mony, 32): SCREEN mon: _DEST mon: _DISPLAYORDER _HARDWARE , _SOFTWARE: _FULLSCREEN: _MOUSEHIDE
COLOR , _RGBA32(0, 0, 0, 0)
 
 
 
 
limit_cycle = 1
 
'------------------------------------------- BOSS CYCLE
DO: IF limit_cycle THEN _LIMIT 30
 
    'draw non mover blocks
    FOR tx = -tile_marg TO map_x - 1 + tile_marg: FOR ty = -tile_marg TO map_y - 1 + tile_marg
            IF (tx < 0 OR tx > map_x - 1 OR ty < 0 OR ty > map_y - 1) = 0 THEN IF map(tx, ty) = 1 OR map(tx, ty) = 2 THEN draw_brick_3d tx, ty, 0, 1
            tile_3d tx, ty
    NEXT ty, tx
 
    'draw mover blocks
    FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) THEN draw_brick_3d mb(amb, 1), mb(amb, 2), mb(amb, 5), 1
    NEXT amb
 
    'draw me
    IF (dead = 0 OR (dead AND INT(2 * RND(1)))) AND draw_2d_map THEN draw_brick_3d me(0), me(1), mb(0, 0), me(5)
 
    'draw money
    IF storyline = 0 THEN
        FOR t = 0 TO money_c - 1: IF money(t, 2) = 0 THEN money_3d money(t, 0), money(t, 1)
        NEXT t
    END IF
 
    'moving mover bricks
    FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
        p(0) = CINT(mb(amb, 1) + d(mb(amb, 3), 0) * (mb(amb, 6) + .5))
        p(1) = CINT(mb(amb, 2) + d(mb(amb, 3), 1) * (mb(amb, 6) + .5)): dontgo = 0: letsneg = 0
 
        FOR t = 0 TO mb_c - 1: IF mb(t, 0) = 0 OR t = amb OR dontgo THEN _CONTINUE
            vr = mb(t, 3) MOD 2: vr2 = vr = (mb(amb, 3) MOD 2)
            letsneg = letsneg OR (((ABS(mb(t, 1 + vr) - mb(amb, 1 + vr)) < 1) AND (mb(t, 1 + (vr XOR 1))) = (mb(amb, 1 + (vr XOR 1)))) AND vr2)
        dontgo = dontgo OR ((ABS(p(0) - mb(t, 1)) < 1 AND ABS(p(1) - mb(t, 2)) < 1) AND (vr2 = 0)): NEXT t
 
        mb(amb, 3) = (mb(amb, 3) + ABS(((letsneg) OR map(p(0), p(1)) = 2 OR map(p(0), p(1)) = 3) OR (p(0) = 0 OR p(0) = map_x - 1 OR p(1) = 0 OR p(1) = map_y - 1)) * 2) MOD 4
        mb(amb, 4) = (mb(amb, 4) + ABS(dontgo)) * ABS(dontgo)
        mb(amb, 3) = (mb(amb, 3) + 2 * ABS((mb(amb, 4) > 5 / mb(amb, 6)) AND dontgo)) MOD 4
        mb(amb, 1) = mb(amb, 1) + d(mb(amb, 3), 0) * mb(amb, 6) * ABS(dontgo = 0)
        mb(amb, 2) = mb(amb, 2) + d(mb(amb, 3), 1) * mb(amb, 6) * ABS(dontgo = 0)
    NEXT amb
 
 
    'control me
    mousex = 0: mousey = 0: mw = 0: WHILE _MOUSEINPUT: mousex = mousex + _MOUSEMOVEMENTX: mousey = mousey + _MOUSEMOVEMENTY: mw = mw + _MOUSEWHEEL: WEND
    k_left = _KEYDOWN(19200) OR _KEYDOWN(ASC("a")): k_right = _KEYDOWN(19712) OR _KEYDOWN(ASC("d"))
    k_up = _KEYDOWN(18432) OR _KEYDOWN(ASC("w")) OR _MOUSEBUTTON(1): k_down = _KEYDOWN(20480) OR _KEYDOWN(ASC("s"))
    mouse_act_sens = mouse_sens * (1 - (zoom_3d * .9) * ABS(draw_2d_map = 0))
    me(3) = me(3) + mousex * mouse_act_sens - INT(me(3) / 360) * 360
    me(4) = me(4) + mousey * mouse_act_sens
    IF ABS(me(4)) > 80 THEN me(4) = 80 * SGN(me(4))
    d2m_ang = INT((me(3) + 45) / 90) * 90
    zoom_change = (mw / 30 + (-_KEYDOWN(ASC("-")) + _KEYDOWN(ASC("+"))) / 50)
    zoom_2d = zoom_2d + zoom_change * draw_2d_map
    IF zoom_2d < 0 THEN zoom_2d = 0 ELSE IF zoom_2d > 1 THEN zoom_2d = 1
    zoom_3d = zoom_3d + zoom_change * (draw_2d_map = 0)
    IF zoom_3d < 0 THEN zoom_3d = 0 ELSE IF zoom_3d > 1 THEN zoom_3d = 1
 
    IF dead = 0 THEN
        IF crash_test(me(0), me(1)) THEN
            try_speed = speed_max * 1.1
            try = -1: FOR atry = 0 TO 3
                IF crash_test(me(0) + d(atry, 0) * try_speed, me(1) + d(atry, 1) * try_speed) = 0 THEN try = atry: EXIT FOR
            NEXT atry: IF try = -1 THEN dead = 1
            IF dead = 0 THEN me(0) = me(0) + d(atry, 0) * try_speed: me(1) = me(1) + d(atry, 1) * try_speed
        END IF
        try_ang_sc = 85
        FOR try_ang = 0 TO try_ang_sc STEP 6: FOR try_ang_dir = 0 TO 1
                go = me_speed * ABS((k_left + k_right + k_up + k_down) = -1) * (1 / try_ang_sc * (try_ang_sc - try_ang)) ^ .7
                go_ang = k_down * 180 + 90 * (k_left - k_right) + (me(3) + (try_ang_dir * 2 - 1) * try_ang) * ABS(draw_2d_map = 0) + draw_2d_map * d2m_ang
                go_x = SIN(go_ang * pip180) * go + me(0): go_y = -COS(go_ang * pip180) * go + me(1)
                walk_limit_ok = (go_x < -walk_limit OR go_y < -walk_limit OR go_x > map_x - 1 + walk_limit OR go_y > map_y - 1 + walk_limit) = 0
                IF crash_test(go_x, go_y) = 0 AND walk_limit_ok THEN me(0) = go_x: me(1) = go_y: GOTO ok
        NEXT try_ang_dir, try_ang
        ok:
    END IF
 
 
    'cheats
    inkey2$ = INKEY$: IF inkey2$ = CHR$(27) THEN SYSTEM
    IF cheat_keys THEN
        IF inkey2$ = "r" THEN RUN
        IF inkey2$ = "l" THEN limit_cycle = limit_cycle XOR 1
        IF inkey2$ = "c" THEN crash_test_disable = crash_test_disable XOR 1
        IF inkey2$ = "o" THEN dead = 1 'reborn
        IF inkey2$ = "p" THEN dead = 0 'dead
    END IF
 
    'sky draw
    IF draw_2d_map = 0 THEN
        sky_flash = sky_flash - 0.02: IF sky_flash < 0 THEN sky_flash = 0
        IF sky_flash > 1 THEN sky_flash = 1
        IF dead THEN sky_ind = 490 * SGN(INT(TIMER * 50) AND 1) ELSE sky_ind = INT(490 * sky_flash)
        asky = text_sky(sky_ind)
        _MAPTRIANGLE (0, 0)-(0, 5)-(5, 0), asky TO(-16000, -16000, -10000)-(16000, -16000, -10000)-(-16000, 16000, -10000)
        _MAPTRIANGLE (0, 0)-(0, 5)-(5, 0), asky TO(16000, 16000, -10000)-(16000, -16000, -10000)-(-16000, 16000, -10000)
    END IF
 
    _DISPLAY: CLS
 
    'STORYLINE
    IF storyline = 0 THEN
        FOR t = 0 TO money_c - 1
            find_money = SQR((me(0) - money(t, 0)) ^ 2 + (me(1) - money(t, 1)) ^ 2) < 1.1 AND (money(t, 2) = 0)
            IF find_money THEN money_sum = money_sum + 1: map(money(t, 0), money(t, 1)) = 0: money(t, 2) = 1: sky_flash = 1: set_speed_bricks 1 / money_c * money_sum
        NEXT t
        storyline = storyline + ABS(money_sum = money_c)
    END IF
    IF storyline = 1 AND (me(0) > 0 AND me(0) < map_x - 1 AND me(1) > 0 AND me(1) < map_y - 1) = 0 THEN storyline = 2
 
    SELECT CASE storyline
        CASE 0: s$ = "GET THE MONEY !   " + STR$(money_c) + " /" + STR$(money_sum)
        CASE 1: s$ = "ESCAPE OUTSIDE THE WALL !"
        CASE 2: s$ = "Mission compeleted ! "
    END SELECT
    IF dead THEN s$ = "you dead ,mission incompleted !"
    COLOR _RGB32(255 * RND(1), 255 * RND(1), 255 * RND(1)): LOCATE 3, (monx / 8 - LEN(s$)) / 2: PRINT s$
    COLOR _RGB32(255, 255, 255): LOCATE mony / 16 - 2, 2
 
    IF draw_2d_map THEN
        PRINT "Switch 2D to 3D- space-key      control: arrows            2D zoom: mouse wheel ("; INT(zoom_2d * 100); "%)"
    ELSE
        PRINT "Switch 3D to 2D- space-key      control: WASD + mouse      3D zoom: mouse wheel ("; INT(zoom_3d * 100); "%)"
    END IF
 
 
    'camera fresh
    IF inkey2$ = " " THEN draw_2d_map = draw_2d_map XOR 1: IF draw_2d_map = 0 THEN me(3) = d2m_ang: me(4) = 0: zoom_3d = 0
 
    IF draw_2d_map THEN
        cam(0) = cam(0) + (me(0) - cam(0)) * 0.1
        cam(1) = cam(1) + (me(1) - cam(1)) * 0.1
        cam(2) = cam(2) + ((1.1 + (1 - zoom_2d) * 40) - cam(2)) * 0.1
        cam(3) = cam(3) + (d2m_ang - cam(3)) * 0.5
        cam(4) = cam(4) + (90 - cam(4)) * 0.1
    ELSE
        cam(0) = me(0)
        cam(1) = me(1)
        cam(3) = me(3)
        cam(4) = cam(4) + (me(4) - cam(4)) * (0.05 + 0.45 * ABS(ABS(me(2) - cam(2)) < .5))
        cam(2) = cam(2) + (0.3 - cam(2)) * 0.1
    END IF
 
LOOP
 
SUB rotate_2d (x, y, ang): x1 = -(x * COS(ang) - y * SIN(ang)): y1 = -(x * SIN(ang) + y * COS(ang)): x = x1: y = y1: END SUB
 
FUNCTION crash_test (x, y): IF crash_test_disable THEN EXIT FUNCTION
    FOR myp = 0 TO 3: mx = x + me(5) * .5 * (SGN(myp AND 1) * 2 - 1): my = y + me(5) * .5 * (SGN(myp AND 2) * 2 - 1)
        FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
            IF mx > mb(amb, 1) - .5 AND mx < mb(amb, 1) + .5 AND my > mb(amb, 2) - .5 AND my < mb(amb, 2) + .5 THEN crash_test = 1: EXIT FUNCTION
        NEXT amb
        FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: IF map(tx, ty) = 0 THEN _CONTINUE
                IF mx > tx - .5 AND mx < tx + .5 AND my > ty - .5 AND my < ty + .5 THEN crash_test = 1: EXIT FUNCTION
    NEXT ty, tx, myp
END FUNCTION
 
SUB point_3d (x, y, z)
    x = x - cam(0): y = y - cam(2): z = z - cam(1): rotate_2d x, z, -(cam(3) + 180) * pip180: rotate_2d y, z, (cam(4) + 180) * pip180
    x = x * 100: y = y * 100: z = z * (120 - ABS(draw_2d_map = 0) * zoom_3d * 115)
END SUB
 
SUB draw_brick_3d (x, y, text, relsize)
    DIM p(3, 2), pc(7, 2), sq(3) AS _UNSIGNED _BYTE
    size = size_wall * .5 * relsize
    FOR t = 0 TO 7
        pc(t, 0) = size * (SGN(t AND 1) * 2 - 1) + x: pc(t, 2) = size * (SGN(t AND 2) * 2 - 1) + y: pc(t, 1) = size * SGN(t AND 4) * 2
        point_3d pc(t, 0), pc(t, 1), pc(t, 2)
    NEXT t
 
    FOR t = 0 TO 4
        FOR t2 = 0 TO 3: side = VAL(MID$("-0246-2367-3175-1054-4567", 2 + t * 5 + t2, 1))
        FOR t3 = 0 TO 2: p(t2, t3) = pc(side, t3): NEXT t3, t2
        draw_square p(), text_mb(text, shdw(ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4)) * (draw_2d_map XOR 1)))
    NEXT t
END SUB
 
SUB tile_3d (x, y)
    DIM p(3, 2)
    FOR t = 0 TO 3
        p(t, 0) = x + (SGN(t AND 1) * 2 - 1) * .5: p(t, 2) = y + (SGN(t AND 2) * 2 - 1) * .5: p(t, 1) = 0
        point_3d p(t, 0), p(t, 1), p(t, 2)
    NEXT t
    IF draw_2d_map THEN shdw = 1000 ELSE shdw = ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4))
    draw_square p(), text_mb(0, shdw(shdw))
 
END SUB
 
SUB money_3d (x, y)
    DIM p(3, 2)
    FOR t = 0 TO 3
        ang = (TIMER * 2 + _PI * (t AND 1) + x + y) * (((x + y) AND 1) * 2 - 1)
        p(t, 0) = SIN(ang) * .5: p(t, 2) = COS(ang) * .5: p(t, 1) = SGN(t AND 2)
        IF draw_2d_map THEN SWAP p(t, 1), p(t, 2): p(t, 1) = p(t, 1) + .5: p(t, 2) = p(t, 2) - .5
        p(t, 0) = p(t, 0) + x: p(t, 2) = p(t, 2) + y
        point_3d p(t, 0), p(t, 1), p(t, 2)
    NEXT t
    draw_square p(), text_money(INT(10 * RND(1)))
END SUB
 
SUB draw_square (p(), text)
    wtext = _WIDTH(text) - 1: htext = _HEIGHT(text) - 1
    _MAPTRIANGLE (0, 0)-(wtext, 0)-(0, htext), text TO(p(0, 0), p(0, 1), p(0, 2))-(p(1, 0), p(1, 1), p(1, 2))-(p(2, 0), p(2, 1), p(2, 2)), , _SMOOTH
    _MAPTRIANGLE (wtext, htext)-(wtext, 0)-(0, htext), text TO(p(3, 0), p(3, 1), p(3, 2))-(p(1, 0), p(1, 1), p(1, 2))-(p(2, 0), p(2, 1), p(2, 2)), , _SMOOTH
END SUB
 
SUB set_speed_bricks (set_speed)
    FOR amb = 0 TO mb_c - 1: mb(amb, 6) = (speed_min + (speed_max - speed_min) * mb(amb, 7)) * set_speed * ABS(mb(amb, 0)): NEXT amb
END SUB
 
 

QB64 Discussion / _MAPTRIANGLE 3D ----> 2D ?

« on: February 20, 2022, 02:47:26 pm »

Hello !
Can you know from somewhere what formula _MAPTRIANGLE 3D calculates 2D points for?

The principle is this: 3D point is called X, Y, Z, then in this plane (2D) it will be.

FlatX = X / Z
FlatY = Y / Z

I used this a long time ago when _MAPTRIANGLE 3D didn’t exist and I know I had to enter a scaling value to make a proportional look of an object on the screen.
I should know what proportional value you are using. Specifically, I need the formula.

For example, if I wanted to detect the displayed 3D object with the position of the mouse, I would need to know the position of the FlatX and FlatY points.

Programs / Re: courtesy cubes :)

« on: February 20, 2022, 05:50:15 am »

lots of small changes to make the graphics and enjoyment better

Code: QB64: [Select]

'MasterGy 2022
 
DIM SHARED size_block, size_wall, me(9), monx, mony, mb_c, map_x, map_y, crash_test_disable, shdw_c
'----------------- settings ---------------------------------------------------------------------------------------------
 
 
 
 
map_x = 30 'size map X
map_y = 30 'size map Y
speed_min = .03 'bricks minimum speed
speed_max = .06 'bricks maximum speed
money_c = 6 'money number what you find
mb_c = 80 'maximum mover bricks in the map
me_speed = .12 'my speed
mouse_sens = 1
 
 
 
 
 
'------------------------------------------------------ advanced settings -------------------------------------------------------------
add_wall_c = 4 'cross road-walls inside map
walk_limit = 8 'walk limit outside map
tile_marg = 5 'tiles outside near wall
me(5) = .5 'the size of my extent relative to a brick (1=standard size)
cheat_keys = 0 'enable cheat keys
monx = 800: mony = INT(monx / _DESKTOPWIDTH * _DESKTOPHEIGHT)
size_block = 20 '2d map draw start size
size_wall = .9 'size percent size_block (1=standard)
b_colors = 12 'brick colors
shdw_c = 50 'mipmap
'----------------------------------------------------------------------------------------
DIM SHARED temp_color(9) AS _INTEGER64
CONST pip180 = 3.141592 / 180
RANDOMIZE TIMER: _AUTODISPLAY
 
'me install 'ME array params '0,1,2=X,Y,Z 3=angXY 4=angXZ 5'XY dimension
me(0) = -1: me(1) = -1: me(2) = .4 'my start locate
size = 100: temp = _NEWIMAGE(size, size, 32): _DEST temp: CLS 0, _RGB32(10, 10, 10): CIRCLE (size / 2, size / 2), size / 2 * size_wall, _RGB32(200, 200, 200)
PAINT (size / 2, size / 2), _RGB32(200, 200, 200): _CLEARCOLOR _RGB32(10, 10, 10): me_text = _COPYIMAGE(temp, 33): _FREEIMAGE temp
 
'shadows
DIM SHARED shdw(16383) AS _BYTE: FOR t = 0 TO 16383: ashdw = INT((shdw_c - 1) * 0.0006 * t): IF ashdw > shdw_c - 1 THEN ashdw = shdw_c - 1
shdw(t) = ashdw: NEXT t
 
 
'directions
DIM d(3, 1) AS _BYTE: d(3, 1) = -1: d(0, 0) = 1: d(1, 1) = 1: d(2, 0) = -1: d(3, 1) = -1
 
DIM SHARED map(map_x - 1, map_y - 1), mb(mb_c - 1, 9)
 
'make colors
DIM SHARED b_colors(b_colors - 1) AS _INTEGER64: FOR t = 1 TO b_colors - 1: b_colors(t) = _RGB32(30 + 180 * RND(1), 30 + 180 * RND(1), 30 + 180 * RND(1)): NEXT t
b_colors(0) = _RGB32(150, 20, 20) 'wall color
 
'make textures
marg = .12: tmax = 40: tmin = 40
DIM SHARED text_mb(mb_c - 1, shdw_c - 1), text_wall(shdw_c - 1)
FOR t = 0 TO shdw_c - 1: size = INT(tmax - (tmax - tmin) / (shdw_c - 1) * t): dark = 1 - 1 / (shdw_c - 1) * t
    stand_temp = _NEWIMAGE(size, size, 32): _DEST stand_temp: CLS , _RGB32(50, 50, 50) 'frame color
    LINE (size * marg, size * marg)-(size - size * marg, size - size * marg), _RGB32(180, 180, 180), BF: _SOURCE stand_temp
    noise = 5 + 10 / (shdw_c - 1) * t
    FOR tx = 0 TO size - 1: FOR ty = 0 TO size - 1: temp_color(0) = POINT(tx, ty)
            PSET (tx, ty), _RGB32(_RED32(temp_color(0)) - noise / 2 * RND(1) * noise, _GREEN32(temp_color(0)) - noise / 2 * RND(1) * noise, _BLUE32(temp_color(0)) - noise / 2 * RND(1) * noise)
    NEXT ty, tx
 
 
    'make wall
    FOR t2 = 0 TO b_colors - 1: temp = _COPYIMAGE(stand_temp, 32): _DEST temp
        IF t2 = 0 THEN LINE (0, 0)-(size, size), _RGB32(50, 50, 50): LINE (size, 0)-(0, size), _RGB32(50, 50, 50) 'no mover wall
        trans = _NEWIMAGE(5, 5, 32): _DEST trans: CLS , _RGBA32(_RED32(b_colors(t2)) * dark, _GREEN32(b_colors(t2)) * dark, _BLUE32(b_colors(t2)) * dark, 150)
        _SOURCE trans: _DEST temp: _BLEND temp: _PUTIMAGE: _FREEIMAGE trans
        trans = _NEWIMAGE(5, 5, 32): _DEST trans: CLS , _RGBA32(0, 0, 0, (1 - dark) * 255)
        _SOURCE trans: _DEST temp: _PUTIMAGE: _FREEIMAGE trans
    text_mb(t2, t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t2: _FREEIMAGE stand_temp
NEXT t
 
 
'skys_color
DIM text_sky(999)
 
 
FOR t = 0 TO 499
    temp = _NEWIMAGE(3, 3, 32): _DEST temp: CLS , _RGB32(20, 20, 255 / 499 * t): text_sky(t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp
NEXT t
 
'make walls
FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: map(tx, ty) = ABS(tx = 0 OR ty = 0 OR tx = map_x - 1 OR ty = map_y - 1): NEXT ty, tx
 
'add walls within the framework
add_wall_p(0) = .8: add_wall_p(1) = .8: FOR t = 1 TO add_wall_c
    DO: FOR t2 = 0 TO 3: p(t2) = map_x * add_wall_p(t2 MOD 2) * RND(1) + map_x * (1 - add_wall_p(t2 MOD 2)) / 2: NEXT t2
    dis = SQR((p(0) - p(2)) ^ 2 + (p(1) - p(3)) ^ 2): LOOP WHILE dis < 5: dis = dis * .7
FOR t2 = 0 TO dis: map(INT(p(0) + (p(2) - p(0)) / dis * t2), INT(p(1) + (p(3) - p(1)) / dis * t2)) = 2: NEXT t2, t
 
 
'money install
DIM SHARED text_money(9)
FOR t = 0 TO 9: temp = _NEWIMAGE(8, 16, 32): _DEST temp: COLOR _RGB32(256 * RND(1), 256 * RND(1), 256 * RND(1)): PRINT "$";
_CLEARCOLOR _RGB32(0, 0, 0): text_money(t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t
DIM money(money_c - 1, 9)
FOR t = 0 TO money_c - 1: DO: money(t, 0) = INT(1 + (map_x - 2) * RND(1)): money(t, 1) = INT(1 + (map_y - 2) * RND(1))
LOOP WHILE map(money(t, 0), money(t, 1)): map(money(t, 0), money(t, 1)) = 3: NEXT t
 
'make mover bricks
FOR t = 0 TO mb_c - 1: agent_timer = TIMER
    DO: mb(t, 1) = INT(1 + (map_x - 2) * RND(1)): mb(t, 2) = INT(1 + (map_y - 2) * RND(1)): mb(t, 3) = INT(4 * RND(1)): busy = 0
        FOR tx = -1 TO 1: FOR ty = -1 TO 1: busy = busy OR SGN(map(tx + mb(t, 1), ty + mb(t, 2))): NEXT ty, tx
        FOR t2 = 0 TO mb_c - 1: IF mb(t2, 0) = 0 OR busy THEN _CONTINUE
        busy = busy OR (SQR((mb(t2, 1) - mb(t, 1)) ^ 2 + (mb(t2, 2) - mb(t, 2)) ^ 2) < 2): NEXT t2: IF ABS(agent_timer - TIMER) > 2 THEN EXIT FOR
    LOOP WHILE busy: mb(t, 0) = 1: mb(t, 5) = 1 + INT((b_colors - 1) * RND(1))
    mb(t, 6) = speed_min + (speed_max - speed_min) * RND(1)
NEXT t
 
 
 
'entri brick to the area
t = INT(2 * RND(1)): posx = INT((1 + (map_x - 2) * RND(1)) * t) + INT(2 * RND(1)) * (map_x - 1) * ABS(t = 0)
posy = INT((1 + (map_y - 2) * RND(1)) * (t XOR 1)) + INT(2 * RND(1)) * (map_x - 1) * ABS((t XOR 1) = 0): map(posx, posy) = 0
 
 
 
 
'mb array
'0 ena/disa
'1,2 XY location
'3 'direction
'4 stop counter
'5 color index
'6 speed
 
 
 
 
 
mon = _NEWIMAGE(monx, mony, 32): SCREEN mon: _DEST mon: _DISPLAYORDER _HARDWARE , _SOFTWARE: _FULLSCREEN: _MOUSEHIDE
 
 
 
 
limit_cycle = 1
'------------------------------------------- BOSS CYCLE
DO: IF limit_cycle THEN _LIMIT 30
    draw_2d_map = _KEYDOWN(100306) OR _KEYDOWN(100305) 'if press CTRL, show the 2d map
 
    'draw non mover blocks
 
 
    FOR tx = -tile_marg TO map_x - 1 + tile_marg: FOR ty = -tile_marg TO map_y - 1 + tile_marg
            IF tx < 0 OR tx > map_x - 1 OR ty < 0 OR ty > map_y - 1 THEN
 
            ELSE
                IF map(tx, ty) = 1 OR map(tx, ty) = 2 THEN
                    IF draw_2d_map THEN draw_brick_2d tx, ty, 1, 0
                    draw_brick_3d tx, ty, 0, 1
                ELSE
 
                END IF
            END IF
            tile_3d tx, ty
    NEXT ty, tx
 
    'draw mover blocks
    FOR amb = 0 TO mb_c - 1:
        IF mb(amb, 0) THEN
            IF draw_2d_map THEN draw_brick_2d mb(amb, 1), mb(amb, 2), 1, mb(amb, 5)
            draw_brick_3d mb(amb, 1), mb(amb, 2), mb(amb, 5), 1
        END IF
    NEXT amb
 
    'draw me
    IF (dead = 0 OR (dead AND INT(2 * RND(1)))) AND draw_2d_map THEN draw_brick_2d me(0), me(1), me(5), mb(0, 0)
 
    'draw money
    IF storyline = 0 THEN
        FOR t = 0 TO money_c - 1: IF money(t, 2) THEN _CONTINUE
            IF draw_2d_map THEN draw_brick_2d money(t, 0), money(t, 1), 1, -1
            money_3d money(t, 0), money(t, 1)
        NEXT t
    END IF
 
    'moving mover bricks
    FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
        p(0) = CINT(mb(amb, 1) + d(mb(amb, 3), 0) * (mb(amb, 6) + .5))
        p(1) = CINT(mb(amb, 2) + d(mb(amb, 3), 1) * (mb(amb, 6) + .5)): dontgo = 0: letsneg = 0
 
        FOR t = 0 TO mb_c - 1: IF mb(t, 0) = 0 OR t = amb OR dontgo THEN _CONTINUE
            vr = mb(t, 3) MOD 2: vr2 = vr = (mb(amb, 3) MOD 2)
            letsneg = letsneg OR (((ABS(mb(t, 1 + vr) - mb(amb, 1 + vr)) < 1) AND (mb(t, 1 + (vr XOR 1))) = (mb(amb, 1 + (vr XOR 1)))) AND vr2)
            dontgo = dontgo OR ((ABS(p(0) - mb(t, 1)) < 1 AND ABS(p(1) - mb(t, 2)) < 1) AND (vr2 = 0))
        NEXT t
 
        mb(amb, 3) = (mb(amb, 3) + ABS(((letsneg) OR map(p(0), p(1)) = 2 OR map(p(0), p(1)) = 3) OR (p(0) = 0 OR p(0) = map_x - 1 OR p(1) = 0 OR p(1) = map_y - 1)) * 2) MOD 4
        mb(amb, 4) = (mb(amb, 4) + ABS(dontgo)) * ABS(dontgo)
        mb(amb, 3) = (mb(amb, 3) + 2 * ABS((mb(amb, 4) > 5 / mb(amb, 6)) AND dontgo)) MOD 4
        mb(amb, 1) = mb(amb, 1) + d(mb(amb, 3), 0) * mb(amb, 6) * ABS(dontgo = 0)
        mb(amb, 2) = mb(amb, 2) + d(mb(amb, 3), 1) * mb(amb, 6) * ABS(dontgo = 0)
 
 
    NEXT amb
 
    'control me
    mousex = 0: mousey = 0: mw = 0: WHILE _MOUSEINPUT: mousex = mousex + _MOUSEMOVEMENTX: mousey = mousey + _MOUSEMOVEMENTY: mw = mw + _MOUSEWHEEL: WEND
    k_left = _KEYDOWN(19200) OR _KEYDOWN(ASC("a")): k_right = _KEYDOWN(19712) OR _KEYDOWN(ASC("d"))
    k_up = _KEYDOWN(18432) OR _KEYDOWN(ASC("w")) OR _MOUSEBUTTON(1): k_down = _KEYDOWN(20480) OR _KEYDOWN(ASC("s"))
 
    me(3) = me(3) + mousex * mouse_sens '* ABS((_KEYDOWN(19200) OR _KEYDOWN(19712) OR _KEYDOWN(18432) OR _KEYDOWN(20480)) = 0)
    me(4) = me(4) + mousey * mouse_sens: IF ABS(me(4)) > 80 THEN me(4) = 80 * SGN(me(4))
    size_block = size_block - mw: IF size_block < 3 THEN size_block = 3 ELSE IF size_block > 140 THEN size_block = 140
 
    IF dead = 0 THEN
        IF crash_test(me(0), me(1)) THEN
            try_speed = speed_max * 1.1
            try = -1: FOR atry = 0 TO 3
                IF crash_test(me(0) + d(atry, 0) * try_speed, me(1) + d(atry, 1) * try_speed) = 0 THEN try = atry: EXIT FOR
            NEXT atry: IF try = -1 THEN dead = 1
            IF dead = 0 THEN me(0) = me(0) + d(atry, 0) * try_speed: me(1) = me(1) + d(atry, 1) * try_speed
        END IF
        try_ang_sc = 85
        FOR try_ang = 0 TO try_ang_sc STEP 6: FOR try_ang_dir = 0 TO 1
                go = me_speed * ABS(k_left OR k_right OR k_up OR k_down) * (1 / try_ang_sc * (try_ang_sc - try_ang)) ^ .7
                go_ang = k_down * 180 + 90 * (k_left - k_right) + me(3) + (try_ang_dir * 2 - 1) * try_ang
                go_x = SIN(go_ang * pip180) * go + me(0): go_y = -COS(go_ang * pip180) * go + me(1)
                walk_limit_ok = (go_x < -walk_limit OR go_y < -walk_limit OR go_x > map_x - 1 + walk_limit OR go_y > map_y - 1 + walk_limit) = 0
                IF crash_test(go_x, go_y) = 0 AND walk_limit_ok THEN me(0) = go_x: me(1) = go_y: GOTO ok
        NEXT try_ang_dir, try_ang
        ok:
 
    END IF
 
    'cheats
    inkey2$ = INKEY$: IF inkey2$ = CHR$(27) THEN SYSTEM
    IF cheat_keys THEN
        IF inkey2$ = "r" THEN RUN
        IF inkey2$ = "l" THEN limit_cycle = limit_cycle XOR 1
        IF inkey2$ = "c" THEN crash_test_disable = crash_test_disable XOR 1
        IF inkey2$ = "o" THEN dead = 1 'reborn
        IF inkey2$ = "p" THEN dead = 0 'dead
    END IF
    'sky draw
    sky_flash = sky_flash - 0.02: IF sky_flash < 0 THEN sky_flash = 0
    IF sky_flash > 1 THEN sky_flash = 1
    IF dead THEN sky_ind = 490 * SGN(INT(TIMER * 50) AND 1) ELSE sky_ind = INT(490 * sky_flash)
    asky = text_sky(sky_ind)
    _MAPTRIANGLE (0, 0)-(0, 5)-(5, 0), asky TO(-16000, -16000, -10000)-(16000, -16000, -10000)-(-16000, 16000, -10000)
    _MAPTRIANGLE (0, 0)-(0, 5)-(5, 0), asky TO(16000, 16000, -10000)-(16000, -16000, -10000)-(-16000, 16000, -10000)
    _DISPLAY: CLS
 
    'money near- storyline
    IF storyline = 0 THEN
        FOR t = 0 TO money_c - 1
            find_money = SQR((me(0) - money(t, 0)) ^ 2 + (me(1) - money(t, 1)) ^ 2) < 1.1 AND (money(t, 2) = 0)
            IF find_money THEN money_sum = money_sum + 1: map(money(t, 0), money(t, 1)) = 0: money(t, 2) = 1: sky_flash = 1
        NEXT t
        storyline = storyline + ABS(money_sum = money_c)
    END IF
    IF storyline = 1 AND (me(0) > 0 AND me(0) < map_x - 1 AND me(1) > 0 AND me(1) < map_y - 1) = 0 THEN storyline = 2
 
    SELECT CASE storyline
        CASE 0: s$ = "GET THE MONEY !   " + STR$(money_c) + " /" + STR$(money_sum)
        CASE 1: s$ = "ESCAPE OUTSIDE THE WALL !"
        CASE 2: s$ = "Mission compeleted ! "
    END SELECT
 
    IF dead THEN s$ = "you dead ,mission incompleted !"
 
    COLOR _RGB32(255 * RND(1), 255 * RND(1), 255 * RND(1)): LOCATE 3, (monx / 8 - LEN(s$)) / 2: PRINT s$
    IF draw_2d_map = 0 THEN COLOR _RGB32(255, 255, 255), _RGBA(0, 0, 0, 0): LOCATE mony / 16 - 1, 1: PRINT "CTRL - show 2Dmap        mouse wheel:2Dmap zoom";
 
LOOP
 
SUB rotate_2d (x, y, ang): x1 = -(x * COS(ang) - y * SIN(ang)): y1 = -(x * SIN(ang) + y * COS(ang)): x = x1: y = y1: END SUB
 
FUNCTION crash_test (x, y): IF crash_test_disable THEN EXIT FUNCTION
 
    FOR myp = 0 TO 3: mx = x + me(5) * .5 * (SGN(myp AND 1) * 2 - 1): my = y + me(5) * .5 * (SGN(myp AND 2) * 2 - 1)
        FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
            IF mx > mb(amb, 1) - .5 AND mx < mb(amb, 1) + .5 AND my > mb(amb, 2) - .5 AND my < mb(amb, 2) + .5 THEN crash_test = 1: EXIT FUNCTION
        NEXT amb
        FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: IF map(tx, ty) = 0 THEN _CONTINUE
                IF mx > tx - .5 AND mx < tx + .5 AND my > ty - .5 AND my < ty + .5 THEN crash_test = 1: EXIT FUNCTION
    NEXT ty, tx, myp
END FUNCTION
 
SUB draw_brick_2d (x, y, relsize, col)
    DIM x(3), y(3): xc = (x - me(0)) * size_block + .5: yc = (y - me(1)) * size_block + .5: rot = (-me(3) + 180) * pip180
    rotate_2d xc, yc, rot: xc = xc + monx / 2: yc = yc + mony / 2: size = size_block * size_wall * .5 * relsize
    FOR t = 0 TO 3: x(t) = size * -(SGN(t AND 1) * 2 - 1): y(t) = size * (ABS(t < 2) * 2 - 1)
    rotate_2d x(t), y(t), rot: x(t) = INT(x(t) + xc): y(t) = INT(y(t) + yc): NEXT t
    IF col = -1 THEN COLOR _RGB32(256 * RND(1), 256 * RND(1), 256 * RND(1)) ELSE COLOR b_colors(col)
    LINE (x(0), y(0))-(x(1), y(1)): LINE (x(3), y(3))-(x(1), y(1)): LINE (x(2), y(2))-(x(3), y(3)): LINE (x(0), y(0))-(x(2), y(2))
    IF col = -1 THEN PAINT ((x(0) + x(3)) / 2, (y(0) + y(3)) / 2)
 
END SUB
 
 
SUB point_3d (x, y, z)
    x = x - me(0): y = y - me(2): z = z - me(1): rotate_2d x, z, -(me(3) + 180) * pip180: rotate_2d y, z, (me(4) + 180) * pip180
    x = x * 100: y = y * 100: z = z * 100
END SUB
 
SUB draw_brick_3d (x, y, text, relsize)
    DIM p(3, 2), pc(7, 2), sq(3)
    size = size_wall * .5 * relsize
    FOR t = 0 TO 7
        pc(t, 0) = size * (SGN(t AND 1) * 2 - 1) + x: pc(t, 2) = size * (SGN(t AND 2) * 2 - 1) + y: pc(t, 1) = size * SGN(t AND 4) * 2
        point_3d pc(t, 0), pc(t, 1), pc(t, 2)
    NEXT t
 
    FOR t = 0 TO 3
        FOR t2 = 0 TO 3: side = VAL(MID$("-0246-2367-3175-1054", 2 + t * 5 + t2, 1))
        FOR t3 = 0 TO 2: p(t2, t3) = pc(side, t3): NEXT t3, t2
        draw_square p(), text_mb(text, shdw(ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4))))
    NEXT t
END SUB
 
SUB tile_3d (x, y)
    DIM p(3, 2)
    FOR t = 0 TO 3
        p(t, 0) = x + (SGN(t AND 1) * 2 - 1) * .5: p(t, 2) = y + (SGN(t AND 2) * 2 - 1) * .5: p(t, 1) = 0
        point_3d p(t, 0), p(t, 1), p(t, 2)
    NEXT t
    draw_square p(), text_mb(0, shdw(ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4))))
END SUB
 
SUB money_3d (x, y)
    DIM p(3, 2): ang = TIMER * 2
    FOR t = 0 TO 3
        ang = (TIMER * 2 + _PI * (t AND 1) + x + y) * (((x + y) AND 1) * 2 - 1)
        p(t, 0) = SIN(ang) * .5 + x: p(t, 2) = COS(ang) * .5 + y: p(t, 1) = SGN(t AND 2)
        point_3d p(t, 0), p(t, 1), p(t, 2)
    NEXT t
    draw_square p(), text_money(INT(10 * RND(1)))
END SUB
 
SUB draw_square (p(), text)
    wtext = _WIDTH(text) - 1: htext = _HEIGHT(text) - 1
    _MAPTRIANGLE (0, 0)-(wtext, 0)-(0, htext), text TO(p(0, 0), p(0, 1), p(0, 2))-(p(1, 0), p(1, 1), p(1, 2))-(p(2, 0), p(2, 1), p(2, 2)), , _SMOOTH
    _MAPTRIANGLE (wtext, htext)-(wtext, 0)-(0, htext), text TO(p(3, 0), p(3, 1), p(3, 2))-(p(1, 0), p(1, 1), p(1, 2))-(p(2, 0), p(2, 1), p(2, 2)), , _SMOOTH
END SUB
 
 
 

Programs / Re: courtesy cubes :)

« on: February 19, 2022, 01:29:00 pm »

done in 3d. You can set the strength at the beginning of the source code. speeds, number of golds, number of moving cubes.

Control: WASD + mouse
Mission: Collect all the gold and go out!
Survive not to squeeze the cubes!

The program does not have a file.

Code: QB64: [Select]

'MasterGy 2022
 
DIM SHARED size_block, size_wall, me(9), monx, mony, mb_c, map_x, map_y, crash_test_disable, shdw_c
'----------------- settings ---------------------------------------------------------------------------------------------
 
 
 
 
map_x = 30 'size map X
map_y = 30 'size map Y
speed_min = .03 'bricks minimum speed
speed_max = .09 'bricks maximum speed
money_c = 5 'money number what you find
mb_c = 60 'maximum mover bricks in the map
me_speed = .1 'my speed
mouse_sens = 1
 
 
 
 
 
'------------------------------------------------------ advanced settings -------------------------------------------------------------
monx = 800: mony = INT(monx / _DESKTOPWIDTH * _DESKTOPHEIGHT)
tile_marg = 4
me(5) = .5 'the size of my extent relative to a brick
 
size_block = 20
size_wall = .9 'size percent size_block
b_colors = 8
shdw_c = 50
'----------------------------
CONST pip180 = 3.141592 / 180
RANDOMIZE TIMER: _AUTODISPLAY
 
'me install 'ME array params '0,1,2=X,Y,Z 3=angXY 4=angXZ 5'XY dimension
me(0) = -1: me(1) = -1: me(2) = .4 'my start locate
size = 100
temp = _NEWIMAGE(size, size, 32): _DEST temp: CLS 0, _RGB32(10, 10, 10)
CIRCLE (size / 2, size / 2), size / 2 * size_wall, _RGB32(200, 200, 200)
PAINT (size / 2, size / 2), _RGB32(200, 200, 200): _CLEARCOLOR _RGB32(10, 10, 10): me_text = _COPYIMAGE(temp, 33): _FREEIMAGE temp
 
DIM SHARED temp_color(9) AS _INTEGER64
 
 
'shadows
DIM SHARED shdw(16383) AS _BYTE: DIM SHARED darking_array(shdw_c - 1)
FOR t = 0 TO 16383: ashdw = INT((shdw_c - 1) * 0.0006 * t): IF ashdw > shdw_c - 1 THEN ashdw = shdw_c - 1
shdw(t) = ashdw: NEXT t
 
 
'directions
DIM d(3, 1) AS _BYTE: d(3, 1) = -1: d(0, 0) = 1: d(1, 1) = 1: d(2, 0) = -1: d(3, 1) = -1
DIM SHARED map(map_x - 1, map_y - 1), mb(mb_c - 1, 9)
'make colors
DIM SHARED b_colors(b_colors - 1) AS _INTEGER64: FOR t = 1 TO b_colors - 1: b_colors(t) = _RGB32(50 + 150 * RND(1), 50 + 150 * RND(1), 50 + 150 * RND(1)): NEXT t
b_colors(0) = _RGB32(150, 20, 20) 'wall color
 
'make textures
marg = .12: tmax = 30: tmin = 30
DIM SHARED text_mb(mb_c - 1, shdw_c - 1), text_wall(shdw_c - 1)
FOR t = 0 TO shdw_c - 1: size = INT(tmax - (tmax - tmin) / (shdw_c - 1) * t): dark = 1 - 1 / (shdw_c - 1) * t
    stand_temp = _NEWIMAGE(size, size, 32): _DEST stand_temp: CLS , _RGB32(50, 50, 50) 'frame color
    LINE (size * marg, size * marg)-(size - size * marg, size - size * marg), _RGB32(180, 180, 180), BF
 
    'make wall
    FOR t2 = 0 TO b_colors - 1: temp = _COPYIMAGE(stand_temp, 32): _DEST temp
        IF t2 = 0 THEN LINE (0, 0)-(size, size), _RGB32(50, 50, 50): LINE (size, 0)-(0, size), _RGB32(50, 50, 50) 'no mover wall
        trans = _NEWIMAGE(5, 5, 32): _DEST trans: CLS , _RGBA32(_RED32(b_colors(t2)) * dark, _GREEN32(b_colors(t2)) * dark, _BLUE32(b_colors(t2)) * dark, 150)
        _SOURCE trans: _DEST temp: _BLEND temp: _PUTIMAGE: _FREEIMAGE trans
        trans = _NEWIMAGE(5, 5, 32): _DEST trans: CLS , _RGBA32(0, 0, 0, (1 - dark) * 255)
        _SOURCE trans: _DEST temp: _PUTIMAGE: _FREEIMAGE trans
    text_mb(t2, t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t2: _FREEIMAGE stand_temp
NEXT t
 
 
'skys_color
DIM text_sky(999)
 
 
FOR t = 0 TO 499
    temp = _NEWIMAGE(3, 3, 32): _DEST temp: CLS , _RGB32(20, 20, 255 / 499 * t): text_sky(t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp
NEXT t
 
'make walls
FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: map(tx, ty) = ABS(tx = 0 OR ty = 0 OR tx = map_x - 1 OR ty = map_y - 1): NEXT ty, tx
 
'add walls within the framework
add_wall_c = 3: add_wall_p(0) = .8: add_wall_p(1) = .8: FOR t = 1 TO add_wall_c
    DO: FOR t2 = 0 TO 3: p(t2) = map_x * add_wall_p(t2 MOD 2) * RND(1) + map_x * (1 - add_wall_p(t2 MOD 2)) / 2: NEXT t2
    dis = SQR((p(0) - p(2)) ^ 2 + (p(1) - p(3)) ^ 2): LOOP WHILE dis < 5: dis = dis * .7
FOR t2 = 0 TO dis: map(INT(p(0) + (p(2) - p(0)) / dis * t2), INT(p(1) + (p(3) - p(1)) / dis * t2)) = 2: NEXT t2, t
 
 
'money install
DIM SHARED text_money(9)
FOR t = 0 TO 9: temp = _NEWIMAGE(8, 16, 32): _DEST temp: COLOR _RGB32(256 * RND(1), 256 * RND(1), 256 * RND(1)): PRINT "$";
_CLEARCOLOR _RGB32(0, 0, 0): text_money(t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t
DIM money(money_c - 1, 9)
FOR t = 0 TO money_c - 1: DO: money(t, 0) = INT(1 + (map_x - 2) * RND(1)): money(t, 1) = INT(1 + (map_y - 2) * RND(1))
LOOP WHILE map(money(t, 0), money(t, 1)): map(money(t, 0), money(t, 1)) = 3: NEXT t
 
'make mover bricks
FOR t = 0 TO mb_c - 1: agent_timer = TIMER
    DO: mb(t, 1) = INT(1 + (map_x - 2) * RND(1)): mb(t, 2) = INT(1 + (map_y - 2) * RND(1)): mb(t, 3) = INT(4 * RND(1)): busy = 0
        FOR tx = -1 TO 1: FOR ty = -1 TO 1: busy = busy OR SGN(map(tx + mb(t, 1), ty + mb(t, 2))): NEXT ty, tx
        FOR t2 = 0 TO mb_c - 1: IF mb(t2, 0) = 0 OR busy THEN _CONTINUE
        busy = busy OR (SQR((mb(t2, 1) - mb(t, 1)) ^ 2 + (mb(t2, 2) - mb(t, 2)) ^ 2) < 2): NEXT t2: IF ABS(agent_timer - TIMER) > 2 THEN EXIT FOR
    LOOP WHILE busy: mb(t, 0) = 1: mb(t, 5) = 1 + INT((b_colors - 1) * RND(1))
    mb(t, 6) = speed_min + (speed_max - speed_min) * RND(1)
NEXT t
 
 
 
'entri brick to the area
t = INT(2 * RND(1)): posx = INT((1 + (map_x - 2) * RND(1)) * t) + INT(2 * RND(1)) * (map_x - 1) * ABS(t = 0)
posy = INT((1 + (map_y - 2) * RND(1)) * (t XOR 1)) + INT(2 * RND(1)) * (map_x - 1) * ABS((t XOR 1) = 0): map(posx, posy) = 0
 
 
 
 
'mb array
'0 ena/disa
'1,2 XY location
'3 'direction
'4 stop counter
'5 color index
'6 speed
 
 
 
 
 
mon = _NEWIMAGE(monx, mony, 32): SCREEN mon: _DEST mon: _DISPLAYORDER _HARDWARE , _SOFTWARE: _FULLSCREEN: _MOUSEHIDE
 
 
 
 
 
'------------------------------------------- BOSS CYCLE
DO: _LIMIT 30
    draw_2d_map = _KEYDOWN(100306) OR _KEYDOWN(100305) 'if press CTRL, show the 2d map
 
    'draw non mover blocks
 
 
    FOR tx = -tile_marg TO map_x - 1 + tile_marg: FOR ty = -tile_marg TO map_y - 1 + tile_marg
            IF tx < 0 OR tx > map_x - 1 OR ty < 0 OR ty > map_y - 1 THEN
 
            ELSE
                IF map(tx, ty) = 1 OR map(tx, ty) = 2 THEN
                    IF draw_2d_map THEN draw_brick_2d tx, ty, 1, 0
                    draw_brick_3d tx, ty, 0, 1
                ELSE
 
                END IF
            END IF
            tile_3d tx, ty
    NEXT ty, tx
 
    'draw mover blocks
    FOR amb = 0 TO mb_c - 1:
        IF mb(amb, 0) THEN
            IF draw_2d_map THEN draw_brick_2d mb(amb, 1), mb(amb, 2), 1, mb(amb, 5)
            draw_brick_3d mb(amb, 1), mb(amb, 2), mb(amb, 5), 1
        END IF
    NEXT amb
 
    'draw me
    IF (dead = 0 OR (dead AND INT(2 * RND(1)))) AND draw_2d_map THEN draw_brick_2d me(0), me(1), me(5), mb(0, 0)
 
    'draw money
    IF storyline = 0 THEN
        FOR t = 0 TO money_c - 1: IF money(t, 2) THEN _CONTINUE
            IF draw_2d_map THEN draw_brick_2d money(t, 0), money(t, 1), 1, -1
            money_3d money(t, 0), money(t, 1)
        NEXT t
    END IF
 
    'moving mover bricks
    FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
        p(0) = CINT(mb(amb, 1) + d(mb(amb, 3), 0) * (mb(amb, 6) + .5))
        p(1) = CINT(mb(amb, 2) + d(mb(amb, 3), 1) * (mb(amb, 6) + .5)): dontgo = 0: letsneg = 0
 
        FOR t = 0 TO mb_c - 1: IF mb(t, 0) = 0 OR t = amb OR dontgo THEN _CONTINUE
            vr = mb(t, 3) MOD 2: vr2 = vr = (mb(amb, 3) MOD 2)
            letsneg = letsneg OR (((ABS(mb(t, 1 + vr) - mb(amb, 1 + vr)) < 1) AND (mb(t, 1 + (vr XOR 1))) = (mb(amb, 1 + (vr XOR 1)))) AND vr2)
            dontgo = dontgo OR ((ABS(p(0) - mb(t, 1)) < 1 AND ABS(p(1) - mb(t, 2)) < 1) AND (vr2 = 0))
        NEXT t
 
        mb(amb, 3) = (mb(amb, 3) + ABS(((letsneg) OR map(p(0), p(1)) = 2 OR map(p(0), p(1)) = 3) OR (p(0) = 0 OR p(0) = map_x - 1 OR p(1) = 0 OR p(1) = map_y - 1)) * 2) MOD 4
        mb(amb, 4) = (mb(amb, 4) + ABS(dontgo)) * ABS(dontgo)
        mb(amb, 3) = (mb(amb, 3) + 2 * ABS((mb(amb, 4) > 5 / mb(amb, 6)) AND dontgo)) MOD 4
        mb(amb, 1) = mb(amb, 1) + d(mb(amb, 3), 0) * mb(amb, 6) * ABS(dontgo = 0)
        mb(amb, 2) = mb(amb, 2) + d(mb(amb, 3), 1) * mb(amb, 6) * ABS(dontgo = 0)
 
 
    NEXT amb
 
    'control me
    mousex = 0: mousey = 0: mw = 0: WHILE _MOUSEINPUT: mousex = mousex + _MOUSEMOVEMENTX: mousey = mousey + _MOUSEMOVEMENTY: mw = mw + _MOUSEWHEEL: WEND
    k_left = _KEYDOWN(19200) OR _KEYDOWN(ASC("a")): k_right = _KEYDOWN(19712) OR _KEYDOWN(ASC("d"))
    k_up = _KEYDOWN(18432) OR _KEYDOWN(ASC("w")) OR _MOUSEBUTTON(1): k_down = _KEYDOWN(20480) OR _KEYDOWN(ASC("s"))
 
    me(3) = me(3) + mousex * mouse_sens '* ABS((_KEYDOWN(19200) OR _KEYDOWN(19712) OR _KEYDOWN(18432) OR _KEYDOWN(20480)) = 0)
    me(4) = me(4) + mousey * mouse_sens: IF ABS(me(4)) > 80 THEN me(4) = 80 * SGN(me(4))
    size_block = size_block - mw: IF size_block < 3 THEN size_block = 3 ELSE IF size_block > 140 THEN size_block = 140
 
    IF dead = 0 THEN
        IF crash_test(me(0), me(1)) THEN
            try_speed = speed_max * 1.1
            try = -1: FOR atry = 0 TO 3
                IF crash_test(me(0) + d(atry, 0) * try_speed, me(1) + d(atry, 1) * try_speed) = 0 THEN try = atry: EXIT FOR
            NEXT atry: IF try = -1 THEN dead = 1
            IF dead = 0 THEN me(0) = me(0) + d(atry, 0) * try_speed: me(1) = me(1) + d(atry, 1) * try_speed
        END IF
        try_ang_sc = 70
        FOR try_ang = 0 TO try_ang_sc STEP 5: FOR try_ang_dir = 0 TO 1
                go = me_speed * ABS(k_left OR k_right OR k_up OR k_down) / try_ang_sc * (try_ang_sc - try_ang)
                go_ang = k_down * 180 + 90 * (k_left - k_right) + me(3) + (try_ang_dir * 2 - 1) * try_ang
                go_x = SIN(go_ang * pip180) * go + me(0): go_y = -COS(go_ang * pip180) * go + me(1)
                IF crash_test(go_x, go_y) = 0 THEN me(0) = go_x: me(1) = go_y: GOTO ok
        NEXT try_ang_dir, try_ang
        ok:
 
    END IF
 
    'cheats
    inkey2$ = INKEY$
    IF inkey2$ = " " THEN RUN
    IF inkey2$ = "l" THEN crash_test_disable = crash_test_disable XOR 1
    IF inkey2$ = "o" THEN dead = 1 'reborn
    IF inkey2$ = "p" THEN dead = 0 'dead
 
    'sky draw
    sky_flash = sky_flash - 0.02: IF sky_flash < 0 THEN sky_flash = 0
    IF sky_flash > 1 THEN sky_flash = 1
    IF dead THEN sky_ind = 490 * SGN(INT(TIMER * 50) AND 1) ELSE sky_ind = INT(490 * sky_flash)
    asky = text_sky(sky_ind)
    _MAPTRIANGLE (0, 0)-(0, 5)-(5, 0), asky TO(-16000, -16000, -10000)-(16000, -16000, -10000)-(-16000, 16000, -10000)
    _MAPTRIANGLE (0, 0)-(0, 5)-(5, 0), asky TO(16000, 16000, -10000)-(16000, -16000, -10000)-(-16000, 16000, -10000)
    _DISPLAY: CLS
 
    'money near- storyline
    IF storyline = 0 THEN
        FOR t = 0 TO money_c - 1
            find_money = SQR((me(0) - money(t, 0)) ^ 2 + (me(1) - money(t, 1)) ^ 2) < 1.1 AND (money(t, 2) = 0)
            IF find_money THEN money_sum = money_sum + 1: map(money(t, 0), money(t, 1)) = 0: money(t, 2) = 1: sky_flash = 1
        NEXT t
        storyline = storyline + ABS(money_sum = money_c)
    END IF
    IF storyline = 1 AND (me(0) > 0 AND me(0) < map_x - 1 AND me(1) > 0 AND me(1) < map_y - 1) = 0 THEN storyline = 2
 
    SELECT CASE storyline
        CASE 0: s$ = "GET THE MONEY !   " + STR$(money_c) + " /" + STR$(money_sum)
        CASE 1: s$ = "ESCAPE OUTSIDE THE WALL !"
        CASE 2: s$ = "Mission compeleted ! "
    END SELECT
 
    IF dead THEN s$ = "you dead ,mission incompleted !"
 
    COLOR _RGB32(255 * RND(1), 255 * RND(1), 255 * RND(1)): LOCATE 3, (monx / 8 - LEN(s$)) / 2: PRINT s$
    IF draw_2d_map = 0 THEN COLOR _RGB32(255, 255, 255), _RGBA(0, 0, 0, 0): LOCATE mony / 16 - 1, 1: PRINT "CTRL - show 2Dmap        mouse wheel:2Dmap zoom";
 
LOOP
 
SUB rotate_2d (x, y, ang): x1 = -(x * COS(ang) - y * SIN(ang)): y1 = -(x * SIN(ang) + y * COS(ang)): x = x1: y = y1: END SUB
 
FUNCTION crash_test (x, y): IF crash_test_disable THEN EXIT FUNCTION
    FOR myp = 0 TO 3: mx = x + me(5) * .5 * (SGN(myp AND 1) * 2 - 1): my = y + me(5) * .5 * (SGN(myp AND 2) * 2 - 1)
        FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
            IF mx > mb(amb, 1) - .5 AND mx < mb(amb, 1) + .5 AND my > mb(amb, 2) - .5 AND my < mb(amb, 2) + .5 THEN crash_test = 1: EXIT FUNCTION
        NEXT amb
        FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: IF map(tx, ty) = 0 THEN _CONTINUE
                IF mx > tx - .5 AND mx < tx + .5 AND my > ty - .5 AND my < ty + .5 THEN crash_test = 1: EXIT FUNCTION
    NEXT ty, tx, myp
END FUNCTION
 
SUB draw_brick_2d (x, y, relsize, col)
    DIM x(3), y(3): xc = (x - me(0)) * size_block + .5: yc = (y - me(1)) * size_block + .5: rot = (-me(3) + 180) * pip180
    rotate_2d xc, yc, rot: xc = xc + monx / 2: yc = yc + mony / 2: size = size_block * size_wall * .5 * relsize
    FOR t = 0 TO 3: x(t) = size * -(SGN(t AND 1) * 2 - 1): y(t) = size * (ABS(t < 2) * 2 - 1)
    rotate_2d x(t), y(t), rot: x(t) = INT(x(t) + xc): y(t) = INT(y(t) + yc): NEXT t
 
    IF col = -1 THEN COLOR _RGB32(256 * RND(1), 256 * RND(1), 256 * RND(1)) ELSE COLOR b_colors(col)
    LINE (x(0), y(0))-(x(1), y(1)): LINE (x(3), y(3))-(x(1), y(1)): LINE (x(2), y(2))-(x(3), y(3)): LINE (x(0), y(0))-(x(2), y(2))
END SUB
 
 
SUB point_3d (x, y, z)
    x = x - me(0): y = y - me(2): z = z - me(1)
    rotate_2d x, z, -(me(3) + 180) * pip180: rotate_2d y, z, (me(4) + 180) * pip180
    x = x * 100: y = y * 100: z = z * 100
END SUB
 
SUB draw_brick_3d (x, y, text, relsize)
    DIM p(7, 2), sq(3)
    size = size_wall * .5 * relsize
    FOR t = 0 TO 7
        p(t, 0) = size * (SGN(t AND 1) * 2 - 1) + x: p(t, 2) = size * (SGN(t AND 2) * 2 - 1) + y: p(t, 1) = size * SGN(t AND 4) * 2
        point_3d p(t, 0), p(t, 1), p(t, 2)
    NEXT t
    shdw = ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4))
    sq$ = "-0246-2367-3175-1054" 'cubes points make square "-0123-4567"
    FOR t2 = 0 TO 3: FOR t3 = 0 TO 3: sq(t3) = VAL(MID$(sq$, 2 + t2 * 5 + t3, 1)): NEXT t3
        atext = text_mb(text, shdw(shdw))
        wtext = _WIDTH(atext) - 1: htext = _HEIGHT(atext) - 1
        _MAPTRIANGLE (0, 0)-(wtext, 0)-(0, htext), atext TO(p(sq(0), 0), p(sq(0), 1), p(sq(0), 2))-(p(sq(1), 0), p(sq(1), 1), p(sq(1), 2))-(p(sq(2), 0), p(sq(2), 1), p(sq(2), 2)), , _SMOOTH
        _MAPTRIANGLE (wtext, htext)-(wtext, 0)-(0, htext), atext TO(p(sq(3), 0), p(sq(3), 1), p(sq(3), 2))-(p(sq(1), 0), p(sq(1), 1), p(sq(1), 2))-(p(sq(2), 0), p(sq(2), 1), p(sq(2), 2)), , _SMOOTH
    NEXT t2
END SUB
 
SUB tile_3d (x, y)
    DIM p(3, 2)
    FOR t = 0 TO 3
        p(t, 0) = x + (SGN(t AND 1) * 2 - 1) * .5: p(t, 2) = y + (SGN(t AND 2) * 2 - 1) * .5: p(t, 1) = 0
        point_3d p(t, 0), p(t, 1), p(t, 2)
    NEXT t
    atext = text_mb(0, shdw(ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4))))
    wtext = _WIDTH(atext) - 1: htext = _HEIGHT(atext) - 1
    _MAPTRIANGLE (0, 0)-(wtext, 0)-(0, htext), atext TO(p(0, 0), p(0, 1), p(0, 2))-(p(1, 0), p(1, 1), p(1, 2))-(p(2, 0), p(2, 1), p(2, 2)), , _SMOOTH
    _MAPTRIANGLE (wtext, htext)-(wtext, 0)-(0, htext), atext TO(p(3, 0), p(3, 1), p(3, 2))-(p(1, 0), p(1, 1), p(1, 2))-(p(2, 0), p(2, 1), p(2, 2)), , _SMOOTH
END SUB
 
SUB money_3d (x, y)
    DIM p(3, 2)
    ang = TIMER * 2
    FOR t = 0 TO 3
        ang = TIMER * 2 + _PI * (t AND 1): p(t, 0) = SIN(ang) * .5 + x: p(t, 2) = COS(ang) * .5 + y: p(t, 1) = SGN(t AND 2)
        point_3d p(t, 0), p(t, 1), p(t, 2)
    NEXT t
    atext = text_money(INT(10 * RND(1)))
    wtext = _WIDTH(atext) - 1: htext = _HEIGHT(atext) - 1
    _MAPTRIANGLE (0, 0)-(wtext, 0)-(0, htext), atext TO(p(0, 0), p(0, 1), p(0, 2))-(p(1, 0), p(1, 1), p(1, 2))-(p(2, 0), p(2, 1), p(2, 2)), , _SMOOTH
    _MAPTRIANGLE (wtext, htext)-(wtext, 0)-(0, htext), atext TO(p(3, 0), p(3, 1), p(3, 2))-(p(1, 0), p(1, 1), p(1, 2))-(p(2, 0), p(2, 1), p(2, 2)), , _SMOOTH
END SUB
 
 
 

Programs / Re: QBJS - QBasic for the Web

« on: February 18, 2022, 03:21:02 pm »

the idea is very big! It gives a huge space to any QB program. An idea, an implementation, would be easier to reach people who didn’t even know what “QB” was. I wish you much success on your journey!

Programs / Re: Terror in the Maze (graphics enhancement + surround sound)

« on: February 18, 2022, 08:54:27 am »

I started learning about opengl many times, but I always gave up. And it would be good to know. Using _maptriangle is simple, I just have to count a lot before I get a position of 1 point. I use a mix of _maptriangle 2d and 3d.

Programs / Re: courtesy cubes :)

« on: February 17, 2022, 06:15:43 pm »

bring the money out of the wall and be careful not to squeeze the stones!

Programs / Re: courtesy cubes :)

« on: February 17, 2022, 06:03:43 pm »

I did control the game tonight.

I'll start in 3D tomorrow, I'll be curious. The game is easy in 2d because we can see what will happen from above, but in 3d, it has to be fast.

Code: QB64: [Select]

DIM SHARED size_block, size_wall, me(9), monx, mony, mb_c, map_x, map_y
'----------------- settings
monx = 800: mony = INT(monx / _DESKTOPWIDTH * _DESKTOPHEIGHT)
map_x = 30
map_y = 30
mb_c = 120 'maximum mover bricks
 
speed_min = .03
speed_max = .09
 
me(5) = .5 'the size of my extent relative to a brick
me_speed = .1 'my speed
 
size_block = 20
size_wall = .95 'size percent size_block
b_colors = 5
shdw_c = 5
'----------------------------
CONST pip180 = 3.141592 / 180
RANDOMIZE TIMER: _AUTODISPLAY
 
'me install
'me array params '0,1,2=X,Y,Z 3=angXY 4=angXZ 5'XY dimension
me(0) = -1: me(1) = -1 'my start locate
size = 100
temp = _NEWIMAGE(size, size, 32): _DEST temp: CLS 0, _RGB32(10, 10, 10)
CIRCLE (size / 2, size / 2), size / 2 * size_wall, _RGB32(200, 200, 200)
PAINT (size / 2, size / 2), _RGB32(200, 200, 200)
_CLEARCOLOR _RGB32(10, 10, 10)
me_text = _COPYIMAGE(temp, 33): _FREEIMAGE temp
 
'SCREEN temp
'END
 
 
 
 
 
DIM SHARED temp_color(9) AS _INTEGER64
 
'directions
DIM d(3, 1) AS _BYTE: d(3, 1) = -1: d(0, 0) = 1: d(1, 1) = 1: d(2, 0) = -1: d(3, 1) = -1
DIM SHARED map(map_x - 1, map_y - 1), mb(mb_c - 1, 9)
'make colors
DIM b_colors(b_colors - 1) AS _INTEGER64: FOR t = 1 TO b_colors - 1: b_colors(t) = _RGB32(50 + 150 * RND(1), 50 + 150 * RND(1), 50 + 150 * RND(1)): NEXT t
b_colors(0) = _RGB32(150, 20, 20) 'wall color
 
'make textures
marg = .12: tmax = 50: tmin = 20
DIM text_mb(mb_c - 1, shdw_c - 1), text_wall(shdw_c - 1)
FOR t = 0 TO shdw_c - 1: size = INT(tmax - (tmax - tmin) / (shdw_c - 1) * t): dark = 1 - 1 / (shdw_c - 1) * t
 
    stand_temp = _NEWIMAGE(size, size, 32): _DEST stand_temp: CLS , _RGB32(50, 50, 50) 'frame color
    LINE (size * marg, size * marg)-(size - size * marg, size - size * marg), _RGB32(180, 180, 180), BF
 
    'make wall
    FOR t2 = 0 TO b_colors - 1: temp = _COPYIMAGE(stand_temp, 32)
        trans = _NEWIMAGE(5, 5, 32): _DEST trans: CLS , _RGBA32(_RED32(b_colors(t2)) * dark, _GREEN32(b_colors(t2)) * dark, _BLUE32(b_colors(t2)) * dark, 150)
        _SOURCE trans: _DEST temp: _BLEND temp: _PUTIMAGE: _FREEIMAGE trans
        trans = _NEWIMAGE(5, 5, 32): _DEST trans: CLS , _RGBA32(0, 0, 0, (1 - dark) * 255)
        _SOURCE trans: _DEST temp: _PUTIMAGE: _FREEIMAGE trans
    text_mb(t2, t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t2: _FREEIMAGE stand_temp
NEXT t
 
 
 
'make walls
FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: map(tx, ty) = ABS(tx = 0 OR ty = 0 OR tx = map_x - 1 OR ty = map_y - 1): NEXT ty, tx
 
'add walls within the framework
add_wall_c = 3: add_wall_p(0) = .8: add_wall_p(1) = .8: FOR t = 1 TO add_wall_c
    DO: FOR t2 = 0 TO 3: p(t2) = map_x * add_wall_p(t2 MOD 2) * RND(1) + map_x * (1 - add_wall_p(t2 MOD 2)) / 2: NEXT t2
    dis = SQR((p(0) - p(2)) ^ 2 + (p(1) - p(3)) ^ 2): LOOP WHILE dis < 5: dis = dis * .7
FOR t2 = 0 TO dis: map(INT(p(0) + (p(2) - p(0)) / dis * t2), INT(p(1) + (p(3) - p(1)) / dis * t2)) = 2: NEXT t2, t
 
 
'money install
temp = _NEWIMAGE(8, 16, 32): _DEST temp: PRINT "$";: text_money = _COPYIMAGE(temp, 33): _FREEIMAGE temp
DO: money_x = INT(1 + (map_x - 2) * RND(1)): money_y = INT(1 + (map_y - 2) * RND(1)): LOOP WHILE map(money_y, money_x)
map(money_x, money_y) = 3
 
 
'make mover bricks
FOR t = 0 TO mb_c - 1: agent_timer = TIMER
    DO: mb(t, 1) = INT(1 + (map_x - 2) * RND(1)): mb(t, 2) = INT(1 + (map_y - 2) * RND(1)): mb(t, 3) = INT(4 * RND(1)): busy = 0
        FOR tx = -1 TO 1: FOR ty = -1 TO 1: busy = busy OR SGN(map(tx + mb(t, 1), ty + mb(t, 2))): NEXT ty, tx
        FOR t2 = 0 TO mb_c - 1: IF mb(t2, 0) = 0 OR busy THEN _CONTINUE
        busy = busy OR (SQR((mb(t2, 1) - mb(t, 1)) ^ 2 + (mb(t2, 2) - mb(t, 2)) ^ 2) < 2): NEXT t2: IF ABS(agent_timer - TIMER) > 2 THEN EXIT FOR
    LOOP WHILE busy: mb(t, 0) = 1: mb(t, 5) = 1 + INT((b_colors - 1) * RND(1))
    mb(t, 6) = speed_min + (speed_max - speed_min) * RND(1)
NEXT t
 
 
 
'entri brick to the area
t = INT(2 * RND(1)): posx = INT((1 + (map_x - 2) * RND(1)) * t) + INT(2 * RND(1)) * (map_x - 1) * ABS(t = 0)
posy = INT((1 + (map_y - 2) * RND(1)) * (t XOR 1)) + INT(2 * RND(1)) * (map_x - 1) * ABS((t XOR 1) = 0): map(posx, posy) = 0
 
 
 
 
'mb array
'0 ena/disa
'1,2 XY location
'3 'direction
'4 stop counter
'5 color index
'6 speed
 
 
 
 
 
mon = _NEWIMAGE(monx, mony, 32): SCREEN mon: _DEST mon
'CLS , _RGB32(20, 20, 20)
_DISPLAYORDER _HARDWARE , _SOFTWARE: _FULLSCREEN '_SQUAREPIXELS ', _SMOOTH
 
 
 
LOCATE mony / 16 - 3, 1
PRINT "control-type1: WASD+mouse (map rotating)"
PRINT "control-type2: arrows (no map rotating)"
PRINT "map zoom: mouse wheel"
 
'------------------------------------------- BOSS CYCLE
DO: _LIMIT 30
    'draw non mover blocks
    FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: IF map(tx, ty) THEN draw_brick tx, ty, text_mb(0, 0), 1
    NEXT ty, tx
 
    'draw mover blocks
    FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) THEN draw_brick mb(amb, 1), mb(amb, 2), text_mb(mb(amb, 5), 0), 1
    NEXT amb
 
    'draw me
    IF dead = 0 OR (dead AND INT(2 * RND(1))) THEN draw_brick me(0), me(1), me_text, me(5)
 
    'draw money
    IF storyline = 0 THEN draw_brick money_x, money_y, text_money, 1
 
 
    'moving mover bricks
    FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
        p(0) = CINT(mb(amb, 1) + d(mb(amb, 3), 0) * (mb(amb, 6) + .5))
        p(1) = CINT(mb(amb, 2) + d(mb(amb, 3), 1) * (mb(amb, 6) + .5)): dontgo = 0: letsneg = 0
 
        FOR t = 0 TO mb_c - 1: IF mb(t, 0) = 0 OR t = amb OR dontgo THEN _CONTINUE
            vr = mb(t, 3) MOD 2: vr2 = vr = (mb(amb, 3) MOD 2)
            letsneg = letsneg OR (((ABS(mb(t, 1 + vr) - mb(amb, 1 + vr)) < 1) AND (mb(t, 1 + (vr XOR 1))) = (mb(amb, 1 + (vr XOR 1)))) AND vr2)
            dontgo = dontgo OR ((ABS(p(0) - mb(t, 1)) < 1 AND ABS(p(1) - mb(t, 2)) < 1) AND (vr2 = 0))
        NEXT t
 
        mb(amb, 3) = (mb(amb, 3) + ABS(((letsneg) OR map(p(0), p(1)) = 2 OR map(p(0), p(1)) = 3) OR (p(0) = 0 OR p(0) = map_x - 1 OR p(1) = 0 OR p(1) = map_y - 1)) * 2) MOD 4
        mb(amb, 4) = (mb(amb, 4) + ABS(dontgo)) * ABS(dontgo)
        mb(amb, 3) = (mb(amb, 3) + 2 * ABS((mb(amb, 4) > 5 / mb(amb, 6)) AND dontgo)) MOD 4
        mb(amb, 1) = mb(amb, 1) + d(mb(amb, 3), 0) * mb(amb, 6) * ABS(dontgo = 0)
        mb(amb, 2) = mb(amb, 2) + d(mb(amb, 3), 1) * mb(amb, 6) * ABS(dontgo = 0)
 
 
    NEXT amb
 
    'control me
    mousex = 0: mousey = 0: mw = 0: WHILE _MOUSEINPUT: mousex = mousex + _MOUSEMOVEMENTX: mousey = mousey + _MOUSEMOVEMENTY: mw = mw + _MOUSEWHEEL: WEND
    k_left = _KEYDOWN(19200) OR _KEYDOWN(ASC("a")): k_right = _KEYDOWN(19712) OR _KEYDOWN(ASC("d"))
    k_up = _KEYDOWN(18432) OR _KEYDOWN(ASC("w")) OR _MOUSEBUTTON(1): k_down = _KEYDOWN(20480) OR _KEYDOWN(ASC("s"))
 
    me(3) = (me(3) + mousex * 1) * ABS((_KEYDOWN(19200) OR _KEYDOWN(19712) OR _KEYDOWN(18432) OR _KEYDOWN(20480)) = 0)
 
    size_block = size_block - mw: IF size_block < 3 THEN size_block = 3 ELSE IF size_block > 140 THEN size_block = 140
 
    IF dead = 0 THEN
        IF crash_test(me(0), me(1)) THEN
            try_speed = speed_max * 1.1
            try = -1: FOR atry = 0 TO 3
                IF crash_test(me(0) + d(atry, 0) * try_speed, me(1) + d(atry, 1) * try_speed) = 0 THEN try = atry: EXIT FOR
            NEXT atry: IF try = -1 THEN dead = 1
            IF dead = 0 THEN me(0) = me(0) + d(atry, 0) * try_speed: me(1) = me(1) + d(atry, 1) * try_speed
        END IF
 
        go = me_speed * ABS(k_left OR k_right OR k_up OR k_down): go_ang = k_down * 180 + 90 * (k_left - k_right) + me(3)
        go_x = SIN(go_ang * pip180) * go + me(0)
        go_y = -COS(go_ang * pip180) * go + me(1)
        IF crash_test(go_x, go_y) = 0 THEN
            me(0) = go_x: me(1) = go_y
        END IF
 
 
    END IF
 
    'cheats
    inkey2$ = INKEY$
    IF inkey2$ = " " THEN RUN
    IF inkey2$ = "o" THEN dead = 1 'reborn
    IF inkey2$ = "p" THEN dead = 0 'dead
 
    _DISPLAY
 
    'money near- storyline
    IF storyline = 0 AND SQR((me(0) - money_x) ^ 2 + (me(1) - money_y) ^ 2) < 1.2 THEN storyline = 1: map(money_x, money_y) = 0
    IF storyline = 1 AND (me(0) > 0 AND me(0) < map_x - 1 AND me(1) > 0 AND me(1) < map_y - 1) = 0 THEN storyline = 2
 
    SELECT CASE storyline
        CASE 0: s$ = "GET THE MONEY !"
        CASE 1: s$ = "ESCAPE OUTSIDE THE WALL !"
        CASE 2: s$ = "Mission compeleted !"
    END SELECT
 
    IF dead THEN s$ = "you dead ,mission incompleted !"
    COLOR _RGB32(255 * RND(1), 255 * RND(1), 255 * RND(1)): LOCATE 1, 1: _PRINTSTRING (30, 30), s$ + SPACE$(20)
LOOP
 
SUB rotate_2d (x, y, ang): x1 = -(x * COS(ang) - y * SIN(ang)): y1 = -(x * SIN(ang) + y * COS(ang)): x = x1: y = y1: END SUB
 
SUB draw_brick (x, y, text, relsize)
    DIM x(3), y(3): xc = (x - me(0)) * size_block + .5: yc = (y - me(1)) * size_block + .5: rot = (-me(3) + 180) * pip180
    rotate_2d xc, yc, rot: xc = xc + monx / 2: yc = yc + mony / 2: size = size_block * size_wall * .5 * relsize
    FOR t = 0 TO 3: x(t) = size * -(SGN(t AND 1) * 2 - 1): y(t) = size * (ABS(t < 2) * 2 - 1)
    rotate_2d x(t), y(t), rot: x(t) = INT(x(t) + xc): y(t) = INT(y(t) + yc): NEXT t
    wtext = _WIDTH(text) - 1: htext = _HEIGHT(text) - 1
    _MAPTRIANGLE (0, 0)-(wtext, 0)-(0, htext), text TO(x(0), y(0))-(x(1), y(1))-(x(2), y(2)), , _SMOOTH
    _MAPTRIANGLE (wtext, htext)-(wtext, 0)-(0, htext), text TO(x(3), y(3))-(x(1), y(1))-(x(2), y(2)), , _SMOOTH
END SUB
 
FUNCTION crash_test (x, y)
    FOR myp = 0 TO 3
        mx = x + me(5) * .5 * (SGN(myp AND 1) * 2 - 1): my = y + me(5) * .5 * (SGN(myp AND 2) * 2 - 1)
 
        FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
            IF mx > mb(amb, 1) - .5 AND mx < mb(amb, 1) + .5 AND my > mb(amb, 2) - .5 AND my < mb(amb, 2) + .5 THEN crash_test = 1: EXIT FUNCTION
        NEXT amb
 
        FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: IF map(tx, ty) = 0 THEN _CONTINUE
                IF mx > tx - .5 AND mx < tx + .5 AND my > ty - .5 AND my < ty + .5 THEN crash_test = 1: EXIT FUNCTION
    NEXT ty, tx, myp
END FUNCTION
 
 

Programs / Re: courtesy cubes :)

« on: February 16, 2022, 04:56:14 pm »

a simple change to make more bricks. So far, there could have been 1 brick in 1 plane, so there could have been a maximum of X x Y bricks on the track. it had to be inserted so that there could be more bricks in 1 plane, but they would not cross each other.
The solution: when a brick moving in parallel meets, it loses direction, it releases a moving brick when it meets perpendicularly.

Code: QB64: [Select]

RANDOMIZE TIMER
mon = _NEWIMAGE(800, 800, 32): SCREEN mon: _DEST mon
 
DIM SHARED temp_color(9) AS _INTEGER64
 
map_x = 30
map_y = 30
mb_c = 150
speed = .08
size_block = 23
size_wall = .9 'size percent size_block
b_colors = 10
 
 
 
 
 
cent_x = (_WIDTH(mon) - size_block * map_x) / 2
cent_y = (_HEIGHT(mon) - size_block * map_y) / 2
 
 
DIM d(3, 1) AS _BYTE, map(map_x - 1, map_y - 1), mb(mb_c - 1, 9): d(3, 1) = -1: d(0, 0) = 1: d(1, 1) = 1: d(2, 0) = -1: d(3, 1) = -1 'directions
 
 
'make colors
DIM b_colors(b_colors - 1) AS _INTEGER64
FOR t = 0 TO b_colors - 1
    b_colors(t) = _RGB32(100 + 100 * RND(1), 100 + 100 * RND(1), 100 + 100 * RND(1))
NEXT t
 
'make walls
FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: map(tx, ty) = ABS(tx = 0 OR ty = 0 OR tx = map_x - 1 OR ty = map_y - 1): NEXT ty, tx
 
'make mover bricks
FOR t = 0 TO mb_c - 1
    DO: mb(t, 1) = INT(1 + (map_x - 2) * RND(1)): mb(t, 2) = INT(1 + (map_y - 2) * RND(1)): mb(t, 3) = INT(4 * RND(1)): busy = 0
        FOR t2 = 0 TO mb_c - 1: IF mb(t2, 0) = 0 THEN _CONTINUE
            busy = busy OR (mb(t2, 1) = mb(t, 1) AND mb(t2, 2) = mb(t, 2))
        NEXT t2
    LOOP WHILE busy
    mb(t, 0) = 1 'lets busy
    mb(t, 5) = INT(b_colors * RND(1))
NEXT t
 
'mb array
'0 ena/disa
'1,2 XY location
'3 'direction
'4 stop counter
'5 color index
 
 
 
 
 
 
 
'------------------------------------------- BOSS CYCLE
DO: _LIMIT 30: IF INKEY$ = " " THEN RUN
    'draw non mover blocks
    FOR tx = 0 TO map_x - 1: xc = tx * size_block + .5 + cent_x
        FOR ty = 0 TO map_y - 1: yc = ty * size_block + .5 + cent_y
            PSET (xc, yc), _RGB32(100, 100, 100)
            SELECT CASE map(tx, ty)
                CASE 1
                    size = size_block * size_wall / 2
                    LINE (xc - size, yc - size)-(xc + size, yc + size), _RGB32(255, 50, 50), BF
            END SELECT
    NEXT ty, tx
 
    'draw mover blocks
    FOR amb = 0 TO mb_c - 1
        xc = mb(amb, 1) * size_block + .5 + cent_x: yc = mb(amb, 2) * size_block + .5 + cent_y: size = size_block * size_wall / 2
        IF mb(amb, 0) = 0 THEN _CONTINUE
        LINE (xc - size, yc - size)-(xc + size, yc + size), b_colors(mb(amb, 5)), BF
    NEXT amb
 
    'moving mover bricks
 
    FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
        p(0) = CINT(mb(amb, 1) + d(mb(amb, 3), 0) * (speed + .5))
        p(1) = CINT(mb(amb, 2) + d(mb(amb, 3), 1) * (speed + .5))
 
 
        dontgo = 0: letsneg = 0
 
        FOR t = 0 TO mb_c - 1: IF mb(t, 0) = 0 OR t = amb THEN _CONTINUE
            vr = mb(t, 3) MOD 2
            IF vr = (mb(amb, 3) MOD 2) THEN
                IF (mb(t, 1 + (vr XOR 1))) <> (mb(amb, 1 + (vr XOR 1))) THEN _CONTINUE
                letsneg = letsneg OR (ABS(mb(t, 1 + vr) - mb(amb, 1 + vr)) < 1)
            ELSE
                dontgo = dontgo OR (ABS(p(0) - mb(t, 1)) < 1 AND ABS(p(1) - mb(t, 2)) < 1)
            END IF
        NEXT t
 
        '        mb(amb, 3) = (mb(amb, 3) + ABS((letsneg AND mb(amb, 4) = 0) OR map(p(0), p(1)) = 1) * 2) MOD 4
        mb(amb, 3) = (mb(amb, 3) + ABS((letsneg) OR map(p(0), p(1)) = 1) * 2) MOD 4
 
        IF dontgo THEN
            mb(amb, 4) = (mb(amb, 4)) + 1: IF mb(amb, 4) > 5 / speed THEN mb(amb, 3) = (mb(amb, 3) + 2) MOD 4
        ELSE
            mb(amb, 1) = mb(amb, 1) + d(mb(amb, 3), 0) * speed: mb(amb, 2) = mb(amb, 2) + d(mb(amb, 3), 1) * speed: mb(amb, 4) = 0
        END IF
    NEXT amb
 
    _DISPLAY: CLS
 
 
LOOP
 
 

Programs / Re: courtesy cubes :)

« on: February 16, 2022, 02:40:13 pm »

this is a great idea! :)

Programs / Re: courtesy cubes :)

« on: February 15, 2022, 05:38:25 pm »

I don't understand Gauss :) There is a sorting principle: don't have one
movement in a row or column of 2 stones. so max stone = x * y
I was just thinking of a minimalist 3D skill game that could be written from a few lines.

Programs / courtesy cubes :)

« on: February 15, 2022, 05:01:51 pm »

this should make a game :)

Code: QB64: [Select]

RANDOMIZE TIMER
mon = _NEWIMAGE(800, 800, 32): SCREEN mon: _DEST mon
 
DIM SHARED temp_color(9) AS _INTEGER64
 
map_x = 30
map_y = 30
 
mb_c = 54: DIM mb(mb_c - 1, 9)
 
DIM map(map_x - 1, map_y - 1)
 
speed = .05
size_block = 23
size_wall = .9
 
cent_x = (_WIDTH(mon) - size_block * map_x) / 2
cent_y = (_HEIGHT(mon) - size_block * map_y) / 2
 
 
DIM d(3, 1) AS _BYTE
d(0, 0) = 0: d(0, 1) = -1
d(1, 0) = 1: d(1, 1) = 0
d(2, 0) = 0: d(2, 1) = 1
d(3, 0) = -1: d(3, 1) = 0
 
 
'make walls
FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: map(tx, ty) = ABS(tx = 0 OR ty = 0 OR tx = map_x - 1 OR ty = map_y - 1): NEXT ty, tx
 
'make mover bricks
FOR t = 0 TO mb_c - 1
    DO: mb(t, 1) = INT(1 + (map_x - 2) * RND(1)): mb(t, 2) = INT(1 + (map_y - 2) * RND(1)): mb(t, 3) = INT(4 * RND(1)): busy = 0
        FOR t2 = 0 TO mb_c - 1: IF mb(t2, 0) = 0 THEN _CONTINUE
            busy = busy OR (mb(t2, 1) = mb(t, 1) AND mb(t2, 2) = mb(t, 2))
            sik = (mb(t, 3) MOD 2) = (mb(t2, 3) MOD 2) 'ha egy sikban mozognak
            busy = busy OR ((mb(t2, 1) = mb(t, 1)) AND sik)
            busy = busy OR ((mb(t2, 2) = mb(t, 2)) AND sik)
        NEXT t2
    LOOP WHILE busy
    mb(t, 0) = 1 'lets busy
NEXT t
 
'mb array
'0 ena/disa
'1,2 XY location
'3 'direction
 
 
 
 
 
 
 
 
'------------------------------------------- BOSS CYCLE
DO: _LIMIT 30
    'draw non mover blocks
    FOR tx = 0 TO map_x - 1: xc = tx * size_block + .5 + cent_x
        FOR ty = 0 TO map_y - 1: yc = ty * size_block + .5 + cent_y
            SELECT CASE map(tx, ty)
                CASE 1
                    size = size_block * size_wall / 2
                    LINE (xc - size, yc - size)-(xc + size, yc + size), _RGB32(255, 50, 50), BF
            END SELECT
    NEXT ty, tx
 
    'draw mover blocks
    FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
        xc = mb(amb, 1) * size_block + .5 + cent_x
        yc = mb(amb, 2) * size_block + .5 + cent_y
        size = size_block * size_wall / 2
        LINE (xc - size, yc - size)-(xc + size, yc + size), _RGB32(50, 255, 50), BF
    NEXT amb
 
    'moving mover bricks
 
    FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
        tx = CINT(mb(amb, 1) + d(mb(amb, 3), 0) * (speed + .5))
        ty = CINT(mb(amb, 2) + d(mb(amb, 3), 1) * (speed + .5))
 
 
        IF map(tx, ty) = 1 THEN mb(amb, 3) = (mb(amb, 3) + 2) MOD 4: _CONTINUE
        dontgo = 0
        FOR t = 0 TO mb_c - 1: IF mb(t, 0) = 0 THEN _CONTINUE
            IF (mb(t, 3) MOD 2) = (mb(amb, 3) MOD 2) THEN _CONTINUE
            tx2 = CINT(mb(t, 1))
            ty2 = CINT(mb(t, 2))
            IF tx = tx2 AND ty = ty2 THEN dontgo = 1: EXIT FOR
        NEXT t
 
 
 
        mb(amb, 1) = mb(amb, 1) + d(mb(amb, 3), 0) * speed * (dontgo XOR 1)
        mb(amb, 2) = mb(amb, 2) + d(mb(amb, 3), 1) * speed * (dontgo XOR 1)
 
 
    NEXT amb
 
 
    _DISPLAY: CLS
 
 
LOOP
 

Programs / Terror in the Maze (graphics enhancement + surround sound)

« on: February 14, 2022, 06:51:05 am »

I figured out a quick shading for _MAPTRIANGLE 3d.
After making the car game, I took out Terror in the maze again and was surprised that the 3D rendering was often incomprehensible. When I made the game, I didn’t see it objectively. After looking at it again for a long time, I saw that there was confusion, not seeing what was happening. Galleon's idea of shading the maze is very good! But only the maze became shaded, not the other elements. The enemies, the hundreds, or occasionally thousands of shrapnel, and the fire of the dragon were not shielded. Not because it would have required a lot of distance measurement, and the display would have stalled due to the many SQRs. In fact, for a thousand items, even a simple multiplication means a lot.
I came up with a good solution. Suppose we use 20 shades of 1 texture. The depth of _MAPTRIANGLE 3d Z is between 0 and -16384. I create an array DIM SHADOW (16384) and populate it proportionally from 0 to 20.
00000000111111111222222222 .... and so on.
This allows the shadow to be read without calculation from the Z value of the existing maptriangle.
De! the problem with that is cheating. If the observed object is not in front of us, but a little to the side, the Z-value will be less, so the object will become lighter, even though the distance from us is the same.
I came up with a solution for this:

Thus, with no calculations, thousands of textures appear shaded in front of us, creating the best 3D effect.
In addition, many changes:
-I also changed the generation of the maze walls. it’s not even programming, it’s more about color theory. I tried a lot to understand why that lot of color isn’t good, and I learned a lot during the making of the car game.
-as a car game, I also made this for surround sound. in principle it's written for a 4.0 sound system, but I can't try it, but the 2.0 stereo works. It is especially advantageous when we do not yet see the dragon but hear its direction.
-Many little things have been added to the program. I added what I needed and took what I didn’t. For example, the compass made no sense in the game.
-I added a multi-style maze texture to the game. Shown in the video. Everyone can choose which one is more enjoyable to play with.
-the gun gets hot in our hands if we shoot a lot. This will prevent the player from shooting recklessly, but not empty the magazine.
The course of the game has not changed.
Get the next round of ammo. Watch out, because if the monster gets close to you, it will take you away and run away with it! Shoot down every monster that approaches! If you have the ammo, the fairy will take you to the box that contains the dragons. Behind the box is the ammunition needed to blow up the next box. We can detonate the box if we have the ammunition and we will fire a 100% shot with the right mouse button!
Convert the 'starter' and 'titm_game' files to exe. The game starts with 'starter'.