megapont-magical-africa-comm

SP1A32MBZDN1B28ZT5DH6MA739VJ0BFH05CJHCM8W

Source Code

(define-public (pay (id uint) (price uint))
    (begin
        (try! (stx-transfer? (/ (* price u500) u10000) tx-sender 'SP2TKGQ8V47CKXN3P2AZBT0K93FMD69KJTPW4B54K))
        (try! (stx-transfer? (/ (* price u250) u10000) tx-sender 'SP2J9XB6CNJX9C36D5SY4J85SA0P1MQX7R5VFKZZX))
        (ok true)))

Functions (1)

Function	Access	Args
pay	public	id: uint, price: uint