(define-public (burn)
(claim-and-burn tx-sender))
(define-public (burn-five)
(begin
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(ok true)
)
)
(define-public (burn-ten)
(begin
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(ok true)
)
)
(define-public (burn-hundred)
(begin
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(try! (claim-and-burn tx-sender))
(ok true)
)
)
;; Internal - Register token
(define-private (claim-and-burn (new-owner principal))
(let (
(token (unwrap-panic (contract-call? .dream-daruma claim)))
)
(contract-call? .dream-daruma transfer token new-owner 'SP000000000000000000002Q6VF78)
)
)