Source Code

(define-fungible-token nothing u42)

(define-public (buy-nothing)
   (if (> (ft-get-supply nothing) u42)
      (if (is-eq (unwrap-panic (stx-burn? u101010 tx-sender)) true)
         (ft-mint? nothing u1 tx-sender)
         (err u0))
   (err u0)))

(define-public (transfer (to principal) (amount uint)) 
   (ft-transfer? nothing amount tx-sender to))


(define-public (donate-to-dan) 
   (stx-transfer? u100000000 tx-sender 'SP1AWFMSB3AGMFZY9JBWR9GRWR6EHBTMVA9JW4M20))

(define-public (donate-to-brad) 
   (stx-transfer? u100000000 tx-sender 'SPT9JHCME25ZBZM9WCGP7ZN38YA82F77YM5HM08B))

(define-public (donate-to-haz) 
   (stx-transfer? u100000000 tx-sender 'SP2F2NYNDDJTAXFB62PJX351DCM4ZNEVRYJSC92CT))

Functions (5)

FunctionAccessArgs
buy-nothingpublic
transferpublicto: principal, amount: uint
donate-to-danpublic
donate-to-bradpublic
donate-to-hazpublic