finish definer callback, add cps to buy buttons, add new buttons, rename clicker cps field

clicket.rkt

@@ -54,7 +54,7 @@
                            [label "Owned: 0"]
                            [auto-resize #t])])
     (new button% [parent button-panel]
-         [label (~a "Buy " (clicker-name cl) " (" (clicker-price cl) "¢)")]
+         [label (~a "Buy " (clicker-name cl) " (" (clicker-price cl) "¢, " (clicker-cps cl) "CPS)")]
          [callback (λ (b e)
                      (when (>= clicks (clicker-price cl))
                        (set-clicker-count! cl (add1 (clicker-count cl)))
@@ -66,25 +66,41 @@
 (new-inc-button left-side "Clicket?" clicks)
 
 ; clicks on a timer
-(struct clicker (name price multiplier (count #:mutable)))
+(struct clicker (name price cps (count #:mutable)))
 (define all-clickers (list
-                      (clicker "mouse"      10    1   0)
-                      (clicker "coder"      150   5   0)
-                      (clicker "paren farm" 1000  10  0)))
+                      (clicker "mouse"        10    1    0)
+                      (clicker "coder"        250   15   0)
+                      (clicker "paren farm"   1000  40   0)
+                      (clicker "define mine"  2500  75   0)
+                      (clicker "git portal"   9999  200  0)))
 (for ([cl all-clickers]) (new-buy-button builtins cl))
+; prevent tab panel from resizing to a panel with arrows
+(send right-side min-width (send right-side get-width))
 
 ; define your own clickers
+(define init-multiplier 50)  ;desired CPS * init-multiplier  = cost to define clicker
+(define price-multiplier 25) ;desired CPS * price-multiplier = cost to buy clicker
 (define definer-panel (new group-box-panel%
-                           [parent definitions]
+                           [parent left-side]
                            [label "Define custom clicker"]))
 (define name-field (new text-field%
                         [parent definer-panel]
                         [label "Name"]
                         [style '(single  vertical-label)]))
 (define clicks-field (new text-field%
-                        [parent definer-panel]
-                        [label "Clicks per second"]
-                        [style '(single  vertical-label)]))
+                          [parent definer-panel]
+                          [label "Clicks per second"]
+                          [style '(single  vertical-label)]
+                          [callback (λ (f e)
+                                      (define (v) (send f get-value))
+                                      (define (v-num) (string->number (v)))
+                                      (unless (v-num)
+                                        (send f set-value (regexp-replace* #rx"[^0-9]+" (v) "")))
+                                      (send init-price set-label "Init price: 0")
+                                      (send cl-price set-label "Clicker price: 0")
+                                      (when (v-num)
+                                        (send init-price set-label (~a "Init price: " (* (v-num) init-multiplier)))
+                                        (send cl-price set-label (~a "Clicker price: " (* (v-num) price-multiplier)))))]))
 (define price-panel (new group-box-panel%
                          [parent definer-panel]
                          [label "Prices"]))
@@ -93,12 +109,29 @@
                         [label "Init price: 0"]
                         [auto-resize #t]))
 (define cl-price (new message%
-                        [parent price-panel]
-                        [label "Clicker price: 0"]
-                        [auto-resize #t]))
+                      [parent price-panel]
+                      [label "Clicker price: 0"]
+                      [auto-resize #t]))
 (new button% [parent definer-panel]
-     [label "Define"])
-; TODO implement callback
+     [label "Define"]
+     [callback (λ (b e)
+                 (define name (send name-field get-value))
+                 (define cps-str (send clicks-field get-value))
+                 (define cps (string->number cps-str))
+                 (define price (* cps price-multiplier))
+                 (define cost (* cps init-multiplier))
+                 (when (and name cps-str (>= clicks cost))
+                   (set! clicks (- clicks cost))
+                   (define cl (clicker name price cps 1))
+                   (set! all-clickers (append all-clickers (list cl)))
+                   (new-buy-button definitions cl)
+                   (unless selected-tab
+                     (switch-tab right-side #f)
+                     (send right-side set-selection 1))
+                   (send name-field set-value "")
+                   (send clicks-field set-value "")
+                   (send init-price set-label "Init price: 0")
+                   (send cl-price set-label "Clicker price: 0")))])
 
  
 ; setup timer
@@ -109,8 +142,8 @@
                       (set! cps 0)
                       (for ([cl all-clickers])
                         (when (= 0 (modulo timer-ctr 10))
-                          (set! clicks (+ clicks (* (clicker-multiplier cl) (clicker-count cl)))))
-                        (set! cps (+ cps (* (clicker-multiplier cl) (clicker-count cl)))))
+                          (set! clicks (+ clicks (* (clicker-cps cl) (clicker-count cl)))))
+                        (set! cps (+ cps (* (clicker-cps cl) (clicker-count cl)))))
                       (send click-msg set-label (click-str))
                       (send cps-msg set-label (cps-str))
                       (set! timer-ctr (add1 timer-ctr)))]))