microw8/examples/curlywas/skipahead.cwa

include "../include/microw8-api.cwa"

global mut pz: i32 = 4;
global mut px: f32 = 2.0;
global mut py: f32 = 2.0;
global mut s: f32 = 2.0;
global mut f: f32 = 2.0;

export fn upd() {
    let y: i32;
    let inline zero = 0_f;

    let lazy control_speed = 0.03125;
    s = s + 0.1875 - (f + control_speed) * isButtonPressed(4 <| cls(4)) as f32;
    f = f * 0.5625;

    printInt(pz);

    loop lines {
        let lazy z = (4000 / (y := y + 1) + pz) / 20;
        let lazy x = px - ({randomSeed(z); random()} >> 30) as f32;
        let lazy w = 9 as f32 / sqrt(z as f32);
        let lazy rx = 160 as f32 - (y as f32 * x);
        let inline rw = y as f32 * w;
        
        let inline c = (z & 1) * -2;
        let inline yf = y as f32;
        rectangle(rx, yf, rw, yf / 6 as f32, c + 1);
        rectangle(rx, yf, rw, 1 as f32, c - 4);

        if y == 180 & py > zero {
            if x > w | x < zero {
                0?80 = 0xc3;
                3?80 = 32;
                return;
            }
            py = zero;
            s = zero;
            f = 2 as f32;
        }

        branch_if y < 240: lines;
    }

    circle(160 as f32, 160 as f32 + py, 22 as f32, -28);
    circle((160 - 6) as f32, (160 - 6) as f32 + py, 6 as f32, -26);

    0?86 = py < zero;
    3?86 = 32 - py as i32;

    px = px + (isButtonPressed(3) - isButtonPressed(2)) as f32 * control_speed;
    py = py + s;
    pz = pz + 1;
}