119 lines
4.6 KiB
Racket
119 lines
4.6 KiB
Racket
#lang racket/gui
|
|
|
|
; setup main frame layout
|
|
(define frame (new (class frame% (super-new)
|
|
(define/augment (on-close)
|
|
(send timer stop))) ;on release - change to (exit)?
|
|
[label "Clicket"]
|
|
[border 5]))
|
|
(define panel (new horizontal-panel%
|
|
[parent frame]
|
|
[spacing 15]))
|
|
(define left-side (new vertical-pane% [parent panel]))
|
|
|
|
; janky terrible tab switcher, only works for two tabs, do not copy this
|
|
(define selected-tab #t)
|
|
(define (switch-tab tp e)
|
|
(send tp change-children
|
|
(λ (c)
|
|
(if selected-tab
|
|
(list builtins)
|
|
(list definitions))))
|
|
(set! selected-tab (not selected-tab)))
|
|
(define right-side (new tab-panel% [parent panel]
|
|
[choices '("Builtins" "Definitions")]
|
|
[callback switch-tab]))
|
|
(define builtins (new vertical-panel% [parent right-side]))
|
|
(define definitions (new vertical-panel% [parent right-side]))
|
|
(define tabs (list builtins definitions))
|
|
(switch-tab right-side #f)
|
|
|
|
; setup click var and associated display text
|
|
(define clicks 0)
|
|
(define (click-str) (~a "Clicks: " clicks))
|
|
(define click-msg (new message%
|
|
[parent left-side]
|
|
[label (click-str)]
|
|
[auto-resize #t]))
|
|
(define cps 0)
|
|
(define (cps-str) (~a "Auto-clicks per second: " cps))
|
|
(define cps-msg (new message%
|
|
[parent left-side]
|
|
[label (cps-str)]
|
|
[auto-resize #t]))
|
|
|
|
; helper procedures
|
|
(define-syntax-rule (new-inc-button container name counter)
|
|
(new button% [parent container]
|
|
[label name]
|
|
[callback (λ (b e) (set! counter (add1 counter)))]))
|
|
(define-syntax-rule (new-buy-button tab cl)
|
|
(let* ([button-panel (new horizontal-panel% [parent tab])]
|
|
[counter-msg (new message%
|
|
[parent button-panel]
|
|
[label "Owned: 0"]
|
|
[auto-resize #t])])
|
|
(new button% [parent button-panel]
|
|
[label (~a "Buy " (clicker-name cl) " (" (clicker-price cl) "¢)")]
|
|
[callback (λ (b e)
|
|
(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
|
|
(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 builtins cl))
|
|
|
|
; define your own clickers
|
|
(define definer-panel (new group-box-panel%
|
|
[parent definitions]
|
|
[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)]))
|
|
(define price-panel (new group-box-panel%
|
|
[parent definer-panel]
|
|
[label "Prices"]))
|
|
(define init-price (new message%
|
|
[parent price-panel]
|
|
[label "Init price: 0"]
|
|
[auto-resize #t]))
|
|
(define cl-price (new message%
|
|
[parent price-panel]
|
|
[label "Clicker price: 0"]
|
|
[auto-resize #t]))
|
|
(new button% [parent definer-panel]
|
|
[label "Define"])
|
|
; TODO implement callback
|
|
|
|
|
|
; setup timer
|
|
(define timer-ctr 0)
|
|
(define timer (new timer% [interval 100]
|
|
[notify-callback
|
|
(λ ()
|
|
(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)))))
|
|
(send click-msg set-label (click-str))
|
|
(send cps-msg set-label (cps-str))
|
|
(set! timer-ctr (add1 timer-ctr)))]))
|
|
|
|
; show frame
|
|
(send frame show #t) |