code.lua

-- title:  Lockdown
-- author: BOOtak
-- desc:   Keep yourself alive crafting food from your inventory
-- script: lua

T = 8
W = 240
H = 136

W3D=80
H3D=45

sf = string.format

UP=0
DOWN=1
LEFT=2
RIGHT=3
BTN_Z=4
BTN_X=5

-- helpers

function safe1( f, arg )
  if f ~= nil then f(arg) end
end

function plural( i,one,pl )
  local res = sf("%d %s", i, pl)
  if i == 1 then res = sf("1 %s",one) end
  return res
end

function deepcopy(orig)
  local orig_type = type(orig)
  local copy
  if orig_type == 'table' then
    copy = {}
    for orig_key, orig_value in next, orig, nil do
      copy[deepcopy(orig_key)] = deepcopy(orig_value)
    end
    setmetatable(copy, deepcopy(getmetatable(orig)))
  else
    copy = orig
  end
  return copy
end

function removeFrom(tab,obj,toDel)
  if not table.contains(tab, obj) then
    trace("table does not contain object!!!")
  end
  obj.__rem=true
  obj.__del=toDel
end

function cleanup(tab)
  for i = #tab, 1, -1 do
    obj=tab[i]
    if obj.__rem then
      obj.__rem=false
      table.remove(tab, i)
      if obj.__del then obj=nil end
    end
  end
end

function table.contains(table, element)
  for _, value in pairs(table) do
    if value == element then
      return true
    end
  end
  return false
end

function table.matches( table1, table2 )
  for i,v in ipairs(table1) do
    if not table.contains(table2, v) then return false end
  end
  for i,v in ipairs(table2) do
    if not table.contains(table1, v) then return false end
  end
  return true
end

-- draw helpers

function make_tex(c0,w,h)
  tex={}
  for i=1,h do
    tex[i]={}
    for j=1,w do
      tex[i][j]=c0 + (j-1) + (i-1)*16
    end
  end
  return tex
end

function draw_entity( e )
  if e.sp == nil then return end
  local offx,offy = e.offx, e.offy
  if offx == nil then offx = 0 end
  if offy == nil then offy = 0 end
  for i,t in ipairs(e.sp) do
    for j,v in ipairs(t) do
      spr(v, e.x+(j-1)*T + offx, e.y+(i-1)*T + offy, 0)
    end
  end
end

