luanette 0.0.0-stage → 0.4.0

package/pyrandom.mjs

@@ -0,0 +1,50 @@
+// Python's random.Random(seed).random(), exactly: the Mersenne Twister, seeded as Python seeds it
+// from an int (init_by_array). check.py's scripted input draws taps from it, and the command-line
+// tool feeds a cart the same input.
+export function pyRandom(seed) {
+  const N = 624, mt = new Uint32Array(N);
+  let mti = N + 1;
+  const init = (s) => {
+    mt[0] = s >>> 0;
+    for (mti = 1; mti < N; mti++) {
+      const p = mt[mti - 1] ^ (mt[mti - 1] >>> 30);
+      mt[mti] = (Math.imul(1812433253, p) + mti) >>> 0;
+    }
+  };
+  init(19650218);
+  const key = [seed >>> 0];
+  let i = 1, j = 0;
+  for (let k = Math.max(N, key.length); k; k--) {
+    const p = mt[i - 1] ^ (mt[i - 1] >>> 30);
+    mt[i] = ((mt[i] ^ Math.imul(p, 1664525)) + key[j] + j) >>> 0;
+    i++; j++;
+    if (i >= N) { mt[0] = mt[N - 1]; i = 1; }
+    if (j >= key.length) j = 0;
+  }
+  for (let k = N - 1; k; k--) {
+    const p = mt[i - 1] ^ (mt[i - 1] >>> 30);
+    mt[i] = ((mt[i] ^ Math.imul(p, 1566083941)) - i) >>> 0;
+    i++;
+    if (i >= N) { mt[0] = mt[N - 1]; i = 1; }
+  }
+  mt[0] = 0x80000000;
+  const next = () => {
+    if (mti >= N) {
+      for (let kk = 0; kk < N; kk++) {
+        const y = (mt[kk] & 0x80000000) | (mt[(kk + 1) % N] & 0x7fffffff);
+        mt[kk] = mt[(kk + 397) % N] ^ (y >>> 1) ^ (y & 1 ? 0x9908b0df : 0);
+      }
+      mti = 0;
+    }
+    let y = mt[mti++];
+    y ^= y >>> 11;
+    y ^= (y << 7) & 0x9d2c5680;
+    y ^= (y << 15) & 0xefc60000;
+    y ^= y >>> 18;
+    return y >>> 0;
+  };
+  return () => {
+    const a = next() >>> 5, b = next() >>> 6;
+    return (a * 67108864 + b) / 9007199254740992;
+  };
+}

package/templates/blank.lua

