Hacks for resurface test mode.

This commit is contained in:
C. Guy Yarvin 2017-08-05 18:37:00 -07:00
parent 497b1ffb7f
commit 7220bf11c1
4 changed files with 33 additions and 1 deletions

View File

@ -732,6 +732,16 @@
return u3nc(c3__noun, u3nc(1, sev));
}
case c3__cool: p_gen = u3t(gen);
_mint_used();
{
u3_noun von = u3i_molt(u3k(van), u3qfu_van_fab, c3n, 0);
u3_noun ret = _mint_in(von, sut, gol, p_gen);
u3z(von);
return ret;
}
case c3__twig: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{

View File

@ -682,6 +682,16 @@
return _mull_both(van, gol, c3__noun);
}
case c3__cool: p_gen = u3t(gen);
_mull_used();
{
u3_noun von = u3i_molt(u3k(van), u3qfu_van_fab, c3n, 0);
u3_noun ret = _mull_in(von, sut, gol, dox, p_gen);
u3z(von);
return ret;
}
case c3__spit: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{

View File

@ -428,6 +428,15 @@
return c3__noun;
}
case c3__cool: p_gen = u3t(gen);
{
u3_noun von = u3i_molt(u3k(van), u3qfu_van_fab, c3n, 0);
u3_noun ret = _play_x(von, sut, p_gen);
u3z(von);
return ret;
}
case c3__twig: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{

View File

@ -65,10 +65,13 @@
{
u3_noun fan = u3r_at(u3qfu_van_fan, van);
#if 1
if ( c3y == _rest_hit_fan(fan, leg) ) {
return u3m_error("rest-loop");
}
else {
else
#endif
{
u3_noun naf = u3qdi_gas(fan, leg);
u3_noun nav = u3i_molt(u3k(van), u3qfu_van_fan, u3k(naf), 0);
u3_noun mez = _rest_in(nav, leg);