ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 18:12:47 +03:00
Code Issues Packages Projects Releases Wiki Activity

fixed some ordering issues

Browse Source
This commit is contained in:
Philip C Monk 2014-11-05 14:39:00 -05:00
parent b2fb76dbd9
commit 36ef1778ca
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arvo/dill.hoon
View File

@ -365,7 +365,7 @@
?(%rush %rust) :: XX reset prompt ?(%rush %rust) :: XX reset prompt
?> ?=(%term-line +>-.sih) ?> ?=(%term-line +>-.sih)
=. +>.$ =. +>.$
=- (furl (zing (turn r.q.sih -))) =- (furl (zing (turn (flop r.q.sih) -)))
|= a=tark |= a=tark
^- wall ^- wall
?+ -.a (~(win re a) 0 p.q.yar) ?+ -.a (~(win re a) 0 p.q.yar)

13
main/app/begin/core.hook
View File

@ -39,7 +39,14 @@
|= txt=cord |= txt=cord
^- [[cord (list cord)] _+>.$] ^- [[cord (list cord)] _+>.$]
?- sat ?- sat
%begin [['Your ship: ~' ~] +>.$(sat %his)] %begin
:_ +>.$(sat %his)
:- 'Your ship: ~'
%- lore %- crip
"""
Do you have a ship and a ticket? If not, please ask
urbit@urbit.org for one.
"""
%his %his
=+ her=(rash txt fed:ag) =+ her=(rash txt fed:ag)
=> .(-.q.ges (clan her)) => .(-.q.ges (clan her))
@ -490,7 +497,7 @@
%+ welp %+ welp
(spam %rush %prompt pot.res) (spam %rush %prompt pot.res)
%- zing %- zing
(turn tak.res |=(a=cord (spam %rush %txt a))) (turn (flop tak.res) |=(a=cord (spam %rush %txt a)))
:: ::
++ pour ++ pour
|= [ost=bone pax=path sih=*] |= [ost=bone pax=path sih=*]
@ -503,7 +510,7 @@
:_ +>.$ :_ +>.$
%+ welp (spam %rush %prompt pot.res) %+ welp (spam %rush %prompt pot.res)
%- zing %- zing
(turn tak.res |=(a=cord (spam %rush %txt a))) (turn (flop tak.res) |=(a=cord (spam %rush %txt a)))
:_ +>.$ :_ +>.$
:- [ost %give +.sih] :- [ost %give +.sih]
%+ turn (~(tap by sup.hid)) %+ turn (~(tap by sup.hid))