add to pipeline

mranderson.lua

@@ -0,0 +1,318 @@
+-- title:   Mr Anderson's Addventure
+-- author:  Zsolt Tasnadi
+-- desc:    Life of a programmer in the Matrix
+-- site:    http://teletype.hu
+-- license: MIT License
+-- version: 0.1
+-- script:  lua
+
+-- Game constants
+SCREEN_WIDTH = 240
+SCREEN_HEIGHT = 136
+
+-- Colors
+COLOR_BLACK = 0
+COLOR_LIGHT_GREY = 13
+COLOR_DARK_GREY = 14
+COLOR_GREEN = 6
+COLOR_NPC = 8
+
+-- Game state
+STATE_SPLASH = 0
+STATE_MENU = 1
+STATE_GAME = 2
+STATE_DIALOG = 3
+
+-- Player constants
+PLAYER_WIDTH = 8
+PLAYER_HEIGHT = 8
+PLAYER_START_X = 120
+PLAYER_START_Y = 128
+
+-- Ground constants
+GROUND_X = 0
+GROUND_Y = 136
+GROUND_W = 240
+GROUND_H = 8
+
+-- Physics constants
+GRAVITY = 0.5
+JUMP_POWER = -5
+MOVE_SPEED = 1.5
+MAX_JUMPS = 2
+
+-- Global variables (initialized)
+local gameState = STATE_SPLASH
+local currentScreen = 1
+local dialog_text = ""
+local splash_timer = 120 -- 2 seconds at 60fps
+
+-- Player properties
+local player = {
+  x = PLAYER_START_X,
+  y = PLAYER_START_Y,
+  w = PLAYER_WIDTH,
+  h = PLAYER_HEIGHT,
+  vx = 0,
+  vy = 0,
+  jumps = 0
+}
+
+-- Ground properties
+local ground = {
+  x = GROUND_X,
+  y = GROUND_Y,
+  w = GROUND_W,
+  h = GROUND_H
+}
+
+-- Menu properties
+local menuItems = {"Play", "Exit"}
+local selectedMenuItem = 1
+
+local function draw_splash()
+  cls(COLOR_BLACK)
+  print("Mr. Anderson's", 78, 60, COLOR_LIGHT_GREY)
+  print("Addventure", 90, 70, COLOR_LIGHT_GREY)
+end
+
+local function update_splash()
+  splash_timer = splash_timer - 1
+  if splash_timer <= 0 then
+    gameState = STATE_MENU
+  end
+end
+
+local function draw_top_bar(title)
+  rect(0, 0, SCREEN_WIDTH, 10, COLOR_BLACK)
+  print(title, 3, 2, COLOR_LIGHT_GREY)
+end
+
+local function draw_menu()
+  cls(COLOR_LIGHT_GREY)
+  draw_top_bar("Main Menu")
+  for i, item in ipairs(menuItems) do
+    local color = COLOR_DARK_GREY
+    if i == selectedMenuItem then
+      color = COLOR_GREEN
+    end
+    print(item, 108, 70 + (i-1)*10, color)
+  end
+end
+
+local function update_menu()
+  if btnp(0) then -- Up
+    selectedMenuItem = selectedMenuItem - 1
+    if selectedMenuItem < 1 then
+      selectedMenuItem = #menuItems
+    end
+  elseif btnp(1) then -- Down
+    selectedMenuItem = selectedMenuItem + 1
+    if selectedMenuItem > #menuItems then
+      selectedMenuItem = 1
+    end
+  end
+
+  if btnp(4) or btnp(5) then -- A or B button
+    if selectedMenuItem == 1 then -- Play
+      -- Reset player state and screen for a new game
+      player.x = PLAYER_START_X
+      player.y = PLAYER_START_Y
+      player.vx = 0
+      player.vy = 0
+      player.jumps = 0
+      currentScreen = 1
+      gameState = STATE_GAME
+    elseif selectedMenuItem == 2 then -- Exit
+      exit()
+    end
+  end
+end
+
+-- Screen data
+local screens = {
+  { -- Screen 1
+    name = "Screen 1",
+    platforms = {
+      {x = 80, y = 110, w = 40, h = 8},
+      {x = 160, y = 90, w = 40, h = 8}
+    },
+    npcs = {
+      {x = 180, y = 82, name = "Trinity"},
+      {x = 90, y = 102, name = "Oracle"}
+    }
+  },
+  { -- Screen 2
+    name = "Screen 2",
+    platforms = {
+      {x = 30, y = 100, w = 50, h = 8},
+      {x = 100, y = 80, w = 50, h = 8},
+      {x = 170, y = 60, w = 50, h = 8}
+    },
+    npcs = {
+      {x = 120, y = 72, name = "Morpheus"},
+      {x = 40, y = 92, name = "Tank"}
+    }
+  },
+  { -- Screen 3
+    name = "Screen 3",
+    platforms = {
+      {x = 50, y = 110, w = 30, h = 8},
+      {x = 100, y = 90, w = 30, h = 8},
+      {x = 150, y = 70, w = 30, h = 8},
+      {x = 200, y = 50, w = 30, h = 8}
+    },
+    npcs = {
+      {x = 210, y = 42, name = "Agent Smith"},
+      {x = 160, y = 62, name = "Cypher"}
+    }
+  }
+}
+
+local function game_update()
+  -- Handle input
+  if btn(2) then
+    player.vx = -MOVE_SPEED
+  elseif btn(3) then
+    player.vx = MOVE_SPEED
+  else
+    player.vx = 0
+  end
+
+  if btnp(4) and player.jumps < MAX_JUMPS then
+    player.vy = JUMP_POWER
+    player.jumps = player.jumps + 1
+  end
+
+  -- Update player position
+  player.x = player.x + player.vx
+  player.y = player.y + player.vy
+
+  -- Screen transition
+  if player.x > SCREEN_WIDTH - player.w then
+    if currentScreen < #screens then
+      currentScreen = currentScreen + 1
+      player.x = 0
+    else
+      player.x = SCREEN_WIDTH - player.w
+    end
+  elseif player.x < 0 then
+    if currentScreen > 1 then
+      currentScreen = currentScreen - 1
+      player.x = SCREEN_WIDTH - player.w
+    else
+      player.x = 0
+    end
+  end
+
+  -- Apply gravity
+  player.vy = player.vy + GRAVITY
+
+  local currentScreenData = screens[currentScreen]
+  local currentPlatforms = currentScreenData.platforms
+  -- Collision detection with platforms
+  for i, p in ipairs(currentPlatforms) do
+    if player.vy > 0 and player.y + player.h >= p.y and player.y + player.h <= p.y + p.h and player.x + player.w > p.x and player.x < p.x + p.w then
+      player.y = p.y - player.h
+      player.vy = 0
+      player.jumps = 0
+    end
+  end
+
+  -- Collision detection with ground
+  if player.y + player.h > ground.y and player.x + player.w > ground.x and player.x < ground.x + ground.w then
+    player.y = ground.y - player.h
+    player.vy = 0
+    player.jumps = 0
+  end
+
+  -- NPC interaction
+  if btnp(4) then
+    for i, npc in ipairs(currentScreenData.npcs) do
+      if math.abs(player.x - npc.x) < 12 and math.abs(player.y - npc.y) < 12 then
+        dialog_text = npc.name
+        gameState = STATE_DIALOG
+      end
+    end
+  end
+
+  -- Clear screen
+  cls(COLOR_LIGHT_GREY)
+
+  draw_top_bar(currentScreenData.name)
+
+  -- Draw platforms
+  for i, p in ipairs(currentPlatforms) do
+    rect(p.x, p.y, p.w, p.h, COLOR_DARK_GREY)
+  end
+  
+  -- Draw NPCs
+  for i, npc in ipairs(currentScreenData.npcs) do
+    rect(npc.x, npc.y, PLAYER_WIDTH, PLAYER_HEIGHT, COLOR_NPC)
+  end
+
+  -- Draw ground
+  rect(ground.x, ground.y, ground.w, ground.h, COLOR_DARK_GREY)
+
+  -- Draw player
+  rect(player.x, player.y, player.w, player.h, COLOR_GREEN)
+end
+
+local function draw_dialog()
+  rect(40, 50, 160, 40, COLOR_BLACK)
+  rectb(40, 50, 160, 40, COLOR_DARK_GREY)
+  print(dialog_text, 120 - #dialog_text * 2, 68, COLOR_DARK_GREY)
+end
+
+local function update_dialog()
+  if btnp(4) or btnp(5) then
+    gameState = STATE_GAME
+  end
+end
+
+function TIC()
+  if gameState == STATE_SPLASH then
+    update_splash()
+    draw_splash()
+  elseif gameState == STATE_MENU then
+    update_menu()
+    draw_menu()
+  elseif gameState == STATE_GAME then
+    game_update()
+  elseif gameState == STATE_DIALOG then
+    game_update() -- keep drawing the game state in the background
+    draw_dialog()
+    update_dialog()
+  end
+end
+
+
+-- <TILES>
+-- 001:eccccccccc888888caaaaaaaca888888cacccccccacc0ccccacc0ccccacc0ccc
+-- 002:ccccceee8888cceeaaaa0cee888a0ceeccca0ccc0cca0c0c0cca0c0c0cca0c0c
+-- 003:eccccccccc888888caaaaaaaca888888cacccccccacccccccacc0ccccacc0ccc
+-- 004:ccccceee8888cceeaaaa0cee888a0ceeccca0cccccca0c0c0cca0c0c0cca0c0c
+-- 017:cacccccccaaaaaaacaaacaaacaaaaccccaaaaaaac8888888cc000cccecccccec
+-- 018:ccca00ccaaaa0ccecaaa0ceeaaaa0ceeaaaa0cee8888ccee000cceeecccceeee
+-- 019:cacccccccaaaaaaacaaacaaacaaaaccccaaaaaaac8888888cc000cccecccccec
+-- 020:ccca00ccaaaa0ccecaaa0ceeaaaa0ceeaaaa0cee8888ccee000cceeecccceeee
+-- </TILES>
+
+-- <WAVES>
+-- 000:00000000ffffffff00000000ffffffff
+-- 001:0123456789abcdeffedcba9876543210
+-- 002:0123456789abcdef0123456789abcdef
+-- </WAVES>
+
+-- <SFX>
+-- 000:000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000304000000000
+-- </SFX>
+
+-- <TRACKS>
+-- 000:100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+-- </TRACKS>
+
+-- <PALETTE>
+-- 000:1a1c2c5d275db13e53ef7d57ffcd75a7f07038b76425717929366f3b5dc941a6f673eff7f4f4f494b0c2566c86333c57
+-- </PALETTE>
+