raze/polymer/eduke32/source/lunatic/bcheck.lua
helixhorned acddac64be Lunatic translator: nearing a workable state...
- some more outer commands
- gamearray persistence
- faster 'mod': use math.modf instead of math.fmod (the former is JIT-compiled)
- checkavail*
- THISACTOR special handling
- Fix building in Windows (export A_ShootWithZvel instead of A_Shoot).

git-svn-id: https://svn.eduke32.com/eduke32@3516 1a8010ca-5511-0410-912e-c29ae57300e0
2013-02-24 16:05:22 +00:00

93 lines
2 KiB
Lua

-- Bound-checking functions for engine and game "things".
local ffiC = require("ffi").C
local con_lang = require("con_lang")
local bcheck = {}
--== ENGINE ==--
function bcheck.sector_idx(sectnum)
if (sectnum >= ffiC.numsectors+0ULL) then
error("invalid sector number "..sectnum, 3)
end
end
function bcheck.wall_idx(wallnum)
if (wallnum >= ffiC.numwalls+0ULL) then
error("invalid wall number "..wallnum, 3)
end
end
-- TODO: Provide another function that also checks whether the sprite exists in
-- the game world (statnum != MAXSTATUS).
function bcheck.sprite_idx(spritenum)
if (spritenum >= ffiC.MAXSPRITES+0ULL) then
error("invalid sprite number "..spritenum, 3)
end
end
function bcheck.tile_idx(tilenum)
if (tilenum >= ffiC.MAXTILES+0ULL) then
error("invalid tile number "..tilenum, 3)
end
end
--== GAME ==--
function bcheck.player_idx(snum)
if (snum >= ffiC.playerswhenstarted+0ULL) then
error("invalid player number "..snum, 3)
end
end
function bcheck.sound_idx(sndidx)
if (sndidx >= con_lang.MAXSOUNDS+0ULL) then
error("invalid sound number "..sndidx, 3)
end
end
function bcheck.weapon_idx(weap)
if (weap >= ffiC.MAX_WEAPONS+0ULL) then
error("Invalid weapon ID "..weap, 3)
end
end
function bcheck.inventory_idx(inv)
if (inv >= ffiC.GET_MAX+0ULL) then
error("Invalid inventory ID "..inv, 3)
end
end
function bcheck.volume_idx(volume)
if (volume >= con_lang.MAXVOLUMES+0ULL) then
error("invalid volume number "..volume)
end
end
function bcheck.level_idx(level)
if (level >= con_lang.MAXLEVELS+0ULL) then
error("invalid level number "..level)
end
end
function bcheck.quote_idx(qnum, onlyidx)
if (qnum >= con_lang.MAXQUOTES+0ULL) then
error("invalid quote number "..qnum, 3)
end
if (onlyidx) then
return nil
end
local cstr = ffiC.ScriptQuotes[qnum]
if (cstr == nil) then
error("null quote "..qnum, 3)
end
return cstr
end
return bcheck