@bayybays/stacksone-sdk 1.0.1

package/smart-contracts/contracts/staking-refinery-v5.clar

@@ -0,0 +1,153 @@
+;; staking-refinery-v5.clar
+;; @version 2
+
+(define-constant err-not-found (err u300))
+(define-constant err-locked (err u301))
+(define-constant err-already-claimed (err u302))
+
+(define-data-var lock-period uint u1008)
+(define-data-var nonce uint u0)
+
+(define-map stakes
+  { user: principal, id: uint }
+  { amount: uint, start: uint, end: uint, claimed: bool }
+)
+
+;; =========================
+;; READ ONLY STATUS
+;; =========================
+
+(define-read-only (get-stake-status (user principal) (id uint))
+  (let
+    (
+      (data (map-get? stakes { user: user, id: id }))
+      (current burn-block-height)
+    )
+    (match data d
+      {
+        start: (get start d),
+        end: (get end d),
+        current: current,
+        blocks-left:
+          (if (>= current (get end d))
+              u0
+              (- (get end d) current)
+          ),
+        claimed: (get claimed d)
+      }
+      {
+        start: u0,
+        end: u0,
+        current: current,
+        blocks-left: u0,
+        claimed: false
+      }
+    )
+  )
+)
+
+;; =========================
+;; STAKE
+;; =========================
+
+(define-public (stake (amount uint))
+  (let
+    (
+      (user tx-sender)
+      (id (var-get nonce))
+      (end (+ burn-block-height (var-get lock-period)))
+    )
+
+    ;; Transfer poin dari user ke alamat smart contract ini
+    ;; Menggunakan try! untuk menangani response dari contract-call?
+    (try! (contract-call? .token-poin-v5 transfer amount tx-sender (as-contract tx-sender)))
+
+    (map-set stakes
+      { user: user, id: id }
+      {
+        amount: amount,
+        start: burn-block-height,
+        end: end,
+        claimed: false
+      }
+    )
+
+    (var-set nonce (+ id u1))
+    (ok id)
+  )
+)
+
+;; =========================
+;; HARVEST
+;; =========================
+
+(define-public (harvest (id uint))
+  (let
+    (
+      (user tx-sender)
+      (data (unwrap! (map-get? stakes { user: user, id: id }) err-not-found))
+    )
+
+    ;; Pastikan waktu lock sudah habis
+    (asserts! (>= burn-block-height (get end data)) err-locked)
+    
+    ;; Pastikan belum pernah di-claim sebelumnya
+    (asserts! (not (get claimed data)) err-already-claimed)
+
+    (let
+      (
+        (reward (/ (get amount data) u10))
+      )
+
+      ;; Kembalikan poin dari kontrak ke user
+      (try! (as-contract (contract-call? .token-poin-v5 transfer (get amount data) tx-sender user)))
+
+      ;; Mint reward ONE dari kontrak ke user
+      (try! (as-contract (contract-call? .token-one-v5 mint reward user)))
+
+      ;; Update status menjadi claimed
+      (map-set stakes
+        { user: user, id: id }
+        (merge data { claimed: true })
+      )
+
+      (ok reward)
+    )
+  )
+)
+
+(define-public (ping-42)
+  (ok true))
+
+(define-public (ping-84)
+  (ok true))
+
+(define-public (ping-23)
+  (ok true))
+
+(define-public (ping-46)
+  (ok true))
+
+(define-public (ping-108)
+  (ok true))
+
+(define-public (ping-169)
+  (ok true))
+
+(define-public (ping-62)
+  (ok true))
+
+(define-public (ping-33)
+  (ok true))
+
+(define-public (ping-77)
+  (ok true))
+
+(define-public (ping-125)
+  (ok true))
+
+(define-public (ping-89)
+  (ok true))
+
+(define-public (ping-29)
+  (ok true))

package/smart-contracts/contracts/staking-refinery-v6.clar

