Proper %numb.

This commit is contained in:
C. Guy Yarvin 2013-11-04 15:44:45 -08:00
parent 25e89b0d93
commit a636535044
2 changed files with 3 additions and 2 deletions

View File

@ -6825,7 +6825,7 @@
:- '<'
(ifix [gal gar] (stag %hxgl (most ace wide)))
:- '>'
(ifix [gar gal] (stag %hxgr (most ace wide)))
(ifix [gar gal] (stag %hxgr (most ace wide)))
==
++ soil
%+ ifix

View File

@ -1286,7 +1286,8 @@
::
++ numb
|= [him=@p now=@da] ^- @t
((hard ,@t) .^(%a (scot %p him) %name (scot %da now) ~))
=+ yow=(scot %p him)
(cat 3 yow (cat 3 ' ' ((hard ,@t) .^(%a yow %name (scot %da now) ~))))
::
++ saxo :: autocanon
|= who=ship