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

Broke some stuff.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-01-26 16:27:59 -08:00
parent 8c0e89949b
commit e4cfbaba47
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
main/app/rodeo/core.hook
View File

@ -356,7 +356,7 @@
(pa-sauce n.owe [[%rush %rodeo-report %config shape] ~]) (pa-sauce n.owe [[%rush %rodeo-report %config shape] ~])
:: ::
++ pa-friend :: subscribed update ++ pa-friend :: subscribed update
|= [her=ship nam=span sih=sign] |= [her=ship sih=sign]
^+ +> ^+ +>
?+ sih ~&([%rodeo-bad-friend sih] !!) ?+ sih ~&([%rodeo-bad-friend sih] !!)
[%g %nice ~] [%g %nice ~]
@ -372,7 +372,7 @@
:: ~& [%pa-friend-report +>+.sih] :: ~& [%pa-friend-report +>+.sih]
=. +> %+ pa-scrub ost =. +> %+ pa-scrub ost
:_ ~ :_ ~
:- /friend/show/(scot %p her)/[man]/[nam] :- /friend/show/(scot %p her)/[man]
[%g %took [her /rodeo] our.hid] [%g %took [her /rodeo] our.hid]
?+ -.+>+.sih ~&([%rodeo-odd-friend sih] !!) ?+ -.+>+.sih ~&([%rodeo-odd-friend sih] !!)
%config +>.$ %config +>.$
@ -421,9 +421,9 @@
!! !!
:: ::
%& :: ~& [%pa-abjure [our.hid man] [p.p.tay q.p.tay]] %& :: ~& [%pa-abjure [our.hid man] [p.p.tay q.p.tay]]
:~ :- /friend/nuke/[q.p.tay]/[man] :~ :- /friend/nuke/[man]
[%g %nuke [p.p.tay /rodeo] our.hid] [%g %nuke [p.p.tay /rodeo] our.hid]
:- /stalk/nuke/[q.p.tay]/[man] :- /stalk/nuke/[man]
[%g %nuke [p.p.tay /rodeo] our.hid] [%g %nuke [p.p.tay /rodeo] our.hid]
== ==
== ==
@ -441,7 +441,7 @@
!! !!
:: ::
%& :: ~& [%pa-acquire [our.hid man] [p.p.tay q.p.tay]] %& :: ~& [%pa-acquire [our.hid man] [p.p.tay q.p.tay]]
:~ :- /friend/show/(scot %p p.p.tay)/[q.p.tay]/[man] :~ :- /friend/show/(scot %p p.p.tay)/[man]
[%g %show [p.p.tay /rodeo] our.hid /af/[q.p.tay]/(scot %ud num)] [%g %show [p.p.tay /rodeo] our.hid /af/[q.p.tay]/(scot %ud num)]
== ==
== ==
@ -647,14 +647,10 @@
== ==
:: ::
[%friend *] [%friend *]
?> ?=([@ @ @ @ ~] t.pax) ?> ?=([@ @ @ ~] t.pax)
?. =(%show i.t.pax) ?. =(%show i.t.pax)
~& [%pour-friend-nuke-nuke pax] ~& [%pour-friend-nuke-nuke pax]
[~ +>.$] [~ +>.$]
=< ra-abet
%- ~(ra-friend ra ost ~)
:* (slav %p i.t.t.pax)
i.
ra-abet:(~(ra-friend ra ost ~) (slav %p i.t.t.pax) i.t.t.t.pax sih) ra-abet:(~(ra-friend ra ost ~) (slav %p i.t.t.pax) i.t.t.t.pax sih)
:: ::
[%stalk *] [%stalk *]