Mercurial > vba-clojure

     1 (ns com.aurellem.world.practice

     2  (:use (com.aurellem.gb saves util mem-util constants gb-driver vbm items assembly characters))

     3  (:use (com.aurellem.exp pokemon))

     4  (:use (com.aurellem.exp item-bridge))

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

     6 

     7 

     8 ;;(def original-rom (rom(root)))

     9 

    10 (defn state-surprise

    11   "This is one tick before the trainer goes [!]"

    12   []

    13   (->

    14    (pre-trainer-battle)

    15    (step [:r])

    16    (step)

    17    (ntick 88147)

    18    ;(step [:r])

    19 

    20    ;(step [:r])

    21    ;(step [:r])

    22    ;(step [:r])

    23    ;(step [:r])

    24    ))

    25 

    26 (defn state-inject

    27   "I have replaced the letter e with e-acute @ 0xC4E8."

    28   []

    29   (read-state "inject-surprise"))

    30 

    31 

    32 

    33 

    34 

    35 

    36 

    37 (defn state-speak

    38   "This is when the trainer speaks."

    39   []

    40   (->

    41    (pre-trainer-battle)

    42    (set-memory 0xD354 0x0)

    43    (step [:r])

    44    (step)

    45    (ntick 88147)

    46    (tick)

    47    (nstep 102)

    48 

    49    ;(step [:r])

    50 

    51    ;(step [:r])

    52    ;(step [:r])

    53    ;(step [:r])

    54    ;(step [:r])

    55    ))

    56   

    57   

    58 

    59 

    60 

    61 

    62 

    63 (comment

    64   (println)

    65   (print (character-codes->str (take 6000 (drop 0xA75F4

    66                                                (vec(com.aurellem.gb.gb-driver/rom)))))))

    67 

    68 ;(dorun (map println (view-memory* (state-surprise)  0x1AEF 1600)))

    69 

    70 

    71 

    72 (def surprise-words

    73   [0x80 0xAB 0xAB 0x7F 0xB1 0xA8 0xA6 0xA7 0xB3 0xE7 0x7F 0x8B 0xA4 0xB3 0xE0 0xB2 0x7F 0xB1 0xAE 0xAB 0xAB 0x7F 0xB3 0xA7 0xA4 0x7F 0xA3 0xA8 0xA2 0xA4 0xE7])

    74 

    75 

    76 

    77 

    78 

    79 (defn change-speech

    80   ([state str k]

    81      (loop [ops str

    82             s state

    83             n k]

    84        (if (empty? ops) s

    85            (recur

    86             (rest ops)

    87             (set-memory (first-change s (+ 0xC4B9 n)) (+ 0xC4B9 n)

    88                         (first ops))

    89             (if (not= n 19) (inc n)

    90                 (+ n 21))))))

    91   ([str k]

    92      (change-speech (state-speak) str k))

    93   ([str]

    94      (change-speech str 0)))

    95 

    96 

    97 

    98 

    99 

   100 

   101 

   102 

   103 

   104 (def oak-intro

   105   

   106                   (list "Hello there!"

   107                         0x4F

   108                         "Welcome to the"

   109                         0x55

   110                         "world of "

   111                         0x54

   112                         "MON!"

   113                         0x51

   114                         "My name is OAK!"

   115                         0x4F

   116                         "People call me"

   117                         0x55

   118                         "the "

   119                         0x54

   120                         "MON PROF!"

   121                         0x58

   122                         "This world is"

   123                         0x4F

   124                         "inhabited by"

   125                         0x55

   126                         "creatures called"

   127                         0x55

   128                         0x54

   129                         "MON!"

   130                         0x50

   131                         0x50

   132                         0x51

   133                         "For some people, "

   134                         0x4F

   135                         0x54

   136                         "MON are"

   137                         0x55

   138                         "pets. Others use"

   139                         0x55

   140                         "them for fights."

   141                         0x51

   142                         "Myself..."

   143                         0x51

   144                         "I study "

   145                         0x54

   146                         "MON"

   147                         0x4F

   148                         "as a profession."

   149                         0x58

   150                         "First,  what is"

   151                         0x4F

   152                         "your name?"

   153                         0x58

   154                         "This is my grand-"

   155                         0x4F

   156                         "son. He's been"

   157                         0x55

   158                         "your rival since"

   159                         0x55

   160                         "you were a baby."

   161                         0x51

   162                         "...Erm,  what is"

   163                         0x4F

   164                         "his name again?"

   165                         0x58

   166                         0x52

   167                         "!"

   168                         0x51

   169                         "Your very own"

   170                         0x4F

   171                         0x54

   172                         "MON legend is"

   173                         0x55

   174                         "about to unfold!"

   175                         0x51

   176                         "A world of dreams"

   177                         0x4F

   178                         "and adventures"

   179                         0x55

   180                         "with "

   181                         0x54

   182                         "MON"

   183                         0x55

   184                         "awaits! Let's go!"

   185                         0x57)                 )

   186 

   187 (defn state-intro

   188   "Professor Oak speaks!"

   189   []

   190   (do

   191     (->

   192      (rewrite-rom 0xA07BB

   193                   (list 0x87 0xA4 0xAB 0xAB 0xAE 0x7F 0xB3 0xA7 0xA4 0xB1 0xA4 0xE7 0x4F 0x96 0xA4 0xAB 0xA2 0xAE 0xAC 0xA4 0x7F 0xB3 0xAE 0x7F 0xB3 0xA7 0xA4 0x55 0xB6 0xAE 0xB1 0xAB 0xA3 0x7F 0xAE 0xA5 0x7F 0x54 0x8C 0x8E 0x8D 0xE7 0x51 0x8C 0xB8 0x7F 0xAD 0xA0 0xAC 0xA4 0x7F 0xA8 0xB2 0x7F 0x8E 0x80 0x8A 0xE7 0x4F 0x8F 0xA4 0xAE 0xAF 0xAB 0xA4 0x7F 0xA2 0xA0 0xAB 0xAB 0x7F 0xAC 0xA4 0x55 0xB3 0xA7 0xA4 0x7F 0x8F 0x8C 0x8E 0x8D 0x7F 0x8F 0x91 0x8E 0x85 0xE7 0x58 0x93 0xA7 0xA8 0xB2 0x7F 0xB6 0xAE 0xB1 0xAB 0xA3 0x7F 0xA8 0xB2 0x4F 0xA8 0xAD 0xA7 0xA0 0xA1 0xA8 0xB3 0xA4 0xA3 0x7F 0xA1 0xB8 0x55 0xA2 0xB1 0xA4 0xA0 0xB3 0xB4 0xB1 0xA4 0xB2 0x7F 0xA2 0xA0 0xAB 0xAB 0xA4 0xA3 0x55 0x54 0x8C 0x8E 0x8D 0xE7 0x50 0x50 0x51 0x85 0xAE 0xB1 0x7F 0xB2 0xAE 0xAC 0xA4 0x7F 0xAF 0xA4 0xAE 0xAF 0xAB 0xA4 0xF3 0x7F 0x4F 0x54 0x8C 0x8E 0x8D 0x7F 0xA0 0xB1 0xA4 0x55 0xAF 0xA4 0xB3 0xB2 0xF1 0x7F 0x8E 0xB3 0xA7 0xA4 0xB1 0xB2 0x7F 0xB4 0xB2 0xA4 0x55 0xB3 0xA7 0xA4 0xAC 0x7F 0xA5 0xAE 0xB1 0x7F 0xA5 0xA8 0xA6 0xA7 0xB3 0xB2 0xF1 0x51 0x8C 0xB8 0xB2 0xA4 0xAB 0xA5 0xF1 0xF1 0xF1 0x51 0x88 0x7F 0xB2 0xB3 0xB4 0xA3 0xB8 0x7F 0x54 0x8C 0x8E 0x8D 0x4F 0xA0 0xB2 0x7F 0xA0 0x7F 0xAF 0xB1 0xAE 0xA5 0xA4 0xB2 0xB2 0xA8 0xAE 0xAD 0xF1 0x58 0x85 0xA8 0xB1 0xB2 0xB3 0xF3 0x7F 0x7F 0xB6 0xA7 0xA0 0xB3 0x7F 0xA8 0xB2 0x4F 0xB8 0xAE 0xB4 0xB1 0x7F 0xAD 0xA0 0xAC 0xA4 0xE6 0x58 0x93 0xA7 0xA8 0xB2 0x7F 0xA8 0xB2 0x7F 0xAC 0xB8 0x7F 0xA6 0xB1 0xA0 0xAD 0xA3 0xE3 0x4F 0xB2 0xAE 0xAD 0xF1 0x7F 0x87 0xA4 0xE0 0xB2 0x7F 0xA1 0xA4 0xA4 0xAD 0x55 0xB8 0xAE 0xB4 0xB1 0x7F 0xB1 0xA8 0xB5 0xA0 0xAB 0x7F 0xB2 0xA8 0xAD 0xA2 0xA4 0x55 0xB8 0xAE 0xB4 0x7F 0xB6 0xA4 0xB1 0xA4 0x7F 0xA0 0x7F 0xA1 0xA0 0xA1 0xB8 0xF1 0x51 0xF1 0xF1 0xF1 0x84 0xB1 0xAC 0xF3 0x7F 0x7F 0xB6 0xA7 0xA0 0xB3 0x7F 0xA8 0xB2 0x4F 0xA7 0xA8 0xB2 0x7F 0xAD 0xA0 0xAC 0xA4 0x7F 0xA0 0xA6 0xA0 0xA8 0xAD 0xE6 0x58 0x52 0xE7 0x51 0x98 0xAE 0xB4 0xB1 0x7F 0xB5 0xA4 0xB1 0xB8 0x7F 0xAE 0xB6 0xAD 0x4F 0x54 0x8C 0x8E 0x8D 0x7F 0xAB 0xA4 0xA6 0xA4 0xAD 0xA3 0x7F 0xA8 0xB2 0x55 0xA0 0xA1 0xAE 0xB4 0xB3 0x7F 0xB3 0xAE 0x7F 0xB4 0xAD 0xA5 0xAE 0xAB 0xA3 0xE7 0x51 0x80 0x7F 0xB6 0xAE 0xB1 0xAB 0xA3 0x7F 0xAE 0xA5 0x7F 0xA3 0xB1 0xA4 0xA0 0xAC 0xB2 0x4F 0xA0 0xAD 0xA3 0x7F 0xA0 0xA3 0xB5 0xA4 0xAD 0xB3 0xB4 0xB1 0xA4 0xB2 0x55 0xB6 0xA8 0xB3 0xA7 0x7F 0x54 0x8C 0x8E 0x8D 0x55 0xA0 0xB6 0xA0 0xA8 0xB3 0xB2 0xE7 0x7F 0x8B 0xA4 0xB3 0xE0 0xB2 0x7F 0xA6 0xAE 0xE7 0x57 0x0 0x83 0xAE 0x7F 0xB8 0xAE 0xB4 0x7F 0xB6 0xA0 0xAD 0xB3 0x7F 0xB3 0xAE 0x4F 0xA6 0xA8 0xB5 0xA4 0x7F 0xA0 0x7F 0xAD 0xA8 0xA2 0xAA 0xAD 0xA0 0xAC 0xA4 0x55 0xB3 0xAE 0x7F 0x50 0x1 0x6D 0xCD 0x0 0xE6 0x57 0x0 0x91 0xA8 0xA6 0xA7 0xB3 0xE7 0x7F 0x92 0xAE 0x7F 0xB8 0xAE 0xB4 0xB1 0x4F 0xAD 0xA0 0xAC 0xA4 0x7F 0xA8 0xB2 0x7F 0x52 0xE7 0x58 0x0 0x93 0xA7 0xA0 0xB3 0xBD 0x7F 0xB1 0xA8 0xA6 0xA7 0xB3 0xE7 0x7F 0x88 0x4F 0xB1 0xA4 0xAC 0xA4 0xAC 0xA1 0xA4 0xB1 0x7F 0xAD 0xAE 0xB6 0xE7 0x7F 0x87 0xA8 0xB2 0x55 0xAD 0xA0 0xAC 0xA4 0x7F 0xA8 0xB2 0x7F 0x53 0xE7 0x58 0x1 0x3F 0xCD 0x0 0x7F 0xA0 0xAD 0xA3 0x4F 0x50 0x1 0x6D 0xCD 0x0 0x7F 0xB6 0xA8 0xAB 0xAB 0x55 0xA1 0xA4 0x7F 0xB3 0xB1 0xA0 0xA3 0xA4 0xA3 0xE8 0x57 0x0 0x98 0xAE 0xB4 0x7F 0xAD 0xA4 0xA4 0xA3 0x7F 0xF9 0x7F 0x54 0x8C 0x8E 0x8D 0x4F 0xB3 0xAE 0x7F 0xA5 0xA8 0xA6 0xA7 0xB3 0xE7 0x58 0x0 0x92 0xAE 0xB1 0xB1 0xB8 0xF4 0x7F 0x8C 0x84 0x96 0x7F 0xA2 0xA0 0xAD 0xBE 0x4F 0xA0 0xB3 0xB3 0xA4 0xAD 0xA3 0xE7 0x58 0x0 0x98 0xAE 0xB4 0xB1 0x7F 0x54 0x8C 0x8E 0x8D 0x7F 0xAC 0xB4 0xB2 0xB3 0x4F 0xA0 0xAB 0xAB 0x7F 0xA1 0xA4 0x7F 0xA3 0xA8 0xA5 0xA5 0xA4 0xB1 0xA4 0xAD 0xB3 0xE7 0x58 0x0 0x8D 0xAE 0x7F 0x54 0x8C 0x8E 0x8D 0x7F 0xA2 0xA0 0xAD 0x4F 0xA4 0xB7 0xA2 0xA4 0xA4 0xA3 0x7F 0x8B 0xFB 0xFB 0xE7 0x58 0x0 0x80 0xAB 0xAB 0x7F 0x54 0x8C 0x8E 0x8D 0x7F 0xAC 0xB4 0xB2 0xB3 0x4F 0xA1 0xA4 0x7F 0xA0 0xB3 0x7F 0xAB 0xA4 0xA0 0xB2 0xB3 0x7F 0x8B 0xFB 0xF6 0xE7 0x58 0x0 0x98 0xAE 0xB4 0xB1 0x7F 0xB3 0xAE 0xB3 0xA0 0xAB 0x7F 0xAB 0xA4 0xB5 0xA4 0xAB 0xB2 0x4F 0xA4 0xB7 0xA2 0xA4 0xA4 0xA3 0x7F 0xF7 0xFB 0xFB 0xE7 0x58 0x0 0x8D 0xAE 0x7F 0x54 0x8C 0x8E 0x8D 0x7F 0xA2 0xA0 0xAD 0x4F 0xA4 0xB7 0xA2 0xA4 0xA4 0xA3 0x7F 0x8B 0xF9 0xF6 0xE7 0x58 0x0 0x80 0xAB 0xAB 0x7F 0x54 0x8C 0x8E 0x8D 0x7F 0xAC 0xB4 0xB2 0xB3 0x4F 0xA1 0xA4 0x7F 0xA0 0xB3 0x7F 0xAB 0xA4 0xA0 0xB2 0xB3 0x7F 0x8B 0xF8 0xFB 0xE7 0x58 0x0 0x98 0xAE 0xB4 0xB1 0x7F 0xB3 0xAE 0xB3 0xA0 0xAB 0x7F 0xAB 0xA4 0xB5 0xA4 0xAB 0xB2 0x4F 0xA4 0xB7 0xA2 0xA4 0xA4 0xA3 0x7F 0xFE 0xF6 0xE7 0x58 0x0 0x8D 0xAE 0x7F 0x54 0x8C 0x8E 0x8D 0x7F 0xA2 0xA0 0xAD 0x4F 0xA4 0xB7 0xA2 0xA4 0xA4 0xA3 0x7F 0x8B 0xF8 0xF6 0xE7 0x58 0x0 0x80 0xAB 0xAB 0x7F 0x54 0x8C 0x8E 0x8D 0x7F 0xAC 0xB4 0xB2 0xB3 0x4F 0xA1 0xA4 0x7F 0xA0 0xB3 0x7F 0xAB 0xA4 0xA0 0xB2 0xB3 0x7F 0x8B 0xF7 0xFB 0xE7 0x58 0x0 0x98 0xAE 0xB4 0xB1 0x7F 0xB3 0xAE 0xB3 0xA0 0xAB 0x7F 0xAB 0xA4 0xB5 0xA4 0xAB 0xB2 0x4F 0xA4 0xB7 0xA2 0xA4 0xA4 0xA3 0x7F 0xFB 0xF6 0xE7 0x58 0x1 0x6D 0xCD 0x0 0x7F 0xA8 0xB2 0x7F 0xAE 0xB5 0xA4 0xB1 0x4F 0xFC 0x71 0xFE 0x73 0x7F 0xB3 0xA0 0xAB 0xAB 0xE7 0x58 0x1 0x6D 0xCD 0x0)

   194                  ;; (list

   195                  ;;  "Sleeping on the"

   196                  ;;  0x4F

   197                  ;;  "job again are we?"

   198                  ;;  0x51

   199                  ;;  0x00

   200                  ;;  "test"

   201                  ;;  0x59

   202                  ;;  "EOM")

   203 

   204  

   205                   )

   206      (int-array)

   207      (write-rom!))

   208     (root)

   209      

   210     )

   211   

   212   )

   213 

   214 (comment

   215 "Hello there![0x4F]Welcome to the[0x55]world of [POKE]MON![0x51]My

   216 name is OAK![0x4F]People call me[0x55]the [POKE]MON PROF![0x58]This

   217 world is[0x4F]inhabited by[0x55]creatures

   218 called[0x55][POKE]MON![0x50][0x50][0x51]For some people,

   219 [0x4F][POKE]MON are[0x55]pets. Others use[0x55]them for

   220 fights.[0x51]Myself...[0x51]I study [POKE]MON[0x4F]as a

   221 profession.[0x58]First,  what is[0x4F]your name?[0x58]This is my

   222 grand-[0x4F]son. He's been[0x55]your rival since[0x55]you were a

   223 baby.[0x51]...Erm,  what is[0x4F]his name again?[0x58][RED]![0x51]Your

   224 very own[0x4F][POKE]MON legend is[0x55]about to unfold![0x51]A world

   225 of dreams[0x4F]and adventures[0x55]with [POKE]MON[0x55]awaits! Let's

   226 go![0x57]")

   227 

   228 

   229 

   230 

   231 

   232 

   233 

   234 

   235 

   236 

   237 

   238 

   239
author	Robert McIntyre <rlm@mit.edu>
date	Mon, 25 Jun 2012 14:55:55 -0500
parents	de172acc5a03
children