@@ -0,0 +1,45 @@
+-- title: Blank
+-- by: you
+-- about: a sprite to move: a place to start
+-- api: 4
+-- canvas: full
+
+-- sprites (the playground's sprite editor writes this table)
+SPRITES = {
+  [1] = "00777700 07777770 77177177 77777777 77777777 77177177 07711770 00777700", -- face
+}
+
+-- The whole screen: the 128x128 picture in the middle, and bands above and below it in the
+-- full-color layer (hd) for the title and what to do. Drawn once; they stay.
+local c = caps()
+local W, H = c.w, c.h
+local TOP, BOT = c.picture_y, c.picture_y + 384
+
+local function bands(title, hint)
+  hd.scanlines(false)
+  hd.gradient(0, 0, W, TOP, 0x1b2440, 0x000000)
+  hd.text(title, W / 2, TOP / 2 - 16, 0xffffff, 24, "bold", "center")
+  hd.gradient(0, BOT, W, H - BOT, 0x000000, 0x1b2440)
+  hd.text(hint, W / 2, BOT + 22, 0x9aa4b8, 14, "mono", "center")
+end
+
+local x, y = 60, 60   -- the sprite's top left, in picture pixels (0 to 127)
+
+function _init()
+  fps(60, 10)          -- 60 while touched, 10 when nothing moves: a still screen costs nothing
+  bands("BLANK", "drag or arrow keys to move")
+  log("started")       -- shows in the playground's Console
+end
+
+function _update()
+  if btn(0) then x = x - 1 end
+  if btn(1) then x = x + 1 end
+  if btn(2) then y = y - 1 end
+  if btn(3) then y = y + 1 end
+  x, y = mid(0, x, 120), mid(0, y, 120)
+end
+
+function _draw()
+  cls(1)
+  spr(1, x, y)
+end

package/templates/platformer.lua

@@ -0,0 +1,95 @@
+-- title: Platformer
+-- by: you
+-- about: jump between platforms and pick up the coins
+-- api: 4
+-- canvas: full
+
+-- sprites (the playground's sprite editor writes this table)
+SPRITES = {
+  [1] = "00888800 08888880 08f1f180 08ffff80 00888800 08888880 08800880 08800880", -- player
+  [2] = "00aaaa00 0aa99aa0 aa9aa9aa aa9aa9aa aa9aa9aa aa9aa9aa 0aa99aa0 00aaaa00", -- coin
+}
+-- sounds (the playground's sound editor writes this table)
+SOUNDS = {
+  [8] = "03 0000 18050 1f051 24045", -- jump
+  [9] = "03 0000 2f160 34165", -- coin
+  [10] = "06 0000 1f050 18053", -- fall
+}
+
+-- The whole screen: the 128x128 picture in the middle, and bands above and below it in the
+-- full-color layer (hd) for the title and what to do. Drawn once; they stay.
+local c = caps()
+local W, H = c.w, c.h
+local TOP, BOT = c.picture_y, c.picture_y + 384
+
+local function bands(title, hint)
+  hd.scanlines(false)
+  hd.gradient(0, 0, W, TOP, 0x1b2440, 0x000000)
+  hd.text(title, W / 2, TOP / 2 - 16, 0xffffff, 24, "bold", "center")
+  hd.gradient(0, BOT, W, H - BOT, 0x000000, 0x1b2440)
+  hd.text(hint, W / 2, BOT + 22, 0x9aa4b8, 14, "mono", "center")
+end
+
+local GRAVITY, JUMP, SPEED = 0.25, -3.6, 1.4
+local floors = {         -- platforms: x, y (their top), w
+  {x = 0, y = 120, w = 128}, {x = 12, y = 96, w = 36}, {x = 72, y = 80, w = 40},
+  {x = 24, y = 58, w = 32}, {x = 80, y = 40, w = 36},
+}
+local me = {x = 8, y = 100, vx = 0, vy = 0, ground = false}
+local coins, score, level = {}, 0, 1
+
+local function new_coins()
+  coins = {}
+  for i = 2, #floors do
+    local f = floors[i]
+    coins[#coins + 1] = {x = f.x + flr(rnd(f.w - 8)), y = f.y - 12}
+  end
+end
+
+function _init()
+  bands("PLATFORMER", "drag to run  ·  tap to jump")
+  new_coins()
+end
+
+function _update()
+  me.vx = (btn(0) and -SPEED or 0) + (btn(1) and SPEED or 0)
+  if btnp(4) and me.ground then
+    me.vy = JUMP
+    sfx(8)
+  end
+  me.vy = me.vy + GRAVITY
+  local was = me.y
+  me.x = mid(0, me.x + me.vx, 120)
+  me.y = me.y + me.vy
+  me.ground = false
+  for _, f in ipairs(floors) do  -- land on a platform's top on the way down
+    if me.vy >= 0 and was + 8 <= f.y and me.y + 8 >= f.y and me.x + 6 > f.x and me.x + 2 < f.x + f.w then
+      me.y, me.vy, me.ground = f.y - 8, 0, true
+    end
+  end
+  for i = #coins, 1, -1 do
+    local k = coins[i]
+    if abs(me.x - k.x) < 7 and abs(me.y - k.y) < 7 then
+      table.remove(coins, i)
+      score = score + 1
+      sfx(9)
+    end
+  end
+  if #coins == 0 then
+    level = level + 1
+    log("level", level, "score", score)
+    new_coins()
+  end
+  if me.y > 128 then  -- fell off: back to the start
+    me.x, me.y, me.vy = 8, 100, 0
+    sfx(10)
+  end
+end
+
+function _draw()
+  cls(12)
+  for _, f in ipairs(floors) do rectfill(f.x, f.y, f.x + f.w - 1, f.y + 3, 3) end
+  for _, k in ipairs(coins) do spr(2, k.x, k.y) end
+  spr(1, me.x, me.y, me.vx < 0)
+  print("score " .. score, 2, 2, 7)
+end

package/templates/puzzle.lua

@@ -0,0 +1,96 @@
+-- title: Puzzle
+-- by: you
+-- about: lights out: switch every light off
+-- api: 4
+-- canvas: full
+
+-- sprites (the playground's sprite editor writes this table)
+SPRITES = {
+  [1] = "000a0000 000a0000 0aaaaa00 00aaa000 00a0a000 0a000a00 00000000 00000000", -- star
+}
+-- sounds (the playground's sound editor writes this table)
+SOUNDS = {
+  [8] = "02 0000 28345", -- click
+  [9] = "06 0000 24150 28150 2b150 30155", -- solved
+}
+
+-- The whole screen: the 128x128 picture in the middle, and bands above and below it in the
+-- full-color layer (hd) for the title and what to do. Drawn once; they stay.
+local c = caps()
+local W, H = c.w, c.h
+local TOP, BOT = c.picture_y, c.picture_y + 384
+
+local function bands(title, hint)
+  hd.scanlines(false)
+  hd.gradient(0, 0, W, TOP, 0x1b2440, 0x000000)
+  hd.text(title, W / 2, TOP / 2 - 16, 0xffffff, 24, "bold", "center")
+  hd.gradient(0, BOT, W, H - BOT, 0x000000, 0x1b2440)
+  hd.text(hint, W / 2, BOT + 22, 0x9aa4b8, 14, "mono", "center")
+end
+
+-- Lights out: switching a light switches the four next to it too. Get them all off.
+local N, CELL, X0, Y0 = 5, 22, 9, 14
+local lit, cx, cy, moves, solved = {}, 3, 3, 0, false
+local was_touching = false
+
+local function flip(x, y)
+  for _, d in ipairs({{0, 0}, {1, 0}, {-1, 0}, {0, 1}, {0, -1}}) do
+    local i, j = x + d[1], y + d[2]
+    if i >= 1 and i <= N and j >= 1 and j <= N then lit[j][i] = not lit[j][i] end
+  end
+end
+
+local function new_puzzle()  -- from all off, a few random presses: always solvable
+  for j = 1, N do lit[j] = {} for i = 1, N do lit[j][i] = false end end
+  for _ = 1, 8 do flip(flr(rnd(N)) + 1, flr(rnd(N)) + 1) end
+  moves, solved = 0, false
+end
+
+function _init()
+  fps(60, 10)  -- 60 while touched, 10 when nothing moves
+  bands("PUZZLE", "tap a light  ·  switch them all off")
+  new_puzzle()
+end
+
+function _update()
+  local tx, ty = touch()
+  if tx then  -- a finger: the cursor goes where it is (a tap then presses, as A)
+    cx = mid(1, flr((tx - X0) / CELL) + 1, N)
+    cy = mid(1, flr((ty - Y0) / CELL) + 1, N)
+  elseif not was_touching then
+    if btnp(0) then cx = mid(1, cx - 1, N) end
+    if btnp(1) then cx = mid(1, cx + 1, N) end
+    if btnp(2) then cy = mid(1, cy - 1, N) end
+    if btnp(3) then cy = mid(1, cy + 1, N) end
+  end
+  was_touching = tx ~= nil
+  if btnp(4) then
+    if solved then new_puzzle() return end
+    flip(cx, cy)
+    moves = moves + 1
+    sfx(8)
+    local any = false
+    for j = 1, N do for i = 1, N do any = any or lit[j][i] end end
+    if not any then
+      solved = true
+      sfx(9)
+      log("solved in", moves, "moves")
+    end
+  end
+end
+
+function _draw()
+  cls(1)
+  for j = 1, N do
+    for i = 1, N do
+      local x, y = X0 + (i - 1) * CELL, Y0 + (j - 1) * CELL
+      rectfill(x + 1, y + 1, x + CELL - 2, y + CELL - 2, lit[j][i] and 10 or 5)
+      if i == cx and j == cy then rect(x, y, x + CELL - 1, y + CELL - 1, 7) end
+    end
+  end
+  print("moves " .. moves, 2, 2, 7)
+  if solved then
+    spr(1, 56, 4)
+    print("solved: tap for another", 18, 122, 11)
+  end
+end

package/templates/shooter.lua

@@ -0,0 +1,108 @@
+-- title: Shooter
+-- by: you
+-- about: steer the ship; it fires on its own
+-- api: 4
+-- canvas: full
+
+-- sprites (the playground's sprite editor writes this table)
+SPRITES = {
+  [1] = "00077000 00077000 0077c700 007cc700 077cc770 77777777 78077087 80000008", -- ship
+  [2] = "08000080 00800800 08888880 88188188 88888888 08088080 80000008 08000080", -- invader
+}
+-- sounds (the playground's sound editor writes this table)
+SOUNDS = {
+  [8] = "01 0000 30223", -- shot
+  [9] = "04 0000 18770 0c755", -- boom
+  [10] = "06 0000 10460 0c455", -- hurt
+}
+
+-- The whole screen: the 128x128 picture in the middle, and bands above and below it in the
+-- full-color layer (hd) for the title and what to do. Drawn once; they stay.
+local c = caps()
+local W, H = c.w, c.h
+local TOP, BOT = c.picture_y, c.picture_y + 384
+
+local function bands(title, hint)
+  hd.scanlines(false)
+  hd.gradient(0, 0, W, TOP, 0x1b2440, 0x000000)
+  hd.text(title, W / 2, TOP / 2 - 16, 0xffffff, 24, "bold", "center")
+  hd.gradient(0, BOT, W, H - BOT, 0x000000, 0x1b2440)
+  hd.text(hint, W / 2, BOT + 22, 0x9aa4b8, 14, "mono", "center")
+end
+
+local ship = {x = 60}
+local shots, foes, sparks = {}, {}, {}
+local score, lives, t = 0, 3, 0
+
+function _init()
+  bands("SHOOTER", "drag to steer  ·  tap to start again")
+end
+
+local function hit(f)  -- an enemy goes up in sparks
+  for i = 1, 8 do
+    sparks[#sparks + 1] = {x = f.x + 4, y = f.y + 4, vx = rnd(2) - 1, vy = rnd(2) - 1, life = 15}
+  end
+  sfx(9)
+end
+
+function _update()
+  t = t + 1
+  if lives == 0 then
+    if btnp(4) then score, lives, foes, shots = 0, 3, {}, {} end
+    return
+  end
+  local tx = touch()
+  if tx then ship.x = tx - 4 end
+  if btn(0) then ship.x = ship.x - 2 end
+  if btn(1) then ship.x = ship.x + 2 end
+  ship.x = mid(0, ship.x, 120)
+  if t % 8 == 0 then
+    shots[#shots + 1] = {x = ship.x + 3, y = 112}
+    sfx(8)
+  end
+  if t % 30 == 0 then foes[#foes + 1] = {x = flr(rnd(120)), y = -8, phase = rnd(1)} end
+  for i = #shots, 1, -1 do
+    local s = shots[i]
+    s.y = s.y - 4
+    if s.y < -4 then table.remove(shots, i) end
+  end
+  for i = #foes, 1, -1 do
+    local f = foes[i]
+    f.y = f.y + 0.6 + score / 200
+    f.x = f.x + sin(t / 60 + f.phase) * 0.5
+    local gone = false
+    for j = #shots, 1, -1 do
+      local s = shots[j]
+      if s.x >= f.x and s.x <= f.x + 7 and s.y >= f.y and s.y <= f.y + 7 then
+        table.remove(shots, j)
+        hit(f)
+        score = score + 1
+        gone = true
+        break
+      end
+    end
+    if not gone and (f.y > 128 or (f.y > 108 and abs(f.x - ship.x) < 7)) then
+      lives = lives - 1
+      sfx(10)
+      log("lost a life at score", score)
+      gone = true
+    end
+    if gone then table.remove(foes, i) end
+  end
+  for i = #sparks, 1, -1 do
+    local p = sparks[i]
+    p.x, p.y, p.life = p.x + p.vx, p.y + p.vy, p.life - 1
+    if p.life <= 0 then table.remove(sparks, i) end
+  end
+end
+
+function _draw()
+  cls(0)
+  for _, s in ipairs(shots) do rectfill(s.x, s.y, s.x + 1, s.y + 3, 10) end
+  for _, f in ipairs(foes) do spr(2, f.x, f.y) end
+  for _, p in ipairs(sparks) do pset(p.x, p.y, p.life > 8 and 10 or 9) end
+  if lives > 0 then spr(1, ship.x, 116) end
+  print("score " .. score, 2, 2, 7)
+  print("lives " .. lives, 96, 2, 8)
+  if lives == 0 then print("game over: tap", 36, 60, 7) end
+end