@@ -0,0 +1,122 @@
+;; staking-refinery-v6.clar
+
+(define-constant err-not-found (err u300))
+(define-constant err-locked (err u301))
+(define-constant err-already-claimed (err u302)) ;; Mencegah harvest berkali-kali
+
+(define-data-var lock-period uint u1008)
+(define-data-var nonce uint u0)
+
+(define-map stakes
+  { user: principal, id: uint }
+  { amount: uint, start: uint, end: uint, claimed: bool }
+)
+
+;; =========================
+;; READ ONLY STATUS
+;; =========================
+
+(define-read-only (get-stake-status (user principal) (id uint))
+  (let
+    (
+      (data (map-get? stakes { user: user, id: id }))
+      (current burn-block-height)
+    )
+    (match data d
+      {
+        start: (get start d),
+        end: (get end d),
+        current: current,
+        blocks-left:
+          (if (>= current (get end d))
+              u0
+              (- (get end d) current)
+          ),
+        claimed: (get claimed d)
+      }
+      {
+        start: u0,
+        end: u0,
+        current: current,
+        blocks-left: u0,
+        claimed: false
+      }
+    )
+  )
+)
+
+;; =========================
+;; STAKE
+;; =========================
+
+(define-public (stake (amount uint))
+  (let
+    (
+      (user tx-sender)
+      (id (var-get nonce))
+      (end (+ burn-block-height (var-get lock-period)))
+    )
+
+    ;; Menggunakan (as-contract tx-sender) agar poin berpindah dan tersimpan ke dalam kontrak dengan benar
+    (try! (contract-call? .token-poin-v6 transfer amount user (as-contract tx-sender)))
+
+    (map-set stakes
+      { user: user, id: id }
+      {
+        amount: amount,
+        start: burn-block-height,
+        end: end,
+        claimed: false
+      }
+    )
+
+    (var-set nonce (+ id u1))
+    (ok id)
+  )
+)
+
+;; =========================
+;; HARVEST
+;; =========================
+
+(define-public (harvest (id uint))
+  (let
+    (
+      (user tx-sender)
+      (data (unwrap! (map-get? stakes { user: user, id: id }) err-not-found))
+    )
+
+    (asserts! (>= burn-block-height (get end data)) err-locked)
+    ;; Validasi agar tidak bisa double-claim
+    (asserts! (not (get claimed data)) err-already-claimed)
+
+    (let
+      (
+        (reward (/ (get amount data) u10))
+      )
+
+      ;; Menggunakan as-contract untuk mengembalikan poin yang tersimpan di kontrak ke user
+      (try! (as-contract (contract-call? .token-poin-v6 transfer (get amount data) tx-sender user)))
+
+      ;; Mint reward token ONE dari v6
+      (try! (contract-call? .token-one-v6 mint reward user))
+
+      ;; Memperbarui status agar tidak bisa di-harvest lagi
+      (map-set stakes { user: user, id: id } (merge data { claimed: true }))
+
+      (ok reward)
+    )
+  )
+)
+
+(define-public (ping-122)
+  (ok true))
+
+(define-public (ping-35)
+  (ok true))
+
+(define-public (ping-152)
+  (ok true))
+
+(define-public (ping-129)
+  (ok true))

package/smart-contracts/contracts/staking-refinery-v7.clar

