Mercurial > vba-clojure

     1 (ns com.aurellem.run.choreo

     2   (:use (com.aurellem.gb saves gb-driver util constants

     3                          items vbm characters money

     4                          rlm-assembly))

     5   (:use (com.aurellem.run util music title save-corruption

     6                           bootstrap-0 bootstrap-1 image))

     7   (:require clojure.string)

     8   (:import [com.aurellem.gb.gb_driver SaveState])

     9   (:import java.io.File))

    10 

    11 

    12 

    13 ;; take over game

    14 ;; [X] silence noise

    15 ;; [ ] construct writing/playing kernel

    16 ;; [ ] play pony song while writing picture-program

    17 ;; [ ] run picture program to display pinkie pie mark

    18 

    19 

    20 

    21 (defn-memo silence-noise

    22   ([] (silence-noise (launch-main-bootstrap-program)))

    23   ([script]

    24      (->> script

    25           (write-RAM 0xFF1A [0 0 0]))))

    26 

    27 

    28 (defn-memo write-pony-music-data

    29   ([] (write-pony-music-data (silence-noise)))

    30   ([script]

    31      (->> script

    32           (write-RAM 0xA000 

    33 

    34 

    35
author	Robert McIntyre <rlm@mit.edu>
date	Mon, 25 Jun 2012 14:15:38 -0500
parents	bad7b7430245
children	c2ee7222a3c4