
;; airdrop
;; <add a description here>

;; constants
;;
(define-constant DEPLOYER tx-sender)
(define-constant ERR-AIRDROP-CALLED u112)
(define-constant ERR-NOT-AUTHORIZED u104)
(define-constant sender 'ST39HFKW38EPPPRQ1R52GK02WCN8314DQAP1P6AYE)

(define-data-var contract-owner principal 'ST2P6KSAJ4JVV8PFSNKJ9BNG5PEPR4RT71VZJZZ08)
(define-data-var airdrop-called bool false)



(define-private (send (recipient principal) (amount unit)) 
    (begin 
     (try! (contract-call? ST2P6KSAJ4JVV8PFSNKJ9BNG5PEPR4RT71VZJZZ08.testcoin transfer amount sender recipient))
     (ok true))
)


;; public functions
;;
(define-public (airdrop) 

    (begin      
    (asserts!  (is-eq tx-sender DEPLOYER) (err ERR-NOT-AUTHORIZED))
    (asserts! (is-eq false (var-get airdrop-called)) (err ERR-AIRDROP-CALLED))

       (try! (send 'ST2P6KSAJ4JVV8PFSNKJ9BNG5PEPR4RT71VZJZZ08  u50000000))

      (var-set airdrop-called true)
      (ok true)
    )
)