function draw_entity_up( e )
  if e.sp == nil then return end
  local offx,offy = e.offx, e.offy
  if offx == nil then offx = 0 end
  if offy == nil then offy = 0 end
  for i,t in ipairs(e.sp) do
    for j,v in ipairs(t) do
      spr(v, e.x+(j-1)*T + offx, e.y-(#t-i+1)*T + offy, 0)
    end
  end
end

function printframe(text,x,y,c,fc,small)
  c = c or 15
  fc = fc or 0
  small = small or false
  print(text,x-1,y,fc,false,1,small)
  print(text,x+1,y,fc,false,1,small)
  print(text,x,y-1,fc,false,1,small)
  print(text,x,y+1,fc,false,1,small)
  print(text,x-1,y-1,fc,false,1,small)
  print(text,x+1,y-1,fc,false,1,small)
  print(text,x-1,y+1,fc,false,1,small)
  print(text,x+1,y+1,fc,false,1,small)
  print(text,x,y,c,false,1,small)
end

-- log

function splittokens(s)
  local res = {}
  for w in s:gmatch("%S+") do
    res[#res+1] = w
  end
  return res
end
 
function textwrap(text, linewidth)
  if not linewidth then
    linewidth = 75
  end

  local spaceleft = linewidth
  local res = {}
  local line = {}

  for _, word in ipairs(splittokens(text)) do
    if #word + 1 > spaceleft then
      table.insert(res, table.concat(line, ' '))
      line = {word}
      spaceleft = linewidth - #word
    else
      table.insert(line, word)
      spaceleft = spaceleft - (#word + 1)
    end
  end

  table.insert(res, table.concat(line, ' '))
  return res
end

LOGX,LOGY=10,110
LOG={}
LOGSTR_LIFETIME=180
CUR_HEIGHT=0

function add_log( str )
  local tokens = textwrap(str,42)
  for i,t in ipairs(tokens) do
    table.insert(LOG,{str=t,t=0})
  end
end

function update_log()
  for i,v in ipairs(LOG) do
    v.t = v.t + 1
    if v.t > LOGSTR_LIFETIME then
      removeFrom(LOG,v,true)
    end
  end
  cleanup(LOG)
end

function draw_log()
  local height = #LOG * T
  if CUR_HEIGHT < height then
    CUR_HEIGHT = CUR_HEIGHT + 1
  elseif CUR_HEIGHT > height then
    CUR_HEIGHT = height
  end

  for i,v in ipairs(LOG) do
    printframe(v.str,LOGX,H-CUR_HEIGHT+(i-1)*T)
  end
end

-- 3d

cam={
  x=0,
  y=0,
  z=0
}

function point_3d( x,y,z )
  local dz = z - cam.z
  if dz <= 0.00001 then return nil,nil end
  local x2d,y2d = (x-cam.x)/dz, (y-cam.y)/dz
  local xnorm, ynorm = (x2d + W3D/2) / W3D, (y2d + H3D/2) / H3D
  local xproj, yproj = xnorm * W, (-ynorm + 1) * H
  return xproj, yproj
end

function line_3d( x1,y1,z1,x2,y2,z2,c )
  xn1,yn1 = point_3d(x1,y1,z1)
  xn2,yn2 = point_3d(x2,y2,z2)
  if xn1 == nil or xn2 == nil then return end
  line(xn1,yn1,xn2,yn2,c)
end

function v3( x,y,z )
  return {x=x,y=y,z=z}
end

function sq( v )
  return v*v
end

function v2dist( v1,v2 )
  local p1,p2 = sq(v1.x-v2.x),sq(v1.y-v2.y)
  local res = math.sqrt(p1+p2)
  return res
end

function v3add( v1,v2 )
  return {x=v1.x+v2.x,y=v1.y+v2.y,z=v1.z+v2.z}
end

function line_3dv( v1,v2,c )
  line_3d(v1.x,v1.y,v1.z,v2.x,v2.y,v2.z,c)
end

function line_3dvv( vecs,c )
  for i=1,#vecs-1 do
    line_3dv(vecs[i], vecs[i+1], c)
  end
end

function circb_3dv( v,r,c )
  local cx,cy = point_3d(v.x,v.y,v.z)
  if cx == nil then return end
  local dx=v3(r,0,0)
  local p = v3add(v,dx)
  local px,py = point_3d(p.x,p.y,p.z)
  if px == nil then return end
  local r2d = math.abs(px-cx)
  circb(cx,cy,r2d,c)
end

function rect_3d( x,y,z,w,h )
  line_3d(x, y, z, x + w, y, z)
  line_3d(x, y, z, x, y - h, z)
  line_3d(x + w, y - h, z, x, y - h, z)
  line_3d(x + w, y - h, z, x + w, y, z)
end

Names={
  bw="Buckwheat",
  tp="Toilet Paper",
  bwp="Buckwheat porridge",
  w="Water",
  chr="Charcoal powder",
  mlk="Milk",
  bt="Butter",
  flw="Buckwheat Flour",
  brd="Bread",
  ink="Ink",
  pap="Paper",
  scrl="Scroll of Wisdom",
  ndls="Noodles",
  snw="Sandwich",
  crk="Cracker",
  dftp="Deep Fried Toilet Paper",
  mush="Mushy goo",
  vngr="Vinegar",
  chs="Cheese"
}

Items={
  {
    name=Names.tp,
    nutr=0,
    sp = make_tex(0, 2, 2),
    spoil=-1
  },
  {
    name=Names.bw,
    nutr=10,
    sp = make_tex(2, 2, 2),
    spoil=-1
  },
  {
    name=Names.bwp,
    nutr=20,
    sp = make_tex(6, 2, 2),
    spoil=3
  },
  {
    name=Names.w,
    nutr=1,
    sp = make_tex(4, 2, 2),
    spoil=-1
  },
  {
    name=Names.chr,
    nutr=0,
    sp=make_tex(8, 2, 2),
    spoil=-1
  },
  {
    name=Names.mlk,
    nutr=5,
    sp=make_tex(10, 2, 2),
    spoil=5
  },
  {
    name=Names.bt,
    nutr=6,
    sp=make_tex(12, 2, 2),
    spoil=10
  },
  {
    name=Names.flw,
    nutr=3,
    sp=make_tex(14, 2, 2),
    spoil=20
  },
  {
    name=Names.brd,
    nutr=8,
    sp=make_tex(32, 2, 2),
    spoil=15
  },
  {
    name=Names.ink,
    nutr=0,
    sp=make_tex(34, 2, 2),
    spoil=-1
  },
  {
    name=Names.pap,
    nutr=0,
    sp=make_tex(36, 2, 2),
    spoil=-1
  },
  {
    name=Names.scrl,
    nutr=0,
    sp=make_tex(38, 2, 2),
    spoil=-1
  },
  {
    name=Names.ndls,
    nutr=10,
    sp=make_tex(40, 2, 2),
    spoil=50
  },
  {
    name=Names.dftp,
    nutr=8,
    sp=make_tex(42, 2, 2),
    spoil=-1
  },
  {
    name=Names.snw,
    nutr=10,
    sp=make_tex(44, 2, 2),
    spoil=10
  },
  {
    name=Names.crk,
    nutr=6,
    sp=make_tex(46, 2, 2),
    spoil=-1
  },
  {
    name=Names.mush,
    nutr=5,
    sp=make_tex(64, 2, 2),
    spoil=1
  },
  {
    name=Names.vngr,
    nutr=0,
    sp=make_tex(66, 2, 2),
    spoil=-1
  },
  {
    name=Names.chs,
    nutr=12,
    sp=make_tex(68, 2, 2),
    spoil=30
  }
}

Button={
  x=0,
  y=0,
  w=0,
  h=0,
  pressed=false,
  hover=false,
  color=0,
  sp={},
  offx=0,
  offy=0,
  on_enter=nil,
  on_hover=nil,
  on_press=nil,
  on_release=nil,
  on_leave=nil
}

Inventory={
  name="Inventory",
  items={},
  size=15
}
Hand={
  name="Hand",
  items={},
  size=1
}
Craftstable={
  name="Craftstable",
  items={},
  size=2
}

ALL_INVENTORIES={
  Inventory,
  Hand,
  Craftstable
}

function enhance_craftstable()
  if Craftstable.size == 4 then return end
  Craftstable.size = 4
  add_log("The wisdom of the scroll allows you to craft more complicated recepies!")
  init_buttons()
end

Recepies={
  {
    items={Names.bw, Names.w},
    res=Names.bwp
  },
  {
    items={Names.tp},
    res=Names.chr
  },
  {
    items={Names.mlk},
    res=Names.bt
  },
  {
    items={Names.bw},
    res=Names.flw
  },
  {
    items={Names.tp, Names.w},
    res=Names.pap
  },
  {
    items={Names.flw, Names.mlk},
    res=Names.brd
  },
  {
    items={Names.flw, Names.w},
    res=Names.ndls
  },
  {
    items={Names.chr, Names.w},
    res=Names.ink
  },
  {
    items={Names.ink, Names.pap},
    res=Names.scrl
  },
  {
    items={Names.tp, Names.bt, Names.flw},
    res=Names.dftp
  },
  {
    items={Names.scrl},
    res={magic=enhance_craftstable}
  },
  {
    items={Names.brd, Names.bt},
    res=Names.snw
  },
  {
    items={Names.brd},
    res=Names.crk
  },
  {
    items={Names.crk,Names.mlk},
    res=Names.mush
  },
  {
    items={Names.mush,Names.w},
    res=Names.vngr
  },
  {
    items={Names.vngr,Names.mlk},
    res=Names.chs
  },
}

HEALTH=100
TIME=0

-- buttons

function g_press( btn )
  btn.color = 6
end

function g_release( btn )
  btn.color = 7
end

function g_hover( btn )
  btn.color = 8
end

function g_leave( btn )
  btn.color = btn.orig_c
end

function make_button( x, y, w, h, color, on_hover, on_leave, on_press, on_release, on_enter, sp, offx, offy, on_draw )
  local btn = deepcopy(Button)
  btn.x, btn.y = x,y
  btn.w, btn.h = w,h
  btn.color = color
  btn.orig_c = color
  btn.on_hover = on_hover
  btn.on_leave = on_leave
  btn.on_press = on_press
  btn.on_release = on_release
  btn.on_enter = on_enter
  btn.sp = sp
  btn.offx = offx
  btn.offy = offy
  btn.on_draw = on_draw
  return btn
end

function check_button( btn, mx, my, md )
  local x,y,r,d = btn.x, btn.y, btn.x + btn.w, btn.y + btn.h
  local old_hover = btn.hover
  local old_pressed = btn.pressed
  if x <= mx and r >= mx and y <= my and d >= my then
    btn.hover = true
    if md then
      btn.pressed = true
    else
      btn.pressed = false
    end
  else
    btn.hover = false
    btn.pressed = false
  end

  if btn.hover then
    safe1(btn.on_hover, btn)
  end

  if old_hover and not btn.hover then
    safe1(btn.on_leave, btn)
  elseif not old_hover and btn.hover then
    safe1(btn.on_enter, btn)
  end
  if old_pressed and not btn.pressed then
    safe1(btn.on_release, btn)
  elseif btn.pressed and not old_pressed then
    safe1(btn.on_press, btn)
  end
end

function draw_text_btn( btn,text )
  rect(btn.x, btn.y, btn.w, btn.h, btn.color)
  rectb(btn.x, btn.y, btn.w, btn.h, 2)
  local dx,dy=0,0
  if btn.pressed then
    rectb(btn.x + 1, btn.y + 1, btn.w - 1, btn.h - 1, 2)
    dx,dy=1,1
  else
    rectb(btn.x, btn.y, btn.w - 1, btn.h - 1, 2)
  end
  local tw,th = print(text, W,H),8
  printframe(text, btn.x + btn.w/2 - tw/2 + dx, btn.y + btn.h/2 - th/2 + dy, 6)
end

function draw_craft_btn( btn )
  draw_text_btn(btn,"Craft!")
end

function draw_eat_btn( btn )
  draw_text_btn(btn,"I'm ready!")
end

function draw_button( btn )
  if btn.on_draw ~= nil then
    btn.on_draw(btn)
    return
  end
  rect(btn.x, btn.y, btn.w, btn.h, btn.color)
  rectb(btn.x, btn.y, btn.w, btn.h, 2)
  rectb(btn.x + 1, btn.y + 1, btn.w - 1, btn.h - 1, 2)
  if btn.item ~= nil then
    local item,x,y,w,h = btn.item,btn.x,btn.y,btn.w,btn.h
    local ent = {x=x, y=y, sp=item.sp, offx=btn.offx, offy=btn.offy}
    draw_entity(ent)
    local count = item.count
    local width = print(count,W,H,15,false,1,true)
    printframe(count,x+w-width-1,y+h-6,15,0,true)
  end
end

-- inventory

function make_item( name,count )
  for i,it in ipairs(Items) do
    if it.name == name then
      new_item = deepcopy(it)
      new_item.count = count
      return new_item
    end
  end
end

function inventory_get( inv, item )
  for i,it in ipairs(inv.items) do
    if it.name == item.name and it.spoil == item.spoil then return it end
  end
  return nil
end

function inventory_get_count( inv, item, count )
  local it = inventory_get(inv, item)
  if it.count >= count then
    return it
  else
    return nil
  end
end

function inventory_take( inv, item, count )
  for i,it in ipairs(inv.items) do
    if it.name == item.name and it.spoil == item.spoil then
      local taken = math.min(count, it.count)
      local new_item = make_item(it.name, taken)
      new_item.spoil = it.spoil
      it.count = it.count - taken
      if it.count == 0 then
        removeFrom(inv.items, it, true)
      end
      return new_item
    end
  end
  return nil
end

function inventory_get_by_name( inv, name )
  res = {}
  for i,it in ipairs(inv.items) do
    if it.name == name then table.insert(res, it) end
  end
  return res
end

function inventory_add_item( inv, item )
  local same_items = inventory_get_by_name(inv, item.name)
  for i,same in ipairs(same_items) do
    if same.spoil == item.spoil then
      same.count = same.count + item.count
      return true
    end
  end
  if inv.size > #inv.items then
    table.insert(inv.items, item)
    return true
  end
  return false
end

function inventory_add( inv, name, count )
  local new_item = make_item(name, count)
  return inventory_add_item(inv, new_item)
end

function check_recepie( names )
  for i,recepie in ipairs(Recepies) do
    if table.matches(recepie.items, names) then return recepie.res end
  end
  return nil
end

function make_recepie( inv )
  names = {}
  if #inv.items == 0 then
    add_log("Place ingredients here to craft new item")
    return
  end
  namestr = ""
  min_item_count = -1
  for i,it in ipairs(inv.items) do
    table.insert(names, it.name)
    if string.len(namestr) == 0 then namestr = it.name
    else namestr = sf("%s, %s ", namestr, it.name) end
    if min_item_count == -1 or min_item_count > it.count then min_item_count = it.count end
  end

  if min_item_count == 0 then
    trace("unable to make 0 items")
    return false
  end

  local res = check_recepie(names)
  if res ~= nil then
    res_count = min_item_count * #inv.items
    -- check if have all items to remove
    for i,it in ipairs(inv.items) do
      local test = inventory_get_count(inv, it, min_item_count)
      if test == nil or test.count == 0 then return false end
    end

    -- remove items to make room for new item
    for i,it in ipairs(inv.items) do
      inventory_take(inv, it, min_item_count)
    end

    -- cleanup
    cleanup(inv.items)

    -- add new item
    if res.magic ~= nil then
      res.magic()
      return true
    elseif not inventory_add(inv, res, res_count) then
      trace(sf("Unable to add %s to inventory", res))
      return false
    end
  else
    add_log(sf("No recepie with %s!", namestr))
    return false
  end

  for i,itm in ipairs(Items) do
    if itm.name == res and not itm.discovered then
      itm.discovered = true
      add_log(sf("New discovery: %s!", res))
    end
  end
  return true
end

function update_spoil( inv )
  for i,it in ipairs(inv.items) do
    if it.spoil ~= -1 then
      it.spoil = it.spoil - 1
      if it.spoil == 0 then
        add_log(sf("%d pcs of %s have spoiled!", it.count, it.name))
        removeFrom(inv.items, it, true)
      end
    end
  end
end

function on_inventory_hover( btn )
  g_hover(btn)
  if btn.item ~= nil and btn.item.count > 0 then
    if #Hand.items > 0 then return end
    local dx,dy = 5, 5
    local mx,my = mouse()
    local it = btn.item
    local exp_str = sf("in %d days", it.spoil)
    if it.spoil == -1 then exp_str = "never"
    elseif it.spoil == 1 then exp_str = "in 1 day" end
    local text = sf("%s\nNutrition: %d\nExpires: %s", it.name, it.nutr, exp_str)
    local width = print(text, W, H)
    local x,y,w,h=math.min(W-width, mx + dx), my+dy, width+6, 24
    rect(x-4,y-4,w,h,8)
    rectb(x-3,y-3,w,h,2)
    printframe(text, x,y)
  end
end

function move_item( to, from, item, count )
  local temp_item = inventory_get_count(from, item, count)
  if temp_item ~= nil then
    local new_item = deepcopy(temp_item)
    new_item.count = count
    if inventory_add_item(to, new_item) then
      inventory_take(from, item, count)
      return true
    else
      return false
    end
  end
  return false
end

after_craft = false

function on_inventory_click( btn )
  if btn.item ~= nil and btn.inv ~= nil then
    local inv_item = inventory_get(btn.inv, btn.item)

    local to_take = 1
    if btn.inv.name == "Craftstable" and after_craft then
      to_take=inv_item.count
      after_craft = false
    end

    if #Hand.items == 0 then
      move_item(Hand, btn.inv, inv_item, to_take)
    else
      if Hand.prev_click == nil or Hand.prev_click == btn.inv then
        if not move_item(Hand, btn.inv, inv_item, to_take) then
          local hand_item = Hand.items[1]
          if inventory_add_item(btn.inv, hand_item) then
            Hand.items = {}
            move_item(Hand, btn.inv, inv_item, to_take)
          end
        end
      else
        move_item(btn.inv, Hand, Hand.items[1], Hand.items[1].count)
      end
    end
  elseif #Hand.items > 0 then
    move_item(btn.inv, Hand, Hand.items[1], Hand.items[1].count)
  end
  Hand.prev_click = btn.inv
end

function on_craft_click( btn )
  if make_recepie(Craftstable) then
    after_craft = true
  end
end

function on_eat_click( btn )
  state = EATING
end

function draw_buttons( btns )
  for i,v in ipairs(btns) do
    draw_button(v)
  end
end

function update_buttons( btns )
  local mx,my,md = mouse()
  draw_buttons(btns)
  for i,v in ipairs(btns) do
    check_button(v, mx, my, md)
  end
end

function draw_inventory( inv )
  for i,btn in ipairs(INV_BUTTONS) do
    btn.item=nil
    btn.inv=inv
  end
  for i,it in ipairs(inv.items) do
    INV_BUTTONS[i].item=it
  end
end

function draw_craft_table( inv )
  for i,btn in ipairs(CRAFT_BUTTONS) do
    btn.item=nil
    btn.inv=inv
  end
  for i,it in ipairs(inv.items) do
    CRAFT_BUTTONS[i].item=it
  end
end

function draw_hand( inv )
  local mx,my = mouse()
  local dx,dy = -15, -15
  if #inv.items == 1 and inv.items[1].count > 0 then
    local item = inv.items[1]
    draw_entity({x=mx+dx,y=my+dy,sp=item.sp})
    local width = print(item.count, W, H, 0, false, 1, true)
    printframe(item.count, mx+dx+16-width, my+dy+10, 15, 0, true)
  end
end

angle=0
angle1=0
a_speed=0.015
w_speed=0.01

function move_cam()
  angle = angle + a_speed
  angle1=angle1 + w_speed
  cam.x = math.cos(angle) * AMP_XY
  cam.y = math.sin(angle) * AMP_XY
  cam.z = 0.2+math.sin(angle1) * AMP_Z
end

function map_to( oldmin,oldmax,newmin,newmax,val )
  local norm = (val-oldmin) / (oldmax-oldmin)
  return norm * (newmax-newmin) + newmin
end

function draw_person(b1,fdup,anim)
  fdup=fdup or 0
  anim=anim or false
  t2=v3add(b1,v3(10,10,0))
  t3=v3add(b1,v3(8,10,-0.2))
  b2=v3add(b1,v3(12,0,0))
  b3=v3add(b1,v3(10,0,-0.25))
  line_3dvv({b1,t2,b2},2)
  line_3dvv({b1,t3,b3},2)

  -- top part
  t1=v3add(b1,v3(0,18,0))
  local r=4
  dy=v3(0,r,0)
  local h = v3add(dy,t1)
  b2=v3add(t1,v3(6,0,0))
  b3=v3add(t1,v3(4,0,-0.2))
  t2=v3add(t1,v3(2,5,0))
  t3=v3add(t1,v3(0,5,-0.1))

  pangle = map_to(-1,1,min_angle,max_angle,math.sin(pdangle))
  pdangle = pdangle + pspeed

  local to_tilt = {t1,b2,b3,t2,t3,h}
  if fdup > 0 then to_tilt = {b2,b3,t2,t3,h} end

  for i,v in ipairs(to_tilt) do
    local dst = v2dist(v,b1)
    local dangle = math.atan(v.y-b1.y,v.x-b1.x)
    local center = b1
    local ms,mc = math.sin,math.cos
    if fdup > 1 then center = t1 end
    local temp = v3add(center, v3(dst*mc(dangle+pangle),dst*ms(dangle+pangle), 0))
    v.x,v.y=temp.x,temp.y
  end

  circb_3dv(h,r,2)
  line_3dvv({t1,b2,t2},2)
  line_3dvv({t1,b3,t3},2)
  line_3dv(b1,t1,2)
end

FH=20
FW=18
TW=24
TD=0.5

LX = -W3D / 2 - 10
TY = H3D / 2 + 10
RX = W3D / 2 + 10
BY = -H3D / 2 - 10

function draw_table(p0, drop)
  local l1,l2,l3,l4 = p0, v3add(p0, v3(0,0,TD)), v3add(p0, v3(TW,0,TD)), v3add(p0, v3(TW,0,0))
  local dy = v3(0,FH,0)
  local t1,t2,t3,t4 = v3add(l1,dy), v3add(l2,dy), v3add(l3,dy), v3add(l4,dy)
  if drop then t1,t2,t3,t4,l1,l2,l3,l4=l1,l2,l3,l4,t1,t2,t3,t4 end
  line_3dv(l1, t1, 2)
  line_3dv(l2, t2, 2)
  line_3dv(l3, t3, 2)
  line_3dv(l4, t4, 2)
  line_3dvv({t1, t2, t3, t4, t1}, 2)
end

function draw_room(stick)
  stick = stick or false
  -- walls
  local tlx, tly = LX, TY
  local trx, try = RX, TY
  local blx, bly = LX, BY
  local brx, bry = RX, BY
  local d = 1
  if stick then d = cam.z+0.001 end
  line_3d(tlx, tly, d, tlx, tly, 3, 2)
  line_3d(trx, try, d, trx, try, 3, 2)
  line_3d(blx, bly, d, blx, bly, 3, 2)
  line_3d(brx, bry, d, brx, bry, 3, 2)
  rect_3d(tlx, tly, 3, trx-tlx, tly-bly)

  -- fridge
  local b1,b2,b3,b4 = v3(brx,bry,3), v3(brx-20,bry,3), v3(brx-20,bry,2.7),v3(brx,bry,2.7)
  dy=v3(0,55,0)
  t1,t2,t3,t4 = v3add(b1,dy), v3add(b2,dy), v3add(b3,dy), v3add(b4,dy)
  line_3dvv({b1,b2,b3,b4,b1},2)
  line_3dvv({t1,t2,t3,t4,t1},2)
  line_3dvv({b1,b2,t2,t1,b1},2)
  line_3dvv({b3,b4,t4,t3,b3},2)
  dy=v3(0,30,0)
  local h1,h2 = v3add(b2,dy),v3add(b3,dy)
  line_3dv(h1,h2,2)

  -- furniture 1
  b1,b2,b3,b4 = v3(RX,BY,1), v3(RX,BY,2.7), v3(brx-FW,bry,2.7),v3(brx-FW,bry,1)
  dy=v3(0,FH,0)
  t1,t2,t3,t4 = v3add(b1,dy), v3add(b2,dy), v3add(b3,dy), v3add(b4,dy)
  line_3dvv({b1,b2,b3,b4,b1},2)
  line_3dvv({t1,t2,t3,t4,t1},2)
  line_3dvv({b1,b2,t2,t1,b1},2)
  line_3dvv({b3,b4,t4,t3,b3},2)

  -- window
  t1,t2,t3,t4=v3(brx-30,bry+15,3),v3(blx+30,bry+15,3),v3(blx+30,tly-15,3),v3(brx-30,tly-15,3)
  line_3dvv({t1,t2,t3,t4,t1},2)
  local dx=v3(20,0,0)
  h1,h2 = v3add(t3,dx),v3add(t2,dx)
  line_3dv(h1,h2,c)
  dy=v3(0,-13,0)
  h1,h2 = v3add(t3,dy),v3add(t4,dy)
  line_3dv(h1,h2,c)

  draw_table(TBL_POS,TABLE_DROP)
  draw_person(PERSCOORD, PERSFDUP)
end

INV_ROOM_COORDS = {}

function draw_item_to_eat( itm,x,y,z )
  if itm == nil then return end
  local startx,starty=point_3d(TO_EAT_POS.x,TO_EAT_POS.y,TO_EAT_POS.z)
  if startx == nil then return end
  draw_entity_up({x=startx,y=starty,sp=itm.sp})
end

function draw_inventory_in_room( inv )
  for i,it in ipairs(INV_ROOM_COORDS) do
    local inv_item = inventory_get(inv, it.it)
    if inv_item ~= nil then
      local startx,starty = point_3d(it.v.x, it.v.y, it.v.z)
      if startx == nil then return end
      draw_entity_up({x=startx, y=starty, sp=it.it.sp})
      local tw = print(it.it.count, W, H, 0, false, 1, true)
      local dx,dy=16,6
      printframe(it.it.count,startx+dx-tw,starty-dy,nil,nil,true)
    end
  end
end

-- madness

AMP_INC_SPEED=0.05
AMP_Z_INC_SPEED=0.01

TBL_COORDS={
  v3(LX+2,BY,2),
  v3(-TW/2,BY,2)
}

TO_EAT_COORDS={
  v3(LX+TW/2-5,BY+FH,2.25),
  v3(0,BY,2.2)
}

PERSCOORDS={
  v3(0,BY,2.2),
  v3(LX+TW/2-5,BY+FH,2.25),
  v3(LX+TW/2-5,BY,2.25)
}

function handle_madness()
  -- objects position
  if DAYS < 10 then 
    TO_EAT_POS=TO_EAT_COORDS[1]
    PERSCOORD=PERSCOORDS[1]
  elseif DAYS < 20 then
    TO_EAT_POS=TO_EAT_COORDS[2]
    PERSCOORD=PERSCOORDS[2]
  else
    PERSCOORD=PERSCOORDS[3]
    TBL_POS=TBL_COORDS[2]
    TABLE_DROP=true
  end

  -- camera amplitude
  local max_amp_xy = 0
  local max_amp_z = 0
  if DAYS < 4 then
    max_amp_xy=0
    max_amp_z=0.2
  elseif DAYS < 8 then
    max_amp_xy=10
    max_amp_z=0.3
  elseif DAYS < 16 then
    max_amp_xy=15
    max_amp_z=0.5
  elseif DAYS < 32 then
    max_amp_xy=20
  elseif DAYS < 64 then
    max_amp_xy=50
  end

  if AMP_XY < max_amp_xy then AMP_XY = AMP_XY + AMP_INC_SPEED end
  if AMP_Z < max_amp_z then AMP_Z = AMP_Z + AMP_Z_INC_SPEED end

  -- if DAYS < 25 then
  --   PERSFDUP=0
  -- elseif DAYS < 30 then
  --   PERSFDUP=1
  -- else
  --   PERSFDUP=2
  -- end
end

function get_item_to_eat( inv )
  local to_eat = -1
  local min_spoil = -1
  local max_nutr = -1
  for i,it in ipairs(inv.items) do
    -- take product that expires sooner
    if min_spoil > it.spoil then
      min_spoil = it.spoil
      to_eat = i
      max_nutr = it.nutr
    -- if multiple found expire same day, take more nutricious
    elseif min_spoil == -1 or min_spoil == it.spoil then
      if max_nutr < it.nutr then
        to_eat = i
        max_nutr = it.nutr
      end
    end
  end
  return inv.items[to_eat]
end

function on_new_day( inv )
  FULLNESS = FULLNESS - HUNGER_SPEED
  if FULLNESS <= 0 then
    state=GAMEOVER
  end
  local to_eat = get_item_to_eat(inv)
  local item = inventory_take(inv, to_eat, 1)
  if item ~= nil then
    FULLNESS = FULLNESS + item.nutr
  else
    trace(sf("Unable to eat %s!", to_eat.name))
    exit()
  end
  local test = inventory_get(inv, item)
  if test == nil or test.count <= 0 then
    add_log(sf("We're out of %s!", item.name))
  end
  update_spoil(inv)
end

function handle_eating( inv )
  TICK = TICK + 1
  if TICK == FPD then
    TICK=0
    DAYS=DAYS + 1
    on_new_day(inv)
  end
end

function render_logo()
  print("LOCKDOWN",3,LOGO_Y,2,false,5,false)
  LOGO_Y = LOGO_Y - 0.5
  if LOGO_Y <= 80 then LOGO_Y = 80 end
end

-- init

function init_inv( inv )
  inv.items={}
  inventory_add(inv, Names.bw, 10)
  inventory_add(inv, Names.w, 90)
  inventory_add(inv, Names.tp, 10)
  inventory_add(inv, Names.mlk, 10)
end

function init_buttons()
  BUTTONS={}
  INV_BUTTONS={}
  CRAFT_BUTTONS={}

  local startx,starty = 0, 0
  local w,h = 20, 20
  local c = 10
  for i=1,5 do
    for j=1,3 do
      local btn = make_button(startx + (w + 1) * i, starty + (h + 1) * j, w, h, c, on_inventory_hover, g_leave, g_press, on_inventory_click, nil, nil, 2, 2)
      table.insert(BUTTONS, btn)
      table.insert(INV_BUTTONS, btn)
    end
  end

  startx,starty = 150, 21
  for i=1,2 do
    local btn = make_button(startx + (w + 1) * i, starty + (h + 1), w, h, c, on_inventory_hover, g_leave, g_press, on_inventory_click, nil, nil, 2, 2)
    table.insert(BUTTONS, btn)
    table.insert(CRAFT_BUTTONS, btn)
  end
  if Craftstable.size > 2 then
    startx,starty = 150, 0
    for i=1,2 do
      local btn = make_button(startx + (w + 1) * i, starty + (h + 1), w, h, c, on_inventory_hover, g_leave, g_press, on_inventory_click, nil, nil, 2, 2)
      table.insert(BUTTONS, btn)
      table.insert(CRAFT_BUTTONS, btn)
    end
  end

  local do_craft = make_button(171, 63, 41, 20, c, g_hover, g_leave, g_press, on_craft_click, nil, nil, 0, 0, draw_craft_btn)
  table.insert(BUTTONS, do_craft)

  local do_eat = make_button(176, 112, 60, 20, c, g_hover, g_leave, g_press, on_eat_click, nil, nil, 0, 0, draw_eat_btn)
  table.insert(BUTTONS, do_eat)
end

function compare_z( it1,it2 )
  return it2.v.z < it1.v.z
end

function init_inventory_room_coords( inv )
  INV_ROOM_COORDS={}

  local xmin,xmax = RX-FW+1, RX-5
  local y = BY+FH
  local zmin,zmax = 1.2, 2.5

  for i,it in ipairs(inv.items) do
    local rndx = math.random(xmin, xmax)
    local rndz = math.random(math.floor(zmin * 100), math.floor(zmax * 100)) / 100.0
    table.insert(INV_ROOM_COORDS, {it=it,v=v3(rndx,y,rndz)})
  end

  table.sort(INV_ROOM_COORDS, compare_z)
end

function restore_madness()
  DAYS=0
  cam={x=0,y=0,z=0}
  TBL_POS=TBL_COORDS[1]
  TO_EAT_POS=TO_EAT_COORDS[1]
  PERSCOORD=PERSCOORDS[1]
  TABLE_DROP=false
  AMP_XY=0
  AMP_Z=0.1
  PERSFDUP=0
  W3D=80
  H3D=45
end

function restore_person()
  pangle=0
  delta = math.pi / 10
  pdangle=0
  pspeed = 0.05
  min_angle,max_angle=pangle-delta,pangle-0.1
end

function INITIntro()
  restore_madness()
  restore_person()
  intro_was_click=false
  cam.x=7
  cam.y=-21
  cam.z=3
  LOGO_Y=H
end

function INITGameover()
  RESY=H
end

function TICIntro()
  cls(13)

  if btn(UP) then cam.y = cam.y - 1 end
  if btn(DOWN) then cam.y = cam.y + 1 end
  if btn(LEFT) then cam.x = cam.x - 1 end
  if btn(RIGHT) then cam.x = cam.x + 1 end
  if btn(BTN_Z) then cam.z = cam.z - 0.01 end
  if btn(BTN_X) then cam.z = cam.z + 0.01 end

  draw_room(true)

  cam.z = cam.z - 0.01
  if cam.z <= 0 then
    render_logo()
  end

  if cam.z <= -1.5 then
    local text = "Click to start"
    local w = print(text,W,H)
    print(text, W/2 - w/2, 120, 2)
  end

  local x,y,d = mouse()
  if d then
    if intro_was_click then
      state=GAME
    end
  else
    intro_was_click = true
  end
end

LOGO_TO=0
function TICLogo()
  cls()
  spr(336, 88, 24, -1, 8)
  print("CAT_IN_THE_DARK", 72, 108, 15)
  LOGO_TO=LOGO_TO+1
  local x,y,d = mouse()
  if d then state=INTRO end
  if LOGO_TO > 120 then state=INTRO end
end

function INITEating()
  FPD=60
  TICK=0
  FULLNESS=100
  HUNGER_SPEED=10

  init_inventory_room_coords(Inventory)
end

function INITGame()
  restore_madness()
  restore_person()
  init_inv(Inventory)
  Craftstable.size=2
  init_buttons()
end

tut_shown=false
stage=0
pass = 0
PASS_MAX=120

function TICGame()
  local x,y,left,right,middle,scrollx,scrolly=mouse()

  cls(13)

  cleanup(Inventory.items)
  cleanup(Hand.items)
  cleanup(Craftstable.items)
  draw_room(true)
  draw_inventory(Inventory)
  draw_craft_table(Craftstable)
  update_buttons(BUTTONS)
  draw_log()
  update_log()
  draw_hand(Hand)

  if not tut_shown then
    if stage == 0 then
      pass = pass + 1
      if pass >= PASS_MAX then
        stage = 1
      end
    elseif stage == 1 then
      add_log("Prepare yourself for lockdown!")
      pass = 0
      stage=2
    elseif stage == 2 then
      pass = pass + 1
      if pass >= PASS_MAX then stage = 3 end
    elseif stage == 3 then
      add_log("Craft as many food as you can!")
      stage = 4
      pass = 0
    elseif stage == 4 then
      pass = pass + 1
      if pass >= 60 then stage = 5 end
    elseif stage == 5 then
      add_log("Using everything you have!")
      tut_shown = true
    end
  end
end

function TICEating()
  cls(13)
  handle_madness()
  draw_room(true)
  move_cam()

  handle_eating(Inventory)
  cleanup(Inventory.items)
  draw_inventory_in_room(Inventory)
  draw_item_to_eat(get_item_to_eat(Inventory))
  local status = "full"
  if FULLNESS < 33 then status = "starving"
  elseif FULLNESS < 67 then status = "hungry" end
  local date = plural(DAYS,"day","days")
  printframe(sf("Lockdown: %s, i'm %s", date, status), 10, 10)

  draw_log()
  update_log()
end

function TICGameover()
  cls(13)
  draw_room(true)
  -- stop twitching
  pspeed=0

  if cam.z > -2 then
    draw_inventory_in_room(Inventory)
    draw_item_to_eat(get_item_to_eat(Inventory))
  end

  local text = sf("You've managed to survive for %s", plural(DAYS,"day","days"))
  local w = print(text,W,H)

  if cam.z < -8 and cam.z > -12 then
    printframe(text, W / 2 - w / 2, RESY)
    RESY = RESY - 0.5
  end

  if cam.z < -12 then
    printframe(text, W / 2 - w / 2, RESY)
    local text1 = "Click to retry"
    local w = print(text1,W,H)
    printframe(text1, W / 2 - w / 2, RESY + 16)
  else
    cam.z = cam.z - 0.05
  end
  local x,y,d=mouse()
  if d then state=GAME end
end

GAME=1
GAMEOVER=2
EATING=3
LOGO=4
INTRO=5

state=LOGO
old_state=nil

UPDATE={
  [GAME]=TICGame,
  [GAMEOVER]=TICGameover,
  [EATING]=TICEating,
  [LOGO]=TICLogo,
  [INTRO]=TICIntro
}

INIT={
  [GAME]=INITGame,
  [EATING]=INITEating,
  [INTRO]=INITIntro,
  [GAMEOVER]=INITGameover
}

function TIC()
  if old_state ~= state and INIT[state] ~= nil then
    INIT[state]()
    old_state = state
  end
  UPDATE[state]()
end