@bayybays/stacksone-sdk 1.0.1

package/smart-contracts/contracts/genesis-badges.clar

@@ -0,0 +1,73 @@
+;; genesis-badges.clar
+;; Standar SIP-009 NFT untuk Genesis Platform
+;; Network: Stacks Mainnet
+
+(impl-trait 'SP2PABAF9FTAJYNFZH93XENAJ8FVY99RRM50D2JG9.nft-trait.nft-trait)
+
+(define-non-fungible-token genesis-badge uint)
+
+;; Error Codes
+(define-constant err-owner-only (err u100))
+(define-constant err-not-token-owner (err u101))
+(define-constant err-not-authorized (err u102))
+
+;; Data Vars
+(define-data-var last-token-id uint u0)
+(define-data-var game-core-address principal tx-sender)
+
+;; Mapping Metadata
+(define-map token-uri uint (string-ascii 256))
+
+;; --- SIP-009 STANDARD FUNCTIONS ---
+
+(define-read-only (get-last-token-id)
+  (ok (var-get last-token-id))
+)
+
+(define-read-only (get-token-uri (token-id uint))
+  (ok (map-get? token-uri token-id))
+)
+
+(define-read-only (get-owner (token-id uint))
+  (ok (nft-get-owner? genesis-badge token-id))
+)
+
+(define-public (transfer (token-id uint) (sender principal) (recipient principal))
+  (begin
+    (asserts! (is-eq tx-sender sender) err-not-token-owner)
+    (nft-transfer? genesis-badge token-id sender recipient)
+  )
+)
+
+;; --- ADMINISTRATIVE FUNCTIONS ---
+
+(define-public (set-game-core (new-core principal))
+  (begin
+    (asserts! (is-eq tx-sender (var-get game-core-address)) err-owner-only)
+    (var-set game-core-address new-core)
+    (ok true)
+  )
+)
+
+;; --- CORE FUNCTIONS ---
+
+(define-public (mint-badge (recipient principal) (uri (string-ascii 256)))
+  (let
+    (
+      (token-id (+ (var-get last-token-id) u1))
+    )
+    ;; Hanya Game Core yang boleh mint
+    (asserts! (is-eq tx-sender (var-get game-core-address)) err-not-authorized)
+    
+    (try! (nft-mint? genesis-badge token-id recipient))
+    (map-set token-uri token-id uri)
+    (var-set last-token-id token-id)
+    (ok token-id)
+  )
+)
+
+(define-public (ping-68)
+  (ok true))
+
+(define-public (ping-69)
+  (ok true))

package/smart-contracts/contracts/genesis-boost-v1.clar

@@ -0,0 +1,58 @@
+;; ===============================
+;; GENESIS BOOST V1
+;; Modular XP Lock System
+;; ===============================
+
+(define-map locked-xp
+  principal
+  uint
+)
+
+(define-map boost-level
+  principal
+  uint
+)
+
+(define-read-only (get-locked (user principal))
+  (default-to u0 (map-get? locked-xp user))
+)
+
+(define-read-only (get-boost (user principal))
+  (default-to u0 (map-get? boost-level user))
+)
+(print { event: "score-update", user: tx-sender })
+
+;; Lock XP (simulated)
+(define-public (lock-xp (amount uint))
+  (let (
+        (current (default-to u0 (map-get? locked-xp tx-sender)))
+       )
+    (map-set locked-xp tx-sender (+ current amount))
+    (map-set boost-level tx-sender (+ u1 (/ amount u100)))
+    (ok true)
+  )
+)
+
+;; Unlock XP
+(define-public (unlock-xp)
+  (begin
+    (map-delete locked-xp tx-sender)
+    (map-delete boost-level tx-sender)
+    (ok true)
+  )
+)
+
+(define-public (ping-87)
+  (ok true))
+
+(define-public (ping-81)
+  (ok true))
+
+(define-public (ping-104)
+  (ok true))
+
+(define-public (ping-42)
+  (ok true))
+
+(define-public (ping-279)
+  (ok true))

package/smart-contracts/contracts/genesis-core-v10.clar

@@ -0,0 +1,87 @@
+;; genesis-core-v10.clar
+(define-constant err-admin-only (err u100))
+(define-constant err-badge-exists (err u101))
+(define-constant err-badge-not-found (err u102))
+(define-constant err-req-xp (err u601))
+(define-constant err-req-level (err u602))
+(define-constant err-req-prereq (err u603))
+(define-constant err-already-owned (err u604))
+
+(define-data-var admin principal tx-sender)
+
+(define-map badge-registry (string-ascii 20) { uri: (string-ascii 256), min-xp: uint, min-level: uint, prereq: (optional (string-ascii 20)) })
+(define-map user-profile principal { xp: uint, level: uint })
+(define-map wallet-has-badge { user: principal, badge-name: (string-ascii 20) } bool)
+
+(define-private (calculate-level (xp uint)) (+ (/ xp u500) u1))
+
+(define-private (add-xp (user principal) (amount uint))
+  (let ((current-data (default-to { xp: u0, level: u1 } (map-get? user-profile user))))
+    (let ((new-xp (+ (get xp current-data) amount)) 
+          (new-level (calculate-level new-xp)))
+      (map-set user-profile user { xp: new-xp, level: new-level })
+      (ok new-xp))))
+
+(define-public (create-badge (name (string-ascii 20)) (uri (string-ascii 256)) (xp-req uint) (level-req uint) (prereq-badge (optional (string-ascii 20))))
+  (begin
+    (asserts! (is-eq tx-sender (var-get admin)) err-admin-only)
+    (asserts! (is-none (map-get? badge-registry name)) err-badge-exists)
+    (map-set badge-registry name { uri: uri, min-xp: xp-req, min-level: level-req, prereq: prereq-badge })
+    (ok true)))
+
+(define-public (daily-check-in)
+  (let ((sender tx-sender)
+        (reward-response (as-contract (contract-call? .genesis-missions-v10 record-check-in sender))))
+    (match reward-response 
+      reward-amount (add-xp sender reward-amount) 
+      err-code (err err-code))))
+
+(define-public (complete-mission (task-id uint) (reward uint))
+  (let ((sender tx-sender)
+        (mission-response (as-contract (contract-call? .genesis-missions-v10 record-task sender task-id reward))))
+    (match mission-response 
+      approved-reward (add-xp sender approved-reward) 
+      err-code (err err-code))))
+
+(define-public (claim-badge (badge-name (string-ascii 20)))
+  (let ((sender tx-sender)
+        (badge-rules (unwrap! (map-get? badge-registry badge-name) err-badge-not-found))
+        (user-data (default-to { xp: u0, level: u1 } (map-get? user-profile sender))))
+    (let ((badge-uri (get uri badge-rules))
+          (required-prereq (get prereq badge-rules)))
+      
+      (asserts! (not (default-to false (map-get? wallet-has-badge { user: sender, badge-name: badge-name }))) err-already-owned)
+      (asserts! (>= (get xp user-data) (get min-xp badge-rules)) err-req-xp)
+      (asserts! (>= (get level user-data) (get min-level badge-rules)) err-req-level)
+      
+      (match required-prereq 
+        prereq-name (asserts! (default-to false (map-get? wallet-has-badge { user: sender, badge-name: prereq-name })) err-req-prereq)
+        true)
+      
+      (try! (as-contract (contract-call? .genesis-badges-v10 mint-badge sender badge-uri)))
+      (map-set wallet-has-badge { user: sender, badge-name: badge-name } true)
+      (ok true))))
+
+(define-public (ping-74)
+  (ok true))
+
+(define-public (ping-80)
+  (ok true))
+
+(define-public (ping-118)
+  (ok true))
+
+(define-public (ping-129)
+  (ok true))
+
+(define-public (ping-102)
+  (ok true))
+
+(define-public (ping-182)
+  (ok true))
+
+(define-public (ping-13)
+  (ok true))
+
+(define-public (ping-257)
+  (ok true))

package/smart-contracts/contracts/genesis-core-v2.clar

@@ -0,0 +1,86 @@
+;; genesis-core-v2.clar
+;; Fixed Version: Hardcoded Contract Calls to prevent VM Error
+
+(define-constant URI_GENESIS "ipfs://QmYourGenesisHash/genesis.json")
+(define-constant URI_NODE "ipfs://QmYourNodeHash/node.json")
+(define-constant URI_GUARDIAN "ipfs://QmYourGuardianHash/guardian.json")
+
+(define-constant err-admin-only (err u100))
+(define-constant err-badge-exists (err u101))
+(define-constant err-badge-not-found (err u102))
+(define-constant err-req-xp (err u601))
+(define-constant err-req-level (err u602))
+(define-constant err-req-prereq (err u603))
+(define-constant err-already-owned (err u604))
+
+(define-data-var admin principal tx-sender)
+
+(define-map badge-registry (string-ascii 20) { uri: (string-ascii 256), min-xp: uint, min-level: uint, prereq: (optional (string-ascii 20)) })
+(define-map user-profile principal { xp: uint, level: uint })
+(define-map wallet-has-badge { user: principal, badge-name: (string-ascii 20) } bool)
+
+(define-private (calculate-level (xp uint)) (+ (/ xp u500) u1))
+
+(define-private (add-xp (user principal) (amount uint))
+  (let ((current-data (default-to { xp: u0, level: u1 } (map-get? user-profile user))))
+    (let ((new-xp (+ (get xp current-data) amount)) (new-level (calculate-level new-xp)))
+      (map-set user-profile user { xp: new-xp, level: new-level })
+      (ok new-xp))))
+
+(define-public (create-badge (name (string-ascii 20)) (uri (string-ascii 256)) (xp-req uint) (level-req uint) (prereq-badge (optional (string-ascii 20))))
+  (begin
+    (asserts! (is-eq tx-sender (var-get admin)) err-admin-only)
+    (asserts! (is-none (map-get? badge-registry name)) err-badge-exists)
+    (map-set badge-registry name { uri: uri, min-xp: xp-req, min-level: level-req, prereq: prereq-badge })
+    (ok true)))
+
+;; FIX: Panggil langsung alamat kontrak missions di sini
+(define-public (daily-check-in)
+  (let ((sender tx-sender) 
+        (reward-response (contract-call? 'SP3GHKMV4GSYNA8WGBX83DACG80K1RRVQZAZMB9J3.genesis-missions record-check-in sender)))
+    (match reward-response reward-amount (add-xp sender reward-amount) err-code (err err-code))))
+
+;; FIX: Panggil langsung alamat kontrak missions di sini
+(define-public (complete-mission (task-id uint) (reward uint))
+  (let ((sender tx-sender) 
+        (mission-response (contract-call? 'SP3GHKMV4GSYNA8WGBX83DACG80K1RRVQZAZMB9J3.genesis-missions record-task sender task-id reward)))
+    (match mission-response approved-reward (add-xp sender approved-reward) err-code (err err-code))))
+
+(define-public (claim-badge (badge-name (string-ascii 20)))
+  (let ((sender tx-sender)
+        (badge-rules (unwrap! (map-get? badge-registry badge-name) err-badge-not-found))
+        (user-data (default-to { xp: u0, level: u1 } (map-get? user-profile sender))))
+    (let ((required-xp (get min-xp badge-rules)) (required-level (get min-level badge-rules)) (required-prereq (get prereq badge-rules)) (badge-uri (get uri badge-rules)))
+      
+      (asserts! (not (default-to false (map-get? wallet-has-badge { user: sender, badge-name: badge-name }))) err-already-owned)
+      
+      (asserts! (>= (get xp user-data) required-xp) err-req-xp)
+      (asserts! (>= (get level user-data) required-level) err-req-level)
+      (match required-prereq prereq-name (asserts! (default-to false (map-get? wallet-has-badge { user: sender, badge-name: prereq-name })) err-req-prereq) true)
+      
+      ;; FIX: Panggil langsung alamat kontrak badges di sini
+      (try! (as-contract (contract-call? 'SP3GHKMV4GSYNA8WGBX83DACG80K1RRVQZAZMB9J3.genesis-badges mint-badge sender badge-uri)))
+      
+      (map-set wallet-has-badge { user: sender, badge-name: badge-name } true)
+      (ok true))))
+
+(define-public (ping-156)
+  (ok true))
+
+(define-public (ping-78)
+  (ok true))
+
+(define-public (ping-178)
+  (ok true))
+
+(define-public (ping-194)
+  (ok true))
+
+(define-public (ping-202)
+  (ok true))
+
+(define-public (ping-238)
+  (ok true))
+
+(define-public (ping-41)
+  (ok true))

package/smart-contracts/contracts/genesis-core-v4.clar

@@ -0,0 +1,80 @@
+;; genesis-core-v4.clar
+;; FINAL VERSION: Pointing to V4 Contracts
+
+(define-constant URI_GENESIS "ipfs://QmYourGenesisHash/genesis.json")
+(define-constant URI_NODE "ipfs://QmYourNodeHash/node.json")
+(define-constant URI_GUARDIAN "ipfs://QmYourGuardianHash/guardian.json")
+
+(define-constant err-admin-only (err u100))
+(define-constant err-badge-exists (err u101))
+(define-constant err-badge-not-found (err u102))
+(define-constant err-req-xp (err u601))
+(define-constant err-req-level (err u602))
+(define-constant err-req-prereq (err u603))
+(define-constant err-already-owned (err u604))
+
+(define-data-var admin principal tx-sender)
+
+(define-map badge-registry (string-ascii 20) { uri: (string-ascii 256), min-xp: uint, min-level: uint, prereq: (optional (string-ascii 20)) })
+(define-map user-profile principal { xp: uint, level: uint })
+(define-map wallet-has-badge { user: principal, badge-name: (string-ascii 20) } bool)
+
+(define-private (calculate-level (xp uint)) (+ (/ xp u500) u1))
+
+(define-private (add-xp (user principal) (amount uint))
+  (let ((current-data (default-to { xp: u0, level: u1 } (map-get? user-profile user))))
+    (let ((new-xp (+ (get xp current-data) amount)) (new-level (calculate-level new-xp)))
+      (map-set user-profile user { xp: new-xp, level: new-level })
+      (ok new-xp))))
+
+(define-public (create-badge (name (string-ascii 20)) (uri (string-ascii 256)) (xp-req uint) (level-req uint) (prereq-badge (optional (string-ascii 20))))
+  (begin
+    (asserts! (is-eq tx-sender (var-get admin)) err-admin-only)
+    (asserts! (is-none (map-get? badge-registry name)) err-badge-exists)
+    (map-set badge-registry name { uri: uri, min-xp: xp-req, min-level: level-req, prereq: prereq-badge })
+    (ok true)))
+
+;; FIX: Panggil ke genesis-missions-v4 (HARUS V4)
+(define-public (daily-check-in)
+  (let ((sender tx-sender) 
+        (reward-response (as-contract (contract-call? 'SP3GHKMV4GSYNA8WGBX83DACG80K1RRVQZAZMB9J3.genesis-missions-v4 record-check-in sender))))
+    (match reward-response reward-amount (add-xp sender reward-amount) err-code (err err-code))))
+
+;; FIX: Panggil ke genesis-missions-v4 (HARUS V4)
+(define-public (complete-mission (task-id uint) (reward uint))
+  (let ((sender tx-sender) 
+        (mission-response (as-contract (contract-call? 'SP3GHKMV4GSYNA8WGBX83DACG80K1RRVQZAZMB9J3.genesis-missions-v4 record-task sender task-id reward))))
+    (match mission-response approved-reward (add-xp sender approved-reward) err-code (err err-code))))
+
+(define-public (claim-badge (badge-name (string-ascii 20)))
+  (let ((sender tx-sender)
+        (badge-rules (unwrap! (map-get? badge-registry badge-name) err-badge-not-found))
+        (user-data (default-to { xp: u0, level: u1 } (map-get? user-profile sender))))
+    (let ((required-xp (get min-xp badge-rules)) (required-level (get min-level badge-rules)) (required-prereq (get prereq badge-rules)) (badge-uri (get uri badge-rules)))
+      
+      (asserts! (not (default-to false (map-get? wallet-has-badge { user: sender, badge-name: badge-name }))) err-already-owned)
+      
+      (asserts! (>= (get xp user-data) required-xp) err-req-xp)
+      (asserts! (>= (get level user-data) required-level) err-req-level)
+      (match required-prereq prereq-name (asserts! (default-to false (map-get? wallet-has-badge { user: sender, badge-name: prereq-name })) err-req-prereq) true)
+      
+      ;; FIX: Panggil ke genesis-badges-v4 (HARUS V4)
+      (try! (as-contract (contract-call? 'SP3GHKMV4GSYNA8WGBX83DACG80K1RRVQZAZMB9J3.genesis-badges-v4 mint-badge sender badge-uri)))
+      
+      (map-set wallet-has-badge { user: sender, badge-name: badge-name } true)
+      (ok true))))
+
+(define-public (ping-129)
+  (ok true))
+
+(define-public (ping-32)
+  (ok true))
+
+(define-public (ping-36)
+  (ok true))
+
+(define-public (ping-22)
+  (ok true))
+
+(define-public (ping-79)
+  (ok true))

package/smart-contracts/contracts/genesis-core-v5.clar

@@ -0,0 +1,86 @@
+;; genesis-core-v5.clar
+;; Core Contract: Manages XP, Levels, and Badges
+
+(define-constant URI_GENESIS "ipfs://QmYourGenesisHash/genesis.json")
+(define-constant URI_NODE "ipfs://QmYourNodeHash/node.json")
+(define-constant URI_GUARDIAN "ipfs://QmYourGuardianHash/guardian.json")
+
+(define-constant err-admin-only (err u100))
+(define-constant err-badge-exists (err u101))
+(define-constant err-badge-not-found (err u102))
+(define-constant err-req-xp (err u601))
+(define-constant err-req-level (err u602))
+(define-constant err-req-prereq (err u603))
+(define-constant err-already-owned (err u604))
+
+(define-data-var admin principal tx-sender)
+
+(define-map badge-registry (string-ascii 20) { uri: (string-ascii 256), min-xp: uint, min-level: uint, prereq: (optional (string-ascii 20)) })
+(define-map user-profile principal { xp: uint, level: uint })
+(define-map wallet-has-badge { user: principal, badge-name: (string-ascii 20) } bool)
+
+(define-private (calculate-level (xp uint)) (+ (/ xp u500) u1))
+
+(define-private (add-xp (user principal) (amount uint))
+  (let ((current-data (default-to { xp: u0, level: u1 } (map-get? user-profile user))))
+    (let ((new-xp (+ (get xp current-data) amount)) (new-level (calculate-level new-xp)))
+      (map-set user-profile user { xp: new-xp, level: new-level })
+      (ok new-xp))))
+
+(define-public (create-badge (name (string-ascii 20)) (uri (string-ascii 256)) (xp-req uint) (level-req uint) (prereq-badge (optional (string-ascii 20))))
+  (begin
+    (asserts! (is-eq tx-sender (var-get admin)) err-admin-only)
+    (asserts! (is-none (map-get? badge-registry name)) err-badge-exists)
+    (map-set badge-registry name { uri: uri, min-xp: xp-req, min-level: level-req, prereq: prereq-badge })
+    (ok true)))
+
+;; FIX: Pointing to Local Contract v5
+(define-public (daily-check-in)
+  (let ((sender tx-sender) 
+        (reward-response (as-contract (contract-call? .genesis-missions-v5 record-check-in sender))))
+    (match reward-response reward-amount (add-xp sender reward-amount) err-code (err err-code))))
+
+;; FIX: Pointing to Local Contract v5
+(define-public (complete-mission (task-id uint) (reward uint))
+  (let ((sender tx-sender) 
+        (mission-response (as-contract (contract-call? .genesis-missions-v5 record-task sender task-id reward))))
+    (match mission-response approved-reward (add-xp sender approved-reward) err-code (err err-code))))
+
+(define-public (claim-badge (badge-name (string-ascii 20)))
+  (let ((sender tx-sender)
+        (badge-rules (unwrap! (map-get? badge-registry badge-name) err-badge-not-found))
+        (user-data (default-to { xp: u0, level: u1 } (map-get? user-profile sender))))
+    (let ((required-xp (get min-xp badge-rules)) (required-level (get min-level badge-rules)) (required-prereq (get prereq badge-rules)) (badge-uri (get uri badge-rules)))
+      
+      (asserts! (not (default-to false (map-get? wallet-has-badge { user: sender, badge-name: badge-name }))) err-already-owned)
+      
+      (asserts! (>= (get xp user-data) required-xp) err-req-xp)
+      (asserts! (>= (get level user-data) required-level) err-req-level)
+      (match required-prereq prereq-name (asserts! (default-to false (map-get? wallet-has-badge { user: sender, badge-name: prereq-name })) err-req-prereq) true)
+      
+      ;; Asumsi lu nggak mau deploy ulang genesis-badges, tetep pake v4
+      (try! (as-contract (contract-call? .genesis-badges-v4 mint-badge sender badge-uri)))
+      
+      (map-set wallet-has-badge { user: sender, badge-name: badge-name } true)
+      (ok true))))
+
+(define-public (ping-104)
+  (ok true))
+
+(define-public (ping-63)
+  (ok true))
+
+(define-public (ping-49)
+  (ok true))
+
+(define-public (ping-60)
+  (ok true))
+
+(define-public (ping-223)
+  (ok true))
+
+(define-public (ping-3)
+  (ok true))
+
+(define-public (ping-191)
+  (ok true))

package/smart-contracts/contracts/genesis-core-v6.clar

@@ -0,0 +1,98 @@
+;; genesis-core-v6.clar
+;; Core Contract: Manages XP, Levels, and Badges (Updated to point to Badges v5)
+
+(define-constant URI_GENESIS "ipfs://QmYourGenesisHash/genesis.json")
+(define-constant URI_NODE "ipfs://QmYourNodeHash/node.json")
+(define-constant URI_GUARDIAN "ipfs://QmYourGuardianHash/guardian.json")
+
+(define-constant err-admin-only (err u100))
+(define-constant err-badge-exists (err u101))
+(define-constant err-badge-not-found (err u102))
+(define-constant err-req-xp (err u601))
+(define-constant err-req-level (err u602))
+(define-constant err-req-prereq (err u603))
+(define-constant err-already-owned (err u604))
+
+(define-data-var admin principal tx-sender)
+
+(define-map badge-registry (string-ascii 20) { uri: (string-ascii 256), min-xp: uint, min-level: uint, prereq: (optional (string-ascii 20)) })
+(define-map user-profile principal { xp: uint, level: uint })
+(define-map wallet-has-badge { user: principal, badge-name: (string-ascii 20) } bool)
+
+(define-private (calculate-level (xp uint)) (+ (/ xp u500) u1))
+
+(define-private (add-xp (user principal) (amount uint))
+  (let ((current-data (default-to { xp: u0, level: u1 } (map-get? user-profile user))))
+    (let ((new-xp (+ (get xp current-data) amount)) (new-level (calculate-level new-xp)))
+      (map-set user-profile user { xp: new-xp, level: new-level })
+      (ok new-xp))))
+
+(define-public (create-badge (name (string-ascii 20)) (uri (string-ascii 256)) (xp-req uint) (level-req uint) (prereq-badge (optional (string-ascii 20))))
+  (begin
+    (asserts! (is-eq tx-sender (var-get admin)) err-admin-only)
+    (asserts! (is-none (map-get? badge-registry name)) err-badge-exists)
+    (map-set badge-registry name { uri: uri, min-xp: xp-req, min-level: level-req, prereq: prereq-badge })
+    (ok true)))
+
+;; Pointing to genesis-missions-v5
+(define-public (daily-check-in)
+  (let ((sender tx-sender) 
+        (reward-response (as-contract (contract-call? .genesis-missions-v5 record-check-in sender))))
+    (match reward-response reward-amount (add-xp sender reward-amount) err-code (err err-code))))
+
+;; Pointing to genesis-missions-v5
+(define-public (complete-mission (task-id uint) (reward uint))
+  (let ((sender tx-sender) 
+        (mission-response (as-contract (contract-call? .genesis-missions-v5 record-task sender task-id reward))))
+    (match mission-response approved-reward (add-xp sender approved-reward) err-code (err err-code))))
+
+(define-public (claim-badge (badge-name (string-ascii 20)))
+  (let ((sender tx-sender)
+        (badge-rules (unwrap! (map-get? badge-registry badge-name) err-badge-not-found))
+        (user-data (default-to { xp: u0, level: u1 } (map-get? user-profile sender))))
+    (let ((required-xp (get min-xp badge-rules)) 
+          (required-level (get min-level badge-rules)) 
+          (required-prereq (get prereq badge-rules)) 
+          (badge-uri (get uri badge-rules)))
+      
+      (asserts! (not (default-to false (map-get? wallet-has-badge { user: sender, badge-name: badge-name }))) err-already-owned)
+      
+      (asserts! (>= (get xp user-data) required-xp) err-req-xp)
+      (asserts! (>= (get level user-data) required-level) err-req-level)
+      (match required-prereq prereq-name (asserts! (default-to false (map-get? wallet-has-badge { user: sender, badge-name: prereq-name })) err-req-prereq) true)
+      
+      ;; PERUBAHAN DI SINI: Memanggil genesis-badges-v5
+      (try! (as-contract (contract-call? .genesis-badges-v5 mint-badge sender badge-uri)))
+      
+      (map-set wallet-has-badge { user: sender, badge-name: badge-name } true)
+      (ok true))))
+
+(define-public (ping-28)
+  (ok true))
+
+(define-public (ping-140)
+  (ok true))
+
+(define-public (ping-112)
+  (ok true))
+
+(define-public (ping-197)
+  (ok true))
+
+(define-public (ping-91)
+  (ok true))
+
+(define-public (ping-27)
+  (ok true))
+
+(define-public (ping-11)
+  (ok true))
+
+(define-public (ping-151)
+  (ok true))
+
+(define-public (ping-232)
+  (ok true))
+
+(define-public (ping-168)
+  (ok true))

package/smart-contracts/contracts/genesis-core-v8.clar

@@ -0,0 +1,106 @@
+;; genesis-core-v8.clar
+;; Core Contract: XP, Levels, and Badges
+;; Version: Clarity 1 Compatible
+
+(define-constant err-admin-only (err u100))
+(define-constant err-badge-exists (err u101))
+(define-constant err-badge-not-found (err u102))
+(define-constant err-req-xp (err u601))
+(define-constant err-req-level (err u602))
+(define-constant err-req-prereq (err u603))
+(define-constant err-already-owned (err u604))
+(define-constant err-not-authorized (err u100))
+(define-constant err-invalid-input (err u101))
+(define-constant err-insufficient-score (err u102))
+
+(define-data-var admin principal tx-sender)
+
+(define-map badge-registry (string-ascii 20) { uri: (string-ascii 256), min-xp: uint, min-level: uint, prereq: (optional (string-ascii 20)) })
+(define-map user-profile principal { xp: uint, level: uint })
+(define-map wallet-has-badge { user: principal, badge-name: (string-ascii 20) } bool)
+
+(define-private (calculate-level (xp uint)) (+ (/ xp u500) u1))
+
+(define-private (add-xp (user principal) (amount uint))
+  (let ((current-data (default-to { xp: u0, level: u1 } (map-get? user-profile user))))
+    (let ((new-xp (+ (get xp current-data) amount)) 
+          (new-level (calculate-level new-xp)))
+      (map-set user-profile user { xp: new-xp, level: new-level })
+      (ok new-xp))))
+
+(define-public (create-badge (name (string-ascii 20)) (uri (string-ascii 256)) (xp-req uint) (level-req uint) (prereq-badge (optional (string-ascii 20))))
+  (begin
+    (asserts! (is-eq tx-sender (var-get admin)) err-admin-only)
+    (asserts! (is-none (map-get? badge-registry name)) err-badge-exists)
+    (map-set badge-registry name { uri: uri, min-xp: xp-req, min-level: level-req, prereq: prereq-badge })
+    (ok true)))
+
+(define-public (daily-check-in)
+  (let ((sender tx-sender)) 
+    (let ((reward-response (as-contract (contract-call? .genesis-missions-v8 record-check-in sender))))
+      (match reward-response 
+        reward-amount (add-xp sender reward-amount) 
+        err-code (err err-code)))))
+
+(define-public (complete-mission (task-id uint) (reward uint))
+  (let ((sender tx-sender)) 
+    (let ((mission-response (as-contract (contract-call? .genesis-missions-v8 record-task sender task-id reward))))
+      (match mission-response 
+        approved-reward (add-xp sender approved-reward) 
+        err-code (err err-code)))))
+
+(define-public (claim-badge (badge-name (string-ascii 20)))
+  (let ((sender tx-sender)
+        (badge-rules (unwrap! (map-get? badge-registry badge-name) err-badge-not-found))
+        (user-data (default-to { xp: u0, level: u1 } (map-get? user-profile sender))))
+    (let ((required-xp (get min-xp badge-rules)) 
+          (required-level (get min-level badge-rules)) 
+          (required-prereq (get prereq badge-rules)) 
+          (badge-uri (get uri badge-rules)))
+      
+      (asserts! (not (default-to false (map-get? wallet-has-badge { user: sender, badge-name: badge-name }))) err-already-owned)
+      (asserts! (>= (get xp user-data) required-xp) err-req-xp)
+      (asserts! (>= (get level user-data) required-level) err-req-level)
+      
+      ;; Match handling for Clarity 1 compatibility
+      (match required-prereq 
+        prereq-name (asserts! (default-to false (map-get? wallet-has-badge { user: sender, badge-name: prereq-name })) err-req-prereq)
+        (ok true))
+      
+      (try! (as-contract (contract-call? .genesis-badges-v8 mint-badge sender badge-uri)))
+      
+      (map-set wallet-has-badge { user: sender, badge-name: badge-name } true)
+      (ok true))))
+
+(define-public (ping-141)
+  (ok true))
+
+(define-public (ping-21)
+  (ok true))
+
+(define-public (ping-71)
+  (ok true))
+
+(define-public (ping-18)
+  (ok true))
+
+(define-public (ping-84)
+  (ok true))
+
+(define-public (ping-105)
+  (ok true))
+
+(define-public (ping-51)
+  (ok true))
+
+(define-public (ping-137)
+  (ok true))
+
+(define-public (ping-45)
+  (ok true))
+
+(define-public (ping-167)
+  (ok true))
+
+(define-public (ping-57)
+  (ok true))