mirror of
https://github.com/ZDoom/raze-gles.git
synced 2024-12-25 11:10:47 +00:00
114 lines
2.8 KiB
Lua
114 lines
2.8 KiB
Lua
-- Bound-checking functions for engine and game "things".
|
|
|
|
local ffiC = require("ffi").C
|
|
local type = type
|
|
local error = error
|
|
|
|
local con_lang = require("con_lang")
|
|
|
|
local bcheck = {}
|
|
|
|
--== ENGINE ==--
|
|
|
|
function bcheck.sector_idx(sectnum)
|
|
if (not (sectnum >= 0 and sectnum < ffiC.numsectors)) then
|
|
error("invalid sector number "..sectnum, 3)
|
|
end
|
|
end
|
|
|
|
function bcheck.wall_idx(wallnum)
|
|
if (not (wallnum >= 0 and wallnum < ffiC.numwalls)) 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 (not (spritenum >= 0 and spritenum < ffiC.MAXSPRITES)) then
|
|
if (not (spritenum >= 0 and spritenum < ffiC.MAXSPRITES)) then
|
|
error("invalid sprite number "..spritenum, 3)
|
|
end
|
|
end
|
|
|
|
function bcheck.tile_idx(tilenum)
|
|
if (not (tilenum >= 0 and tilenum < ffiC.MAXTILES)) then
|
|
error("invalid tile number "..tilenum, 3)
|
|
end
|
|
end
|
|
|
|
|
|
--== GAME ==--
|
|
|
|
function bcheck.player_idx(snum)
|
|
if (not (snum >= 0 and snum < ffiC.playerswhenstarted)) then
|
|
error("invalid player number "..snum, 3)
|
|
end
|
|
end
|
|
|
|
function bcheck.sound_idx(sndidx)
|
|
if (not (sndidx >= 0 and sndidx < con_lang.MAXSOUNDS)) then
|
|
error("invalid sound number "..sndidx, 3)
|
|
end
|
|
end
|
|
|
|
function bcheck.weapon_idx(weap)
|
|
if (not (weap >= 0 and weap < ffiC.MAX_WEAPONS)) then
|
|
error("Invalid weapon ID "..weap, 3)
|
|
end
|
|
end
|
|
|
|
function bcheck.inventory_idx(inv)
|
|
if (not (inv >= 0 and inv < ffiC.GET_MAX)) then
|
|
error("Invalid inventory ID "..inv, 3)
|
|
end
|
|
end
|
|
|
|
function bcheck.volume_idx(volume)
|
|
if (not (volume >= 0 and volume < con_lang.MAXVOLUMES)) then
|
|
error("invalid volume number "..volume, 3)
|
|
end
|
|
end
|
|
|
|
function bcheck.level_idx(level)
|
|
if (not (level >= 0 and level < con_lang.MAXLEVELS)) then
|
|
error("invalid level number "..level, 3)
|
|
end
|
|
end
|
|
|
|
function bcheck.quote_idx(qnum, onlyidx)
|
|
if (not (qnum >= 0 and qnum < con_lang.MAXQUOTES)) then
|
|
error("invalid quote number "..qnum, 3)
|
|
end
|
|
|
|
local cstr = ffiC.ScriptQuotes[qnum]
|
|
if (onlyidx) then
|
|
return cstr
|
|
end
|
|
|
|
if (cstr == nil) then
|
|
error("null quote "..qnum, 3)
|
|
end
|
|
|
|
return cstr
|
|
end
|
|
|
|
function bcheck.top_level(funcname)
|
|
if (ffiC.g_elCallDepth > 0) then
|
|
error("Invalid use of "..funcname..": must be called from top level", errlev or 3)
|
|
end
|
|
end
|
|
|
|
function bcheck.number(val, errlev)
|
|
if (type(val)~="number" or val~=val) then
|
|
error("invalid argument: must be a non-NaN number", errlev or 3)
|
|
end
|
|
end
|
|
|
|
function bcheck.type(val, typestr, errlev)
|
|
if (type(val)~=typestr) then
|
|
error("invalid argument: must be a "..typestr, errlev or 3)
|
|
end
|
|
end
|
|
|
|
return bcheck
|