;; Tower Defense Game ;; Core systems: enemy pathfinding, tower targeting, wave spawning, economy ;; Game constants (def grid-size 40) (def cols 15) (def rows 10) (def canvas-width (* cols grid-size)) (def canvas-height (* rows grid-size)) ;; Path waypoints (enemies follow these in order) (def path-waypoints (list {:x 0 :y 180} {:x 200 :y 180} {:x 200 :y 60} {:x 440 :y 60} {:x 440 :y 300} {:x 600 :y 300})) ;; Tower definitions (def tower-types {:basic {:name "Basic" :damage 10 :range 120 :fire-rate 1000 :cost 50 :color "#00ffff"} :fast {:name "Fast" :damage 5 :range 100 :fire-rate 300 :cost 75 :color "#ff00ff"} :splash {:name "Splash" :damage 20 :range 80 :fire-rate 1500 :cost 100 :color "#00ff00" :splash-radius 40}}) ;; Enemy definitions (def enemy-types {:normal {:name "Normal" :speed 1 :health 50 :reward 10 :color "#ff4444" :size 8} :fast {:name "Fast" :speed 2 :health 30 :reward 15 :color "#ffff00" :size 6} :tank {:name "Tank" :speed 0.5 :health 150 :reward 25 :color "#ff8800" :size 12}}) ;; Initialize game state (defn init-game [] (set-var "phase" "menu") (set-var "health" 20) (set-var "money" 200) (set-var "wave" 0) (set-var "enemies" (list)) (set-var "towers" (list)) (set-var "projectiles" (list)) (set-var "selected-tower" :basic) (set-var "wave-active" false) (set-var "enemies-spawned" 0) (set-var "wave-enemies" 0) (set-var "last-spawn" 0) (set-var "game-over" false)) ;; Tower placement grid (valid positions) (defn valid-positions [] (let [positions (list)] (doseq [row (range 1 (dec rows))] (doseq [col (range 1 (dec cols))] (let [x (* col grid-size) y (* row grid-size) ;; Check if position is not on path on-path (some (fn [wp] (and (< (abs (- x (:x wp))) grid-size) (< (abs (- y (:y wp))) grid-size))) path-waypoints)] (when (not on-path) (set-var "positions" (conj (get-var "positions" (list)) {:x x :y y})))))) (get-var "positions" (list)))) ;; Enemy movement system (defn move-enemies [] (let [enemies (get-var "enemies" (list)) moved (map (fn [e] (let [wp (nth path-waypoints (:waypoint e)) dx (- (:x wp) (:x e)) dy (- (:y wp) (:y e)) dist (sqrt (+ (* dx dx) (* dy dy))) speed (:speed e)] (if (< dist speed) ;; Reached waypoint, move to next (let [next-wp (inc (:waypoint e))] (if (>= next-wp (count path-waypoints)) ;; Reached base (assoc e :reached-base true) (assoc e :waypoint next-wp :x (:x wp) :y (:y wp)))) ;; Move toward waypoint (let [angle (atan2 dy dx)] (assoc e :x (+ (:x e) (* speed (cos angle))) :y (+ (:y e) (* speed (sin angle)))))))) enemies) ;; Remove enemies that reached base reached-base (filter :reached-base moved) alive (remove :reached-base moved)] ;; Apply damage for enemies reaching base (doseq [e reached-base] (increment-var "health" (- (:damage e 1)))) (set-var "enemies" alive))) ;; Tower targeting system (defn find-target [tower enemies] (let [tx (:x tower) ty (:y tower) range (:range tower)] (first (filter (fn [e] (let [dx (- (:x e) tx) dy (- (:y e) ty)] (< (sqrt (+ (* dx dx) (* dy dy))) range))) enemies)))) ;; Tower shooting system (defn shoot-towers [] (let [towers (get-var "towers" (list)) enemies (get-var "enemies" (list)) now (now) new-projectiles (list)] (doseq [tower towers] (when (and (:target tower) (> now (+ (:last-shot tower 0) (:fire-rate tower)))) (let [target (:target tower) ;; Create projectile proj {:x (:x tower) :y (:y tower) :target-x (:x target) :target-y (:y target) :damage (:damage tower) :splash (:splash-radius tower 0) :speed 5 :color (:color tower)}] (set-var "projectiles" (conj (get-var "projectiles" (list)) proj)) (play-sound "https://cdn.example.com/laser.mp3" :volume 0.3) ;; Update last shot time (set-var "towers" (map (fn [t] (if (= t tower) (assoc t :last-shot now) t)) towers))))))) ;; Projectile movement and collision (defn move-projectiles [] (let [projectiles (get-var "projectiles" (list)) enemies (get-var "enemies" (list)) new-projectiles (list) killed (list)] (doseq [proj projectiles] (let [dx (- (:target-x proj) (:x proj)) dy (- (:target-y proj) (:y proj)) dist (sqrt (+ (* dx dx) (* dy dy))) speed (:speed proj)] (if (< dist speed) ;; Projectile hit target (let [hit-enemies (if (:splash proj) ;; Splash damage - hit all enemies in radius (filter (fn [e] (let [dx (- (:x e) (:target-x proj)) dy (- (:y e) (:target-y proj))] (< (sqrt (+ (* dx dx) (* dy dy))) (:splash proj)))) enemies) ;; Single target - find closest enemy to impact point (list (first (sort-by (fn [e] (let [dx (- (:x e) (:target-x proj)) dy (- (:y e) (:target-y proj))] (sqrt (+ (* dx dx) (* dy dy))))) enemies))))] (doseq [e hit-enemies] (when e (let [new-health (- (:health e) (:damage proj))] (if (<= new-health 0) ;; Enemy killed (do (increment-var "money" (:reward e 10)) (play-sound "https://cdn.example.com/explosion.mp3" :volume 0.5) (set-var "enemies" (remove (fn [en] (= en e)) (get-var "enemies" (list))))) ;; Enemy damaged (set-var "enemies" (map (fn [en] (if (= en e) (assoc en :health new-health) en)) (get-var "enemies" (list))))))))) ;; Projectile still moving (let [angle (atan2 dy dx)] (set-var "projectiles" (conj (get-var "projectiles" (list)) (assoc proj :x (+ (:x proj) (* speed (cos angle))) :y (+ (:y proj) (* speed (sin angle)))))))))) ;; Remove expired projectiles (set-var "projectiles" (filter (fn [p] (not (:expired p))) (get-var "projectiles" (list)))))) ;; Wave spawning system (defn spawn-wave [] (let [wave (inc (get-var "wave" 0)) enemies-per-wave (+ 5 (* wave 3)) enemy-types-list (list :normal :fast :tank) spawn-interval 1000] (set-var "wave" wave) (set-var "wave-active" true) (set-var "enemies-spawned" 0) (set-var "wave-enemies" enemies-per-wave) (set-var "last-spawn" (now)) (set-var "spawn-interval" spawn-interval))) (defn spawn-enemy [] (let [spawned (get-var "enemies-spawned" 0) total (get-var "wave-enemies" 0)] (when (< spawned total) (let [;; Random enemy type with increasing difficulty rand-val (random) enemy-type (cond (< rand-val 0.5) :normal (< rand-val 0.8) :fast :else :tank) base-stats (get enemy-types enemy-type) ;; Scale health with wave wave (get-var "wave" 1) scaled-health (+ (:health base-stats) (* wave 5)) spawn-point (first path-waypoints) enemy {:x (:x spawn-point) :y (:y spawn-point) :waypoint 1 :health scaled-health :max-health scaled-health :speed (:speed base-stats) :reward (:reward base-stats) :color (:color base-stats) :size (:size base-stats) :type enemy-type}] (append-var "enemies" enemy) (increment-var "enemies-spawned" 1) (set-var "last-spawn" (now)))))) ;; Game tick - runs every frame (defn game-tick [] (let [phase (get-var "phase" "menu")] (when (= phase "playing") ;; Spawn enemies (let [now (now) last-spawn (get-var "last-spawn" 0) spawn-interval (get-var "spawn-interval" 1000)] (when (and (get-var "wave-active" false) (> (- now last-spawn) spawn-interval)) (spawn-enemy))) ;; Move enemies (move-enemies) ;; Tower targeting (let [towers (get-var "towers" (list)) enemies (get-var "enemies" (list))] (set-var "towers" (map (fn [t] (assoc t :target (find-target t enemies))) towers))) ;; Shoot towers (shoot-towers) ;; Move projectiles (move-projectiles) ;; Check game over (when (<= (get-var "health" 20) 0) (set-var "phase" "gameover") (set-var "game-over" true)) ;; Check wave complete (let [enemies (get-var "enemies" (list)) spawned (get-var "enemies-spawned" 0) total (get-var "wave-enemies" 0)] (when (and (get-var "wave-active" false) (>= spawned total) (empty? enemies)) (set-var "wave-active" false)))))) ;; Tower placement (defn place-tower [x y] (let [money (get-var "money" 200) tower-type (get-var "selected-tower" :basic) tower-data (get tower-types tower-type) cost (:cost tower-data)] (when (>= money cost) ;; Check if position is valid (not on path, not occupied) (let [occupied (some (fn [t] (and (< (abs (- (:x t) x)) grid-size) (< (abs (- (:y t) y)) grid-size))) (get-var "towers" (list))) on-path (some (fn [wp] (and (< (abs (- x (:x wp))) grid-size) (< (abs (- y (:y wp))) grid-size))) path-waypoints)] (when (and (not occupied) (not on-path)) (set-var "money" (- money cost)) (append-var "towers" {:x x :y y :type tower-type :damage (:damage tower-data) :range (:range tower-data) :fire-rate (:fire-rate tower-data) :color (:color tower-data) :splash-radius (:splash-radius tower-data 0) :level 1 :last-shot 0 :target nil})))))) ;; Tower upgrade (defn upgrade-tower [tower] (let [money (get-var "money" 200) level (:level tower 1) cost (* 50 level)] (when (>= money cost) (set-var "money" (- money cost)) (set-var "towers" (map (fn [t] (if (= t tower) (assoc t :level (inc level) :damage (* (:damage t) 1.5) :range (* (:range t) 1.2) :fire-rate (max 100 (- (:fire-rate t) 100))) t)) (get-var "towers" (list))))))) ;; Render functions (defn render-path [] (map (fn [i] (let [wp1 (nth path-waypoints i) wp2 (nth path-waypoints (inc i))] (when wp2 (rect :x (min (:x wp1) (:x wp2)) :y (min (:y wp1) (:y wp2)) :width (max (abs (- (:x wp2) (:x wp1))) 40) :height (max (abs (- (:y wp2) (:y wp1))) 40) :fill "#333333" :opacity 0.5)))) (range (dec (count path-waypoints))))) (defn render-enemies [] (map (fn [e] (let [health-pct (/ (:health e) (:max-health e))] (fragment (circle :cx (:x e) :cy (:y e) :r (:size e) :fill (:color e)) ;; Health bar (rect :x (- (:x e) (:size e)) :y (- (:y e) (:size e) 5) :width (* 2 (:size e)) :height 3 :fill "#ff0000") (rect :x (- (:x e) (:size e)) :y (- (:y e) (:size e) 5) :width (* 2 (:size e) health-pct) :height 3 :fill "#00ff00")))) (get-var "enemies" (list)))) (defn render-towers [] (map (fn [t] (let [type (:type t) color (:color t)] (fragment ;; Tower base (rect :x (- (:x t) 15) :y (- (:y t) 15) :width 30 :height 30 :fill color :opacity 0.8) ;; Range indicator (when selected) (when (= t (get-var "selected-tower-obj" nil)) (circle :cx (:x t) :cy (:y t) :r (:range t) :fill "none" :stroke color :stroke-width 1 :opacity 0.3)) ;; Level indicator (svg-text :x (:x t) :y (+ (:y t) 5) :text-anchor "middle" :fill "#ffffff" :font-size "10" :font-weight "bold" (str (:level t 1)))))) (get-var "towers" (list)))) (defn render-projectiles [] (map (fn [p] (circle :cx (:x p) :cy (:y p) :r 3 :fill (:color p "#ffffff"))) (get-var "projectiles" (list)))) (defn render-game [] (let [health (get-var "health" 20) money (get-var "money" 200) wave (get-var "wave" 0)] (div :class "flex-col items-center gap-2" :style {:background "#0a0a0a" :padding "20px" :border-radius "10px"} ;; HUD (div :class "flex-row justify-between w-full" :style {:color "#00ffff" :font-family "monospace" :font-size "18px"} (span (str "HEALTH: " health)) (span (str "WAVE: " wave)) (span (str "MONEY: $" money))) ;; Tower selection (div :class "flex-row gap-2" (map (fn [[k v]] (let [selected (= k (get-var "selected-tower" :basic))] (button :style {:background (if selected (:color v) "#333") :color "#fff" :border (str "2px solid " (if selected (:color v) "#555")) :padding "8px 16px" :font-family "monospace" :cursor "pointer"} :onclick (fn [] (set-var "selected-tower" k)) (str (:name v) " $" (:cost v))))) tower-types)) ;; Game canvas (div :tabindex 0 :autofocus true :onkeydown (fn [e] (prevent-default e) (let [k (:key e)] (cond (= k "1") (set-var "selected-tower" :basic) (= k "2") (set-var "selected-tower" :fast) (= k "3") (set-var "selected-tower" :splash)))) :onclick (fn [e] (let [x (floor (/ (:offset-x e) grid-size)) y (floor (/ (:offset-y e) grid-size))] (place-tower (* x grid-size) (* y grid-size)))) (canvas :width canvas-width :height canvas-height ;; Background (rect :x 0 :y 0 :width canvas-width :height canvas-height :fill "#1a1a2e") ;; Grid (map (fn [i] (rect :x (* i grid-size) :y 0 :width 1 :height canvas-height :fill "#2a2a3e")) (range (inc cols))) (map (fn [i] (rect :x 0 :y (* i grid-size) :width canvas-width :height 1 :fill "#2a2a3e")) (range (inc rows))) ;; Path (render-path) ;; Towers (render-towers) ;; Enemies (render-enemies) ;; Projectiles (render-projectiles))) ;; Controls (div :class "flex-row gap-2" (button :style {:background "#00ff00" :color "#000" :padding "10px 20px" :font-family "monospace" :font-size "16px" :font-weight "bold" :border "none" :cursor "pointer" :opacity (if (get-var "wave-active" false) 0.5 1)} :onclick (fn [] (when (not (get-var "wave-active" false)) (spawn-wave))) "START WAVE") (button :style {:background "#ff00ff" :color "#fff" :padding "10px 20px" :font-family "monospace" :font-size "16px" :font-weight "bold" :border "none" :cursor "pointer"} :onclick (fn [] (init-game)) "RESTART")) ;; Game timer (when (= (get-var "phase" "menu") "playing") (interval :id "game-tick" :ms 50 :ontick (fn [] (game-tick))))))) (defn menu-screen [] (div :class "flex-col items-center justify-center" :style {:height "100vh" :background "#0a0a0a" :color "#00ffff" :font-family "monospace"} (h1 :style {:font-size "48px" :text-shadow "0 0 20px #00ffff, 0 0 40px #00ffff" :margin-bottom "20px"} "TOWER DEFENSE") (p :style {:color "#ff00ff" :font-size "20px" :margin-bottom "40px"} "DEFEND YOUR BASE!") (div :class "flex-col gap-4" (button :style {:background "#00ffff" :color "#000" :padding "15px 40px" :font-family "monospace" :font-size "24px" :font-weight "bold" :border "none" :cursor "pointer" :box-shadow "0 0 20px #00ffff"} :onclick (fn [] (init-game) (set-var "phase" "playing")) "PLAY") (div :style {:color "#888" :font-size "14px" :text-align "center"} (p "1,2,3 - Select tower type") (p "Click grid to place tower") (p "Click tower to upgrade"))))) (defn game-over-screen [] (div :class "flex-col items-center justify-center" :style {:height "100vh" :background "#0a0a0a" :color "#ff0000" :font-family "monospace"} (h1 :style {:font-size "48px" :text-shadow "0 0 20px #ff0000, 0 0 40px #ff0000" :margin-bottom "20px"} "GAME OVER") (p :style {:color "#00ffff" :font-size "24px" :margin-bottom "40px"} (str "WAVE REACHED: " (get-var "wave" 0))) (button :style {:background "#ff00ff" :color "#fff" :padding "15px 40px" :font-family "monospace" :font-size "24px" :font-weight "bold" :border "none" :cursor "pointer" :box-shadow "0 0 20px #ff00ff"} :onclick (fn [] (init-game) (set-var "phase" "menu")) "PLAY AGAIN"))) (defn main [] (let [phase (get-var "phase" "menu")] (cond (= phase "menu") (menu-screen) (= phase "playing") (render-game) (= phase "gameover") (game-over-screen) :else (menu-screen)))) (main)