jackpot-wall

;; Jackpot Wall - Stacks Builder Challenge
;; - 1 STX to post
;; - Every 10th poster wins 90% of the pot
;; - Designed for High Frequency + Chainhook triggers

(define-constant err-transfer-failed (err u100))
(define-constant err-msg-too-long (err u101))

;; Constants
(define-constant COST_PER_POST u100000) ;; 0.1 STX
(define-constant WIN_INTERVAL u10)
(define-constant PAYOUT_RATIO u90) ;; 90%

;; Data Vars
(define-data-var counter uint u0)

;; Maps
(define-map posts uint { poster: principal, message: (string-utf8 140) })

;; Public Functions

(define-public (post-message (message (string-utf8 140)))
    (let (
        (current-count (var-get counter))
        (next-count (+ current-count u1))
        (sender tx-sender)
        (contract-addr (as-contract tx-sender))
    )
        ;; 1. Collect Fee (1 STX)
        (unwrap! (stx-transfer? COST_PER_POST sender contract-addr) err-transfer-failed)
        
        ;; 2. Store Post
        (map-set posts next-count { poster: sender, message: message })
        (var-set counter next-count)

        ;; 3. Check Jackpot Condition
        (if (is-eq (mod next-count WIN_INTERVAL) u0)
            (let (
                ;; Calculate Payout
                (pot-balance (stx-get-balance contract-addr))
                (payout (/ (* pot-balance PAYOUT_RATIO) u100))
            )
                ;; Payout Winner (sender)
                (try! (as-contract (stx-transfer? payout tx-sender sender)))
                
                (print { 
                    event: "jackpot-won", 
                    id: next-count, 
                    winner: sender, 
                    amount: payout,
                    is_jackpot: true 
                })
                true
            )
            ;; Else: Just Log
            (begin
                (print { event: "new-post", id: next-count, poster: sender, message: message, is_jackpot: false })
                true
            )
        )
        
        (ok next-count)
    )
)

;; Read Only

(define-read-only (get-post (id uint))
    (map-get? posts id)
)

(define-read-only (get-pot-balance)
    (stx-get-balance (as-contract tx-sender))
)

(define-read-only (get-counter)
    (var-get counter)
)

(define-read-only (get-next-poster-id)
    (var-get counter)
)