Block ap-fill-full message.

This commit is contained in:
C. Guy Yarvin 2015-11-02 14:16:29 -08:00
parent 84bae67929
commit 43b1eb549a

View File

@ -700,7 +700,7 @@
^- [? _.] ^- [? _.]
=+ suy=(fall (~(get by qel.ged) ost) 0) =+ suy=(fall (~(get by qel.ged) ost) 0)
?: =(20 suy) ?: =(20 suy)
~& [%ap-fill-full [our dap] q.q.pry ost] :: ~& [%ap-fill-full [our dap] q.q.pry ost]
[%| +] [%| +]
:: ~? !=(20 suy) [%ap-fill-add [[our dap] q.q.pry ost] +(suy)] :: ~? !=(20 suy) [%ap-fill-add [[our dap] q.q.pry ost] +(suy)]
[%& +(qel.ged (~(put by qel.ged) ost +(suy)))] [%& +(qel.ged (~(put by qel.ged) ost +(suy)))]