@@ -0,0 +1,144 @@
+;; staking-refinery-v7.clar
+
+(define-constant err-not-found (err u300))
+(define-constant err-locked (err u301))
+(define-constant err-already-claimed (err u302))
+
+(define-data-var lock-period uint u1008)
+(define-data-var nonce uint u0)
+
+(define-map stakes
+  { user: principal, id: uint }
+  { amount: uint, start: uint, end: uint, claimed: bool }
+)
+
+;; =========================
+;; READ ONLY STATUS
+;; =========================
+
+(define-read-only (get-stake-status (user principal) (id uint))
+  (let
+    (
+      (data (map-get? stakes { user: user, id: id }))
+      (current burn-block-height)
+    )
+    (match data d
+      {
+        start: (get start d),
+        end: (get end d),
+        current: current,
+        blocks-left:
+          (if (>= current (get end d))
+              u0
+              (- (get end d) current)
+          ),
+        claimed: (get claimed d)
+      }
+      {
+        start: u0,
+        end: u0,
+        current: current,
+        blocks-left: u0,
+        claimed: false
+      }
+    )
+  )
+)
+
+;; =========================
+;; STAKE
+;; =========================
+
+(define-public (stake (amount uint))
+  (let
+    (
+      (user tx-sender)
+      (id (var-get nonce))
+      (end (+ burn-block-height (var-get lock-period)))
+    )
+
+    ;; Menggunakan poin v7
+    (try! (contract-call? .token-poin-v7 transfer amount user (as-contract tx-sender)))
+
+    (map-set stakes
+      { user: user, id: id }
+      {
+        amount: amount,
+        start: burn-block-height,
+        end: end,
+        claimed: false
+      }
+    )
+
+    (var-set nonce (+ id u1))
+    (ok id)
+  )
+)
+
+;; =========================
+;; HARVEST
+;; =========================
+
+(define-public (harvest (id uint))
+  (let
+    (
+      (user tx-sender)
+      (data (unwrap! (map-get? stakes { user: user, id: id }) err-not-found))
+    )
+
+    (asserts! (>= burn-block-height (get end data)) err-locked)
+    (asserts! (not (get claimed data)) err-already-claimed)
+
+    (let
+      (
+        (reward (/ (get amount data) u10))
+      )
+
+      ;; Menggunakan poin v7
+      (try! (as-contract (contract-call? .token-poin-v7 transfer (get amount data) tx-sender user)))
+
+      ;; Mint reward token ONE dari v7
+      (try! (contract-call? .token-one-v7 mint reward user))
+
+      (map-set stakes { user: user, id: id } (merge data { claimed: true }))
+
+      (ok reward)
+    )
+  )
+)
+
+(define-public (ping-57)
+  (ok true))
+
+(define-public (ping-120)
+  (ok true))
+
+(define-public (ping-141)
+  (ok true))
+
+(define-public (ping-103)
+  (ok true))
+
+(define-public (ping-34)
+  (ok true))
+
+(define-public (ping-23)
+  (ok true))
+
+(define-public (ping-205)
+  (ok true))
+
+(define-public (ping-76)
+  (ok true))
+
+(define-public (ping-299)
+  (ok true))
+
+(define-public (ping-116)
+  (ok true))
+
+(define-public (ping-211)
+  (ok true))
+
+(define-public (ping-270)
+  (ok true))

package/smart-contracts/contracts/staking-refinery.clar

