pico8備忘録

レトロゲームの製作プラットフォームpico8の備忘録。

リンク

• pico8日本語版マニュアル
• pico8 fanzine(日本語訳)
• pico8 API cheetsheet

コードスニペット

障害物判定ありの移動

障害物（フラグ0オンのマップチップ）を避けて移動する関数moveの定義。
※ chrはフィールドx,yを持つテーブル。
※ キャラクタは8x8ドット。一度に8ドット以上移動した場合はすり抜ける場合あり

-- move
function move(chr,vx,vy)
    movex(chr,vx)
    movey(chr,vy)
end

-- move x
function movex(chr,v)
    -- dont move
    if v==0 then
        return
    end
    -- corner position
    local x=chr.x
    if v>0 then
        x+=7
    end
    -- check block
    local block=checkblock(x+v,chr.y  ) or 
             checkblock(x+v,chr.y+7)
    if block then
        chr.x=flr(x/8)*8
    else
     chr.x+=v
    end
end

-- move y
function movey(chr,v)
    -- dont move
    if v==0 then
        return
    end
    -- corner position
    local y=chr.y
    if v>0 then
        y+=7
    end
    -- check block
    local block=checkblock(chr.x  ,y+v) or
             checkblock(chr.x+7,y+v)
    if block then
        chr.y=flr(y/8)*8
    else
     chr.y+=v
    end
end

-- check block
function checkblock(x,y)
    local col=(x)/8
    local row=(y)/8
    local mval=mget(col,row)
    return fget(mval,0)
end