Function l_obj_timer_peek

src/nhlobj.c:519–539

peek at an object timer. return the turn when timer triggers. returns 0 if no such timer attached to the object. */ local timeout = o:peek_timer("hatch-egg"); */

   returns 0 if no such timer attached to the object. */
/* local timeout = o:peek_timer("hatch-egg"); */
staticfn int
l_obj_timer_peek(lua_State *L)
{
    int argc = lua_gettop(L);

    if (argc == 2) {
        struct _lua_obj *lo = l_obj_check(L, 1);
        short timertype = nhl_get_timertype(L, 2);

        if (timer_is_obj(timertype) && lo && lo->obj) {
            lua_pushinteger(L, peek_timer(timertype, obj_to_any(lo->obj)));
            return 1;
        } else {
            lua_pushinteger(L, 0);
            return 1;
        }
    } else
        nhl_error(L, "l_obj_timer_peek: Wrong args");
    /*NOTREACHED*/
    return 0;
}

/* stop object timer(s). return the turn when timer triggers.
   returns 0 if no such timer attached to the object.