@@ -0,0 +1,80 @@
+;; staking-refinery.clar
+;; Mengubah Token Poin menjadi Token ONE melalui Staking
+
+(define-constant err-lock-period-not-finished (err u300))
+(define-constant err-not-found (err u301))
+
+;; Pilihan durasi: 7 hari (~1000 blok) atau 30 hari (~4300 blok)
+(define-data-var lock-period-short uint u1008) ;; ~1 minggu
+(define-constant exchange-rate u10) ;; 100 POIN = 10 ONE (contoh)
+
+(define-map stakes 
+  { staker: principal, id: uint } 
+  { amount-poin: uint, start-height: uint, end-height: uint, claimed: bool }
+)
+(define-data-var stake-nonce uint u0)
+
+(define-public (stake-tokens (amount-poin uint))
+  (let
+    (
+      (user tx-sender)
+      (current-id (var-get stake-nonce))
+      (end-block (+ block-height (var-get lock-period-short)))
+    )
+    ;; Transfer POIN dari user ke kontrak ini (dikunci)
+    (try! (contract-call? .token-poin transfer amount-poin user (as-contract tx-sender) none))
+    
+    ;; Simpan data staking
+    (map-set stakes { staker: user, id: current-id } 
+      { 
+        amount-poin: amount-poin, 
+        start-height: block-height, 
+        end-height: end-block, 
+        claimed: false 
+      }
+    )
+    (var-set stake-nonce (+ current-id u1))
+    (ok current-id)
+  )
+)
+
+(define-public (harvest (stake-id uint))
+  (let
+    (
+      (user tx-sender)
+      (stake-data (unwrap! (map-get? stakes { staker: user, id: stake-id }) err-not-found))
+    )
+    ;; Validasi
+    (asserts! (>= block-height (get end-height stake-data)) err-lock-period-not-finished)
+    (asserts! (is-eq (get claimed stake-data) false) (err u302))
+
+    ;; Hitung Reward (Misal 10% dari poin yang distake dikonversi jadi ONE)
+    (let
+      (
+        (reward-amount (/ (get amount-poin stake-data) exchange-rate))
+      )
+      ;; Update status jadi claimed
+      (map-set stakes { staker: user, id: stake-id } 
+        (merge stake-data { claimed: true })
+      )
+
+      ;; Kembalikan POIN user
+      (try! (as-contract (contract-call? .token-poin transfer (get amount-poin stake-data) tx-sender user none)))
+
+      ;; Mint Reward ONE ke user
+      (as-contract (contract-call? .token-one mint reward-amount user))
+    )
+  )
+)
+
+(define-public (ping-59)
+  (ok true))
+
+(define-public (ping-67)
+  (ok true))
+
+(define-public (ping-15)
+  (ok true))
+
+(define-public (ping-114)
+  (ok true))

package/smart-contracts/contracts/token-one-v3.clar

