on 492ae2f help sign in
38 lines 692 B history raw
1### `++gnom`
3Display ship name
5Fetches a ship's display name from %ames.
7Accepts
8-------
10`our` is a [`@p`]().
12`now` is a [`@da`]().
14`him` is a [`@p`]().
16Source
17------
19 ++ gnom :: ship display name
20 |= [[our=@p now=@da] him=@p] ^- @t
21 =+ yow=(scot %p him)
22 =+ pax=[(scot %p our) %name (scot %da now) yow ~]
23 =+ woy=((hard ,@t) .^(%a pax))
24 ?: =(%$ woy) yow
25 (rap 3 yow ' ' woy ~)
26 ::
28Examples
29--------
31 ~zod/main=> (gnom [->-< -<-] ~zod)
32 '~zod |Tianming|'
33 ~zod/main=> (gnom [->-< -<-] ~doznec)
34 '~doznec ~doznec'
35 ~zod/main=> (gnom [->-< -<-] ~tug)
36 '~tug |Go-Daigo|'