;; 4fd618fd9636611c7c8a2ff13bffac5283f94229017f42ba203af13211e3cc31
;; Faktory.Fun @version 1.0
(impl-trait 'SP3XXMS38VTAWTVPE5682XSBFXPTH7XCPEBTX8AN2.faktory-dex-trait-v1.dex-trait)
(use-trait faktory-token 'SP3XXMS38VTAWTVPE5682XSBFXPTH7XCPEBTX8AN2.faktory-trait-v1.sip-010-trait)
(define-constant ERR-MARKET-CLOSED (err u1001))
(define-constant ERR-STX-NON-POSITIVE (err u1002))
(define-constant ERR-STX-BALANCE-TOO-LOW (err u1003))
(define-constant ERR-FT-NON-POSITIVE (err u1004))
(define-constant ERR_NATIVE_FAILURE (err u99))
(define-constant ERR-TOKEN-NOT-AUTH (err u401))
(define-constant ERR-DIRECT-CALL-REQUIRED (err u402))
(define-constant THIS-CONTRACT (as-contract tx-sender))
(define-constant FEE-RECEIVER 'SMHAVPYZ8BVD0BHBBQGY5AQVVGNQY4TNHAKGPYP)
(define-constant G-RECEIVER 'SM3NY5HXXRNCHS1B65R78CYAC1TQ6DEMN3C0DN74S)
(define-constant AMM-RECEIVER 'SP3DX9KDA8AMX5BHW5QJ68W39V7YHZE696PHXFR20)
(define-constant CANT-BE-EVIL 'SP000000000000000000002Q6VF78)
(define-constant DEV tx-sender)
(define-constant DEX-TOKEN 'SPV9K21TBFAK4KNRJXF5DFP8N7W46G4V9RCJDC22.bushcoin-faktory)
(define-constant TESTER 'SPV9K21TBFAK4KNRJXF5DFP8N7W46G4V9RCJDC22) ;; testing on mainnet
;; token constants
(define-constant TARGET_STX u1000000)
(define-constant FAK_STX u250000)
(define-constant GRAD-FEE u20000)
;; data vars
(define-data-var open bool false)
(define-data-var fak-ustx uint u0)
(define-data-var ft-balance uint u0)
(define-data-var stx-balance uint u0)
(define-data-var burn-rate uint u20)
(define-data-var dev-premium uint u10)
(define-public (buy (ft <faktory-token>) (ustx uint))
(begin
(asserts! (is-eq tx-sender TESTER) ERR-TOKEN-NOT-AUTH) ;; testing on mainnet
(asserts! (is-eq DEX-TOKEN (contract-of ft)) ERR-TOKEN-NOT-AUTH)
(asserts! (is-eq contract-caller tx-sender) ERR-DIRECT-CALL-REQUIRED)
(asserts! (var-get open) ERR-MARKET-CLOSED)
(asserts! (> ustx u0) ERR-STX-NON-POSITIVE)
(let ((total-stx (var-get stx-balance))
(total-stk (+ total-stx (var-get fak-ustx)))
(total-ft (var-get ft-balance))
(k (* total-ft total-stk))
(fee (/ (* ustx u2) u100))
(stx-in (- ustx fee))
(new-stk (+ total-stk stx-in))
(new-ft (/ k new-stk))
(tokens-out (- total-ft new-ft))
(new-stx (+ total-stx stx-in))
(ft-receiver tx-sender))
(try! (stx-transfer? fee tx-sender FEE-RECEIVER))
(try! (stx-transfer? stx-in tx-sender (as-contract tx-sender)))
(try! (as-contract (contract-call? ft transfer tokens-out tx-sender ft-receiver none)))
(if (>= new-stx TARGET_STX)
(begin
(let ((grad-amount (/ (* new-ft (var-get burn-rate)) u100))
(dev-amount (/ (* grad-amount (var-get dev-premium)) u100))
(burn-amount (- grad-amount dev-amount))
(bonus-amount (/ (* new-ft u69) u10000))
(amm-amount (- new-ft (+ grad-amount bonus-amount)))
(amm-ustx (- new-stx GRAD-FEE)))
(try! (as-contract (contract-call? ft transfer burn-amount tx-sender CANT-BE-EVIL none)))
(try! (as-contract (contract-call? ft transfer dev-amount tx-sender DEV none)))
(try! (as-contract (contract-call? ft transfer bonus-amount tx-sender G-RECEIVER none)))
(try! (as-contract (contract-call? ft transfer amm-amount tx-sender AMM-RECEIVER none)))
(try! (as-contract (stx-transfer? amm-ustx tx-sender AMM-RECEIVER)))
(try! (as-contract (stx-transfer? GRAD-FEE tx-sender G-RECEIVER)))
(var-set open false)
(var-set stx-balance u0)
(var-set ft-balance u0)
(print {type: "buy", ft: (contract-of ft),tokens-out: tokens-out, ustx: ustx, burn-amount: burn-amount, amm-amount: amm-amount,
amm-ustx: amm-ustx,
stx-balance: u0, ft-balance: u0,
fee: fee, grad-fee: GRAD-FEE, maker: tx-sender,
open: false})
(ok true)))
(begin
(var-set stx-balance new-stx)
(var-set ft-balance new-ft)
(print {type: "buy", ft: (contract-of ft), tokens-out: tokens-out, ustx: ustx, maker: tx-sender,
stx-balance: new-stx, ft-balance: new-ft,
fee: fee,
open: true})
(ok true))))))
(define-read-only (get-in (ustx uint))
(let ((total-stx (var-get stx-balance))
(total-stk (+ total-stx (var-get fak-ustx)))
(total-ft (var-get ft-balance))
(k (* total-ft total-stk))
(fee (/ (* ustx u2) u100))
(stx-in (- ustx fee))
(new-stk (+ total-stk stx-in))
(new-ft (/ k new-stk))
(tokens-out (- total-ft new-ft))
(raw-to-grad (- TARGET_STX total-stx))
(stx-to-grad (/ (* raw-to-grad u103) u100)))
(ok {stx-in: stx-in,
fee: fee,
tokens-out: tokens-out,
ft-balance: total-ft,
new-ft: new-ft,
total-stx: total-stx,
new-stx: (+ total-stx stx-in),
stx-to-grad: stx-to-grad})))
(define-public (sell (ft <faktory-token>) (amount uint))
(begin
(asserts! (is-eq DEX-TOKEN (contract-of ft)) ERR-TOKEN-NOT-AUTH)
(asserts! (is-eq contract-caller tx-sender) ERR-DIRECT-CALL-REQUIRED)
(asserts! (var-get open) ERR-MARKET-CLOSED)
(asserts! (> amount u0) ERR-FT-NON-POSITIVE)
(let ((total-stx (var-get stx-balance))
(total-stk (+ total-stx (var-get fak-ustx)))
(total-ft (var-get ft-balance))
(k (* total-ft total-stk))
(new-ft (+ total-ft amount))
(new-stk (/ k new-ft))
(stx-out (- (- total-stk new-stk) u1))
(fee (/ (* stx-out u2) u100))
(stx-to-receiver (- stx-out fee))
(new-stx (- total-stx stx-out))
(stx-receiver tx-sender))
(asserts! (>= total-stx stx-out) ERR-STX-BALANCE-TOO-LOW)
(try! (contract-call? ft transfer amount tx-sender THIS-CONTRACT none))
(try! (as-contract (stx-transfer? stx-to-receiver tx-sender stx-receiver)))
(try! (as-contract (stx-transfer? fee tx-sender FEE-RECEIVER)))
(var-set stx-balance new-stx)
(var-set ft-balance new-ft)
(print {type: "sell", ft: (contract-of ft), amount: amount, stx-to-receiver: stx-to-receiver, maker: tx-sender,
stx-balance: new-stx, ft-balance: new-ft,
fee: fee,
open: true})
(ok true))))
(define-read-only (get-out (amount uint))
(let ((total-stx (var-get stx-balance))
(total-stk (+ total-stx (var-get fak-ustx)))
(total-ft (var-get ft-balance))
(k (* total-ft total-stk))
(new-ft (+ total-ft amount))
(new-stk (/ k new-ft))
(stx-out (- (- total-stk new-stk) u1))
(fee (/ (* stx-out u2) u100))
(stx-to-receiver (- stx-out fee)))
(ok {amount-in: amount,
stx-out: stx-out,
fee: fee,
stx-to-receiver: stx-to-receiver,
total-stx: total-stx,
new-stx: (- total-stx stx-out),
ft-balance: total-ft,
new-ft: new-ft})))
(define-read-only (get-open)
(ok (var-get open)))
;; boot dex
(begin
(var-set fak-ustx FAK_STX)
(var-set ft-balance u51749935312581)
(var-set stx-balance u66667)
(var-set open true)
(try! (stx-transfer? u1000000 tx-sender 'SMH8FRN30ERW1SX26NJTJCKTDR3H27NRJ6W75WQE))
(print {
type: "faktory-dex-trait-v1",
dexContract: (as-contract tx-sender),
ammReceiver: 'SP3DX9KDA8AMX5BHW5QJ68W39V7YHZE696PHXFR20,
})
(ok true))