2015-01-12 04:57:17 +03:00
|
|
|
:: Reset: recompile arvo, from hoon/hoon up
|
2014-12-03 03:04:54 +03:00
|
|
|
!:
|
2015-01-12 04:13:34 +03:00
|
|
|
::::
|
|
|
|
|
::
|
2014-12-03 03:04:54 +03:00
|
|
|
|_ [hid=hide ~]
|
2015-01-10 05:21:25 +03:00
|
|
|
++ peer ,_`.
|
2014-12-03 03:04:54 +03:00
|
|
|
++ poke-reset-args
|
|
|
|
|
|= [ost=bone you=ship ~]
|
|
|
|
|
:_ +>.$
|
|
|
|
|
=+ top=`path`/(scot %p our.hid)/arvo/(scot %da lat.hid)
|
|
|
|
|
:+ [ost %give %nice ~]
|
|
|
|
|
[ost %pass / %t %wait lat.hid]
|
2015-01-13 00:25:06 +03:00
|
|
|
%- welp :_ [ost %give %vega (weld top `path`/hoon)]~
|
2014-12-03 03:04:54 +03:00
|
|
|
%+ turn
|
|
|
|
|
%- flop
|
|
|
|
|
^- (list ,[p=@tas q=@tas])
|
|
|
|
|
:~ [%$ %zuse]
|
|
|
|
|
[%a %ames]
|
|
|
|
|
[%c %clay]
|
|
|
|
|
[%d %dill]
|
|
|
|
|
[%e %eyre]
|
|
|
|
|
[%f %ford]
|
|
|
|
|
[%g %gall]
|
|
|
|
|
[%t %time]
|
|
|
|
|
==
|
|
|
|
|
|= [p=@tas q=@tas]
|
2015-01-13 00:25:06 +03:00
|
|
|
=+ pax=`path`(welp top /[q])
|
|
|
|
|
=+ txt=((hard ,@) .^(%cx (welp pax /hoon)))
|
2014-12-03 03:04:54 +03:00
|
|
|
[ost %give %veer p pax txt]
|
|
|
|
|
++ pour
|
|
|
|
|
|= [ost=bone pax=path *]
|
|
|
|
|
:_ +>.$ :_ ~
|
2015-01-13 00:25:06 +03:00
|
|
|
=+ paf=/(scot %p our.hid)/=/(scot %da lat.hid)/==count/txt
|
2015-01-12 04:57:17 +03:00
|
|
|
=+ nuf=(file paf)
|
|
|
|
|
=+ num=?~(nuf 0 +((fall (slaw %ud (,@t u.nuf)) 0)))
|
2014-12-03 03:04:54 +03:00
|
|
|
[ost %pass /touch %c %info our.hid (foal paf num)]
|
|
|
|
|
--
|
