(use-trait ft-trait .sip-010-trait-ft-standard.sip-010-trait)

(define-public (pay (ft-trait <ft-trait>) (id uint) (price uint))
    (begin
        (try! (contract-call? ft-trait transfer (/ (* price u6) u100) tx-sender 'SPZRAE52H2NC2MDBEV8W99RFVPK8Q9BW8H88XV9N none)) ;; artist
        (try! (contract-call? ft-trait transfer (/ (/ (* price u20) u5) u1000) tx-sender 'SP162D87CY84QVVCMJKNKGHC7GGXFGA0TAR9D0XJW none)) ;; jim
        (try! (contract-call? ft-trait transfer (/ (/ (* price u20) u5) u1000) tx-sender 'SP1CS4FVXC59S65C3X1J3XRNZGWTG212JT7CG73AG none)) ;; dash
        (try! (contract-call? ft-trait transfer (/ (/ (* price u20) u5) u1000) tx-sender 'SPZRAE52H2NC2MDBEV8W99RFVPK8Q9BW8H88XV9N none)) ;; cx
        (try! (contract-call? ft-trait transfer (/ (/ (* price u20) u5) u1000) tx-sender 'SP2M92VAE2YJ1P5VZ1Q4AFKWZFEKDS8CDA1KVFJ21 none)) ;; pp
        (try! (contract-call? ft-trait transfer (/ (/ (* price u20) u5) u1000) tx-sender 'SP3N4AJFZZYC4BK99H53XP8KDGXFGQ2PRSQP2HGT6 none)) ;; mijoco
        (try! (contract-call? ft-trait transfer (/ (* price u2) u100) tx-sender 'SP1P89TEC03E29V5MYJBSCC8KWR1A243ZG2R8DYB1 none)) ;; marketplace
        (ok true)
    )
)
