Thursday | 21 NOV 2024
[ previous ]
[ next ]

Uxn - Day 6 - Part 3

Title:
Date: 2023-01-08
Tags:  

The final part of Day 6!

https://compudanzas.net/uxn_tutorial_day_6.html

This part goes over the ball handling and collision detection. This is the most complex part of the program and one where I realized I probably need to start abusing macros as I forget to type certain things like .Screen/width needing DEI2 to actually be read in. This could instead be a macro or even a variable as I don't usually forget a LDZ2 when loading a variable.

Now I've finished up the game of pong and it was definitely a good time. The tutorial got better in the later days as we were doing stuff that I'm used to.

I think a good project could be to make a gathering game for practice and then evolve that into snake. Brick breaker might also be good or even space invaders. Lot's of things open up now. I'll write my ideas and thoughts as a separate post after I finish the last day.

The final code for day 6:

( hello-pong.tal )

( devices )
|00 @System  [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|20 @Screen  [ &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
|80 @Controller [ &vector $2 &button $1 &key $1 ]

( macros )
%RTN { JMP2r }

%PADDLE-WIDTH { #0010 }
%PADDLE-HEIGHT { #0018 }
%PADDLE-SPEED { #0003 }

%PADDLE-COLOR { #c5 }
%CLEAR-COLOR { #40 }

%MARGIN { #0010 }

%HALF2 { #01 SFT2 }

%BALL-SIZE { #0010 }
%BALL-COLOR { #c5 }
%BALL-POSITIVE { #0002 }
%BALL-NEGATIVE { #fffe }

( main program )
|0000
    @left [ &x $2 &y $2 ]
    @right [ &x $2 &y $2 ]
    @ball [ &x $2 &y $2  &speed-x $2 &speed-y $2 ]

|0100

@setup
    #2ce9 .System/r DEO2
    #01c0 .System/g DEO2
    #2ce5 .System/b DEO2

    ;on-frame .Screen/vector DEO2
    
    ;draw-background JSR2

    MARGIN .left/x STZ2

    .Screen/width DEI2
    MARGIN SUB2 PADDLE-WIDTH SUB2
    .right/x STZ2

    .Screen/height DEI2 PADDLE-HEIGHT SUB2 HALF2 DUP2
    .left/y STZ2
    .right/y STZ2

    .Screen/width DEI2 BALL-SIZE SUB2
    HALF2
    .ball/x STZ2

    .Screen/height DEI2 BALL-SIZE SUB2
    HALF2
    .ball/y STZ2

    BALL-POSITIVE .ball/speed-x STZ2
    BALL-POSITIVE .ball/speed-y STZ2

    BALL-COLOR ;draw-ball JSR2
BRK

@draw-background
    ;tile-background .Screen/addr DEO2

    .Screen/height DEI2 #0010 SUB2 
    #0010

    &loop-y
        DUP2 .Screen/y DEO2

        .Screen/width DEI2
        #0000

        &loop-x
            DUP2 .Screen/x DEO2
            #03 .Screen/sprite DEO
            #0008 ADD2
            GTH2k ,&loop-x JCN
        POP2 POP2

        #0008 ADD2
        GTH2k ,&loop-y JCN
    POP POP
RTN

@draw-paddle ( x^ y^ color -- )
    STH

    .Screen/y DEO2
    .Screen/x DEO2

    ;paddle .Screen/addr DEO2

    #16 .Screen/auto DEO

    STHr
    .Screen/sprite DEOk DEOk 
    DEO
RTN

@update-paddles
    &left
        .Controller/button DEI
        DUP #10 AND ,&left-up JCN
        DUP #20 AND ,&left-down JCN
    ,&right JMP

    &left-up
        .left/y LDZ2 MARGIN EQU2 ,&end JCN
        .left/y LDZ2 PADDLE-SPEED SUB2 .left/y STZ2
    ,&right JMP

    &left-down
        .left/y LDZ2 
        .Screen/height DEI2 PADDLE-HEIGHT SUB2 
        MARGIN SUB2
        EQU2 ,&end JCN
        .left/y LDZ2 PADDLE-SPEED ADD2 .left/y STZ2
    ,&right JMP

    &right 
        DUP #01 AND ,&right-up JCN
        DUP #02 AND ,&right-down JCN
    ,&end JMP

    &right-up
        .right/y LDZ2 MARGIN EQU2 ,&end JCN
        .right/y LDZ2 PADDLE-SPEED SUB2 .right/y STZ2
    ,&end JMP

    &right-down
        .right/y LDZ2 
        .Screen/height DEI2 PADDLE-HEIGHT SUB2 
        MARGIN SUB2
        EQU2 ,&end JCN
        .right/y LDZ2 PADDLE-SPEED ADD2 .right/y STZ2
    ,&end JMP

    &end
        POP
RTN

@draw-ball ( color -- )
    .ball/x LDZ2 .Screen/x DEO2
    .ball/y LDZ2 .Screen/y DEO2

    ;ball-sprite .Screen/addr DEO2

    #16 .Screen/auto DEO

    .Screen/sprite DEOk DEO
RTN

@reset
    .Screen/width DEI2 BALL-SIZE SUB2
    HALF2 .ball/x STZ2

    .Screen/height DEI2 BALL-SIZE SUB2
    HALF2 .ball/y STZ2
RTN

@update-ball
    .ball/speed-x LDZ2 .ball/x LDZ2
    ADD2
    .ball/x STZ2

    .ball/speed-y LDZ2 .ball/y LDZ2
    ADD2
    .ball/y STZ2

    &check-top-wall
        .ball/y LDZ2 
        MARGIN 
        LTH2 ,&set-positive-speed JCN
    ,&check-bottom-wall JMP

    &set-positive-speed
        BALL-POSITIVE .ball/speed-y STZ2
    ,&continue JMP

    &check-bottom-wall
        .ball/y LDZ2 BALL-SIZE ADD2 
        .Screen/height DEI2 MARGIN SUB2 
        GTH2 ,&set-negative-speed JCN
    ,&continue JMP

    &set-negative-speed 
        BALL-NEGATIVE .ball/speed-y STZ2
    ,&continue JMP 

    &continue

    &check-left-paddle
        .ball/x LDZ2
        MARGIN PADDLE-WIDTH ADD2
        LTH2 ,&x-in-left JCN
    ,&check-right-paddle JMP

    &x-in-left
        .ball/y LDZ2 DUP2
        .left/y LDZ2 BALL-SIZE SUB2
        GTH2 STH

        .left/y LDZ2 PADDLE-HEIGHT ADD2 
        LTH2
        STHr
        AND
        ,&bounce-left JCN

        .ball/x LDZ2 #0000 NEQ2 ,&finish JCN

        &reset-left 
            ;reset JSR2
            ,&finish JMP

        &bounce-left
            BALL-POSITIVE .ball/speed-x STZ2
            ,&finish JMP

    &check-right-paddle
        .ball/x LDZ2 BALL-SIZE ADD2
        .Screen/width DEI2 MARGIN SUB2 PADDLE-WIDTH SUB2
        GTH2 ,&x-in-right JCN
    ,&finish JMP

    &x-in-right
        .ball/y LDZ2 DUP2
        .right/y LDZ2 BALL-SIZE SUB2
        GTH2 STH

        .right/y LDZ2 PADDLE-HEIGHT ADD2 
        LTH2
        STHr
        AND
        ,&bounce-right JCN

        .ball/x LDZ2 .Screen/width DEI2 NEQ2 ,&finish JCN

        &reset-right 
            ;reset JSR2
            ,&finish JMP

        &bounce-right
            BALL-NEGATIVE .ball/speed-x STZ2
            ,&finish JMP
    &finish
RTN

@on-frame
    CLEAR-COLOR ;draw-ball JSR2
    .left/x LDZ2 .left/y LDZ2 CLEAR-COLOR ;draw-paddle JSR2
    .right/x LDZ2 .right/y LDZ2 CLEAR-COLOR ;draw-paddle JSR2

    ;update-paddles JSR2
    ;update-ball JSR2

    .left/x LDZ2 .left/y LDZ2 PADDLE-COLOR ;draw-paddle JSR2
    .right/x LDZ2 .right/y LDZ2 PADDLE-COLOR ;draw-paddle JSR2
    BALL-COLOR ;draw-ball JSR2
BRK

@tile-background 1122 4488 1122 4488

@paddle
 &tile0 [ 3f 7f e7 c3 c3 c3 c3 c3  00 00 18 3c 3c 3c 3c 3c ]
 &tile1 [ fc fe ff ff ff ff ff ff  00 00 00 00 00 00 06 06 ]
 &tile2 [ c3 c3 c3 c3 e7 ff ff ff  3c 3c 3c 3c 18 00 00 00 ]
 &tile3 [ ff ff ff ff ff ff ff ff  06 06 06 06 06 06 06 06 ]
 &tile4 [ ff ff ff ff ff ff 7f 3f  00 00 00 00 00 00 00 00 ]
 &tile5 [ ff ff ff ff ff ff fe fc  06 06 06 06 06 1e 3c 00 ]

 @ball-sprite
 &tile0 [ 03 0f 1f 39 70 70 f9 ff  00 00 00 06 0f 0f 06 00 ]
 &tile1 [ c0 f0 f8 fc fe fe ff ff  00 00 00 00 08 0c 06 06 ]
 &tile2 [ ff ff 7f 7f 3f 1f 0f 03  00 00 00 00 18 0f 01 00 ]
 &tile3 [ ff ff fe fe fc f8 f0 c0  06 06 0c 1c 38 f0 c0 00 ]