From f16927e356fff85d583c1b46e4a25c025bbd8f54 Mon Sep 17 00:00:00 2001 From: kiefac Date: Wed, 24 Apr 2024 12:43:17 -0400 Subject: [PATCH] switch to structs for autoclickers --- clicket.rkt | 31 ++++++++++++++++++------------- 1 file changed, 18 insertions(+), 13 deletions(-) diff --git a/clicket.rkt b/clicket.rkt index 4799ca3..3c5b742 100644 --- a/clicket.rkt +++ b/clicket.rkt @@ -25,36 +25,41 @@ (new button% [parent container] [label name] [callback (λ (b e) (set! counter (add1 counter)))])) -(define-syntax-rule (new-buy-button container name counter price) - (let* ([button-pane (new horizontal-pane% [parent container])] +; assume we're placing all buy buttons in the right-side container +(define-syntax-rule (new-buy-button cl) + (let* ([button-pane (new horizontal-pane% [parent right-side])] [counter-msg (new message% [parent button-pane] [label "Owned: 0"] [auto-resize #t])]) (new button% [parent button-pane] - [label (~a "Buy " name " (" price "¢)")] + [label (~a "Buy " (clicker-name cl) " (" (clicker-price cl) "¢)")] [callback (λ (b e) - (when (>= clicks price) - (set! counter (add1 counter)) - (set! clicks (- clicks price)) - (send counter-msg set-label (~a "Owned: " counter))))]))) + (when (>= clicks (clicker-price cl)) + (set-clicker-count! cl (add1 (clicker-count cl))) + (set! clicks (- clicks (clicker-price cl))) + (send counter-msg set-label (~a "Owned: " (clicker-count cl)))))]))) + ; button to manually increase click count (new-inc-button left-side "Clicket?" clicks) ; clicks on a timer -(define clickers 0) -(new-buy-button right-side "clicker" clickers 10) -(define farms 0) -(new-buy-button right-side "paren farm" farms 25) - +(struct clicker (name price multiplier (count #:mutable))) +(define all-clickers (list + (clicker "mouse" 10 1 0) + (clicker "coder" 150 5 0) + (clicker "paren farm" 1000 10 0))) +(for ([cl all-clickers]) (new-buy-button cl)) + ; setup timer (define timer-ctr 0) (define timer (new timer% [interval 100] [notify-callback (λ () (when (= 0 (modulo timer-ctr 10)) - (set! clicks (+ clicks clickers (* farms 5)))) + (for ([cl all-clickers]) + (set! clicks (+ clicks (* (clicker-multiplier cl) (clicker-count cl)))))) (send click-msg set-label (click-str)) (set! timer-ctr (add1 timer-ctr)))]))