clay: %limb instead of %wing

This commit is contained in:
fang 2020-11-03 16:33:22 +01:00
parent e7afc51018
commit acf0f8d0e1
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -654,7 +654,7 @@
(with-faces old+old sam+sam ~)
:+ %sgzp !,(*hoon old=old)
:+ %sgzp !,(*hoon sam=sam)
:+ %tsld [%wing ~[b]]
:+ %tsld [%limb b]
!, *hoon
~(grow old sam)
:: try direct +grab
@ -663,8 +663,8 @@
=/ rab
%- mule |.
%+ slap new
:+ %tsld [%wing ~[a]]
[%wing ~[%grab]]
:+ %tsld [%limb a]
[%limb %grab]
?: &(?=(%& -.rab) ?=(^ q.p.rab))
:_(nub |=(sam=vase ~|([%grab a b] (slam p.rab sam))))
:: try +jump
@ -672,8 +672,8 @@
=/ jum
%- mule |.
%+ slap old
:+ %tsld [%wing ~[b]]
[%wing ~[%jump]]
:+ %tsld [%limb b]
[%limb %jump]
?: ?=(%& -.jum)
(compose-casts a !<(mark p.jum) b)
:: try indirect +grab