Function nhl_timer_start_at

src/nhlua.c:1611–1638

start timer at location x,y */ nh.start_timer_at(x,y, "melt-ice", 10); */

/* start timer at location x,y */
/* nh.start_timer_at(x,y, "melt-ice", 10); */
staticfn int
nhl_timer_start_at(lua_State *L)
{
    short timertype = nhl_get_timertype(L, -2);
    long when = lua_tointeger(L, -1);
    lua_Integer lx, ly;
    coordxy x, y;

    lua_pop(L, 2); /* remove when and timertype */
    if (!nhl_get_xy_params(L, &lx, &ly)) {
        nhl_error(L, "nhl_timer_start_at: Wrong args");
        /*NOTREACHED*/
        return 0;
    }

    x = (coordxy) lx;
    y = (coordxy) ly;
    cvt_to_abscoord(&x, &y);

    if (timer_is_pos(timertype) && isok(x, y)) {
        long where = ((long) x << 16) | (long) y;

        spot_stop_timers(x, y, timertype);
        (void) start_timer((long) when, TIMER_LEVEL, MELT_ICE_AWAY,
                           long_to_any(where));
    }
    return 0;
}

/* returns the visual interpretation of the key bound to an extended command,
   or the ext cmd name if not bound to any key */