@@ -0,0 +1,74 @@
+(impl-trait 'SP3FBR2AGK5H9QBDH3EEN6DF8EK8JY7RX8QJ5SVTE.sip-010-trait-ft-standard.sip-010-trait)
+
+(define-fungible-token token-one-v3)
+
+(define-constant contract-owner tx-sender)
+(define-constant err-owner-only (err u100))
+(define-constant err-not-authorized (err u101))
+
+(define-map approved-minters principal bool)
+
+(define-read-only (get-balance (who principal))
+  (ok (ft-get-balance token-one-v3 who))
+)
+
+(define-read-only (get-total-supply)
+  (ok (ft-get-supply token-one-v3))
+)
+
+(define-read-only (get-name)
+  (ok "Stacks One V3")
+)
+
+(define-read-only (get-symbol)
+  (ok "ONE")
+)
+
+(define-read-only (get-decimals)
+  (ok u6)
+)
+
+(define-read-only (get-token-uri)
+  (ok none)
+)
+
+(define-public (transfer (amount uint) (sender principal) (recipient principal) (memo (optional (buff 34))))
+  (begin
+    (asserts! (is-eq tx-sender sender) err-not-authorized)
+    (try! (ft-transfer? token-one-v3 amount sender recipient))
+    (match memo to-print (print to-print) 0x)
+    (ok true)
+  )
+)
+
+(define-public (mint (amount uint) (recipient principal))
+  (let
+    (
+      (is-approved (default-to false (map-get? approved-minters tx-sender)))
+    )
+    (asserts! (or (is-eq tx-sender contract-owner) is-approved) err-not-authorized)
+    (ft-mint? token-one-v3 amount recipient)
+  )
+)
+
+(define-public (add-minter (minter principal))
+  (begin
+    (asserts! (is-eq tx-sender contract-owner) err-owner-only)
+    (ok (map-set approved-minters minter true))
+  )
+)
+
+(define-public (ping-133)
+  (ok true))
+
+(define-public (ping-40)
+  (ok true))
+
+(define-public (ping-14)
+  (ok true))
+
+(define-public (ping-2)
+  (ok true))
+
+(define-public (ping-27)
+  (ok true))

package/smart-contracts/contracts/token-one-v4.clar

@@ -0,0 +1,51 @@
+(define-fungible-token one)
+
+(define-constant contract-owner tx-sender)
+(define-constant err-owner-only (err u100))
+(define-constant err-not-authorized (err u101))
+
+(define-map approved-minters principal bool)
+
+(define-read-only (get-balance (who principal))
+  (ok (ft-get-balance one who))
+)
+
+(define-read-only (get-total-supply)
+  (ok (ft-get-supply one))
+)
+
+(define-public (transfer (amount uint) (sender principal) (recipient principal))
+  (begin
+    (asserts! (is-eq tx-sender sender) err-not-authorized)
+    (ft-transfer? one amount sender recipient)
+  )
+)
+
+(define-public (mint (amount uint) (recipient principal))
+  (let
+    (
+      (is-approved (default-to false (map-get? approved-minters tx-sender)))
+    )
+    (asserts! (or (is-eq tx-sender contract-owner) is-approved) err-not-authorized)
+    (ft-mint? one amount recipient)
+  )
+)
+
+(define-public (add-minter (minter principal))
+  (begin
+    (asserts! (is-eq tx-sender contract-owner) err-owner-only)
+    (ok (map-set approved-minters minter true))
+  )
+)
+
+(define-public (ping-114)
+  (ok true))
+
+(define-public (ping-77)
+  (ok true))
+
+(define-public (ping-190)
+  (ok true))
+
+(define-public (ping-77)
+  (ok true))

package/smart-contracts/contracts/token-one-v5.clar

@@ -0,0 +1,78 @@
+;; token-one-v5.clar
+;; @version 2
+
+(define-fungible-token one)
+
+(define-constant contract-owner tx-sender)
+(define-constant err-owner-only (err u100))
+(define-constant err-not-authorized (err u101))
+
+(define-map approved-minters principal bool)
+
+;; Standard SIP-010 Functions
+(define-read-only (get-name) (ok "StacksOne Token"))
+(define-read-only (get-symbol) (ok "ONE"))
+(define-read-only (get-decimals) (ok u6))
+(define-read-only (get-token-uri) (ok none))
+
+(define-read-only (get-balance (who principal))
+  (ok (ft-get-balance one who))
+)
+
+(define-read-only (get-total-supply)
+  (ok (ft-get-supply one))
+)
+
+(define-public (transfer (amount uint) (sender principal) (recipient principal) (memo (optional (buff 34))))
+  (begin
+    (asserts! (is-eq tx-sender sender) err-not-authorized)
+    (try! (ft-transfer? one amount sender recipient))
+    (match memo to-print (print to-print) 0)
+    (ok true)
+  )
+)
+
+(define-public (mint (amount uint) (recipient principal))
+  (let
+    (
+      (is-approved (default-to false (map-get? approved-minters tx-sender)))
+    )
+    ;; Tx-sender di sini akan menjadi alamat kontrak Faucet/Staking jika dipanggil via as-contract
+    (asserts! (or (is-eq tx-sender contract-owner) is-approved) err-not-authorized)
+    (ft-mint? one amount recipient)
+  )
+)
+
+(define-public (add-minter (minter principal))
+  (begin
+    (asserts! (is-eq tx-sender contract-owner) err-owner-only)
+    (ok (map-set approved-minters minter true))
+  )
+)
+
+(define-public (ping-142)
+  (ok true))
+
+(define-public (ping-122)
+  (ok true))
+
+(define-public (ping-30)
+  (ok true))
+
+(define-public (ping-110)
+  (ok true))
+
+(define-public (ping-27)
+  (ok true))
+
+(define-public (ping-46)
+  (ok true))
+
+(define-public (ping-7)
+  (ok true))
+
+(define-public (ping-127)
+  (ok true))
+
+(define-public (ping-20)
+  (ok true))