memegoat-distributor-v1

(use-trait ft-trait 'SP3K8BC0PPEVCV7NZ6QSRWPQ2JE9E5B6N3PA0KBR9.trait-sip-010.sip-010-trait)

;; ERRS
(define-constant ERR-NOT-AUTHORIZED (err u5000))
(define-constant ERR-INSUFFICIENT-AMOUNT (err u6001))
(define-constant ERR-DISTRIBUTION-AMOUNT-EXCEEDED (err u6002))
(define-constant ERR-VAULT-NOT-FUNDED (err u6003))

;; DATA MAPS, VARS AND CONSTANTS
(define-constant ONE_8 u100000000)
(define-constant ONE_6 u1000000)
(define-constant DISTRIBUTION-POOL u500000000000000)

;; set caller as contract owner
(define-data-var contract-owner principal tx-sender)

(define-data-var total-amount-sent uint u0)
(define-data-var vault-funded bool false)

;; MANAGEMENT CALLS
(define-public (set-contract-owner (owner principal))
  (begin
    (try! (check-is-owner)) 
    (ok (var-set contract-owner owner))
  )
)

(define-public (fund-vault) 
  (begin
    (try! (check-is-owner)) 
    (try! (contract-call? .memegoatstx transfer-fixed (decimals-to-fixed DISTRIBUTION-POOL) tx-sender .memegoat-vault-v1 none))
    (var-set vault-funded true)
    (ok true)
  )
)

;; PUBLIC CALLS
(define-public (send-tokens (input (list 200 principal)) (amount uint))
	(begin
    (try! (check-is-owner)) 
    (asserts! (var-get vault-funded) ERR-VAULT-NOT-FUNDED)
    (asserts! (> amount u0) ERR-INSUFFICIENT-AMOUNT)
    (asserts! (<= (var-get total-amount-sent) DISTRIBUTION-POOL) ERR-DISTRIBUTION-AMOUNT-EXCEEDED)
		(fold transfer-many-iter input amount)
    (var-set total-amount-sent (+ (var-get total-amount-sent) amount))
		(ok true)
	)
)

;; PRIVATE CALLS
(define-private (check-is-owner)
  (ok (asserts! (is-eq tx-sender (var-get contract-owner)) ERR-NOT-AUTHORIZED))
)

(define-private (decimals-to-fixed (amount uint)) 
  (/ (* amount ONE_8) ONE_6)
)

(define-private (transfer-many-iter (recipient principal) (amount uint))
	(begin
    ;; transfer token from vault
    (unwrap-panic (as-contract (contract-call? .memegoat-vault-v1 transfer-ft .memegoatstx (decimals-to-fixed amount) recipient)))    
    amount 
	)
)