megapont-stacks-art-commission-v2.clar

(define-public (pay (id uint) (price uint))
  (begin
    (try! (stx-transfer? (/ price u100) tx-sender 'SP39E0V32MC31C5XMZEN1TQ3B0PW2RQSJB8TKQEV9))
    (try! (stx-transfer? (/ price u100) tx-sender 'SP11QRBEVACSP2MAYB1FE64PZGXXRWE4R3HY5E68H))
    (try! (stx-transfer? (/ price u40) tx-sender 'SPJW1XE278YMCEYMXB8ZFGJMH8ZVAAEDP2S2PJYG))
    (try! (stx-transfer? (/ price u100) tx-sender 'SP1C39PEYB976REP9B19QMFDJHHF27A63WANDGTX4))
    (ok true)
  )
)