Post Code

One recurring complaint is that nobody talks about code on /prog/. So everyone write go and write some code, any code, that does something, anything, and post it. A small explanation wouldn't go amiss either.


rmbOrder sel screenXY -> played:no
 -> t:(screenXY.selectPoint."id")
    c:[screenXY.screenToCell [1 1]]
    for [id@_] in sel u:units,id {
    -> as:(map unitTypes.? u."acts" |> strip ?."nonRMB")
    -> t&&(fnd (canAct u ? t) as).{a:ye?->[a t]} || (fnd (canAct u ? c) as).{a:ye?->[a c]}
       |> {[a t] -> order (a."dst"=:t) id
                 -> played||(unitSay "acknowledgement" id; played=:ye)}
    }