-- packages: crates, pile, shouts, grab / deliver

function slot_xy(s)
 local p=pilepos[s] return p[1],p[2]-pdrop  -- pdrop tweens the crates into the pile
end

function spawn_one(s,good)
 local dv=(not good) and rnd(1)<devil_pct
 add(pkgs,{name=dv and rnd(badnames) or rnd(goodnames),
  devil=dv,st=0,slot=s,x=0,y=0,rat=0,vx=0,vy=0})
end

function fill_cage()
 for s=1,#pilepos do spawn_one(s,s==1) end
end

function free_slot()
 local u={}
 for p in all(pkgs) do if p.st==0 then u[p.slot]=true end end
 for s=1,#pilepos do if not u[s] then return s end end
end

function lay_pile() for p in all(pkgs) do if p.st==0 then p.x,p.y=slot_xy(p.slot) end end end

function add_name(nm,x,y,burn)
 add(names,{name=nm,x=x,y=y,vy=burn and -0.7 or -0.4,
  t=0,life=burn and 44 or 38,c=burn and 9 or 10})
end

function pick_msg(list)
 local on={}
 for n in all(shouts) do on[n.s]=true end
 local free={}
 for m in all(list) do if not on[m] then add(free,m) end end
 return rnd(free)
end

function emit_shout(p)
 local s=pick_msg(shoutmsg)
 -- pop from pkg into own lane so simultaneous shouts don't overlap
 if s then add(shouts,{s=s,x=p.x-2+rnd(6),y=p.y-10-#shouts*8,
  vx=(rnd(1)-0.5)*0.4,vy=-0.1-rnd(0.06),t=0,life=64}) end
end

function emit_evil(p)
 local s=pick_msg(evilmsg)
 if s then add(shouts,{s=s,x=p.x,y=p.y-6,
  vx=(rnd(1)-0.5)*0.4,vy=-0.2,t=0,life=50,evil=true}) end
end

-- good pkg at balloon: save it, start phase 2. demons rattle out before reaching here.
function deliver(p)
 saved+=1 add_name(p.name,p.x,p.y-8,false) sfx(2)
 poof(p.x,p.y-4) frz=3 shake=3 phase=2 bird.on=false
 bf.carry=nil del(pkgs,p)
end

function do_grab_deliver()
 if bf.carry then
  if ov(bf.x,bf.y,balx,baly,22,30) then deliver(bf.carry) end  -- AT the balloon, not just anywhere right of it (else you "deliver" in L2's out-of-bounds room)
 elseif phase==1 and bf.x<74 and bf.y>54 then
  -- fly over the pile + grab a RANDOM pkg
  local avail={}
  for p in all(pkgs) do if p.st==0 then add(avail,p) end end
  local best=rnd(avail)
  if best then best.st=1 bf.carry=best
   if best.devil then best.rat=45+devil_grace best.rat_delay=12 end
   if has_bird and birdt<0 then birdt=0 end  -- this level's first pickup wakes the bird; thereafter it auto-respawns until you leave the level
   frz=2 shake=2 sfx(1)
  end
 end
end

function do_drop()
 local p=bf.carry
 if not p then return end
 p.st=3 p.vx=bf.vx*0.5 p.vy=1 p.x=bf.x p.y=bf.y+6
 bf.carry=nil sfx(4)
end

function draw_pile()
 if lvl==4 then cloud(46,92)cloud(54,93)  -- cloud platform under the crate pile
 else fillp(0x5a5a) rectfill(41,93,72,96,0x10) fillp() end  -- dithered shadow under the pile
 -- shadow heap behind the 4 bright crates for depth; offset -pdrop tumbles in with them
 local d=pdrop
 pal(4,2)pal(15,4)                                  -- body->dark, brace->brown = shadow
 spr(35,42,86-d)spr(35,64,86-d)                     -- side bases (floor): poke L/R edges
 spr(35,42,79-d)spr(35,64,79-d)spr(35,53,72-d)      -- L/R upper corners + back peak
 pal()
 local sx=39
 line(sx,80,sx,95,4)                            -- post
 for i=0,5 do line(sx-i,75+i,sx+i,75+i,10) end   -- yellow warning triangle
 line(sx-5,80,sx+5,80,9)                         -- triangle base
 print("!",sx-1,77,2)                            -- bang
end

function draw_pkg(p)
 local sx,sy=0,0
 local shaking=p.rat>0 and not (p.rat_delay and p.rat_delay>0)
 if shaking then
  local mag=p.rat<12 and 3 or 2
  sx=rnd(mag*2)-mag sy=flr(rnd(2))-1
  if p.rat%6<3 then for i=1,15 do pal(i,7) end end
 end
 spr(35,p.x-4+sx,p.y-4+sy)
 if shaking then pal() end
end