;;; bad.el --- boxing after dark -*- lexical-binding: t -*-
;;
;; Author: Emanuel Berg <incal@dataswamp.org>
;; Homepage: https://dataswamp.org/~incal/bad-el
;; Source: https://dataswamp.org/~incal/bad-el/bad-4/bad.el
;; Created: 2024-08-24
;; Keywords: games, terminals
;; License: GPL3+
;; Version: 4.0.0
;;
;;; Commentary:
;;        _________________________________________
;;       |  _____     _____        _      _     _  |
;;       | |  __ \   |  __ \      / \    | | _ | | |
;;       | | |  | |  | |__) |    / _ \   | |/ \| | |
;;       | | |__| |  |  __ <    / ___ \  |   _   | |
;;       | |_____/   |_|  |_|  /_/   \_\ |__/ \__| |
;;       |                                         |
;;       | dorks run away in the face of a warrior |
;;      /|_________________________________________|\
;;     /.-/                                       \-.\
;;    /.-/     by incal <incal@dataswamp.org>      \-.\
;;   /.-/                                           \-.\
;;  =====================================================
;;  bad    first home page, ascii demos  summer 2024  [0]
;;  bad-1  second home page, PNGs        fall   2024  [1]
;;  bad-2  studio only, FPS++, one file  winter 2025  [2]
;;  bad-3  zooming, several files        winter 2025  [3]
;;  bad-4  with luki-lisp, transparency  winter 2025  [4]
;;  =====================================================
;;
;;  [0] https://dataswamp.org/~incal/bad-www
;;  [1] https://dataswamp.org/~incal/bad-el
;;  [2] https://dataswamp.org/~incal/bad-el/bad-2
;;  [3] https://dataswamp.org/~incal/bad-el/bad-3
;;  [4] https://dataswamp.org/~incal/bad-el/bad-4
;;
;;; Code:

;; --------------------------------------------------------------------------

(require 'cl-lib)
(cl-pushnew "." load-path :test #'string=)
(require 'luki-lisp)

;; --------------------------------------------------------------------------

(-> 'bad-lib)
(-> 'bad-snake)
(-> 'bad-studio)

;; --------------------------------------------------------------------------

(defun bad-snake () (i)
  (bad-run (snake-game)))

(defun bad-studio () (i)
  (bad-run (studio)))

;; --------------------------------------------------------------------------

(<- 'bad)