Mercurial > vba-clojure

     1 (ns com.aurellem.run.basic_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                           ram-display))

     8   (:require clojure.string)

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

    10   (:import java.io.File))

    11 

    12 

    13 

    14 ;; take over game

    15 ;; [X] silence noise

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

    17 ;; [ ] play pony song 

    18 

    19 

    20 (defn-memo silence-noise

    21   ([] (silence-noise (relocate-main-bootstrap)))

    22   ([script]

    23      (->> script

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

    25 

    26 (def music-program-start 0xC000)

    27 (def image-program-start 0xCE00)

    28 

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

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

    31   ([script]

    32      (let [bytes (midi-bytes

    33                   pony-csv

    34                   0xC400

    35                   0xC800

    36                   0xCC00

    37                   0xC000)]

    38        (->> script

    39             (write-RAM (:address (:voice-1 bytes))

    40                        (:data    (:voice-1 bytes)))

    41             (write-RAM (:address (:voice-2 bytes))

    42                        (:data    (:voice-2 bytes)))

    43             (write-RAM (:address (:noise bytes))

    44                        (:data    (:noise bytes)))

    45             (write-RAM (:address (:kernel bytes))

    46                        (:data    (:kernel bytes)))))))

    47 

    48 (defn-memo write-image-display-program

    49   ([] (write-image-display-program (write-pony-music-data)))

    50   ([script]

    51      (let [return-to-bootstrap

    52            (flatten

    53             [0xC3

    54              (disect-bytes-2 relocated-bootstrap-start)])]

    55        (->> script

    56             (write-RAM

    57              image-program-start

    58              (concat

    59               (display-image-kernel

    60                image-program-start

    61                pinkie-pie-mark)

    62               return-to-bootstrap))))))

    63      

    64 (defn-memo activate-media

    65   ([] (activate-media (write-image-display-program)))

    66   ([script]

    67      (->> script

    68           (transfer-control image-program-start)

    69           (do-nothing 100)

    70           (transfer-control music-program-start))))

    71 

    72
author	Robert McIntyre <rlm@mit.edu>
date	Mon, 25 Jun 2012 15:32:16 -0500
parents
children	614eddc5b38c